在看過紀大哥的0354後，還不是很清楚它的用法..(我比較笨)。
請問哪一本書，或是哪個連結有更完善的說明？
請問哪一本書，或是哪個連結有更完善的說明？
- Jan 12 Mon 2004 17:20
-
SHAPE(編號：32616)
- Jan 08 Thu 2004 16: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
- Oct 20 Mon 2003 10: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.
- Oct 01 Wed 2003 11: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
- Jul 03 Thu 2003 21: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
- Jun 09 Mon 2003 19: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
- Jun 02 Mon 2003 14: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)
- Jun 01 Sun 2003 21: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 值
- May 29 Thu 2003 23: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
錯在下面這段,不會寫請指導一下
- May 06 Tue 2003 22: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語法時會出現錯誤，請求各位高手幫忙，謝謝。
- Apr 19 Sat 2003 03:06
-
問題2 shape append 的子Recordset 的欄位不要顯示出來(編號：28544)
我用shape append 要在datagrid中顯示可是顯示出來的欄位有
作者碼,作者名,作者名,書碼,書名 可是我不要子RecordSet物件中的作者名顯示出來要怎麼設定,請各位教一下小弟我
mysql="shape {select 作者碼,作者名 from 作者}"_
&"({select 作者名,書碼,書名 from 書籍}as book"_
&"relate 作者名 to 作者名)"
作者碼,作者名,作者名,書碼,書名 可是我不要子RecordSet物件中的作者名顯示出來要怎麼設定,請各位教一下小弟我
mysql="shape {select 作者碼,作者名 from 作者}"_
&"({select 作者名,書碼,書名 from 書籍}as book"_
&"relate 作者名 to 作者名)"
- Apr 19 Sat 2003 02:23
-
shape append 的子Recordset 的欄位不要顯示出來(編號：28543)
我用shape append 要在mshflexgrid中顯示可是顯示出來的欄位有
作者碼,作者名,作者名,書碼,書名 可是我不要子RecordSet物件中的作者名顯示出來要怎麼設定,請各位教一下小弟我
mysql="shape {select 作者碼,作者名 from 作者}"_
&"({select 作者名,書碼,書名 from 書籍}as book"_
&"relate 作者名 to 作者名)"
作者碼,作者名,作者名,書碼,書名 可是我不要子RecordSet物件中的作者名顯示出來要怎麼設定,請各位教一下小弟我
mysql="shape {select 作者碼,作者名 from 作者}"_
&"({select 作者名,書碼,書名 from 書籍}as book"_
&"relate 作者名 to 作者名)"