Private Sub FileList_MouseDown(Button As Integer,
Shift As Integer, X As Single, Y As Single)
Dim DY As Integer
DY = TextHeight("A")
DragLabel.Move FileList.Left, FileList.Top _
(繼續閱讀...)

vbqa 發表在 痞客邦 留言(1) 人氣()

  • 個人分類：
▲top
Private Sub Drive1_DragOver(Source As Control,X As Single,
　Y As Single, State As Integer)
If State = 0 Then Source.MousePointer = 12
If State = 1 Then Source.MousePointer = 0
End Sub
(繼續閱讀...)

vbqa 發表在 痞客邦 留言(1) 人氣()

  • 個人分類：
▲top
請問樂觀鎖定和悲觀鎖定各用在什麼樣的情況, 有無這方面的書籍? 謝謝!
(繼續閱讀...)

vbqa 發表在 痞客邦 留言(12) 人氣()

  • 個人分類：
▲top
若我們新增一筆資料時, 畫面上的欄位不輸入任何資料, 便按存檔.
此時我們不希望存入一筆 NULL 資料, 有沒有除了用迴圈及 flag 就可以判斷的方法?
若 RecordCount=0 時, 判斷式可能是這樣:
If oRs.RecordCount = 0 Then oRs.AddNew
... 判斷資料是否空白
(繼續閱讀...)

vbqa 發表在 痞客邦 留言(7) 人氣()

  • 個人分類：
▲top
各位好:
請教各高手,NETAPI32.dll內的API Function有那些?
NT與WIN95/98 的NETAPI32.dll是否相同?可共用?
Thanks
Tom
(繼續閱讀...)

vbqa 發表在 痞客邦 留言(0) 人氣()

  • 個人分類： DLL
▲top
請教如何製作一計數器每秒更新一次
小弟想做一紅綠燈的控制,如計數器為5時為紅燈;10時為黃燈;
15時為綠燈.
現階段卡在不知如何制作讓計數器每秒更新.
謝謝
(繼續閱讀...)

vbqa 發表在 痞客邦 留言(4) 人氣()

  • 個人分類：
▲top
用什麼方法設定報表長度(DataReport) ?
(繼續閱讀...)

vbqa 發表在 痞客邦 留言(0) 人氣()

▲top
以下的code 會出現run-time error當行到"rs.find.." 時.
run-time error:The rowset cannot scroll backwards"
Set cn = New ADODB.Connection
cn.Open Connstr
Set rs = New ADODB.Recordset
(繼續閱讀...)

vbqa 發表在 痞客邦 留言(2) 人氣()

▲top
我想要在執行檔安裝時建立SQL DataBase，該怎麼做呢?
可否推薦好用的封裝程式呢?
(繼續閱讀...)

vbqa 發表在 痞客邦 留言(0) 人氣()

  • 個人分類： SQL
▲top
請教
1我引用紀先生網站的Barcode字形但會出現一個數字??
2如何將套用的Label物件的圖形輸出供列印使用,"Barcode圖形"
(繼續閱讀...)

vbqa 發表在 痞客邦 留言(6) 人氣()

▲top
聽這個標題似乎很簡單，但是卻花了我不少精神才解決這個問題，
而且方法有點低級，我題供給各位參考，如果有高手有更好的方法
也請不吝告知。
form內放上imgscan 和 imgedit,imgscan的目標影像控制指定到imgedit
　　　　'這一行是KODAK建議加上
(繼續閱讀...)

vbqa 發表在 痞客邦 留言(2) 人氣()

▲top
我在程式中加了
Public Sub PutPrinter()
Dim x As Printer
　 For Each x In Printers
　　　Combo1.AddItem x.DeviceName
(繼續閱讀...)

vbqa 發表在 痞客邦 留言(0) 人氣()

▲top
第一頁 « 2436 2437 2438 2439 2440
Blog Stats
⚠️

成人內容提醒

本部落格內容僅限年滿十八歲者瀏覽。
若您未滿十八歲，請立即離開。

已滿十八歲者，亦請勿將內容提供給未成年人士。