在看過紀大哥的0354後，還不是很清楚它的用法..(我比較笨)。
請問哪一本書，或是哪個連結有更完善的說明？
請問哪一本書，或是哪個連結有更完善的說明？
- 1月 12 週一 200417:20
SHAPE(編號：32616)
- 1月 08 週四 200416:37
在EXCEL 中畫有箭頭的線(編號：32568)
請問各位高手,我想在EXCEL中畫有箭頭的線, 為何會出現"指定值超出範圍"的錯誤訊息呢??
Dim DataToExcel As New Excel.Application
DataToExcel.Workbooks.Add
DataToExcel.Worksheets("Sheet1").Activate
With DataToExcel.ActiveSheet
Dim DataToExcel As New Excel.Application
DataToExcel.Workbooks.Add
DataToExcel.Worksheets("Sheet1").Activate
With DataToExcel.ActiveSheet
- 10月 20 週一 200310:39
How to program an irregular arrays?(編號：31731)
In VB6.0 Anybody Know how to program an irregular size and shape? Like a two-dimensional array might need six items in the first row, three in the second, four in the third and so forth. Thank you.
- 10月 01 週三 200311:21
Excel Chart(編號：31420)
關於在Excel中繪圖,如何才能繪出兩條線於一個圖型,圖形已經預先放在Execl檔中,及移動圖形.程式碼如下,我沒辦法畫出兩條線,及移動圖形,感謝.
objWorksheet.ChartObjects(1).Activate
With ActiveChart
'.Name = "Graph1"
.ChartArea.Select
objWorksheet.ChartObjects(1).Activate
With ActiveChart
'.Name = "Graph1"
.ChartArea.Select
- 7月 03 週四 200321:51
有何方法才能用keybroad控制program??因我試過不行(編號：30088)
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyUp Then
End
End If
If KeyAscii = vbKeyRight Then
If KeyAscii = vbKeyUp Then
End
End If
If KeyAscii = vbKeyRight Then
- 6月 09 週一 200319:34
如何用循序檔能一筆 一筆的讀11(編號：29527)
Dim nameu As String
Dim chinese As Integer
Dim math As Integer
Dim english As Integer
Dim computer As Integer
Dim chinese As Integer
Dim math As Integer
Dim english As Integer
Dim computer As Integer
- 6月 02 週一 200314:00
一#20010;#22270;形#38382;#39064;(編號：29380)
我想把一个长方形（用shape控件）旋转45度角
Dim arph
private sub command1_click()
arph=3,141592/4
shape1.shape=0.7*cos(arph)
Dim arph
private sub command1_click()
arph=3,141592/4
shape1.shape=0.7*cos(arph)
- 6月 01 週日 200321:22
各位大#34430;#35831;#24110;忙，在下不甚感激！！！(編號：29375)
我现在能用在运行时用鼠标划出无数个区域,并且每划一个区域时能分别在text1,text2,text3,text4中显示X坐标，Y坐标、高和宽，还能在组合框的下拉列表中自动增加这个区域并显示其为这是第几个区域，但是我在这里遇到了一个问题，希望各位大虾能帮我忙，其中我能实现的代码如下：
'在窗体上放置 Shape 控件，一切属性取初始值
Option Explicit
Dim a As Boolean '判断鼠标是否按下状态
Dim x1 As Integer '矩形区域左上角 x 值
'在窗体上放置 Shape 控件，一切属性取初始值
Option Explicit
Dim a As Boolean '判断鼠标是否按下状态
Dim x1 As Integer '矩形区域左上角 x 值
- 5月 29 週四 200323:27
請問要如何,將圖貼入Sheet2中,並且存檔時也將圖一並存入呢?(編號：29326)
請問要如何,將圖貼入Sheet2中,並且存檔時也將圖一並存入呢?
MyXlsApp.Workbooks.Open "c:\Data\04.xls"
MyXlsApp.Visible = True
MyXlsApp.Workbooks(1).Activate
錯在下面這段,不會寫請指導一下
MyXlsApp.Workbooks.Open "c:\Data\04.xls"
MyXlsApp.Visible = True
MyXlsApp.Workbooks(1).Activate
錯在下面這段,不會寫請指導一下
- 5月 06 週二 200322:22
command執行sql語法時產生錯誤訊息, 如何解決?(編號：28854)
VB6.0，作業系統：windowXP ，請問：當command執行MySQL = "shape{select 零售商 from 零售商資料表} as rptAgency append ({select * from 出庫資料表 where (日期 between ? and ?)} as rptOut relate 零售商 to 交易對像 ) as rptOut" 會產生錯誤訊息內容為無效的sql陳述式，預期為delete、insert、select、update、proceduer。 請問該如何解決? 或是sql語法錯誤?我的目的是要製作報表，而報表的內容需在要求的期間內顯示，所以會用到 shape和參數, 但每次執行 sql語法時會出現錯誤，請求各位高手幫忙，謝謝。