我喜歡一些繪圖軟體,愛好編程式,請問怎樣實現如CORELDRAW那樣的分層(LAYER)處理。如畫一條線在有地圖背景的PICTUREBOX上移動(我嘗試將picturebox的drawmode設爲7,即xor pen模式)通過重畫的方式來擦除再重畫,然而,由於地圖顔色多變,用此種方法作的線條顔色也不確定。請問有無更好的方法。不勝感謝,指點思路即可!
我的E-MAIL:zeng_qin@hotmail.com

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

感謝大家的幫忙....
小弟的 營業網路管理程式 已經完成80%了...
不知道有朋友也在寫這方面的程式嗎???
簡述功能.請大家來信提供主意.
Server端(Windows9x Nx 2k 都可)

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

高手們, 能否解釋 vba 是什麼?

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

小弟利用 winsock 來做 client & server 程式。當我利用SendData
將資料傳送出去後,隨即接下來的程式碼需使用到 server 所 response回來的資料,但是由於timing的問題,所以server可能尚未傳回資料,請問有沒有什麼程式技巧或方式可以讓我在senddata完畢後,等到DataArrival事件觸發了之後才去執行下面的程式碼呢??
謝謝....

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

請問vb做成的執行檔(.exe)圖示是否可以更改?如何更改,因為我不喜歡它表單的圖示,謝謝

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

在API中,和更改PALETTE有關的句子實在太麻煩,現在我想知道有沒有方法可以更改系統內的調色盤呢??

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

Private Declare Function CreatePalette Lib "gdi32" (lpLogPalette As LOGPALETTE) As Long
Private Declare Function AnimatePalette Lib "gdi32" Alias "AnimatePaletteA" (ByVal hPalette As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteColors As PALETTEENTRY) As Long
Private Declare Function SelectPalette Lib "gdi32" (ByVal hdc As Long, ByVal hPalette As Long, ByVal bForceBackground As Long) As Long
Private Declare Function RealizePalette Lib "gdi32" (ByVal hdc As Long) As Long
Private Type PALETTEENTRY

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

我寫了以下的程式:
Private Declare Function CreatePalette Lib "gdi32" (lpLogPalette As LOGPALETTE) As Long
Private Declare Function AnimatePalette Lib "gdi32" Alias "AnimatePaletteA" (ByVal hPalette As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteColors As PALETTEENTRY) As Long
Private Declare Function SelectPalette Lib "gdi32" (ByVal hdc As Long, ByVal hPalette As Long, ByVal bForceBackground As Long) As Long
Private Declare Function RealizePalette Lib "gdi32" (ByVal hdc As Long) As Long

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

請問各位先進....
在VB中可以利用WOL功能來開啟遠方電腦嗎???

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

很急!麻煩知道人告知,

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

以下有幾個問題想請教:
1. 在datareport中如何再新增組別(原來已有一個為客戶的分組,用dataenvironment為資料源).
2. 如何把密碼和用戶名稱傳到dataenviroment中, 以免有一個問話出現.
3. 當datareport show的時候,如何自動把顯示的比率改為75%.
請指點,急.

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

Set db = OpenDatabase("\..\aaa\aaa.mdb")
Set rs = db.OpenRecordset(字串變數) '=>這樣的寫法不知可否
  If rs.NoMatch = True Then
   MsgBox "找不到"
  Else

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

Blog Stats
⚠️

成人內容提醒

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

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