as title
例如: 資料控制項(data)連結的是guest資料表, 要找出其中g_name欄位的值為變數name的記錄,
那麼整個敘述要怎麼寫??
提供小吳 VBQA 包含VB6,VB 2003,VB 2005,VB 2008,VB 2010,2013,2015 ,2019,VB.NET,Visual Studio,Visual Basic,程式設計,C#,ASP.NET , Windows From , SQL Server , Crystal Report,VBA,HTML,網頁設計,微軟,98,XP, API ,KB .
資料存取速度太慢(編號：569)
我使用VB6 OLE DB CONNECT SQL SERVER 資料約十萬筆,每次存取如
resync動作時都要等很久,請問有沒方式加速.
CursorLocation = adUseClient
CursorType = adOpenStatic
TKS
resync動作時都要等很久,請問有沒方式加速.
CursorLocation = adUseClient
CursorType = adOpenStatic
TKS
有關資料庫存取(編號：563)
小弟寫了一個VB程式,並將它放至公司intranet網路上,但卻遭遇到下列問題,請各位先進幫忙解決:
前言 :
假設本人有存取intranet網路(假設是 磁碟機W:\)的權限,並將程式中所使用到的ACCESS資料庫檔案放至該處(W:\)下.在此情況下,本人於本機執行程式時沒有問題(可擷取到ACCESS資料庫中的資料).
問題一:若一個無存取W:\碟的人到intranet來執行該程式,則會出現
下列訊息:
"Microsoft Jet 資料庫引擎無法開啟 'W:\..\aa.mdb '檔案.
您需要有檢視資料的權限 ".
請問該如何解決... ????
問題二：為何其他資料檔（如：word檔）也是放在W:\碟，但無W:\碟
存取權限的人卻仍可以透過intranet網頁中的超連結而讀取到
該資料...????? 而使用VB寫的程式卻無法擷取到程式中所用
到的access檔案...???
前言 :
假設本人有存取intranet網路(假設是 磁碟機W:\)的權限,並將程式中所使用到的ACCESS資料庫檔案放至該處(W:\)下.在此情況下,本人於本機執行程式時沒有問題(可擷取到ACCESS資料庫中的資料).
問題一:若一個無存取W:\碟的人到intranet來執行該程式,則會出現
下列訊息:
"Microsoft Jet 資料庫引擎無法開啟 'W:\..\aa.mdb '檔案.
您需要有檢視資料的權限 ".
請問該如何解決... ????
問題二：為何其他資料檔（如：word檔）也是放在W:\碟，但無W:\碟
存取權限的人卻仍可以透過intranet網頁中的超連結而讀取到
該資料...????? 而使用VB寫的程式卻無法擷取到程式中所用
到的access檔案...???
請問如何在DataGrid中自動編號(編號：562)
請問我在dataGrid中若刪除一筆資料後,如何讓每筆記錄的序號重新編號.
我將重新編號的程式寫在DataGrid的AfterDelete中,但是會出現"提供者在消費者中由IRowSetNotify呼叫方法,此方法尚未被傳回"的訊息...
請問我應該寫在DataGrid哪個事件下呢?
我將重新編號的程式寫在DataGrid的AfterDelete中,但是會出現"提供者在消費者中由IRowSetNotify呼叫方法,此方法尚未被傳回"的訊息...
請問我應該寫在DataGrid哪個事件下呢?
SQL move to Access(編號：559)
我想從 SQL server 上將資料庫搬到 Local Access
請問有辦法不要使用 DAO 直接下 SQL statment嗎
或者有其他較簡便的方法
因為資料庫的Table, Field必須一一指定
TKS!!
請問有辦法不要使用 DAO 直接下 SQL statment嗎
或者有其他較簡便的方法
因為資料庫的Table, Field必須一一指定
TKS!!
記數器的讀取~~(編號：558)
請問使用VBScript讀取檔案的記數數值時!!
＜%Application("counter")%＞
可以讓它顯示成00001000~~
而不是只顯示1000
因為我在counter.txt裡面是00001000
謝謝~~~~
＜%Application("counter")%＞
可以讓它顯示成00001000~~
而不是只顯示1000
因為我在counter.txt裡面是00001000
謝謝~~~~
請問ADO 的 Recordset.Sort?(編號：556)
VB6 的Help 中說 Recordset.Sort 屬性
遞增或遞減排序只要在欄位後加空白及ASCENDING or DESCENDING
可是我怎麼試都無法將 DESCENDING 關鍵字加上去，
Please help me, thanks!
遞增或遞減排序只要在欄位後加空白及ASCENDING or DESCENDING
可是我怎麼試都無法將 DESCENDING 關鍵字加上去，
Please help me, thanks!
程式錯在哪?(編號：553)
幫忙看一下這一個程式錯在哪裡?
為什麼執行沒有多久就當機?
試了好久都一樣
Option Explicit
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim MouseXY As POINTAPI
Dim nX As Single, nY As Single
Dim BackX As Single, BackY As Single
Dim SrcDC As Long
Dim ret As Long
Private Sub Form_Load()
Picture1.ScaleMode = 3
Picture1.AutoRedraw = True
Form1.ScaleMode = 3
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
ret = GetCursorPos(MouseXY)
nX = MouseXY.x - 50
nY = MouseXY.y - 50
SrcDC = GetDC(0)
ret = StretchBlt(Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, SrcDC, nX, nY, 100, 100, vbSrcCopy)
Picture1.Refresh
ret = ReleaseDC(0, SrcDC)
End Sub
為什麼執行沒有多久就當機?
試了好久都一樣
Option Explicit
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim MouseXY As POINTAPI
Dim nX As Single, nY As Single
Dim BackX As Single, BackY As Single
Dim SrcDC As Long
Dim ret As Long
Private Sub Form_Load()
Picture1.ScaleMode = 3
Picture1.AutoRedraw = True
Form1.ScaleMode = 3
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
ret = GetCursorPos(MouseXY)
nX = MouseXY.x - 50
nY = MouseXY.y - 50
SrcDC = GetDC(0)
ret = StretchBlt(Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, SrcDC, nX, nY, 100, 100, vbSrcCopy)
Picture1.Refresh
ret = ReleaseDC(0, SrcDC)
End Sub
VB 傳指標 入 API(編號：549)
常有 WInAPI 需要傳指標 做參數引入
甚至 接收以指標型態傳回之值
但 在VB call by val,ref,name 所引用的各種參數型態
均不能正確工作
不信的話,讀者可以找個傳指標為參數的試試
沒指標的VB真有些不方便!
甚至 接收以指標型態傳回之值
但 在VB call by val,ref,name 所引用的各種參數型態
均不能正確工作
不信的話,讀者可以找個傳指標為參數的試試
沒指標的VB真有些不方便!
ActiveX Component can not create object.(編號：547)
丫~~~怎麼會這樣....
ActiveX Component can not create object.
有沒有人遇過呢?
在查詢SQL Server時(ado)才會發生的
可是只有幾台電腦固定會出現...
其他的都不會的....
help me ...
ActiveX Component can not create object.
有沒有人遇過呢?
在查詢SQL Server時(ado)才會發生的
可是只有幾台電腦固定會出現...
其他的都不會的....
help me ...
多層次物件的規劃(編號：543)
我想使用一個Class連接至SQL Server, 其他的Class共用此Class的Connection下載RecordSet, 而不必每個Class都自己連至SQL, 這樣可將Connection的耗用資源降低
這樣的Class階層要如何規劃, 請各位先進指點一二
-＞ 給我一點靈感吧 please (⊙o⊙)
這樣的Class階層要如何規劃, 請各位先進指點一二
-＞ 給我一點靈感吧 please (⊙o⊙)
製作 ActiveX Control Property 的問題(編號：541)
用 VB 製作 ActiveX Control 時, 如何才能讓某些 Property 動態
產生特定的選項? 如何做到這種 ComboBox 選擇的功能? 但是我所要
動態產生的選擇和 DataSource or DB 類的東西無關, 僅是幾個必須
動態產生的字串. 不想用 Property Page 來做, 因為蠻累贅的.
類似於在用 DataControl 時, 必須先有了 DataControl 後, 才可以在某些有 DataBinding 的元件中選擇 DataSource & DataField (這時, 這兩個屬性的 ComboBox選項才會有東西顯示出來...)
產生特定的選項? 如何做到這種 ComboBox 選擇的功能? 但是我所要
動態產生的選擇和 DataSource or DB 類的東西無關, 僅是幾個必須
動態產生的字串. 不想用 Property Page 來做, 因為蠻累贅的.
類似於在用 DataControl 時, 必須先有了 DataControl 後, 才可以在某些有 DataBinding 的元件中選擇 DataSource & DataField (這時, 這兩個屬性的 ComboBox選項才會有東西顯示出來...)
多人同時列印動態報表(編號：539)
我遇一個困難是多人同時列印動態報表
解釋起來是一台Server多個Client
有二人以上几乎在同一時間下select法語加上where不同的條件
我列表的方法是先Insert資料到一個TempTable,
再refresh crystal report中已經事先連好的TempTable
將資料印出,
可是單人列印時沒有問題,
兩個人以上可能會去搶TempTable印出的值
也可能印出是兩人select之後交錯的結果,我該怎麼辦??
請問你們都是如何列出動態報表??
謝謝您的回答!!
解釋起來是一台Server多個Client
有二人以上几乎在同一時間下select法語加上where不同的條件
我列表的方法是先Insert資料到一個TempTable,
再refresh crystal report中已經事先連好的TempTable
將資料印出,
可是單人列印時沒有問題,
兩個人以上可能會去搶TempTable印出的值
也可能印出是兩人select之後交錯的結果,我該怎麼辦??
請問你們都是如何列出動態報表??
謝謝您的回答!!
Command Button's Event (如何持續的產生事件)(編號：530)
各位先進:
我用了一個Command Button 去累計某一個數值,
例如按一下button, 則某數加一. 問題是如果user按住button,
則理論上該持續的累加, 其實不然, 它只會加一次.
如果想要可以持續的累加, 直到user放掉button,該如何做 ?
(使用滑鼠)
Thanks
我用了一個Command Button 去累計某一個數值,
例如按一下button, 則某數加一. 問題是如果user按住button,
則理論上該持續的累加, 其實不然, 它只會加一次.
如果想要可以持續的累加, 直到user放掉button,該如何做 ?
(使用滑鼠)
Thanks
請問 MMCcontrol 如何能播放 .mpg 檔 ?(編號：528)
請問大家 MMCcontrol 要如何設定才能播放 .mpg 檔 ?
一般都聽說avi轉成mpg,請問如何才能將mpg轉成avi呢?
謝謝大家的幫忙!!
一般都聽說avi轉成mpg,請問如何才能將mpg轉成avi呢?
謝謝大家的幫忙!!
Beep(編號：526)
現在我在VB下用 "Beep" ，結果 PCSpeaker .. 就是沒反應
然後
For N = 1 To 1000
Beep
Next
結果PCSpeaker還是沒反應，但開機時PCSpeaker有"Beep"一聲，所以是正常
記得Windows下可以用API把PCSpeaker關閉
因為我沒有MSDN..總是要用試誤法來試驗API..可能在測試某個API後把它給關閉了
請問各位前輩，我要如何把 PCSpeaker的聲音再開起
然後
For N = 1 To 1000
Beep
Next
結果PCSpeaker還是沒反應，但開機時PCSpeaker有"Beep"一聲，所以是正常
記得Windows下可以用API把PCSpeaker關閉
因為我沒有MSDN..總是要用試誤法來試驗API..可能在測試某個API後把它給關閉了
請問各位前輩，我要如何把 PCSpeaker的聲音再開起
不想受制於人(編號：521)
我正在使用一個program, 它可以自動移動mouse和自動瀏覽幾個網頁, http://www.alladvantage.com, 是模擬在上網的程式, 但是這個program有很多的限制和缺點, 一是此程式一定要強迫我加入它們的組織 , 二是它們一定要我輸入個人的資料, 三是此程式不能uninstall的, 要洗的時候卻要format 硬碟一次,煩!
所以我想用vb寫個更好的程式來代替它.
我想請問各位 高手, 我應該用什麼方法來設計昵?
或者請問各位曾經看過哪一本書有有關的題材?我會立刻就買來看 謝謝各位
所以我想用vb寫個更好的程式來代替它.
我想請問各位 高手, 我應該用什麼方法來設計昵?
或者請問各位曾經看過哪一本書有有關的題材?我會立刻就買來看 謝謝各位
如何動態設定text box 的dataformat 屬性 ?(編號：520)
小弟撰寫程式的時候碰到如下的問題
今天我有一個textbox 物件, 是供user 填註金額的地方
另外有一個combobox 可以讓user 選擇幣別
問題在於
當user 幣別選擇 USD 的時候
textbox 必須顯示到小數點第三位
當user 幣別選擇 YN 的時候
textbox 必須顯示到整數(無小數)
我知道應該要動態的設定textbox 的 dataformat 屬性
但是我查詢 MSDN 的資料都找不到該怎麼去做設定
不知道有沒有人能告訴我該怎麼解決這一個問題 ?
小弟在此先謝過各位的幫忙
今天我有一個textbox 物件, 是供user 填註金額的地方
另外有一個combobox 可以讓user 選擇幣別
問題在於
當user 幣別選擇 USD 的時候
textbox 必須顯示到小數點第三位
當user 幣別選擇 YN 的時候
textbox 必須顯示到整數(無小數)
我知道應該要動態的設定textbox 的 dataformat 屬性
但是我查詢 MSDN 的資料都找不到該怎麼去做設定
不知道有沒有人能告訴我該怎麼解決這一個問題 ?
小弟在此先謝過各位的幫忙
tree view, 如何移除children(編號：519)
請高手指教,
在treeview控件中, 當click Node時候,如何把Node下的所有child移除. 是不是用treeviews.nodes.remove?
這只可以移除一項. 不知道全部移除要怎樣做.
Altman
在treeview控件中, 當click Node時候,如何把Node下的所有child移除. 是不是用treeviews.nodes.remove?
這只可以移除一項. 不知道全部移除要怎樣做.
Altman
Patch 了VB6 SP3的慘劇(編號：518)
有沒有人也發生了這種問題？？
我Patch了SP3之後，不但當機率上升不少，甚至出現用ActionQuery篩選的資料會錯誤
就是本來不該被篩選進去的資料也被篩選進去，最可怕的是還有時會有時不會......
把整個VB移除後再重灌就不藥而愈了，所以不是程式碼的問題......
我Patch了SP3之後，不但當機率上升不少，甚至出現用ActionQuery篩選的資料會錯誤
就是本來不該被篩選進去的資料也被篩選進去，最可怕的是還有時會有時不會......
把整個VB移除後再重灌就不藥而愈了，所以不是程式碼的問題......
SqlServer's DTS Job Schedule(編號：515)
在SQL Server7.0上產生之DTS Package可直接執行，但以DTS產生之JOB卻會產生下述Error Message:Error = -2147008507 (80074005) Error string: 無法指出的錯誤 Error source: Microsoft Data Transformation Services (DTS) Package Help file: sqldts.hlp Help context: 1100 Error Detail Records: Error: -2147008507 (80074005); Provider Error: 0 (0) Error string: 無法指出的錯誤 Error source: Microsoft Data Transformation Services (DTS) Package Help file: sqldts.hlp Help context: 1100 Error: -2147467259 (80004005); Provider Error: 0 (0) Error string: [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified Error source: Microsoft OLE DB Provider for ODBC Dri.
請協助解決，謝謝!!!!!!!
請協助解決，謝謝!!!!!!!
ASP 用COM元件傳遞變數(編號：510)
大家好：
最近自己做了一個COM元件，內有sub_name(a,b,c,d)
每次從ASP解譯時，都變成 sub_name{a,b,c,d)
請注意，變成左大刮號！無法呼叫！很慘！
請大家幫忙解答。謝謝。
最近自己做了一個COM元件，內有sub_name(a,b,c,d)
每次從ASP解譯時，都變成 sub_name{a,b,c,d)
請注意，變成左大刮號！無法呼叫！很慘！
請大家幫忙解答。謝謝。
About Crystal Report(編號：509)
我有三個有關CR的問題想請教各位高手:
1.列印時如何讓使用者可選擇印表機?
2.如何讓每頁的RecordNumber都從1開始?
3.我在程式畫面上有一個列印前 N 筆的textbox, 可讓user決定列印的筆數, 但在CR Design 的時候要怎麼做?
Thanx !
1.列印時如何讓使用者可選擇印表機?
2.如何讓每頁的RecordNumber都從1開始?
3.我在程式畫面上有一個列印前 N 筆的textbox, 可讓user決定列印的筆數, 但在CR Design 的時候要怎麼做?
Thanx !
It is been occupied!(DBF)(編號：508)
Dear all:
I wanna open dbf databases, it is ok at the first time. After that, it showed " it had been occupied ... by Microsoft JET...", something like that. It used to be fine when I use the same way in other projects. Please tell me if U know my problem. thanks...
I wanna open dbf databases, it is ok at the first time. After that, it showed " it had been occupied ... by Microsoft JET...", something like that. It used to be fine when I use the same way in other projects. Please tell me if U know my problem. thanks...
如何將純文字檔轉入Access資料庫最快?(編號：507)
Hi:
請問一下,小弟有一個數十萬筆的純文字檔,每筆都等長，且佔
三百多個collum, 今摘要格式如下
(空白有全型,半型,每筆換行是用一般的0x0D 及 0x0A 的換行字元):
1234陳金柱 文化街3號
想轉入Access 的資料庫 Schema 假設如下:
NO : char(4) (column 1-4)
Name : char(8) (column 5-12)
Address : char(20) (column 13-32)
Tel : char(16) (column 33-48)
因有中英文, 全型半型混合，所以算字串長度很麻煩，致使轉換
時間很.....久，想請問各位高手，用 VB 來設計的話，最快速
的方法???? 謝謝！
George.
請問一下,小弟有一個數十萬筆的純文字檔,每筆都等長，且佔
三百多個collum, 今摘要格式如下
(空白有全型,半型,每筆換行是用一般的0x0D 及 0x0A 的換行字元):
1234陳金柱 文化街3號
想轉入Access 的資料庫 Schema 假設如下:
NO : char(4) (column 1-4)
Name : char(8) (column 5-12)
Address : char(20) (column 13-32)
Tel : char(16) (column 33-48)
因有中英文, 全型半型混合，所以算字串長度很麻煩，致使轉換
時間很.....久，想請問各位高手，用 VB 來設計的話，最快速
的方法???? 謝謝！
George.
如何取得 OCX 物件的認證?!(編號：504)
各位高手
小弟日前用vb 6.0 寫了一個active x 物件，是打算用在網頁上面的。可是日前測試後發現都無法執行。有一次將ie 的安全性調到最低，想不到就可以執行了。看了書上寫說，這是因為ocx 沒有認證，可是認證的話，個人部份又只有美國公民才可以。請問有沒有什麼辦法可以讓ie 使用自行開發的ｏｃｘ 物件而又不用調低安全性等級或是可以自行加入認證。請各位幫幫忙，我想了好久都不知道又如何解決這個問題，請各位知道答案的幫幫小弟的忙。謝謝各位。
小弟日前用vb 6.0 寫了一個active x 物件，是打算用在網頁上面的。可是日前測試後發現都無法執行。有一次將ie 的安全性調到最低，想不到就可以執行了。看了書上寫說，這是因為ocx 沒有認證，可是認證的話，個人部份又只有美國公民才可以。請問有沒有什麼辦法可以讓ie 使用自行開發的ｏｃｘ 物件而又不用調低安全性等級或是可以自行加入認證。請各位幫幫忙，我想了好久都不知道又如何解決這個問題，請各位知道答案的幫幫小弟的忙。謝謝各位。
各高手請救救我(編號：503)
我現在要做一個進貨的累加(使用data 元件 vb5.0)
譬如說現在有存貨100 個,我進30 個那就變成130 個,我要將它寫進資料庫要如何做
拜託幫幫忙 thanks
譬如說現在有存貨100 個,我進30 個那就變成130 個,我要將它寫進資料庫要如何做
拜託幫幫忙 thanks
DataGrid值的排序......(編號：501)
請問如何讓datagrid的columns來做排序的動作呢!?
ex: columns(0) columns(1) columns(2)
按照大小來排序....... 謝謝指教!!
ex: columns(0) columns(1) columns(2)
按照大小來排序....... 謝謝指教!!
請問如何在 class 中使用 Winsock Control?(編號：500)
如題, 我在討論中心上看到 "如何做一個有Timer功能的Class?", 現在我有一個類似的問題, 就是在 class 中如何使用 WinSock component?
如果不能直接引用, 是否還有其他的方法?
如果不能直接引用, 是否還有其他的方法?
做不規則的Butten(編號：499)
我先用..
GetCursorPos msPoint
Print CStr(msPoint.X) + "-" + CStr(msPoint.Y)
取得該圖的座標..hRegion
在MouseMove動作中..
用..PtInRegion(hRegion, X, Y) 來判斷是否MouseOver到該位置..
但是...總是不能得到預期的效果..
我想是不是座標上有問題..
我這樣不對嗎..
GetCursorPos msPoint
Print CStr(msPoint.X) + "-" + CStr(msPoint.Y)
取得該圖的座標..hRegion
在MouseMove動作中..
用..PtInRegion(hRegion, X, Y) 來判斷是否MouseOver到該位置..
但是...總是不能得到預期的效果..
我想是不是座標上有問題..
我這樣不對嗎..
有可能嗎??????(編號：498)
請問一下利用Image的動態陣列將圖片show出來
如果想在自己喜歡的圖片bookmark起來,請問這
做的到嗎?該如何做呢?之前show圖時，只利用
磁碟機和檔案目錄做出來的。
如果想在自己喜歡的圖片bookmark起來,請問這
做的到嗎?該如何做呢?之前show圖時，只利用
磁碟機和檔案目錄做出來的。
MDI 表單的問題(編號：497)
我想在 MDI 表單啟動後自動啟動另一個 child form ,它的 style 是沒有 caption的(就是要它撐滿MDI的畫面)
我的問題是如何得知, child form 的 top , left , height, weight 的大小 .
我的問題是如何得知, child form 的 top , left , height, weight 的大小 .
ADO 找不到指定的提供者 Why?(編號：494)
請問各位:vb6+sp3 使用 ADO 連結 SQL7.0 做好安裝程式後大部份之PC 執行皆無問題,但有少數幾台出現 "ADO 找不到指定的提供者 "
使程式無法開啟CONNECTION,請大家告知,謝謝 !!
使程式無法開啟CONNECTION,請大家告知,謝謝 !!
如何從網路芳鄰上的的電腦的某個子目錄下拷貝檔案(用VB6來寫)(編號：493)
本人想從網路芳鄰上的的電腦的某個子目錄下拷貝某個子目錄的檔案,不知用vb6該如何來寫,不知那位仁兄可告知其程式,應我vb6剛學,還請大家多多幫忙,感激不敬
An interesting FAQ(Find the number of open forms in app)(編號：492)
I see a FAQ like the following description, but I don't understand the second way. Why he uses DoEvents to get Form number?
-------------
Q:What is the easiest way to find the number of open forms in my app?
A:There are two ways - equally easy. The first is to retrieve the form collection count...
numFormsOpen = Forms.Count
...and the second is to use the DoEvents function!...
numFormsOpen = DoEvents
-------------
Q:What is the easiest way to find the number of open forms in my app?
A:There are two ways - equally easy. The first is to retrieve the form collection count...
numFormsOpen = Forms.Count
...and the second is to use the DoEvents function!...
numFormsOpen = DoEvents
有關Crystal Report的問題(編號：490)
我有資料如下:
A001 30
A001 50
A001 70
A002 30
A002 40
如何讓它印出來時強迫A001為一頁,A002為一頁,亦即分群後強迫它跳頁呢?謝謝
A001 30
A001 50
A001 70
A002 30
A002 40
如何讓它印出來時強迫A001為一頁,A002為一頁,亦即分群後強迫它跳頁呢?謝謝
變數?(編號：488)
大家好ㄚ?
因為我還是新手
所以想請教大家一個問題
我再看書練習時
再寫標準體重
就看到變數=InputBox(提示訊息)
InputBox是控制元件嗎
還是工具列裡的 我找不到這個東西ㄝ
有誰能夠告訴我ㄋㄟ? 謝謝!
因為我還是新手
所以想請教大家一個問題
我再看書練習時
再寫標準體重
就看到變數=InputBox(提示訊息)
InputBox是控制元件嗎
還是工具列裡的 我找不到這個東西ㄝ
有誰能夠告訴我ㄋㄟ? 謝謝!
Crystal Report 無法執行?(編號：484)
大家好:
我在NT4.0上安裝VB6.0及VB6.0 SP3之後再安裝Crystal Report
依布驟製作報表1.creat new report
2.選Standard
3.選DataFile
4.選Fields
5.選sort....
6.再按Preview report時出現以下訊息
Title:FaceCombo::select
missing face ;＜System＞
及一個確定按鈕
報表無法顯示
請各位指點迷津!
謝謝
Tom 12/26
我在NT4.0上安裝VB6.0及VB6.0 SP3之後再安裝Crystal Report
依布驟製作報表1.creat new report
2.選Standard
3.選DataFile
4.選Fields
5.選sort....
6.再按Preview report時出現以下訊息
Title:FaceCombo::select
missing face ;＜System＞
及一個確定按鈕
報表無法顯示
請各位指點迷津!
謝謝
Tom 12/26
3170 DAO.Workspace 找不到可安裝的ISAM(編號：483)
使用 VB6.0 之增益集、資料庫管理員、檔案、開啟Excel檔案時出現下列訊息:
3170 DAO.Workspace找不到可安裝的ISAM
請問應如何解決 ?
3170 DAO.Workspace找不到可安裝的ISAM
請問應如何解決 ?
有沒有什麼更好的方法來定時偵測系統時間?(編號：479)
我想寫一個時鐘的程式,我用Timer不停的偵測..來更新時間,但是..有沒有更好的方法(比較省資源)...還是有方法讓Windows每隔60秒就自動通知程式呢?
有Windows API可以顯示ToolTipText嗎???(編號：477)
我寫了一個按鈕,是用了SetCapture的方法來判斷滑鼠的移入移出,但是只要設定了SetCapture,按鈕的"ToolTipText"裡的文字就不會被顯示出來(當滑鼠停在按鈕上的時候)...要怎麼解決ㄚ....我用過一個Form來模擬,但是當它Show的時候又會使其他的視窗變成"非使用中"...有什麼更好的方法嗎?
vb6中，如何將Data Reporter改成橫式？(編號：473)
你好，初次上貴站，請教一個問題。
我用sql7.0為後端，並用ado連結資料庫，想要製作報表，但發現vb6.0報表預設格式為直式，
有無辦法將之設為「橫式」列印之，謝謝。
我用sql7.0為後端，並用ado連結資料庫，想要製作報表，但發現vb6.0報表預設格式為直式，
有無辦法將之設為「橫式」列印之，謝謝。
有關 compact 數問(編號：471)
1. 有沒有人能告知如何在 ADO 模式下執行 COMPACT 動作 ?
2. 有沒有人發現 COMPACT 對於原始 Access db 並沒有執行壓縮動作 , 而是將壓縮後的資料庫存於指定新檔中 ? (所以目前只能將壓縮後的資料庫取代現有資料庫的方式處理)
3. 對於執行中的系統在使用資料庫時 , 有沒有同時可以進行資料庫壓縮的工具或解決方案 ? (M$ 的 Q158937 範例其實沒有用)
3. 我的 Access 2000 排斥 VB6 的 DAO 方式;即使是用 JET 4.0 及 DAO 3.6 都沒有用 , 只能將資料庫轉換成舊格式 (又不允許變更設計)
這一部份不知有沒有建議呢 ?
2. 有沒有人發現 COMPACT 對於原始 Access db 並沒有執行壓縮動作 , 而是將壓縮後的資料庫存於指定新檔中 ? (所以目前只能將壓縮後的資料庫取代現有資料庫的方式處理)
3. 對於執行中的系統在使用資料庫時 , 有沒有同時可以進行資料庫壓縮的工具或解決方案 ? (M$ 的 Q158937 範例其實沒有用)
3. 我的 Access 2000 排斥 VB6 的 DAO 方式;即使是用 JET 4.0 及 DAO 3.6 都沒有用 , 只能將資料庫轉換成舊格式 (又不允許變更設計)
這一部份不知有沒有建議呢 ?
Recursive (stack) problem(編號：469)
When I use vb6 to wrote my TicTacTao program. Stack overflow occur in my recursive function. Please give me advices about how to solve this kind of problem T_T
vb6製成exe錯誤!help~~~~~(編號：468)
將vb6的vbp要製成exe卻發生錯誤如下:
PersonSystem1224.OBJ : error : Internal error during Pass2
ExceptionCode = C0000006
ExceptionFlags = 00000000
ExceptionAddress = 0040C6D2
NumberParameters = 00000002
ExceptionInformation[ 0] = 00000001
ExceptionInformation[ 1] = 85ABE000
CONTEXT:
Eax = 0022A400 Esp = 006CF4FC
Ebx = 007F0150 Ebp = 0022A178
Ecx = 00066F5A Esi = 857A6698
Edx = 0022A178 Edi = 85ABE000
Eip = 0040C6D2 EFlags = 00010212
SegCs = 00000137 SegDs = 0000013F
SegSs = 0000013F SegEs = 0000013F
SegFs = 00004117 SegGs = 00000000
Dr0 = 006CF4FC Dr3 = 007F0150
Dr1 = 0022A178 Dr6 = 00066F5A
Dr2 = 00000000 Dr7 = 00000000
可是這裡面沒一個訊息我看的懂的呀~~
請告訴我該如何除錯才是~~
謝謝~~~
PersonSystem1224.OBJ : error : Internal error during Pass2
ExceptionCode = C0000006
ExceptionFlags = 00000000
ExceptionAddress = 0040C6D2
NumberParameters = 00000002
ExceptionInformation[ 0] = 00000001
ExceptionInformation[ 1] = 85ABE000
CONTEXT:
Eax = 0022A400 Esp = 006CF4FC
Ebx = 007F0150 Ebp = 0022A178
Ecx = 00066F5A Esi = 857A6698
Edx = 0022A178 Edi = 85ABE000
Eip = 0040C6D2 EFlags = 00010212
SegCs = 00000137 SegDs = 0000013F
SegSs = 0000013F SegEs = 0000013F
SegFs = 00004117 SegGs = 00000000
Dr0 = 006CF4FC Dr3 = 007F0150
Dr1 = 0022A178 Dr6 = 00066F5A
Dr2 = 00000000 Dr7 = 00000000
可是這裡面沒一個訊息我看的懂的呀~~
請告訴我該如何除錯才是~~
謝謝~~~
如何做到每隔一個小時Check一次(編號：465)
我的DB裡預約功能的TABLE,
我的程式必須每隔一段時間去查看預約檔裡有沒有人預約.
我是用Timer控制項寫的,timer1.Interval =1000
它每秒都在Check要不要去查看TABLE
這樣寫會不會很浪費系統資源呢?
有沒有其它更好的方式呢,謝謝!!
我的程式必須每隔一段時間去查看預約檔裡有沒有人預約.
我是用Timer控制項寫的,timer1.Interval =1000
它每秒都在Check要不要去查看TABLE
這樣寫會不會很浪費系統資源呢?
有沒有其它更好的方式呢,謝謝!!
外掛元件封裝後無法執行(編號：463)
請問各路高手:
我在VB程式使用了一外掛物件Spread, 封裝完成後, 在別台電腦上安裝, 過程中有出原無法註冊該元件的錯誤, 選略過, 在安裝完成後一執行到有用到該元件的地方, 即產生錯誤, 請問該如何解決???
我在VB程式使用了一外掛物件Spread, 封裝完成後, 在別台電腦上安裝, 過程中有出原無法註冊該元件的錯誤, 選略過, 在安裝完成後一執行到有用到該元件的地方, 即產生錯誤, 請問該如何解決???
搬移盤子(編號：461)
請問要如何做下面的…
設有三個可搬移盤子的柱子，
一次只能搬一個盤子，
且最小的一定要在最上面，用遞迴法求出來。
_
(!) ! !
(_!_) ! !
(__!__) ! !
(___!___) ! !
(____!____)_____!_______!______
要能輸入盤子的個數n，
還要把「第1個盤子從第1個柱子移到第二個柱子……」
在螢幕上表現出來…
麻煩會ㄉ人教一下好嗎?
救救我吧… /_\
Thanks
設有三個可搬移盤子的柱子，
一次只能搬一個盤子，
且最小的一定要在最上面，用遞迴法求出來。
_
(!) ! !
(_!_) ! !
(__!__) ! !
(___!___) ! !
(____!____)_____!_______!______
要能輸入盤子的個數n，
還要把「第1個盤子從第1個柱子移到第二個柱子……」
在螢幕上表現出來…
麻煩會ㄉ人教一下好嗎?
救救我吧… /_\
Thanks
急件..................救命丫(編號：459)
我使用貴站【沒透過Driver的印表】的範例程式，可是
openprinter("LPT1")執行時，VB6.0卻出現錯誤對話方塊，內容為
錯誤的【外部程序】。請各位超級高手，為小弟解決，病樹上簡單的範例程式，感激不盡。
openprinter("LPT1")執行時，VB6.0卻出現錯誤對話方塊，內容為
錯誤的【外部程序】。請各位超級高手，為小弟解決，病樹上簡單的範例程式，感激不盡。
RichText Box with Scroll Bar(編號：457)
大家好:
我目前用 RichText Box 來寫入資料,每一筆資料一列,
由於資料頗多,所以會用到垂直捲軸來觀看資料.
我的問題是當我輸入完資料時(程式自動輸入),它總是從第一筆
開始秀(垂直捲軸再最上方),請問有沒有方法可以看到最後一筆資料,
用不找每次都要去移動垂直捲軸至最下方
謝謝
我目前用 RichText Box 來寫入資料,每一筆資料一列,
由於資料頗多,所以會用到垂直捲軸來觀看資料.
我的問題是當我輸入完資料時(程式自動輸入),它總是從第一筆
開始秀(垂直捲軸再最上方),請問有沒有方法可以看到最後一筆資料,
用不找每次都要去移動垂直捲軸至最下方
謝謝
資料庫結構的問題 !!(編號：452)
各位先進:
請教一個與VB 無直接關係的問題,
會計上有五大類科目(資產, 負債,業主權益 ...)及其子科目.
例如:
01 資產
0101 速動資料
010101 現金
010102 銀行存款
上述數字為科目代號, 文字為內容描述
不知道要如何安排如上的檔案結構會讓程式比較容易開發.
請教一個與VB 無直接關係的問題,
會計上有五大類科目(資產, 負債,業主權益 ...)及其子科目.
例如:
01 資產
0101 速動資料
010101 現金
010102 銀行存款
上述數字為科目代號, 文字為內容描述
不知道要如何安排如上的檔案結構會讓程式比較容易開發.
錯誤訊息:找不到物件或屬性(編號：451)
最近使用vb封裝精靈,製作setup程式
安裝後部分機器執行時產生錯誤訊息;找不到物件或屬性
請問這是因為ocx未成功註冊所產生的嗎?
或是其他原因.
請幫我解答!
thanks a lot
janet
安裝後部分機器執行時產生錯誤訊息;找不到物件或屬性
請問這是因為ocx未成功註冊所產生的嗎?
或是其他原因.
請幫我解答!
thanks a lot
janet
WIN98下VB編譯後的EXE不能在WIN95下執行(編號：445)
為什麼WIN98下VB寫的程式編譯後的EXE在WIN95上執行會產生[無法預期的錯誤],好像是COMCTL32.OCX在WIN98版本比較新,在WIN95比較舊,不知是否有解決方法因不想在Client在每台都升級元件太多台了:＜
ado的connection 的execte只能用所謂的ACTION QUERY嗎..(編號：444)
請問大家..
我用 ADO 的 SELECT INTO A1IN DB1 FROM A2
轉換資料庫正常而且快速..
但我用 SELECT * FORM A2 WHERE A2_ID ='5'
會發現 速度比上面一個的要慢..而且容易當掉程式 ..
用CN.EXECUTE 做查詢的正確動作應該怎樣作呢?
我用 ADO 的 SELECT INTO A1IN DB1 FROM A2
轉換資料庫正常而且快速..
但我用 SELECT * FORM A2 WHERE A2_ID ='5'
會發現 速度比上面一個的要慢..而且容易當掉程式 ..
用CN.EXECUTE 做查詢的正確動作應該怎樣作呢?
以 ORACLE 8.0.5 為後端資料庫時遇到的問題和編題320不一樣(編號：439)
各位好，我的問題是：在前端的機器上的ORACLE都灌好了，但用ｖｂ封裝好的程式卻不能執行，在前端機器上ORACLE的連線都可以跑，可是卻又出現請安裝ORACLE 7.33或以後的版本，或抓不到ORACLE的問題
[VB] 到底時間拖在哪裡(編號：436)
[VB] 到底時間拖在哪裡
簡單的來說, 就是物件類別產生後, 時間到底慢在哪?
時間表如下, 由物件類別完成 Value 設定, 但是到 Form_GotFocus 卻越拖越長...
nPoint Form_Load (s) Form_GotFocus (s)
-----------------------------------------------
1,000 0 0.109375
10,000 0.269513 5
20,000 0.5507813 32.23828
100,000 25.48252 不明 (等了四分鐘只好強迫中斷)
-----------------------------------------------
測試環境:
CPU: Pentium II 300, SVGA: S680/4MB, DRAM: 64 MB, OS: Win98c SE, VB5 SP3
測試程式碼如下:
-- cPoint.cls -- 自訂物件類別模組
Public x As Double
Public y As Double
Public z As Double
----------------
-- Form1.frm -- 測試用, Form1 畫面上未佈置任何物件
Private st
Private Sub Form_GotFocus()
Debug.Print Timer - st
End Sub
Private Sub Form_Load()
nPoint = 20000
st = Timer
ReDim cP(1 To nPoint) As New cPoint
For i = 1 To nPoint
With cP(i)
.x = Rnd
.y = Rnd
End With
Next i
Debug.Print Timer - st
st = Timer
End Sub
------------------
簡單的來說, 就是物件類別產生後, 時間到底慢在哪?
時間表如下, 由物件類別完成 Value 設定, 但是到 Form_GotFocus 卻越拖越長...
nPoint Form_Load (s) Form_GotFocus (s)
-----------------------------------------------
1,000 0 0.109375
10,000 0.269513 5
20,000 0.5507813 32.23828
100,000 25.48252 不明 (等了四分鐘只好強迫中斷)
-----------------------------------------------
測試環境:
CPU: Pentium II 300, SVGA: S680/4MB, DRAM: 64 MB, OS: Win98c SE, VB5 SP3
測試程式碼如下:
-- cPoint.cls -- 自訂物件類別模組
Public x As Double
Public y As Double
Public z As Double
----------------
-- Form1.frm -- 測試用, Form1 畫面上未佈置任何物件
Private st
Private Sub Form_GotFocus()
Debug.Print Timer - st
End Sub
Private Sub Form_Load()
nPoint = 20000
st = Timer
ReDim cP(1 To nPoint) As New cPoint
For i = 1 To nPoint
With cP(i)
.x = Rnd
.y = Rnd
End With
Next i
Debug.Print Timer - st
st = Timer
End Sub
------------------
resource 資源檔的使用?(編號：435)
請問何處有resource檔的詳細使用介紹，本人手中的VB書中皆無介紹，偶然在一英文網頁中看到一篇resource files的簡介，此資源檔可包含BITMAP,CURSOR,ICON,SOUND or VIDEO，SOUND is a .WAV file，那如要包含.JPG or .MID 時該如何處理及使用呢？謝謝大家。
vb6能使用outlook傳mail出去嗎？(編號：434)
您好:
想請教一個問題，小弟知道vb可以傳送如exchange的mail出去，但是如果想利用outlook呢？
如您知道，請您告訴小弟，謝謝您！
想請教一個問題，小弟知道vb可以傳送如exchange的mail出去，但是如果想利用outlook呢？
如您知道，請您告訴小弟，謝謝您！
如何做一個有Timer功能的Class?(編號：432)
在form中可以使用Timer control,並有Timer_Timer() event會產生,我想做一個Class,希望在裡面也有相同功能,我試過下面方法但是不行,
Dim Timer1 As Timer
Private Sub Class_Initialize()
Timer1.Enabled = True ' error
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
....
End Sub
我也試過開一個form,裡面放一個Timer,class裡面用Set Timer1=form.Timer1,可是Timer event不會trigger class裡的Timer1_Timer()...
Dim Timer1 As Timer
Private Sub Class_Initialize()
Timer1.Enabled = True ' error
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
....
End Sub
我也試過開一個form,裡面放一個Timer,class裡面用Set Timer1=form.Timer1,可是Timer event不會trigger class裡的Timer1_Timer()...
[VB]如何取得CONNECTtion.execute 所傳回的資料集?(編號：429)
請問大家
我寫了這樣的程式:
dim cn as adodb.connection
dim rsmyqry as adodb.recordset
dim myqry as string
my qry="select * from a1
sub command1_click()
cn.connectstring="dsn=a1"
cn.open
cn.execute myqry
set rsmyqry =cn.execute myqry
do while not rsmyqry.eof
print rsmyqry(0)..'
loop
rsmyqry.close
set rsmyqry=nothing
cn.close
set cn=nothing
end sub
請問為甚麼會出現"語法錯誤"及"必須是陳述的結尾呢?"
我寫了這樣的程式:
dim cn as adodb.connection
dim rsmyqry as adodb.recordset
dim myqry as string
my qry="select * from a1
sub command1_click()
cn.connectstring="dsn=a1"
cn.open
cn.execute myqry
set rsmyqry =cn.execute myqry
do while not rsmyqry.eof
print rsmyqry(0)..'
loop
rsmyqry.close
set rsmyqry=nothing
cn.close
set cn=nothing
end sub
請問為甚麼會出現"語法錯誤"及"必須是陳述的結尾呢?"
小吳大哥請進來看看：(編號：428)
小吳大哥您好！請問您一個與VB無關的問題：
在您的網站更新之前的您的網站是放在公司內嗎？而現是放在家裡的PC上？
(因為想了解一下最近登入時速度較快的原因)，如果是在家裡的PC內的話那您是用那種方式連上網路的，會不會很貴呢？(須不須要小弟每次上網時都幫您在您的贊助廠商上按一下，但是不知道在進入該贊助廠商的網頁後、立刻退出後再次進入時是否會重新計算一次(您的收入)(這點很重要哦！)？
POST上述的問題主要是因為小弟最近在學那該死的NT，有一些事情搞不懂時想到網路上找資料時，竟發現沒有一個像小吳大哥所架設這樣子的網站，有的只是一摻雜了各種廣告的論壇及一些沒有我想要的網頁資料(都沒有可以問的對象，唉！被小吳大哥所建立的網站給寵壞了)，這時候的感觸真的很深，網路雖然很多資料但是卻不一定有能力肯用心的管理者(小吳大哥在網站改版後的出席率幾乎是每天！)，
有感於此所以想報答但是不曉得是否有此須要(不過次數則須視小弟所能負擔的範圍內)
如果可以的話請告訴小弟，讓小弟也長長見識！ THANKS！
在您的網站更新之前的您的網站是放在公司內嗎？而現是放在家裡的PC上？
(因為想了解一下最近登入時速度較快的原因)，如果是在家裡的PC內的話那您是用那種方式連上網路的，會不會很貴呢？(須不須要小弟每次上網時都幫您在您的贊助廠商上按一下，但是不知道在進入該贊助廠商的網頁後、立刻退出後再次進入時是否會重新計算一次(您的收入)(這點很重要哦！)？
POST上述的問題主要是因為小弟最近在學那該死的NT，有一些事情搞不懂時想到網路上找資料時，竟發現沒有一個像小吳大哥所架設這樣子的網站，有的只是一摻雜了各種廣告的論壇及一些沒有我想要的網頁資料(都沒有可以問的對象，唉！被小吳大哥所建立的網站給寵壞了)，這時候的感觸真的很深，網路雖然很多資料但是卻不一定有能力肯用心的管理者(小吳大哥在網站改版後的出席率幾乎是每天！)，
有感於此所以想報答但是不曉得是否有此須要(不過次數則須視小弟所能負擔的範圍內)
如果可以的話請告訴小弟，讓小弟也長長見識！ THANKS！
Transform Statement 可以用在查詢SQL Server 嗎(編號：425)
請問
Transform Statement 可以用在查詢SQL Server 嗎
可以直接在 Query Analyzer 或 isql 中使用嗎
Transform Statement 可以用在查詢SQL Server 嗎
可以直接在 Query Analyzer 或 isql 中使用嗎
MTS的DLL回傳的Recordset變成空的(編號：424)
請問,在我DLL還沒放入MTS裡時,一切正常,但為什麼當我的DLL放在MTS裡時,回傳的Recordset就變成空的(在DLL裡有取得資料),可是前端卻收不到,環境NT sp6,option pack 中文,vb 英文,後來改為中文的vb也不行,使用2.0的ADO.還請高手指教.
這叫 QP 碼嗎?(編號：423)
比如說:
http://search03.kimo.com.tw/cgi-bin/webgn2?Query=%B8%D1%C4%B6%BE%B9%26%A4U%B8%FC&CallBy=1
中
%B8%D1%C4%B6%BE%B9%26%A4U%B8%FC =＞ 解譯器&下載
是屬於哪種編碼?
我寫了一個轉回函數, 想要放上培基語言網頁, 可是我不知道這叫什麼編碼, 所以我無法寫說明...
不過他的編碼方式跟 QP 碼相同, 是叫 QP 碼嗎? 可是 QP 碼不是以 "=" 分隔嗎?
???
http://search03.kimo.com.tw/cgi-bin/webgn2?Query=%B8%D1%C4%B6%BE%B9%26%A4U%B8%FC&CallBy=1
中
%B8%D1%C4%B6%BE%B9%26%A4U%B8%FC =＞ 解譯器&下載
是屬於哪種編碼?
我寫了一個轉回函數, 想要放上培基語言網頁, 可是我不知道這叫什麼編碼, 所以我無法寫說明...
不過他的編碼方式跟 QP 碼相同, 是叫 QP 碼嗎? 可是 QP 碼不是以 "=" 分隔嗎?
???
請問小吳，從EXCEL輸出入資料至VB要如何做？(編號：417)
如果是要輸出入一固定格式，像是EXCEL格式的報表，要怎麼作？？
我試過輸入EXCEL格式的資料，但是似乎畫面不能作處理，像是箭頭、圖片等等的物件都不能插入，甚至連格線都不可以有
否則會發生錯誤
我試過輸入EXCEL格式的資料，但是似乎畫面不能作處理，像是箭頭、圖片等等的物件都不能插入，甚至連格線都不可以有
否則會發生錯誤
如何確實取得MultiLine的TextBox中每一行的內容？(編號：416)
站長請問一下............
如上所說，如何取得每一行的內容？
我的意思是取得textbox個別一行的內容，因為要做對齊報表欄位的動作，但是如果直接
Printer.print text1.text的話會一直線印下去，而我的欄位有好幾行，試過用插入換行字元，
但是這樣會印到下一行的最左邊，而且一不小心會把中文字切斷變成亂碼...........＞_＜
現在唯一想到的解決方案是每一行印一次，而且還要求USER每一行都要按ENTER
(其實重點就是textbox會自動把超出寬度的字捲到下一行)
如上所說，如何取得每一行的內容？
我的意思是取得textbox個別一行的內容，因為要做對齊報表欄位的動作，但是如果直接
Printer.print text1.text的話會一直線印下去，而我的欄位有好幾行，試過用插入換行字元，
但是這樣會印到下一行的最左邊，而且一不小心會把中文字切斷變成亂碼...........＞_＜
現在唯一想到的解決方案是每一行印一次，而且還要求USER每一行都要按ENTER
(其實重點就是textbox會自動把超出寬度的字捲到下一行)
請問VB 如何有DOS BASIC 的 CHAIN 功能?(編號：414)
閣位好,小弟目前還是使用VB4.0,但找不到方法先關閉自己的程式後再自動呼叫別人的程式, = 從前的 CHAIN 功能, 請指點指點, 多謝
這個DLL很奇怪耶...??(編號：413)
Dear 小吳:
我拿到了一個DLL檔, 把它放在C:\Winodws\System中
然後用以下的函式呼叫其中的API
Declare Function BrCommInit Lib "BrComm32.dll" (ByVal Port As Long, ByVal sdlen As Long) As Boolean
VB竟然跟我說"Run-time error 48: File Not Found"
我換一個方式將這個BrComm32.dll檔Copy到C:\根目錄,
用強硬指定的方式呼叫
Declare Function BrCommInit Lib "C:\BrComm32.dll" (ByVal Port As Long, ByVal sdlen As Long) As Boolean
竟然還是"File not found"....
不會吧?? 檔案在啊! 檔名也沒錯耶....為什麼會這樣呢??
救救命啊.....
我拿到了一個DLL檔, 把它放在C:\Winodws\System中
然後用以下的函式呼叫其中的API
Declare Function BrCommInit Lib "BrComm32.dll" (ByVal Port As Long, ByVal sdlen As Long) As Boolean
VB竟然跟我說"Run-time error 48: File Not Found"
我換一個方式將這個BrComm32.dll檔Copy到C:\根目錄,
用強硬指定的方式呼叫
Declare Function BrCommInit Lib "C:\BrComm32.dll" (ByVal Port As Long, ByVal sdlen As Long) As Boolean
竟然還是"File not found"....
不會吧?? 檔案在啊! 檔名也沒錯耶....為什麼會這樣呢??
救救命啊.....
兩個Form之間的問題(編號：412)
大家好:
想請問各位當Form1執行時呼叫Form2希望Form2 unload 後Form1
才可Active不知如何處理.
或者類似msgbox一樣的功能
Thanks
Tom 12/21
想請問各位當Form1執行時呼叫Form2希望Form2 unload 後Form1
才可Active不知如何處理.
或者類似msgbox一樣的功能
Thanks
Tom 12/21
安裝程式(編號：411)
你好, 有些問題想請教.
我用 VB5+SP3 封裝了一支程式, 但是最近同樣的又封裝了一支程式,
但是當最新的這支程式安裝完後, 第一支程式竟然執行時跳出錯誤代碼
52 出來, 移除掉第一支程式, 重新再安裝一次, 執行時只透出畫面就
沒有動作了, 這.....是什麼原因呢??
又一支程式原本執行好好的, 不過發現有些 bug 將其修正後, 直接將
編譯好的執行檔覆蓋過去, 執行時竟然會發生錯誤??
我用 VB5+SP3 封裝了一支程式, 但是最近同樣的又封裝了一支程式,
但是當最新的這支程式安裝完後, 第一支程式竟然執行時跳出錯誤代碼
52 出來, 移除掉第一支程式, 重新再安裝一次, 執行時只透出畫面就
沒有動作了, 這.....是什麼原因呢??
又一支程式原本執行好好的, 不過發現有些 bug 將其修正後, 直接將
編譯好的執行檔覆蓋過去, 執行時竟然會發生錯誤??
關於安裝程式dll問題.......(編號：410)
在製作安裝程式時,能否把vb自己抓到的dll或ocx檔的安裝目錄從它預設的$(WINSYSTEM)都改成$(APPPATH),這樣VB程式在執行時會自動指向程式安裝目錄嗎??
ps:想這樣做的原因是想把應用程式的所有有關檔案都放於同一目錄下.
煩請答之,先謝過~~~
ps:想這樣做的原因是想把應用程式的所有有關檔案都放於同一目錄下.
煩請答之,先謝過~~~
請問如何在Progress Bar上標示文字…(編號：408)
請問如何在Progress Bar上標示文字~~
如VB在載入檔案時，於工具列右方~~
會在ProgressBar上顯示 “載入中...“這種狀態~~~
請問有人知道如何做或想法嗎？謝謝~~~~~
如VB在載入檔案時，於工具列右方~~
會在ProgressBar上顯示 “載入中...“這種狀態~~~
請問有人知道如何做或想法嗎？謝謝~~~~~
一點建議(編號：407)
小吳您好,新的討論區成立,用起來速度快很多,且同樣的
討論內容可於同頁觀看也很方便,真的感謝您的付出.只是
我有些建議,提供為參考:
1.post的作者名稱無法在目錄下找到(回答問題的)
有點不習慣,如小吳回答了不少問題,但我卻無法直接看到
您對那些問題做了回答,必須一個一個去找.....
2.對於位於中間頁的post若要觀看,需要按上下頁好幾次,是否可
以提供編號or頁次的查詢?
另,對於第一項,我覺得可以在問題的標題下加一行回應作者的
姓名列,例:
編號 標題 總回應數 ... 發表人
-----------------------------------------
001 VBQA建議 1 大漢堡
回應作者: 小吳
-----------------------------------------
002 ?? 2 ??
回應作者: 大漢堡,小吳
-----------------------------------------
再次感謝您的付出!
討論內容可於同頁觀看也很方便,真的感謝您的付出.只是
我有些建議,提供為參考:
1.post的作者名稱無法在目錄下找到(回答問題的)
有點不習慣,如小吳回答了不少問題,但我卻無法直接看到
您對那些問題做了回答,必須一個一個去找.....
2.對於位於中間頁的post若要觀看,需要按上下頁好幾次,是否可
以提供編號or頁次的查詢?
另,對於第一項,我覺得可以在問題的標題下加一行回應作者的
姓名列,例:
編號 標題 總回應數 ... 發表人
-----------------------------------------
001 VBQA建議 1 大漢堡
回應作者: 小吳
-----------------------------------------
002 ?? 2 ??
回應作者: 大漢堡,小吳
-----------------------------------------
再次感謝您的付出!
ado在datagrid元件使用?(編號：406)
請教各位仁兄
利用ado取access mdb database 在datagrid元件中,如果不使用屬性datasouce項指定,如何直接在程式中寫?
另外在access 中已設key值, 如何在程式中互換?
以上謝謝! 初學者 禹鈞上
利用ado取access mdb database 在datagrid元件中,如果不使用屬性datasouce項指定,如何直接在程式中寫?
另外在access 中已設key值, 如何在程式中互換?
以上謝謝! 初學者 禹鈞上
請教各位先進幾個問題~~~~感激不盡~~~!!(編號：405)
1、請問我要計算程式執行之CPU時間，有這種函數嗎？
Trubo C有 clock()函數~可是VB的時間函數，我知道的
只能處理到秒數而已，可否得知0.多，小數點以後的秒
數呢？？
2、我用TextBox作使用者輸入的工具（multi-Line設False），
而我想讓使用者輸入完後按Enter，直接跳到下一個TextBox
作輸入，我利用偵查鍵盤輸入（keydown）的函數作，成功了
，但是卻會發生一聲嗶聲（因multi-Line設False，故在textbox
下按Enter會發生嗶聲），請問如何將嗶聲拿掉呢？
謝謝各位~~~感激不盡~~~~:)
Trubo C有 clock()函數~可是VB的時間函數，我知道的
只能處理到秒數而已，可否得知0.多，小數點以後的秒
數呢？？
2、我用TextBox作使用者輸入的工具（multi-Line設False），
而我想讓使用者輸入完後按Enter，直接跳到下一個TextBox
作輸入，我利用偵查鍵盤輸入（keydown）的函數作，成功了
，但是卻會發生一聲嗶聲（因multi-Line設False，故在textbox
下按Enter會發生嗶聲），請問如何將嗶聲拿掉呢？
謝謝各位~~~感激不盡~~~~:)
Music CD的遺問(編號：403)
請問一下
現在市面上的音樂CD是不是有一個唯一不重覆的序號
如果有
在VB裡要如何讀取這個序號呢?
因為在windows的CD player會自動將你輸入過的CD資料存起來
等下次放入同一張cd時它就會自動載入你上次輸入的資料了,
我想寫一個有這種功能的程式
現在市面上的音樂CD是不是有一個唯一不重覆的序號
如果有
在VB裡要如何讀取這個序號呢?
因為在windows的CD player會自動將你輸入過的CD資料存起來
等下次放入同一張cd時它就會自動載入你上次輸入的資料了,
我想寫一個有這種功能的程式
字串處理的問題....(編號：401)
vb的mid函數是使用字數的位置來擷取字串，
可是這樣的話就不能正確擷取中英文混合的字串，
如果要正確擷取中英文混合字串，請問該如何做呢？
記得好像有人問過，
不過找了好久找不到，所以再問一次...........:)
可是這樣的話就不能正確擷取中英文混合的字串，
如果要正確擷取中英文混合字串，請問該如何做呢？
記得好像有人問過，
不過找了好久找不到，所以再問一次...........:)
How to insert Animated GIF and Sound(編號：400)
I want to create a Christmas Card executed file
Could you tell me how to insert:
1) Animated GIF
2) Sound
to a executed file without sending gif and sound file separately.
Could you tell me how to insert:
1) Animated GIF
2) Sound
to a executed file without sending gif and sound file separately.
sql-server 的master 資料庫無法restore,single user mode 無法(編號：399)
sql-server 的master 資料庫無法restore,message 'must be used in single user mode' 但是我打開其properties ,其選項'single user mode' 卻是反白無法點選.請問如何處理?
what is the sytax to pass the parameter to main program(編號：397)
i just want doing something like this ........
c:\test 1 abc 3
then i pass 3 parameter into the program
what is the sytax? Thx!
c:\test 1 abc 3
then i pass 3 parameter into the program
what is the sytax? Thx!
關於 form 與 form 之間的傳遞(編號：395)
請問大家，
我想讓一個 form1 能夠接收另一 form2 傳來的資料
我的方法是在 form2.show 之前先設定 form2.text1 = "aaa"
然後我再到 form2 中利用 aaa 來做處理
但很奇怪的是我 form2 中的 text1 欄位可以正確顯示 aaa 無誤
但我要抓它的值 (str = text1.text) 時卻抓不到值?
請問是我那裡沒有注意到了呢?
另外關於 form 與 form 之間的傳遞有沒有什麼更好的方法?
我只知道利用控制項來傳資料而已
有沒有方法是可以直接讀取參數就可以了?
先感謝您的回答~~~~~
我想讓一個 form1 能夠接收另一 form2 傳來的資料
我的方法是在 form2.show 之前先設定 form2.text1 = "aaa"
然後我再到 form2 中利用 aaa 來做處理
但很奇怪的是我 form2 中的 text1 欄位可以正確顯示 aaa 無誤
但我要抓它的值 (str = text1.text) 時卻抓不到值?
請問是我那裡沒有注意到了呢?
另外關於 form 與 form 之間的傳遞有沒有什麼更好的方法?
我只知道利用控制項來傳資料而已
有沒有方法是可以直接讀取參數就可以了?
先感謝您的回答~~~~~
請問如何控制數個過程(Process)的優先序(Priority)(編號：393)
請問各位vb的高手:
如何用主視窗按一個按鈕就跳出3個能各別作業
的子視窗(Process)並同時執行，並在一開始時在
主視窗能選擇這3個子視窗的優先權順序(Priority)
謝謝各位!!
如何用主視窗按一個按鈕就跳出3個能各別作業
的子視窗(Process)並同時執行，並在一開始時在
主視窗能選擇這3個子視窗的優先權順序(Priority)
謝謝各位!!
如何在vb中呼叫螢幕保障程式(編號：389)
大家好:
有兩個問題請教:
1.我想在自己的VB程式中呼叫一支螢幕保障程式,不知如何呼叫?
2.螢幕保護程式製作是否有現成的軟體可使用?
在此先感謝大家!
謝謝! & Merry X'mas!
Tom 12/19
有兩個問題請教:
1.我想在自己的VB程式中呼叫一支螢幕保障程式,不知如何呼叫?
2.螢幕保護程式製作是否有現成的軟體可使用?
在此先感謝大家!
謝謝! & Merry X'mas!
Tom 12/19
檔案回存至 SQL SERVER 時,變慢了,好像當機似(編號：388)
高手們:
要將檔案存到SQL7.0資料庫時,(例如:123.DAT)
都要存好久,一個5MB的檔案,將近要30秒
我用 ADO.APPENDCHUNK 傳入的
之前資料庫是 ACCESS時,頂多5秒內就好了
為什麼改為 SQL 為後端時,時間變這麼慢 ?
以下是一小段程式碼
iFileNum = FreeFile
Open ArrayFiles(j) For Binary Access Read As iFileNum
lLen = LOF(iFileNum)
lChunks = lLen \ BLOCK_SIZE
lFragment = lLen Mod BLOCK_SIZE
ReDim bChunk(lFragment)
Get iFileNum, , bChunk
TempRS!FileObject.AppendChunk bChunk
ReDim bChunk(BLOCK_SIZE)
For lCount = 1 To lChunks
Get iFileNum, , bChunk()
TempRS!FileObject.AppendChunk bChunk
Next
Close iFileNum
請問各位,有可以解決速度的方法嗎??
煩請各位代為解答, 謝謝 ^_^
要將檔案存到SQL7.0資料庫時,(例如:123.DAT)
都要存好久,一個5MB的檔案,將近要30秒
我用 ADO.APPENDCHUNK 傳入的
之前資料庫是 ACCESS時,頂多5秒內就好了
為什麼改為 SQL 為後端時,時間變這麼慢 ?
以下是一小段程式碼
iFileNum = FreeFile
Open ArrayFiles(j) For Binary Access Read As iFileNum
lLen = LOF(iFileNum)
lChunks = lLen \ BLOCK_SIZE
lFragment = lLen Mod BLOCK_SIZE
ReDim bChunk(lFragment)
Get iFileNum, , bChunk
TempRS!FileObject.AppendChunk bChunk
ReDim bChunk(BLOCK_SIZE)
For lCount = 1 To lChunks
Get iFileNum, , bChunk()
TempRS!FileObject.AppendChunk bChunk
Next
Close iFileNum
請問各位,有可以解決速度的方法嗎??
煩請各位代為解答, 謝謝 ^_^
vb 如何透過ole 產生 word 報表(編號：382)
我看過一個軟體是以前端vb 3.0 加foxpro 2.5 後端，據說是以
ole 技術產生word 報表，只看見啟動後，word 檔就像套版似一直
填入data,雖然很慢，但是報表格式卻隨心所預般產生，不知如何做
的?誰人告訴我，謝謝。
ole 技術產生word 報表，只看見啟動後，word 檔就像套版似一直
填入data,雖然很慢，但是報表格式卻隨心所預般產生，不知如何做
的?誰人告訴我，謝謝。
請問... 如何判斷使用者電腦上所安裝的Jet Driver版本???(編號：378)
請問各位前輩's:
如何判斷使用者電腦上所安裝的Jet Driver版本???
我想做到判斷：
如果使用者電腦上安裝的是OFFICE2000則用Access2000的MDB
如果使用者電腦上安裝的是OFFICE97則用Access97的MDB
請各位前輩's下指導一下!!謝謝!!!!!
如何判斷使用者電腦上所安裝的Jet Driver版本???
我想做到判斷：
如果使用者電腦上安裝的是OFFICE2000則用Access2000的MDB
如果使用者電腦上安裝的是OFFICE97則用Access97的MDB
請各位前輩's下指導一下!!謝謝!!!!!
請問...如何讓程式自動產生流水號(編號：377)
請問：
如何在程式中自動產生流水編號(流水編號格式:yymmddxxx;年月日+序號)
我曾想過在加一個Table來存放流水編號
但是... 這樣若是程式在多人使用(網路版)時，好像會有問題耶...
p.s上面只是個人的假設。
不知道是不是有高手能指導一下!
謝謝各位的支援!!!
如何在程式中自動產生流水編號(流水編號格式:yymmddxxx;年月日+序號)
我曾想過在加一個Table來存放流水編號
但是... 這樣若是程式在多人使用(網路版)時，好像會有問題耶...
p.s上面只是個人的假設。
不知道是不是有高手能指導一下!
謝謝各位的支援!!!
不知道有沒有人遇到這樣的日期處理問題...(編號：376)
在Table中的欄位型態為日期時間時：
1.新增資料時，若是使用者沒有提供該欄位資料。則在資料庫中如何將該欄位空白？
2.若是在更新的時候，使用者所輸入的日期不是合法的日期格式。則將該欄位空白。
我目前個人的做法是：
1.下達 Insert Into敘述時判斷如何所接收到的資料不是合法的日期格式就跳過該欄位的處理。
2.下達Update 敘述時則與1處理方式相同。
不知道是不是有高手可以指導一下，關於這方面的處理方式。
謝謝大家的支援!!
1.新增資料時，若是使用者沒有提供該欄位資料。則在資料庫中如何將該欄位空白？
2.若是在更新的時候，使用者所輸入的日期不是合法的日期格式。則將該欄位空白。
我目前個人的做法是：
1.下達 Insert Into敘述時判斷如何所接收到的資料不是合法的日期格式就跳過該欄位的處理。
2.下達Update 敘述時則與1處理方式相同。
不知道是不是有高手可以指導一下，關於這方面的處理方式。
謝謝大家的支援!!
資料庫更新的問題?(編號：375)
VB6+Access資料庫如何更新?例如table1:code(key),qty
table2:code(key),qty
需求:如table2的code無table1的code時
要完全新增一筆table1的記錄,否則要將tbale1的qty
加到table2的qty上,請協助thanks...
table2:code(key),qty
需求:如table2的code無table1的code時
要完全新增一筆table1的記錄,否則要將tbale1的qty
加到table2的qty上,請協助thanks...
For 郭弘毅先生(編號：368)
1.你要的編號是51,52的則POST
2.直接設定DataEnvironment的ConnectionString
其實與Adodc的設定相同,只是我不習慣用這個方式
2.直接設定DataEnvironment的ConnectionString
其實與Adodc的設定相同,只是我不習慣用這個方式
呼叫表單....?(編號：366)
請各先進:
在表單的呼叫可否使用變數來替代表單的名稱,再以變數名稱呼叫
例:
strtemp 為表單name的變數
strtemp.show
換句話說是一種動態呼叫表單
謝謝
在表單的呼叫可否使用變數來替代表單的名稱,再以變數名稱呼叫
例:
strtemp 為表單name的變數
strtemp.show
換句話說是一種動態呼叫表單
謝謝
單元索引(編號：365)
大家好:
我遇的一個問題，我在資料庫中有一欄位做為單元查詢，我利用adodc將欄位內容additem到下拉選單中，可是要不是全出來第一筆的內容，如果利用movenext將紀錄指到下一筆時，卻又說該記錄為bof 或eof或該記錄刪除了，天啊我該如何啊？
我遇的一個問題，我在資料庫中有一欄位做為單元查詢，我利用adodc將欄位內容additem到下拉選單中，可是要不是全出來第一筆的內容，如果利用movenext將紀錄指到下一筆時，卻又說該記錄為bof 或eof或該記錄刪除了，天啊我該如何啊？
關於textbox上輸入法的問題(編號：363)
如果說我要在textBOX上輸入日文字但有安裝日文版本之輸入法,但是都沒有辨法在vb上顯示日文輸入法,但在IE的textbox或Word上就可以顯示日文輸入法, 如何VB之textbox修改成可以顯示日文輸入法,
有個小問題，想請教大家!!(編號：359)
資料庫的日期欄位(opendate) 定義為 smalldatetime
日期區間: TXT ~ TXT1
dim txt,txt1 as string
SQL:select opendate from table where opendate between txt
and txt1
執行結果出現error:"準則運算式的資料類型不符合"
這是為什麼呢??是不是有那邊沒注意到??
謝謝大家.....^_^
日期區間: TXT ~ TXT1
dim txt,txt1 as string
SQL:select opendate from table where opendate between txt
and txt1
執行結果出現error:"準則運算式的資料類型不符合"
這是為什麼呢??是不是有那邊沒注意到??
謝謝大家.....^_^
請高手指點迷津??(編號：358)
為何編輯好的程式依正常程序安裝,(用於公司內之網路 LAN 共同區), 有些電腦能正常執行, 而有些卻出現下列錯誤訊息(WIN95,及 WIN98)都有此問題, 是否缺少何檔案.
ADO 找不到指定的提供者.
執行階段錯誤 '3706':
應用程式或物件定義上的錯誤.
ADO 找不到指定的提供者.
執行階段錯誤 '3706':
應用程式或物件定義上的錯誤.
請問小吳,一直是Module,why?(編號：355)
再請問小吳,我不論在win3.1將vb3的frm存為txt,再從vb6讀出
或是更名為frm再讀出,vb6一律都將它掛在Module,所以表單元
件也就........;mark亦無法存成txt,謝謝您的幫忙!!
或是更名為frm再讀出,vb6一律都將它掛在Module,所以表單元
件也就........;mark亦無法存成txt,謝謝您的幫忙!!
Asp 如何使用 常數(編號：354)
大家都知道vb有很多內建常數,例如：
Recordset.Open "northwind",conn,adOpenDynamic,adLockReadonly
可是我卻不能直接使用這些常數，必須輸入 2,3,2這些常數值
為什麼？
Recordset.Open "northwind",conn,adOpenDynamic,adLockReadonly
可是我卻不能直接使用這些常數，必須輸入 2,3,2這些常數值
為什麼？
大問題!!!!!!!!(編號：349)
假設有3個不同的餅乾,要分給3給小朋友,
每人一個所有可能的分法共有(1,2,3),
(1,3,2),(3,2,1),(3,1,2),(2,1,3),
(2,3,1).....六種.
這個程式的問題出在哪?
Dim a() As Integer, n As Integer, c As Integer
Private Sub Command1_Click()
Form1.Cls
c = 0
n = InputBox("輸入一個數字", "", "3")
ReDim a(n)
For i = 1 To n
a(i) = i
Next
Form1.Print
Call p(1)
End Sub
Public Sub p(ByVal k As Integer)
Static x As Integer
x = x + 1
If k = n Then
c = c + 1
Form1.Print c; ": ";
Call display
Form1.Print
Else
For i = k To n
t = a(k)
a(k) = a(i)
a(i) = t
Call p(k + 1)
Next
End If
End Sub
Public Sub display()
For y = 1 To n
Form1.Print a(y);
Next
End Sub
每人一個所有可能的分法共有(1,2,3),
(1,3,2),(3,2,1),(3,1,2),(2,1,3),
(2,3,1).....六種.
這個程式的問題出在哪?
Dim a() As Integer, n As Integer, c As Integer
Private Sub Command1_Click()
Form1.Cls
c = 0
n = InputBox("輸入一個數字", "", "3")
ReDim a(n)
For i = 1 To n
a(i) = i
Next
Form1.Print
Call p(1)
End Sub
Public Sub p(ByVal k As Integer)
Static x As Integer
x = x + 1
If k = n Then
c = c + 1
Form1.Print c; ": ";
Call display
Form1.Print
Else
For i = k To n
t = a(k)
a(k) = a(i)
a(i) = t
Call p(k + 1)
Next
End If
End Sub
Public Sub display()
For y = 1 To n
Form1.Print a(y);
Next
End Sub
有關顯示File Name的方法。(編號：348)
我現在做一個ListBox用來顯示某個Directory的某種檔案(如:*.txt)
我想要在顯示出來filename刪去extension Filename。(即在listbox題示時只顯示FileName而不顯示".txt"。)
有沒有方法?
我想要在顯示出來filename刪去extension Filename。(即在listbox題示時只顯示FileName而不顯示".txt"。)
有沒有方法?
請問這樣子的需求 , 該如何下SQL(編號：339)
姓名 項目別(A-G) 數值
-------+---------------+-----
小明 A 50
小明 E 40
小明 C 66
小明 B 55
王二 B 60
王二 D 55
王二 F 10
大林 C 75
大林 G 55
老王 A 68
老王 B 10
老王 C 40
請問上述一個表格中用什麼方法可以最快得到
姓名 A B C D E F G
-------+--+--+--+--+--+--+--
老王 60 10 40 0 0 0 0
大林 0 0 75 0 0 0 55
王二 0 60 0 55 0 10 0
小明 50 55 66 0 40 0 0
請高手指點指點
-------+---------------+-----
小明 A 50
小明 E 40
小明 C 66
小明 B 55
王二 B 60
王二 D 55
王二 F 10
大林 C 75
大林 G 55
老王 A 68
老王 B 10
老王 C 40
請問上述一個表格中用什麼方法可以最快得到
姓名 A B C D E F G
-------+--+--+--+--+--+--+--
老王 60 10 40 0 0 0 0
大林 0 0 75 0 0 0 55
王二 0 60 0 55 0 10 0
小明 50 55 66 0 40 0 0
請高手指點指點
座位表(編號：334)
請問一下 例如我用textbox(i) i=0 to 55 排了一個 7*8 的textbox 來做座位表 可是名子放上去後 沒辦法印出來 你有辦法嗎
還是要先存到excel 在印出來
存到excel 要怎麼設定相對位址
麻煩教一下 由衷感激
leo
還是要先存到excel 在印出來
存到excel 要怎麼設定相對位址
麻煩教一下 由衷感激
leo
有關Windows APIs.(編號：332)
為什度我在書上和網上看到的Windows API sample時，通常用的變數名稱都是hWnd等怪名，有沒有意思?
另外，有沒有方法可以自己找出API來用?
VB裡面有一個叫API檢視員，有什度用?
另外，有沒有方法可以自己找出API來用?
VB裡面有一個叫API檢視員，有什度用?
請問如何使用modem遠端存取access資料庫?(編號：331)
我使用NT之RAS功能,已能使odbc設定經由數據機與遠端網路磁碟機成功建立聯線,但是運用VB中的EDO/ADO企圖存取ACCESS資料庫均失敗,在連接命令語句均無法執行(但同樣程式在使用HUB/乙太網路聯結環境中執行正確無誤),雖調整TIMEOUT時間,確依然無效,請求高手指點迷津?THK!
有關vb6.0封裝--expsrv.dll發生錯誤(編號：330)
請問使用vb6.0製作安裝程式再執行安裝時出現註冊檔案expsrv.dll發生錯誤,好像找不到此檔案,事實上,再封裝過程中
有見到包含此檔案,是怎麼回事,如何解決,請告知謝謝!
有見到包含此檔案,是怎麼回事,如何解決,請告知謝謝!
VB5+SP3 -- 控制項過時(編號：328)
各位先進:
我用 VB5+SP3 封裝精靈包裝程式時,
它告訴我"相關檔案過時"--"MSCOMM32.OCX,COMCTL32.OCX"
請問該如何解決此問題呢 ?
謝謝 !!
我用 VB5+SP3 封裝精靈包裝程式時,
它告訴我"相關檔案過時"--"MSCOMM32.OCX,COMCTL32.OCX"
請問該如何解決此問題呢 ?
謝謝 !!
救命..oleaut32.dll(編號：326)
我用的是6.0版, 終於完成了程式
也用封裝部屬精靈找到了該要的*.dll和stdole2.tlb檔案
並把它們都一起燒成一片光碟
但是有些電腦卻顯示 "oleaut32.dll 檔是舊的版本, 這個程式需要新的版本"
我去microsoft的網頁上找,
它說要找的oleaut32.dll檔大小應是473,872bytes, 版本是2.20.4049
但我電腦裡的版本比microsoft說的版本更新!! 是2.30.4265
又去找了其他同事的oleaut32.dll更新的版本, 也是出現同樣訊息..
為什麼為什麼..為什麼..
救救我吧... 謝謝大家....
也用封裝部屬精靈找到了該要的*.dll和stdole2.tlb檔案
並把它們都一起燒成一片光碟
但是有些電腦卻顯示 "oleaut32.dll 檔是舊的版本, 這個程式需要新的版本"
我去microsoft的網頁上找,
它說要找的oleaut32.dll檔大小應是473,872bytes, 版本是2.20.4049
但我電腦裡的版本比microsoft說的版本更新!! 是2.30.4265
又去找了其他同事的oleaut32.dll更新的版本, 也是出現同樣訊息..
為什麼為什麼..為什麼..
救救我吧... 謝謝大家....
請教高手(編號：325)
使用vb6封裝精靈後，會抓source的c:\windows\system\下的oleaut32.dll或其他的*.dll檔，若安裝在原機器時，可正常安裝，但安裝在其他PC時，會出現oleaut32.dll版本是否更新，然後要求重開機，結果在被安裝的PC內的c:\windows\system\oleaut32.dll檔案大小為0，請問要如何解決該問題。如何不安裝不需要的*.dll。
以 ORACLE 8.0.5 為後端資料庫時遇到的問題...(編號：320)
大家好:
我以 VB 6.0 透過 ODBC 的方式存取 ORACLE 8.0.5 資料庫.程式是在 NT 4.0 上發展的.目前程式已寫好,使用 Package & Deployment wizard 做成 setup files. 可是要在前端安裝時卻遇到問題, 因為我是透過 ODBC 的方式存取 ORACLE 8.0.5 資料庫,所以必須在前端設定 ORACLE 8.0.5 的 DSN name.而我的前端都是 Win95,在安裝ORACLE 8.0.5 的 client 端時,每次都似乎無法安裝完成就結束,接著在設定 ORACLE 8.0.5 的 DSN name 時,一按下新增按鈕就跳回 ODBC 的設定畫面.試了好幾台 Win95 都一樣.可是 NT 上都沒問題, Why ??
我以 VB 6.0 透過 ODBC 的方式存取 ORACLE 8.0.5 資料庫.程式是在 NT 4.0 上發展的.目前程式已寫好,使用 Package & Deployment wizard 做成 setup files. 可是要在前端安裝時卻遇到問題, 因為我是透過 ODBC 的方式存取 ORACLE 8.0.5 資料庫,所以必須在前端設定 ORACLE 8.0.5 的 DSN name.而我的前端都是 Win95,在安裝ORACLE 8.0.5 的 client 端時,每次都似乎無法安裝完成就結束,接著在設定 ORACLE 8.0.5 的 DSN name 時,一按下新增按鈕就跳回 ODBC 的設定畫面.試了好幾台 Win95 都一樣.可是 NT 上都沒問題, Why ??
Storprocedure 使用Cursor作運算之後,無法將結果Show至data Grid(編號：319)
Storprocedure 使用Cursor作運算之後,無法將結果Show至data Gride:
[1] VB6 Use Data environment Call SQL7.0 之Storprocedure
Storprocedure 之內容是select * from Table
VB6 執行之後有將Recordset傳回VB6並Show在 Data Gride
[2] Storprocedure 之內容是
select * from Table Where ......
use cursor 作運算
有用到 #Table (虛擬Table)
最後得到一Recordset 將其存在 #Table
將其 select * table into AA from #Table
執行之後 用SQL去查 AA Table 存在且有我要之值
但 select * table from #Table
卻無法秀至Datagride
PS:[2]動作皆在SQL 7.0之 Storprocedure 內撰寫
請大家幫幫忙,謝謝您
[1] VB6 Use Data environment Call SQL7.0 之Storprocedure
Storprocedure 之內容是select * from Table
VB6 執行之後有將Recordset傳回VB6並Show在 Data Gride
[2] Storprocedure 之內容是
select * from Table Where ......
use cursor 作運算
有用到 #Table (虛擬Table)
最後得到一Recordset 將其存在 #Table
將其 select * table into AA from #Table
執行之後 用SQL去查 AA Table 存在且有我要之值
但 select * table from #Table
卻無法秀至Datagride
PS:[2]動作皆在SQL 7.0之 Storprocedure 內撰寫
請大家幫幫忙,謝謝您
如何將TextBox中的text傳到email application中?(編號：315)
我要寫一個電話簿program，有一個textbox用在紀錄email address。
我可否在textbox旁加一個Comand Buttom，按後會開動預設的email application(如Outlook或Netscape Mail等....)并將該Textbox的文字set做email program的收件者address?
如果可以，要怎樣做?
我可否在textbox旁加一個Comand Buttom，按後會開動預設的email application(如Outlook或Netscape Mail等....)并將該Textbox的文字set做email program的收件者address?
如果可以，要怎樣做?
Chr$()(編號：314)
大家好!
我的問題是,我在用Com送出資料來控制外部系統時,
出現了一個問題:
Comm1.Output=Chr$(A)
(A is 0 to 255)
在 0~128 時正常
但是在129~255 是Chr$(A)卻傳回 零字元 (""),而不是其Ascii
所以想請問各位要用什麼方式才可以解決這個問題呢?
謝謝
我的問題是,我在用Com送出資料來控制外部系統時,
出現了一個問題:
Comm1.Output=Chr$(A)
(A is 0 to 255)
在 0~128 時正常
但是在129~255 是Chr$(A)卻傳回 零字元 (""),而不是其Ascii
所以想請問各位要用什麼方式才可以解決這個問題呢?
謝謝
如何用 VB 取得 Cookies 的位置?(編號：308)
請問有人知道如何用 VB 取得 Cookies 的位置嗎?
因為 Winnt 與 Win95 的 Cookies 似乎不一樣.....
可以使用 API 的方法嗎?
請告訴我，謝謝......
因為 Winnt 與 Win95 的 Cookies 似乎不一樣.....
可以使用 API 的方法嗎?
請告訴我，謝謝......
[comdlg32] 提供資訊(編號：304)
最近我若在工作上有碰到共用對話盒的部分, 我多會將其包裝, 以減少對 comdlg32.ocx (Common Dialog Box) 的引用!
昨我在閱讀 MSDN Library July 1999 Level 1 時, 意外發現 Microsoft 有將這些函數包裝成一個物件類別模組, 用法同 Comdlg32.ocx , 有興趣的網友可以試試!
我實際試了一下, Default Font 設不進去 (該物件類別漏掉這段程式碼) , 這部分可能要自己加進去.
減少 comdlg32.ocx 引用可使程式更加獨立, 不過大概會使執行檔增大 40 ~ 60 kb.
買 vb 送的 MSDN 請用搜尋功能, 該物件類別模組檔名 comdlg.ocx
昨我在閱讀 MSDN Library July 1999 Level 1 時, 意外發現 Microsoft 有將這些函數包裝成一個物件類別模組, 用法同 Comdlg32.ocx , 有興趣的網友可以試試!
我實際試了一下, Default Font 設不進去 (該物件類別漏掉這段程式碼) , 這部分可能要自己加進去.
減少 comdlg32.ocx 引用可使程式更加獨立, 不過大概會使執行檔增大 40 ~ 60 kb.
買 vb 送的 MSDN 請用搜尋功能, 該物件類別模組檔名 comdlg.ocx
About DataEnvironment and Data Report(編號：301)
我想用 Data Environment 和 Data Report 製作報表，但是卻想要自己控制 Data Environment 的資料庫連結屬性，也就是說不想在設計階段就設定死了，請問我是否可以在執行階段才設定 Data Environment 的資料連結屬性，但報表的格式卻在設計階段就設計好了，如此，我可以動態的變動資料庫位置而不需在每次更改資料庫位置後重新設計報表。
ADO透過odbc存取NOVELL SEVER上的dbf(編號：297)
請請大家幫我看看(ADO透過odbc存取NOVELL SEVER上的dbf)
為何以下的成式抓一筆資料要5-7秒鐘?
Sub cmdFindRec_Click()
Dim I As Integer
Dim myQry As String
'SQL敘述
myQry = _
" SELECT A1M_ID , A1M_NAME , A1M_ADRS , A1M_AD_A FROM A1D1000M " _
& " WHERE A1M_ID = '" & txtData & "'"
'-------取得資料庫連線----
Set cn = New ADODB.Connection
With cn
.ConnectionString = "DSN=LABOR;timeout=15"
.Open
End With
'--------取得資料集----
If Not Len(txtData.Text) ＞ 0 Then
MsgBox "請輸入事業單位資料"
End If
Set rs = New ADODB.Recordset
rs.Open myQry, cn
If rs.EOF Or rs.BOF Then
MsgBox "找不到資料，請自行輸入！"
For I = 9 To 11
txtInPut(I).BackColor = &H80000005
txtInPut(I) = ""
Next I
Exit Sub
Else
For I = 9 To 11
txtInPut(I).BackColor = &H80000004
Next I
End If
'填入資料
For I = 0 To 2
If IsNull(rs.Fields(I + 1)) Then
txtInPut(I + 9) = " "
Else
txtInPut(I + 9) = rs(I + 1)
End If
Next I
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
為何以下的成式抓一筆資料要5-7秒鐘?
Sub cmdFindRec_Click()
Dim I As Integer
Dim myQry As String
'SQL敘述
myQry = _
" SELECT A1M_ID , A1M_NAME , A1M_ADRS , A1M_AD_A FROM A1D1000M " _
& " WHERE A1M_ID = '" & txtData & "'"
'-------取得資料庫連線----
Set cn = New ADODB.Connection
With cn
.ConnectionString = "DSN=LABOR;timeout=15"
.Open
End With
'--------取得資料集----
If Not Len(txtData.Text) ＞ 0 Then
MsgBox "請輸入事業單位資料"
End If
Set rs = New ADODB.Recordset
rs.Open myQry, cn
If rs.EOF Or rs.BOF Then
MsgBox "找不到資料，請自行輸入！"
For I = 9 To 11
txtInPut(I).BackColor = &H80000005
txtInPut(I) = ""
Next I
Exit Sub
Else
For I = 9 To 11
txtInPut(I).BackColor = &H80000004
Next I
End If
'填入資料
For I = 0 To 2
If IsNull(rs.Fields(I + 1)) Then
txtInPut(I + 9) = " "
Else
txtInPut(I + 9) = rs(I + 1)
End If
Next I
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
請問如何讀取大於2GB的硬碟空間(編號：295)
原先我希望用API函數來讀取但是API函數只能抓到2GB的空間大於2GB的話以2GB算,我Email給王國榮先生他告訴我說用API的話無解,請問各位先進是否有其他方法可以用呢?謝謝賜教
使用vb6封裝精靈後，無法安裝至其他PC。(編號：292)
使用vb6封裝精靈後，會抓source的c:\windows\system\下的oleaut32.dll或其他的*.dll檔，若安裝在原機器時，可正常安裝，但安裝在其他PC時，會出現oleaut32.dll版本是否更新，然後要求重開機，結果在被安裝的PC內的c:\windows\system\oleaut32.dll檔案大小為0，請問要如何解決該問題。如何不安裝不需要的*.dll。
interface between VB rs232(編號：287)
If i make a project , this will emit 4 LED lights .
How can i design the VB to state the condition(ON or OFF of the LED) of the program ??
How can i design the VB to state the condition(ON or OFF of the LED) of the program ??
有關ADO及SQL一問(編號：283)
請問一下:
在VB6中用ADO(dsn-less)連至SQL 6.5. 現在有一筆資料要
insert 至 database ,但此資料(字串)中含有'(單引號)
造成SQL無法辦認, 但是如果用""(二個雙引號)將字串包住.
在SQL可以,但VB確無法成功.
請各位高手幫忙,謝謝.
在VB6中用ADO(dsn-less)連至SQL 6.5. 現在有一筆資料要
insert 至 database ,但此資料(字串)中含有'(單引號)
造成SQL無法辦認, 但是如果用""(二個雙引號)將字串包住.
在SQL可以,但VB確無法成功.
請各位高手幫忙,謝謝.
EMF 與剪貼簿(編號：282)
[Win32] EMF 與剪貼簿
我由程式 Code 送至剪貼簿一個 EMF (Enhanced MetaFile) 等待被貼上,
1.貼上圖形大小問題
程式中設定 EMF大小為 10 cm x 10 cm
用貼上 (選擇性貼上 "圖片") 進 Word 或是 Visio 等軟體都為 10 cm 左右
(10.03 cm x 10.05 cm) , 唯獨貼進 PowerPoint 卻是 0.38 cm x 0.38 cm
這麼小...
若用選擇性貼上 "EMF 圖片" 或插入圖片選擇同樣的 EMF檔案, 則上述三種軟
體貼上大小皆為 10.03 cm x 10.05 cm, 為何唯獨 PowerPoint 貼上的部分有
問題呢?
2.Pie 的問題
Pie 為具有半徑的弧 (Arc), 就是兩個半徑加上弧使其成為封閉的派.
前述中只有 PowerPoint & Visio 可以編修 EMF, 下面問題指的是這兩套軟體
在我的 EMF中用到 Pie與數學座標的部分, 選擇性貼上 "EMF 圖片" 可以得到
我想要的 Pie, 但是貼上 (選擇性貼上 "圖片")卻是反集的 Pie, 也就是我想
要的 Pie被從圓中挖走後所剩下的, 何解?
另不管是貼上圖片或是選擇性貼上 "EMF 圖片" , 在 PowerPoint & Visio 中
解開群組後都會變成 Arc (弧) , 也就是兩條半徑沒了, 但是 FillColor還是
Pie 的範圍, 是 PowerPoint & Visio 均不支援 Pie嗎?
我試過將 Excel Chart 中的 Pie 貼過來, 解開群組後一樣會消失成為 Arc,
不過不會有反集出現! 我想 Chart用的應該是 DC 座標!
ps. Word 97 SR2, PowerPoint SR2, Visio 中文版 5.0
我由程式 Code 送至剪貼簿一個 EMF (Enhanced MetaFile) 等待被貼上,
1.貼上圖形大小問題
程式中設定 EMF大小為 10 cm x 10 cm
用貼上 (選擇性貼上 "圖片") 進 Word 或是 Visio 等軟體都為 10 cm 左右
(10.03 cm x 10.05 cm) , 唯獨貼進 PowerPoint 卻是 0.38 cm x 0.38 cm
這麼小...
若用選擇性貼上 "EMF 圖片" 或插入圖片選擇同樣的 EMF檔案, 則上述三種軟
體貼上大小皆為 10.03 cm x 10.05 cm, 為何唯獨 PowerPoint 貼上的部分有
問題呢?
2.Pie 的問題
Pie 為具有半徑的弧 (Arc), 就是兩個半徑加上弧使其成為封閉的派.
前述中只有 PowerPoint & Visio 可以編修 EMF, 下面問題指的是這兩套軟體
在我的 EMF中用到 Pie與數學座標的部分, 選擇性貼上 "EMF 圖片" 可以得到
我想要的 Pie, 但是貼上 (選擇性貼上 "圖片")卻是反集的 Pie, 也就是我想
要的 Pie被從圓中挖走後所剩下的, 何解?
另不管是貼上圖片或是選擇性貼上 "EMF 圖片" , 在 PowerPoint & Visio 中
解開群組後都會變成 Arc (弧) , 也就是兩條半徑沒了, 但是 FillColor還是
Pie 的範圍, 是 PowerPoint & Visio 均不支援 Pie嗎?
我試過將 Excel Chart 中的 Pie 貼過來, 解開群組後一樣會消失成為 Arc,
不過不會有反集出現! 我想 Chart用的應該是 DC 座標!
ps. Word 97 SR2, PowerPoint SR2, Visio 中文版 5.0
PopMenu 這個指令怎麼用???? ........急用啊...(編號：281)
我想當mouse有list按右鍵時會pop
一個選單but....
If Button = 2 Then
List1.Enabled = False
List1.Enabled = True
PopupMenu(??????)
這部份要打什麼??? .frm的檔嗎???
執行會出顯"快顯功能表必需要有一個次功能表"
一個選單but....
If Button = 2 Then
List1.Enabled = False
List1.Enabled = True
PopupMenu(??????)
這部份要打什麼??? .frm的檔嗎???
執行會出顯"快顯功能表必需要有一個次功能表"
如何將listbox中的數字拆成兩個矩陣(編號：277)
如果我有一些數字列在listbox中,如
123,321
456,654
789,987
怎麼才能將逗號前設成X(i)
逗號後設成Y(i)的矩陣呢???
123,321
456,654
789,987
怎麼才能將逗號前設成X(i)
逗號後設成Y(i)的矩陣呢???
vb vs database(編號：274)
請問一下vb下載檔案 要怎麼做ㄚ? 還有我做ㄉ程式沒辦法新增&更新資料庫 但是可以刪除(資料庫未建立關聯) 另外如果資料庫有建立關聯是否就不能新增修改ㄚ?
如何在 Filecopy 時，顯示出 "備份檔案進行中，請稍侯..." 這個(編號：273)
如果我想在 Filecopy 時，顯示出 "備份檔案進行中，請稍侯..." 這個訊息，應該用什麼方式昵
e.g. Filecopy "c:\invoice.txt" , "a:\invoice.txt"
我現在書寫的方式是：當我在 Form1 執行 Filecopy 時，Form2 就 Show 出來，"備份檔案進行中，請稍侯..." 這個訊息就在 Form2.label1.caption 顯示出來，但是我只見到 Form2 的外框，而見不到訊息，有什麼辦法可以在 Filecopy 時，而且又可以見到訊息呢？
e.g. Filecopy "c:\invoice.txt" , "a:\invoice.txt"
我現在書寫的方式是：當我在 Form1 執行 Filecopy 時，Form2 就 Show 出來，"備份檔案進行中，請稍侯..." 這個訊息就在 Form2.label1.caption 顯示出來，但是我只見到 Form2 的外框，而見不到訊息，有什麼辦法可以在 Filecopy 時，而且又可以見到訊息呢？
我想寫一個Print的功能(像Wordpad那個)(編號：270)
Wordpad的Print如何寫?
因為我也正在做一個簡單的Word Processor的program，但到印的功能不會寫。
不知有沒有源程式以download來參考或有關的OCX或工具。
因為我也正在做一個簡單的Word Processor的program，但到印的功能不會寫。
不知有沒有源程式以download來參考或有關的OCX或工具。
在SQLAnalyzer下可正常執行的Store procedure,為何透過VB就會不(編號：266)
大家好,小弟這邊有個問題想向大家請教一下,盼望各位高手指點指點!
我在SQL建立一個Store procedure名為sp_check,在sp_check內開了四個cursor去執行許多SQLcommand,但不是巢狀,
是一個Cursor執行完再開一個,
sp_check在SQLAnalyzer下執行都沒問題,
而我在VB內,利用ADO建立connection 名為 cnSQL,
當我執行 cnSQL.execute "EXEC sp_check" 時,卻會出現問題,
根據Profiler Trace的結果,是sp_check執行到一半時就結束,而每次結束的地方也不是在同一個Cursor內,
更令人困惑的是我在VB內有宣告ADO.Error
做ErrorHandle,可是VB這邊並沒有收到任何Error,
程式繼續執行
請問諸位高手這有可能是什麼原因,該如何解決?感激不盡!
我在SQL建立一個Store procedure名為sp_check,在sp_check內開了四個cursor去執行許多SQLcommand,但不是巢狀,
是一個Cursor執行完再開一個,
sp_check在SQLAnalyzer下執行都沒問題,
而我在VB內,利用ADO建立connection 名為 cnSQL,
當我執行 cnSQL.execute "EXEC sp_check" 時,卻會出現問題,
根據Profiler Trace的結果,是sp_check執行到一半時就結束,而每次結束的地方也不是在同一個Cursor內,
更令人困惑的是我在VB內有宣告ADO.Error
做ErrorHandle,可是VB這邊並沒有收到任何Error,
程式繼續執行
請問諸位高手這有可能是什麼原因,該如何解決?感激不盡!
小吳，您的版...(編號：257)
小吳：
您的版面更動後第一次來這裡Posting，
我覺得對我唯一的不便是，我常選擇某些人的Posting來看
比如您啦，紀文和兄、璉璉、阿柳、Honey等，可是，現在
就沒有那麼方便了 :( ，而且您有沒有偷懶(指少來這裡回答問題)
也就看不出來了 :)
cww
您的版面更動後第一次來這裡Posting，
我覺得對我唯一的不便是，我常選擇某些人的Posting來看
比如您啦，紀文和兄、璉璉、阿柳、Honey等，可是，現在
就沒有那麼方便了 :( ，而且您有沒有偷懶(指少來這裡回答問題)
也就看不出來了 :)
cww
如何將資料庫中存放圖片的欄位內容顯示於PictureBox(編號：256)
我想利用Adodb.recordset讀出存放圖片的欄位，然後顯示於PictureBox,除了用資料感知功能以外，是否有其他方法，請各位高手賜教感激不盡
about VB == Line 效率(編號：254)
VB 的 Line 好像效率很差:
我用他 來畫點(一 bolck 為一點),但是效率很差!
如果改用 Windows API 會不會改善呢 ???
我用他 來畫點(一 bolck 為一點),但是效率很差!
如果改用 Windows API 會不會改善呢 ???
VB要如何在任何狀況下,取得SQL statement ......(編號：253)
您們好:
請問您一個問題,
我在寫VB程式時,想在產生error時,紀錄log file,
但我現在遭遇一個問題,
當VB在對DataBase做Action(I,U,D,Q)時,產生error,
在此時我想紀錄當時的SQL statement,
不知道要如何取得此SQL statement?
因我使用三種方式來存取DataBase:
1.SQL statement方式,直接open或execute
2.Field方式,使用update
3.CommandText方式,再傳入參數
這三種的方式我都要可取得SQL statement....
不知道你們是否可以幫我,解答我的疑惑呢?
謝謝您們..........^_^
Janey
請問您一個問題,
我在寫VB程式時,想在產生error時,紀錄log file,
但我現在遭遇一個問題,
當VB在對DataBase做Action(I,U,D,Q)時,產生error,
在此時我想紀錄當時的SQL statement,
不知道要如何取得此SQL statement?
因我使用三種方式來存取DataBase:
1.SQL statement方式,直接open或execute
2.Field方式,使用update
3.CommandText方式,再傳入參數
這三種的方式我都要可取得SQL statement....
不知道你們是否可以幫我,解答我的疑惑呢?
謝謝您們..........^_^
Janey
CurrentX and CorrentY可以設定Printer的左and上邊界，那右＆下(編號：251)
CurrentX and CurrentY可以設定Printer的左and上邊界，那右＆下邊界要如何設定
那如果所要列印的文件超過設定的右邊界，要如何得知
那如果所要列印的文件超過設定的右邊界，要如何得知
VB5程式執行時，無法起始設定 的 問題(編號：248)
我在windows95的電腦上只安裝VB5.0企業版,撰寫VB程式後,以VB5.0 之應用程式安裝精靈製作之應用程式發行片,在兩台裝有windows98的電腦上執行安裝,皆顯示安裝成功訊息.在執行時,其中一台電腦可以正常執行應用程式,但是另一台電腦
一執行(程式集-＞應用程式)就出現 "執行期錯誤3447"
當呼叫 Jet VBA 檔案 (VBAJET.dll 用在 16 位元版本，VBAJET32.dll用在 32 位元版本) 時，無法起始設定。
請重新安裝傳回錯誤的應用程式
請問為什麼?
如何解決???
一執行(程式集-＞應用程式)就出現 "執行期錯誤3447"
當呼叫 Jet VBA 檔案 (VBAJET.dll 用在 16 位元版本，VBAJET32.dll用在 32 位元版本) 時，無法起始設定。
請重新安裝傳回錯誤的應用程式
請問為什麼?
如何解決???
DateDiff( )函式，請教參數設定。(編號：247)
Function DateDiff(Interval As String, Date1, Date2, [FirstDayOfWeek As VbDayOfWeek = vbSunday], [FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1])
其中Interval As String如何設定。Date1, Date2給的值"88/12/10"
是否正確。
其中Interval As String如何設定。Date1, Date2給的值"88/12/10"
是否正確。
adodc 記錄指標移動的問題(編號：246)
我在同一個 form 上放了兩個 adodc 且連到相同的table
adodc1 的command type 是 adcmdtable
adodc2 的 command type 是 adcmdtext
我的作法是 adodc2 用 SQL 指令讀資料並作排序(供瀏覽)
adodc1 作為 add, edit ,dele 的用途,資料排列順序是
依資料庫中實際的位置.
問題是如何讓這兩個 adodc 同步移動 ?
謝謝 !!
adodc1 的command type 是 adcmdtable
adodc2 的 command type 是 adcmdtext
我的作法是 adodc2 用 SQL 指令讀資料並作排序(供瀏覽)
adodc1 作為 add, edit ,dele 的用途,資料排列順序是
依資料庫中實際的位置.
問題是如何讓這兩個 adodc 同步移動 ?
謝謝 !!
VB5問題(編號：245)
我的程式是用VB5.0專業版寫的,做成安裝精靈後,在別的PC上SETUP,
安裝完成,RUN 時出現以下錯誤:
當呼叫JETVBA檔案(VBAJET.DLL用於16位元版本,VBAJET32.DLL用於32位元版本)時,無法初始化.請重新安裝傳回錯誤的應用程式.
請各位先進幫幫忙.
安裝完成,RUN 時出現以下錯誤:
當呼叫JETVBA檔案(VBAJET.DLL用於16位元版本,VBAJET32.DLL用於32位元版本)時,無法初始化.請重新安裝傳回錯誤的應用程式.
請各位先進幫幫忙.
adodc 與 datagrid 配合的問題(編號：243)
我使用 adodc 連結到一個 Dbase 的資料庫,配合 datagrid 來顯示
資料.
問題如下:
1. 如何設定 datagrid 的每個欄位的 Title , 而不是自動顯示欄位名稱.
2. 資料庫中的某些欄位希望它不要顯示出來.
資料.
問題如下:
1. 如何設定 datagrid 的每個欄位的 Title , 而不是自動顯示欄位名稱.
2. 資料庫中的某些欄位希望它不要顯示出來.
請各位幫幫忙...如何存IMAGE 至 MDB的檔案中..T.K.S(編號：242)
rs.AddNew
rs![工號] = Text1(0)
rs![姓名] = Text1(1)
rs![圖片] = Image1 .....ERROR..
rs.Update
rs![工號] = Text1(0)
rs![姓名] = Text1(1)
rs![圖片] = Image1 .....ERROR..
rs.Update
Dynamiclly create menu with multiple submenu levels(編號：241)
How to create a mene with the following structure in run time?
MyMenu
--mnuLevel_1[0]
-----mnuLevel_2
..
--mnuLevel_1[j]
-----mnuLevel_2
..
The first level is OK, which can be acheived by defining an array in design time. The problem is in the second level due to the name conflict.
MyMenu
--mnuLevel_1[0]
-----mnuLevel_2
..
--mnuLevel_1[j]
-----mnuLevel_2
..
The first level is OK, which can be acheived by defining an array in design time. The problem is in the second level due to the name conflict.
VB vs ACCESS 2000(編號：239)
我是VB 新手, 其中在資料表單精靈中, 我在選ACCESS 中的資料庫時, 出現"無法辨識資料庫格式"...我用的access 2000, 想請教一下vb6 是否不支援access 2000 中的資料庫? 如果是的話, 請問有方法可以解決這個問題嗎? thanks!
P.S.我使用的VB6
P.S.我使用的VB6
如何看 別人所寫的 dll 的source code(編號：235)
你好;
因最近在學 vb 想練習寫 dll所以想參考別人的dll 寫法,
不知有無辦法看得到別人所寫的 dll source code,謝謝
因最近在學 vb 想練習寫 dll所以想參考別人的dll 寫法,
不知有無辦法看得到別人所寫的 dll source code,謝謝
Visual Basic 如何讀取,寫入記憶區資料(編號：226)
我製作一片記憶Card,它的解碼位址為 D000:0000 ~ D000:07FF 2K的空間,用 Debug 測試R/W正常,請問VB
可否讀取???莫非要用 VC寫成 DLL 讓VB Call 嗎,PLS 高手幫忙!!!!
可否讀取???莫非要用 VC寫成 DLL 讓VB Call 嗎,PLS 高手幫忙!!!!
怎麼寫一個類似帳號登入ㄉ呢(編號：223)
請問個位大哥：
小第是剛才學vbㄉ初學者，有個問題想請教一下
就是要寫一個帳號登入ㄉ程式，如輸入id若正確
則跳至輸入passwd，id若錯則叫你重新輸入..
最後是ok鍵和cancel鍵...
如何說按cancel鍵，它會跳到重新輸入idㄉtext呢
謝謝大家ㄉ幫忙..
幫我寫寫這程式吧
小第是剛才學vbㄉ初學者，有個問題想請教一下
就是要寫一個帳號登入ㄉ程式，如輸入id若正確
則跳至輸入passwd，id若錯則叫你重新輸入..
最後是ok鍵和cancel鍵...
如何說按cancel鍵，它會跳到重新輸入idㄉtext呢
謝謝大家ㄉ幫忙..
幫我寫寫這程式吧
請問 vb 語法可不可以做字的光學判斷(編號：217)
請問 vb 語法可不可以做字的光學判斷例如大太犬
這三個字 大太犬 其中的點在不同位置則產生不同的字
這有點像類神經網路的問題
如果vb 語法可以做到,那麼要用那個控制項
那本書有介紹
這三個字 大太犬 其中的點在不同位置則產生不同的字
這有點像類神經網路的問題
如果vb 語法可以做到,那麼要用那個控制項
那本書有介紹
程式設計相關資訊(編號：212)
＜a href="http://lightning.prohosting.com/~pauljeng/" target="_top"＞Softpro軟體設計工作室＜/a＞
Welcome..
Welcome..
當程式關閉後，用 ctrl+alt+del 看發現程式未完全關閉 ！(編號：211)
有些sub 如 text1_keypress(ascii) 中，若有 loop 時，雖然我們click form 右上角的x時，程式看起來已關閉，事實上卻無，請問有何方法自動去關閉所有尚未結束的 sub
vb的setup 問題(編號：210)
請教各位先進
我寫好的vb 程式在user的pc上執行setup 時會出現"某些檔案太舊,要重開機後才能繼續安裝", 可是重開後執行 setup 還是一樣的情形而無法完成安裝,我該怎麼辦?
我寫好的vb 程式在user的pc上執行setup 時會出現"某些檔案太舊,要重開機後才能繼續安裝", 可是重開後執行 setup 還是一樣的情形而無法完成安裝,我該怎麼辦?
請問ASP如何寫程式讓IIS寄EMAIL?(編號：204)
就是USER輸入資訊，ASP傳到SERVER,SERVER寄出郵件，而不是用
USER端的EMAIL程式。回覆時請順便MAIL給我，謝謝！
利用元件，SQL SERVER都可以。
USER端的EMAIL程式。回覆時請順便MAIL給我，謝謝！
利用元件，SQL SERVER都可以。
請告知如何在vb中列印EXCEL檔?謝謝!(編號：202)
小弟有個程式其計算結果需要存成excel檔,並將其自動列印出來,
在將計算結果存成excel檔部份已沒有問題了,但如何由vb去執行
列印excel的動作至今仍然無解!
曾經嘗試利用excel中之巨集錄下vba然後再轉貼至vb程式中,藉由
vb來下達列印的動作,可是未能如願.
想請問各位先進是否能幫小弟找出解決方法,謝謝!
在將計算結果存成excel檔部份已沒有問題了,但如何由vb去執行
列印excel的動作至今仍然無解!
曾經嘗試利用excel中之巨集錄下vba然後再轉貼至vb程式中,藉由
vb來下達列印的動作,可是未能如願.
想請問各位先進是否能幫小弟找出解決方法,謝謝!
SELECT 內容不為所需之值,WHY ?(編號：194)
我下一個SELECT式:
SEARCH1="SELECT * FROM AAA WHERE"
SEARCH = SEARCH1 & " NO1 ＞= '" & Text1.Text & "'" & " And NO1 ＜= '" & Text2.Text & "'"
值為:X199000~X203999區間
結果,TEXT1.TEXT 的值輸入X199 ;TEXT2.TEXT 的值輸入X203 找到的資料只有X199~X203間的值,X203的資枓卻都沒有出現,我有下"＜="應會包含到X203的值,但卻沒出現,這....是什麼問題呢?高手們幫幫忙吧! 謝啦^_^
SEARCH1="SELECT * FROM AAA WHERE"
SEARCH = SEARCH1 & " NO1 ＞= '" & Text1.Text & "'" & " And NO1 ＜= '" & Text2.Text & "'"
值為:X199000~X203999區間
結果,TEXT1.TEXT 的值輸入X199 ;TEXT2.TEXT 的值輸入X203 找到的資料只有X199~X203間的值,X203的資枓卻都沒有出現,我有下"＜="應會包含到X203的值,但卻沒出現,這....是什麼問題呢?高手們幫幫忙吧! 謝啦^_^
關 於TEXT的一個問題(編號：188)
為何我的text1.text和adodc1作連結後沒有辨法秀出UNICOD 的字型
但是DataGride就可以秀出Unicod的字型,我的FONT都有改成可以顯示的字型啊! 不知Textbox是否有支援Unicod的功能
--------------------------------------------------------------------------------
但是DataGride就可以秀出Unicod的字型,我的FONT都有改成可以顯示的字型啊! 不知Textbox是否有支援Unicod的功能
--------------------------------------------------------------------------------
VB與CLIPPER的NTX問題？(編號：183)
請問
VB如何去讀取CLIPPER的NTX呢？
因為個人的公司希望在不動到原有資料及索引(CLIPPER寫的)的情況下
完成資料庫介面的更新;資料龐大、又天天長大，所以難做:(
又，VB可否CALL CLIPPER 去DO某個PRG呢..
先謝謝您嚕..
VB如何去讀取CLIPPER的NTX呢？
因為個人的公司希望在不動到原有資料及索引(CLIPPER寫的)的情況下
完成資料庫介面的更新;資料龐大、又天天長大，所以難做:(
又，VB可否CALL CLIPPER 去DO某個PRG呢..
先謝謝您嚕..
About ListView(編號：179)
我想使用 ListView 來列示從資料庫中找出的資料，就如同DataGrid一樣，但是卻無法做到：當我選擇其中一筆資料時，那筆資料整行都能被 Mark 起來，在 ListView 中，好像只會 Mark 第一個欄位資料而已，請問有誰知道如何呈現出 Mark 整行的效果？
有問題啦(編號：177)
大家好 : 我想請問你三個問題
第一 以下是我連接sql的方法
我想請問你我們如何得知資料庫中的某個表格有那些資料(這些方法要如何知道呀!)
我想把它們 加到combo1中
第二個問題是 select
from
where
這種sql的指令 可以直接在vb 中寫嗎?
如果可以要如何作呢 ?
第三個問題 請你介紹書給我看好嗎?因為市面上書那麼多不知從何 下手
因為我是初學者所以有些問題很笨喔 希望你能見諒
感謝你撥空看此問題 非常謝謝
Dim ws As Workspace
Dim cn As Connection
Dim rs As Recordset
command1_click()
Dim sql_str As String
On Error GoTo errorexit
Set ws = DBEngine.CreateWorkspace("test", "sa", "", dbUseODBC)
sql_str = "ODBC;UID=sa;PWD=;DSN=project"
Set cn = ws.OpenConnection("", dbDriverNoPrompt, True, sql_str)
Set rs = cn.OpenRecordset("SELECT * FROM test", dbOpenDynaset)
End Sub
第一 以下是我連接sql的方法
我想請問你我們如何得知資料庫中的某個表格有那些資料(這些方法要如何知道呀!)
我想把它們 加到combo1中
第二個問題是 select
from
where
這種sql的指令 可以直接在vb 中寫嗎?
如果可以要如何作呢 ?
第三個問題 請你介紹書給我看好嗎?因為市面上書那麼多不知從何 下手
因為我是初學者所以有些問題很笨喔 希望你能見諒
感謝你撥空看此問題 非常謝謝
Dim ws As Workspace
Dim cn As Connection
Dim rs As Recordset
command1_click()
Dim sql_str As String
On Error GoTo errorexit
Set ws = DBEngine.CreateWorkspace("test", "sa", "", dbUseODBC)
sql_str = "ODBC;UID=sa;PWD=;DSN=project"
Set cn = ws.OpenConnection("", dbDriverNoPrompt, True, sql_str)
Set rs = cn.OpenRecordset("SELECT * FROM test", dbOpenDynaset)
End Sub
關於crystal report?(編號：175)
我想用crystale report做套表，但不知如何設定detail section為
固定長度(印一筆和印十筆，detail section 的長度依然一樣)，請各
位高手提供高見，謝謝!!
固定長度(印一筆和印十筆，detail section 的長度依然一樣)，請各
位高手提供高見，謝謝!!
站長 , 不好意思, 一個 VB 以外的問題 !(編號：173)
有人用過 Microsoft 的 RegClean.exe 這個登陸程式清潔器嗎!
在Win98第一版的時候是沒有問題的, 但在這二版的時候就遇上問題了,
總是在跑到 "Scanning Class Error ..." 的時候, 這個程式就沒有反應了.
有人知道為什麼嗎!
在Win98第一版的時候是沒有問題的, 但在這二版的時候就遇上問題了,
總是在跑到 "Scanning Class Error ..." 的時候, 這個程式就沒有反應了.
有人知道為什麼嗎!
請問如何控制不讓user去使用Ctrl+ESC 與 Alt+Tab(編號：172)
我知道如果不想讓user去使用Ctrl+Alt+Del時,
可以使用SystemParametersInfo這個API,
將其第一個參數值設為SPI_SCREENSAVERRUNNING即可..
但是我想讓我的系統在執行時,user不可以去執行其他的程式..
像檔案總管,office..等等..
所以我想應該也可以利用這個API去做..
讓user不得使用Ctrl+ESC 與 Alt+Tab即可..
我從MSDN上也找到了可將SystemParametersInfo這個API其第一個參數設為SPI_SETFASTTASKSWITCH或者SPI_SETSWITCHTASKDISABLE即可
但是它的說明中,
第一個值不適用於Win95,98及NT..
第二個值只適用於NT 5.0 or later...
我也先使用了第一個值來進行測試... 這二個組合鍵仍然是有作用的
所以想請問, 有沒有人可以用這個參數值成功引用這個API的??
或者, 有其他的方式可以讓user在執行我所寫的這個AP時,
把整個作業系統給Lock起來不讓使用者去使用???
(我的程式是使用VB5寫的,且該程式必須可以在Win95及Win98上執行)
可以使用SystemParametersInfo這個API,
將其第一個參數值設為SPI_SCREENSAVERRUNNING即可..
但是我想讓我的系統在執行時,user不可以去執行其他的程式..
像檔案總管,office..等等..
所以我想應該也可以利用這個API去做..
讓user不得使用Ctrl+ESC 與 Alt+Tab即可..
我從MSDN上也找到了可將SystemParametersInfo這個API其第一個參數設為SPI_SETFASTTASKSWITCH或者SPI_SETSWITCHTASKDISABLE即可
但是它的說明中,
第一個值不適用於Win95,98及NT..
第二個值只適用於NT 5.0 or later...
我也先使用了第一個值來進行測試... 這二個組合鍵仍然是有作用的
所以想請問, 有沒有人可以用這個參數值成功引用這個API的??
或者, 有其他的方式可以讓user在執行我所寫的這個AP時,
把整個作業系統給Lock起來不讓使用者去使用???
(我的程式是使用VB5寫的,且該程式必須可以在Win95及Win98上執行)
使DataCombo顯示多個欄位？(編號：167)
請教一個問題：
個人使用VB 6.0，希望能在DataCombo控制項中，一次顯示兩個(或以上)的欄位值，比如按下滑鼠鍵候，可同時出現ID，名稱，(敘述...)。
個人使用VB 6.0，希望能在DataCombo控制項中，一次顯示兩個(或以上)的欄位值，比如按下滑鼠鍵候，可同時出現ID，名稱，(敘述...)。
如何下指令強制user log off sql-server(編號：162)
如果有未經許可的user 進入sql-server,如何下指令強制user log off sql-server ,以維護資料庫的安全?
如何增加VB6中Data Report控件的Width大于120？(編號：161)
最近做报表时有个problem，
because Data Report控件最大只支持120，但是my报表so big
有其他方法没有？？？？？？
救命！！！！！！！！！！
because Data Report控件最大只支持120，但是my报表so big
有其他方法没有？？？？？？
救命！！！！！！！！！！
如何加速宣告自訂類別物件?(編號：160)
如何加速宣告自訂類別物件?
我有一組自訂類別
cLayer (圖層)
cPolygon or cPolyline (多邊形或多重折線)
cPoint (點)
其中 cPoint
Public x as Double
... y ...
... z ...
cLayer, cPolygon 及 cPolyline均用集合物件
當 cPolyline 數量少還沒感覺, 若 cPolyline 到達 30 條以上, 在起始宣告有明顯的延遲...
例如在 Pentium II 300 跑 65 條 cPolyline (每條約有 10 ~ 100 個點)
在讀取時約需 20 sec , 我檢查過了, 檔案處理約佔 6 sec, 但是記憶體配置約佔 14 sec, 在螢幕上重繪約需 0.5 sec, 也就是說, 在起始類別宣告的行為中,
工作項目 所需時間 (s)
-----------------------------
迴圈 1 (0.5 x 2)
讀檔 5.5
類別記憶體配置 13.5
螢幕繪圖 0.5
-----------------------------
由上簡表可知, 物件記憶體配置拖太多時間, 關於類別記憶體配置是否能再加速呢?
註:
1.若將 cPoint 類別改成型態, 可以陣列型式宣告 cPoint 當然可加速, 我是指純就類別物件的記憶體配置是否可加速!
2.VB類別精靈在 Add動作為宣告一新物件, 再加入新物件; 我已經改成跳過新物件宣告的動作, 直接 Set物件的 Handle , 但是慢就是慢在初始記憶體配置, 這樣加速有限!
我有一組自訂類別
cLayer (圖層)
cPolygon or cPolyline (多邊形或多重折線)
cPoint (點)
其中 cPoint
Public x as Double
... y ...
... z ...
cLayer, cPolygon 及 cPolyline均用集合物件
當 cPolyline 數量少還沒感覺, 若 cPolyline 到達 30 條以上, 在起始宣告有明顯的延遲...
例如在 Pentium II 300 跑 65 條 cPolyline (每條約有 10 ~ 100 個點)
在讀取時約需 20 sec , 我檢查過了, 檔案處理約佔 6 sec, 但是記憶體配置約佔 14 sec, 在螢幕上重繪約需 0.5 sec, 也就是說, 在起始類別宣告的行為中,
工作項目 所需時間 (s)
-----------------------------
迴圈 1 (0.5 x 2)
讀檔 5.5
類別記憶體配置 13.5
螢幕繪圖 0.5
-----------------------------
由上簡表可知, 物件記憶體配置拖太多時間, 關於類別記憶體配置是否能再加速呢?
註:
1.若將 cPoint 類別改成型態, 可以陣列型式宣告 cPoint 當然可加速, 我是指純就類別物件的記憶體配置是否可加速!
2.VB類別精靈在 Add動作為宣告一新物件, 再加入新物件; 我已經改成跳過新物件宣告的動作, 直接 Set物件的 Handle , 但是慢就是慢在初始記憶體配置, 這樣加速有限!
關於gif89a的問題(編號：158)
有沒有辦法讓gif89a顯現的gif動畫...
變成透明的呢?
因為只要一載底圖...gif檔就會自動顯示出他自己設的blackcolor
適了好多種方法..還是沒有辦法...
難道真的要有程式的原始碼嗎?
變成透明的呢?
因為只要一載底圖...gif檔就會自動顯示出他自己設的blackcolor
適了好多種方法..還是沒有辦法...
難道真的要有程式的原始碼嗎?
ACCESS 匯入 SQL7 的資料庫的程式(不用DTS)??(編號：157)
如何寫個 從ACCESS 匯入 SQL7 的資料庫程式
1.如何得知 ACCESS 資料庫中 有多少個TABLE
2.如何用 SELECT * INTO 的指令 來將 ACCESS 資料庫所有
TABLE 匯入 SQL7 SERVER.......
不用DTS
1.如何得知 ACCESS 資料庫中 有多少個TABLE
2.如何用 SELECT * INTO 的指令 來將 ACCESS 資料庫所有
TABLE 匯入 SQL7 SERVER.......
不用DTS
請問如何取得螢幕的解析度?(編號：154)
我試過以下程式碼,但是screen.width和screen.height得到的值卻是一樣的!?
還有其他的辦法嗎?
x = Screen.Width / Screen.TwipsPerPixelX
y = Screen.Height / Screen.TwipsPerPixelY
還有其他的辦法嗎?
x = Screen.Width / Screen.TwipsPerPixelX
y = Screen.Height / Screen.TwipsPerPixelY
ASP 問題(編號：153)
我寫ASP 在自己的電腦上可跑,但是upload 到網站後發生如下錯誤
請問是怎麼一回事呢?
Microsoft OLE DB Provider for ODBC Drivers 錯誤 '80004005'
[Microsoft][ODBC Microsoft Access 驅動程式] Microsoft Jet 資料庫引擎無法開啟 '(未知的)' 檔案。它已經被其他的使用者獨佔地開啟，或者您需要有檢視資料的權限。
請問是怎麼一回事呢?
Microsoft OLE DB Provider for ODBC Drivers 錯誤 '80004005'
[Microsoft][ODBC Microsoft Access 驅動程式] Microsoft Jet 資料庫引擎無法開啟 '(未知的)' 檔案。它已經被其他的使用者獨佔地開啟，或者您需要有檢視資料的權限。
讀取資料庫資料出現Null問題......(編號：152)
本人用Excel檔案作資料庫...
然後讀取report.xls資料庫的sheet1資料表的某一欄位的值，
但得到值的是Null，但用Excel開啟卻不是Null值
請問為什麼會這樣呢?
有方法解決這問題嗎?
Thank you very much!
然後讀取report.xls資料庫的sheet1資料表的某一欄位的值，
但得到值的是Null，但用Excel開啟卻不是Null值
請問為什麼會這樣呢?
有方法解決這問題嗎?
Thank you very much!
有關列印份數的問題(編號：150)
我在列印功能上的程式是這樣寫的
CommonDialog1.ShowPrinter
Dim I
For I = Commondialog1.Copies To 1
Printer.Print Text1.text
Printer.NewPage
Next I
Printer.EndDoc
可是不管我在列印份數設多少份
我印出來始終都只有一份
我應該如何寫，才能使列印份數的功能正常使用
CommonDialog1.ShowPrinter
Dim I
For I = Commondialog1.Copies To 1
Printer.Print Text1.text
Printer.NewPage
Next I
Printer.EndDoc
可是不管我在列印份數設多少份
我印出來始終都只有一份
我應該如何寫，才能使列印份數的功能正常使用
請問要使TextBox能有自動換行的功能，要如何寫(編號：149)
請問要使TextBox能有自動換行的功能，要如何寫
Textbox無法使用混合字形(就是有些字要用這個字型，有些字要用別的字形)，有沒有什麼方法or技巧能使它可以使用混合字形
Textbox無法使用混合字形(就是有些字要用這個字型，有些字要用別的字形)，有沒有什麼方法or技巧能使它可以使用混合字形
MDI Form StatusBar 的問題(編號：148)
請問要如何把 MDIchild form 上的錯誤訊息show到MDI form 的
statusbar panel上呢?
我在child form 上寫
frmMain.sbstatusbar.Panels(1).Text = "Insert successful"
^^^^^^^
MDI form
結果error為
"只能允許一個 MDI 表單 (錯誤代碼 426)"
thanks for your answer
statusbar panel上呢?
我在child form 上寫
frmMain.sbstatusbar.Panels(1).Text = "Insert successful"
^^^^^^^
MDI form
結果error為
"只能允許一個 MDI 表單 (錯誤代碼 426)"
thanks for your answer
有哪為高手試過ㄋ.....(編號：147)
請問VB有沒有方法像遊戲一樣有（背景音樂和打鬥音效）同時發聲ㄋ...
請問VB可有方法寫出像（快打旋風發氣功），一樣的組合鍵嗎，或是用 C++寫好動態連結檔共VB使用ㄋ.....
我只知道C語言可寫組合鍵不知VB行不行？
請問VB可有方法寫出像（快打旋風發氣功），一樣的組合鍵嗎，或是用 C++寫好動態連結檔共VB使用ㄋ.....
我只知道C語言可寫組合鍵不知VB行不行？
這個打開資料庫的方式錯在什麼?(編號：144)
Dim ws As Workspace, dbs As Database, rs As Recordset
Private Sub Form_Load()
Set ws = DBEngine.Workspaces(0)
Set dbs = ws.OpenDatabase("c:\fms2\data\fms2.mdb", False, False)
SQL1 = "select * from class_code"
Set rs = dbs.OpenRecordset(SQL1)
End Sub
上面的程式在Set rs = dbs.OpenRecordset(SQL1)出現錯誤.
"執行階段錯誤424,此處需要物件"
請問是什麼意思?謝謝.
Private Sub Form_Load()
Set ws = DBEngine.Workspaces(0)
Set dbs = ws.OpenDatabase("c:\fms2\data\fms2.mdb", False, False)
SQL1 = "select * from class_code"
Set rs = dbs.OpenRecordset(SQL1)
End Sub
上面的程式在Set rs = dbs.OpenRecordset(SQL1)出現錯誤.
"執行階段錯誤424,此處需要物件"
請問是什麼意思?謝謝.
Form.Show 問題(編號：134)
執行FrmMain
按鈕 1
FormA.Show VBModeless
FormA.Windowstate=1
按鈕 2
FormA.Show VBModal
點按縮小在工具列之FormA就當住了，請問如何取得協調？
按鈕 1
FormA.Show VBModeless
FormA.Windowstate=1
按鈕 2
FormA.Show VBModal
點按縮小在工具列之FormA就當住了，請問如何取得協調？
如何寫個 從ACCESS 匯入 SQL7 的資料庫程式(編號：132)
如何寫個 從ACCESS 匯入 SQL7 的資料庫程式
1.如何得知 ACCESS 資料庫中 有多少個TABLE
2.如何用 SELECT * INTO 的指令 來將 ACCESS 資料庫所有
TABLE 匯入 SQL7 SERVER.......
1.如何得知 ACCESS 資料庫中 有多少個TABLE
2.如何用 SELECT * INTO 的指令 來將 ACCESS 資料庫所有
TABLE 匯入 SQL7 SERVER.......
請教一下!!(編號：131)
一些遺問想要請教一下高手們!!
1.Active X DLL 與一般 DLL有何不同及優缺點
2.ACtive Exe 與一般 Exe 有不同及優缺點
3.我寫了一個帶Form Active X DLL , 用起來也沒什麼問題，但聽 說 Active X DLL 最好是不要帶Form !! Why ??
1.Active X DLL 與一般 DLL有何不同及優缺點
2.ACtive Exe 與一般 Exe 有不同及優缺點
3.我寫了一個帶Form Active X DLL , 用起來也沒什麼問題，但聽 說 Active X DLL 最好是不要帶Form !! Why ??
請教小吳.set mrecordset = new adobo.recordset 問題(編號：130)
Private SQLBasicString As String
Private SQLVariableString As String
Dim varBmk As Variant
Private mtimes As Integer, mloop As Integer
Private Sub Command1_Click()
Set AcBankRecordset = New ADODB.Recordset
SQLBasicString = "select * from AcBank order by BankNo"
SQLVariableString = SQLBasicString
With AcBankRecordset
Set .ActiveConnection = AccountConnection
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockBatchOptimistic
.Open SQLVariableString
End With
Set DataGrid1.DataSource = AcBankRecordset
End Sub
這個command我一直按,程式都不會錯誤, 一個recordset在沒有 set 成nothing 或close 的情況下,竟可重複Set AcBankRecordset = New ADODB.Recordset , 是不是意味著我們可以不必 管recordset c的close 及nothing..請指教..謝謝
Private SQLVariableString As String
Dim varBmk As Variant
Private mtimes As Integer, mloop As Integer
Private Sub Command1_Click()
Set AcBankRecordset = New ADODB.Recordset
SQLBasicString = "select * from AcBank order by BankNo"
SQLVariableString = SQLBasicString
With AcBankRecordset
Set .ActiveConnection = AccountConnection
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockBatchOptimistic
.Open SQLVariableString
End With
Set DataGrid1.DataSource = AcBankRecordset
End Sub
這個command我一直按,程式都不會錯誤, 一個recordset在沒有 set 成nothing 或close 的情況下,竟可重複Set AcBankRecordset = New ADODB.Recordset , 是不是意味著我們可以不必 管recordset c的close 及nothing..請指教..謝謝
如何將橫印 Data Report 的報表(編號：129)
我在 Data Report 中設計一個橫式的 A4 報表，
執行時出現"報表寬度大於紙張寬度"的錯誤訊息....
然後我改了 printer 物件中的 papersize 及 Orientation 屬性，
將紙張改成 A4 及 橫印，
結果還是會出現"報表寬度大於紙張寬度"的錯誤訊息....
請問如何解決呢??
執行時出現"報表寬度大於紙張寬度"的錯誤訊息....
然後我改了 printer 物件中的 papersize 及 Orientation 屬性，
將紙張改成 A4 及 橫印，
結果還是會出現"報表寬度大於紙張寬度"的錯誤訊息....
請問如何解決呢??
VB 可不可以做 linked list(編號：125)
VB 可不可以做 linked list? in C language , we have pointer to point next or previous data object.. How do we archieve linked list in VB ?
取亂數的問題......(編號：124)
如果用RND來取固定的亂數時可是每次從新RUN程式時
所取的亂數都是有一定規擇的亂數.不知道有沒有辦法
每次RUN時候都取不一樣的值.我是想用TIMER來取質
不知行不行..........
所取的亂數都是有一定規擇的亂數.不知道有沒有辦法
每次RUN時候都取不一樣的值.我是想用TIMER來取質
不知行不行..........
regsvr32 OCX 註冊問題(編號：114)
有個問題想請教:
我寫了一個 Cell.ocx by VC++
Why ?
98可以成功的註冊Cell.ocx 藉由執行 regsvr32 cell.ocx
為何
95不可以成功的註冊Cell.ocx 藉由執行 regsvr32 cell.ocx
Thanks very much !
我寫了一個 Cell.ocx by VC++
Why ?
98可以成功的註冊Cell.ocx 藉由執行 regsvr32 cell.ocx
為何
95不可以成功的註冊Cell.ocx 藉由執行 regsvr32 cell.ocx
Thanks very much !
如何將vb的值轉入excel圖表的元件中?(編號：111)
我在VB中要開一個form加入excel圖表元件，秀出統計圖表。
但是我不曉得該如何將值傳入excel圖表元件中?
又何如將傳入excel的值拿來製作圖表分析呢?
(例如，長條圖、圖餅圖，曲線圖....等)
真的很困惑，希望各位武功高強的高手能幫我解決這個問題！
謝謝.....^^
但是我不曉得該如何將值傳入excel圖表元件中?
又何如將傳入excel的值拿來製作圖表分析呢?
(例如，長條圖、圖餅圖，曲線圖....等)
真的很困惑，希望各位武功高強的高手能幫我解決這個問題！
謝謝.....^^
尋找....可顯示AUTOCAD圖檔格式的控制項........(編號：108)
請問各位網友:
不知何處有可顯示AUTOCAD所存格式(如:*.dwg,*.dwf)的控制項????若需要購買也可........
(希望各位網友能告知,謝謝........)
不知何處有可顯示AUTOCAD所存格式(如:*.dwg,*.dwf)的控制項????若需要購買也可........
(希望各位網友能告知,謝謝........)
text之tabindex之順序如何做呢？(編號：106)
text之tabindex之順序如何做呢？
我在text1(0)的tabindex中設為1
text1(1)設為2
text(2)設為3
..
..
以此類推
但是，我還是做不出來
我在text1(0)的tabindex中設為1
text1(1)設為2
text(2)設為3
..
..
以此類推
但是，我還是做不出來
請問VB5.0與VB6.0有何不同之處(編號：105)
目前使用VB5.0開發程式，但VB6.0都已出來一陣子，我卻不敢換，深怕換後原程式無法使用。
請依：
1. VB5.0與VB6.0之特色
2. VB5.0與VB6.0之特性
3. VB5.0與VB6.0的不同處
說明之，本人將感激不盡，謝謝！
請依：
1. VB5.0與VB6.0之特色
2. VB5.0與VB6.0之特性
3. VB5.0與VB6.0的不同處
說明之，本人將感激不盡，謝謝！
Data Report問題(編號：104)
有關於data report的兩個問題：
1. 如何設定報表橫印
2. 我根據查詢所得會秀報表，利用資料環境下sql指令，拉出報表內容，也就是每次資料庫所得資料會根據run time查詢值而有有所不同，但每次執行查詢都只會秀出第一次查詢結果之報表(我猜測是沒有更新報表內容)，不知是否有人得知為何？感激不盡
1. 如何設定報表橫印
2. 我根據查詢所得會秀報表，利用資料環境下sql指令，拉出報表內容，也就是每次資料庫所得資料會根據run time查詢值而有有所不同，但每次執行查詢都只會秀出第一次查詢結果之報表(我猜測是沒有更新報表內容)，不知是否有人得知為何？感激不盡
請問小吳：如何得知新增 Record 之 Identity ?(編號：103)
我用 SQL Server 作後端，用 Int 欄位做 Identity，請問我如何能確實取得新增記錄的 Identity？
OnLine Book 說可以檢查全域變數「@@IDENTITY」，問題是：如果這個變數是全域的，那麼是不是也會因為其它 Connection 的動作而造成取到下一個甚至下幾個新增 Record 的 Identity 呢？
請播冗為我解惑，謝謝！
OnLine Book 說可以檢查全域變數「@@IDENTITY」，問題是：如果這個變數是全域的，那麼是不是也會因為其它 Connection 的動作而造成取到下一個甚至下幾個新增 Record 的 Identity 呢？
請播冗為我解惑，謝謝！
物體動畫 ( 利用 ImageList)(編號：98)
第一次來, 還望高手指教!
我想秀出連續動畫, 類似動態GIF,
想利用 ImageList 可存放多張圖片的功能,
但我又要有 Overlay(透明) 的功能,
我指定了一個 Image or Picture=ListImage 中的圖來 Show,
而 Overlay 僅對 ImageList 中的 Picture 有用,
有人有解嗎?
(不要跟我說對每一個圖做 Mask !)
謝了!
我想秀出連續動畫, 類似動態GIF,
想利用 ImageList 可存放多張圖片的功能,
但我又要有 Overlay(透明) 的功能,
我指定了一個 Image or Picture=ListImage 中的圖來 Show,
而 Overlay 僅對 ImageList 中的 Picture 有用,
有人有解嗎?
(不要跟我說對每一個圖做 Mask !)
謝了!
用那個方法可以做四捨五入?(見內文)(編號：94)
我要做一個功能，將小數變整數。
e.g.
1.0 = 1
1.01 = 2
1.1 = 2
1.5 = 2
1.6 = 2
即只要有小數點，就不要小數點後數字，曲并將個位數字加一。
e.g.
1.0 = 1
1.01 = 2
1.1 = 2
1.5 = 2
1.6 = 2
即只要有小數點，就不要小數點後數字，曲并將個位數字加一。
急ㄚ....如何在SStab 上建SScommand, SSoption, SScheck.......(編號：92)
As title! 每次我要建這些元件時，都會出現沒有使用權限的問題，我該如何解決‧
請要一個產生tmp table (#table)的問題(編號：91)
這是我寫的一個store procedure 要把資料記錄原來是直的展成橫的方式展現，可是要產生一個tmp table 卻
一直無法順利產生，都會show 出"Invaild object name "#paytmp"......請各位高手耐心看完我的store procedure
CREATE PROCEDURE RptPayDetail_001 @Pay_Ym char(5) AS
Declare @sql_string as varchar(300)
Declare @Sql_Modi as varchar(100)
declare @Rpt_String as varchar(200)
Declare @Field_name as Char(6)
Declare @Emp_id char(6),@Subject_no char(6),@Pay_sum int,@Tax_yn char(1),@Add_yn char(1),@Emp_name char(10)
Select @Sql_string = "Declare PayCursor Scroll Cursor For select distinct subject_no from Pay"+substring(@Pay_ym,1,4) + " Where Up_dn = '"+
substring(@Pay_ym,5,1)+"'"
Exec (@Sql_string)
Select @Sql_string = "Create Table #PayTmp (Emp_id char(6),Emp_name Char(10),"
Select @Rpt_String = "Select Emp_id,Emp_name,"
Open PayCursor
Fetch Next From PayCursor Into @Field_name
While (@@Fetch_status ＜＞ -1)
Begin
Select @Sql_string = @Sql_string + @Field_name + " Int "
Select @Rpt_String = @Rpt_String + @Field_name
Fetch Next From PayCursor Into @Field_name
If @@fetch_status ＜＞ -1
Begin
Select @sql_string = @sql_string +','
Select @Rpt_String = @Rpt_String + ','
End
End
Select @Sql_string = @Sql_string + " ) "
Select @Rpt_String = @Rpt_String + " From #PayTmp"
Exec (@Sql_string)-------------------------------------------------為什麼我都不會產生這一個tmp table 呢？可是我如果
Deallocate PayCursor 把這一行指令另外拿出來執行卻可以產生tmp table 呢？救救我吧？
Select @Sql_string = "Declare PayCursor Scroll Cursor For Select Distinct A.Emp_id,B.Emp_name from Pay"+substring(@Pay_ym,1,4) +
" A,Employee B Where A.Up_dn='"+substring(@Pay_ym,5,1)+ "' and A.emp_id = B.emp_id order by A.Emp_id"
Exec (@Sql_string)
Open PayCursor
Fetch First From PayCursor Into @Emp_id,@Emp_name
While (@@Fetch_status ＜＞ -1)
Begin
Insert Into #PayTmp (Emp_id,Emp_name) Values (@Emp_id,@Emp_name)
Fetch First From PayCursor Into @Emp_id,@Emp_name
End
Deallocate PayCursor
Select @Sql_string = "Declare PayCursor Scroll Cursor For Select Emp_id,Subject_no,Pay_sum,Tax_yn,Add_yn from Pay"+substring(@Pay_ym,1,4) +
" Where Up_dn='"+substring(@Pay_ym,5,1)+ "' order by Emp_id"
Exec (@Sql_string)
Open PayCursor
Fetch First From PayCursor Into @Emp_id,@Subject_no,@Pay_sum,@Tax_yn,@Add_yn
While (@@Fetch_status ＜＞ -1)
Begin
Select @Sql_Modi = "Update into #PayTmp Set " + rtrim(@Subject_no) + "= " + convert(varchar,@Pay_sum)+" Where Emp_id='" + @Emp_id + "' "
Exec (@Sql_Modi)
Fetch Next From PayCursor Into @Emp_id,@Subject_no,@Pay_sum,@Tax_yn,@Add_yn
End
Exec (@Rpt_String)
drop table #payTmp
一直無法順利產生，都會show 出"Invaild object name "#paytmp"......請各位高手耐心看完我的store procedure
CREATE PROCEDURE RptPayDetail_001 @Pay_Ym char(5) AS
Declare @sql_string as varchar(300)
Declare @Sql_Modi as varchar(100)
declare @Rpt_String as varchar(200)
Declare @Field_name as Char(6)
Declare @Emp_id char(6),@Subject_no char(6),@Pay_sum int,@Tax_yn char(1),@Add_yn char(1),@Emp_name char(10)
Select @Sql_string = "Declare PayCursor Scroll Cursor For select distinct subject_no from Pay"+substring(@Pay_ym,1,4) + " Where Up_dn = '"+
substring(@Pay_ym,5,1)+"'"
Exec (@Sql_string)
Select @Sql_string = "Create Table #PayTmp (Emp_id char(6),Emp_name Char(10),"
Select @Rpt_String = "Select Emp_id,Emp_name,"
Open PayCursor
Fetch Next From PayCursor Into @Field_name
While (@@Fetch_status ＜＞ -1)
Begin
Select @Sql_string = @Sql_string + @Field_name + " Int "
Select @Rpt_String = @Rpt_String + @Field_name
Fetch Next From PayCursor Into @Field_name
If @@fetch_status ＜＞ -1
Begin
Select @sql_string = @sql_string +','
Select @Rpt_String = @Rpt_String + ','
End
End
Select @Sql_string = @Sql_string + " ) "
Select @Rpt_String = @Rpt_String + " From #PayTmp"
Exec (@Sql_string)-------------------------------------------------為什麼我都不會產生這一個tmp table 呢？可是我如果
Deallocate PayCursor 把這一行指令另外拿出來執行卻可以產生tmp table 呢？救救我吧？
Select @Sql_string = "Declare PayCursor Scroll Cursor For Select Distinct A.Emp_id,B.Emp_name from Pay"+substring(@Pay_ym,1,4) +
" A,Employee B Where A.Up_dn='"+substring(@Pay_ym,5,1)+ "' and A.emp_id = B.emp_id order by A.Emp_id"
Exec (@Sql_string)
Open PayCursor
Fetch First From PayCursor Into @Emp_id,@Emp_name
While (@@Fetch_status ＜＞ -1)
Begin
Insert Into #PayTmp (Emp_id,Emp_name) Values (@Emp_id,@Emp_name)
Fetch First From PayCursor Into @Emp_id,@Emp_name
End
Deallocate PayCursor
Select @Sql_string = "Declare PayCursor Scroll Cursor For Select Emp_id,Subject_no,Pay_sum,Tax_yn,Add_yn from Pay"+substring(@Pay_ym,1,4) +
" Where Up_dn='"+substring(@Pay_ym,5,1)+ "' order by Emp_id"
Exec (@Sql_string)
Open PayCursor
Fetch First From PayCursor Into @Emp_id,@Subject_no,@Pay_sum,@Tax_yn,@Add_yn
While (@@Fetch_status ＜＞ -1)
Begin
Select @Sql_Modi = "Update into #PayTmp Set " + rtrim(@Subject_no) + "= " + convert(varchar,@Pay_sum)+" Where Emp_id='" + @Emp_id + "' "
Exec (@Sql_Modi)
Fetch Next From PayCursor Into @Emp_id,@Subject_no,@Pay_sum,@Tax_yn,@Add_yn
End
Exec (@Rpt_String)
drop table #payTmp
我還是不會轉換form(編號：90)
andylin高手，我還是做不出來，
目前我有幾個text陣列，text1(0),text1(1),text1(2),text1(3)....我有幾個三個目標要完成
第一，我要在text1(0)按下enter之後可以跳到下一個text1(1)
第二，我要在最後一個text1(x)按下enter後可以跳到第二個form
第三，我要在程式一開始時和第二個form出現時，游標會自動停在第
一個text1(0)上。
以下是我的程式內容，請各位高手幫我看看。
--------------------------
在text1_keypress裡
if keyascii=13 then
sendkeys"{tab}"
keyascii=0
end if
if keycode=vbdeyreturn and index=19 then
form2.show
end if
------------------------
在formload中
text1.setfocus
--------------------------
目前我有幾個text陣列，text1(0),text1(1),text1(2),text1(3)....我有幾個三個目標要完成
第一，我要在text1(0)按下enter之後可以跳到下一個text1(1)
第二，我要在最後一個text1(x)按下enter後可以跳到第二個form
第三，我要在程式一開始時和第二個form出現時，游標會自動停在第
一個text1(0)上。
以下是我的程式內容，請各位高手幫我看看。
--------------------------
在text1_keypress裡
if keyascii=13 then
sendkeys"{tab}"
keyascii=0
end if
if keycode=vbdeyreturn and index=19 then
form2.show
end if
------------------------
在formload中
text1.setfocus
--------------------------
關於ListView的StartLabelEdit(編號：87)
我Create了一個ListView1 並設ListView1.View = lvwReport
ListView1.LabelEdit = lvwAutomatic
其中加入了三個ColumnHeaders 第一個為Index，其次為Name及
Number，並在其中加入一些資料。現在我點選了其中一筆資料，我想Edit Name這個SubItem,請問我應該怎麼做??
ListView1.LabelEdit = lvwAutomatic
其中加入了三個ColumnHeaders 第一個為Index，其次為Name及
Number，並在其中加入一些資料。現在我點選了其中一筆資料，我想Edit Name這個SubItem,請問我應該怎麼做??
無法啟動主安裝程式(編號：86)
使用VB6SP3製作好的安裝程式，在其他台WIN95上執行安裝時出現"無法啟動主安裝程式(Create Process()傳回錯誤代碼0X000000C1H)"，而無法順利完成安裝作業，請問是那裡出錯？
快跳樓了: 98開發vb,在95 安裝無法執行,如何解決 .(編號：84)
小弟用98開發vb程式,包裝後在98 系統安裝大致都不會有問題.
但一安裝在95 上就問題百出, 甚至無法執行.
是否移至95 包裝後, 安裝至98及95系統就不會再有類似問題 .
程式已近最後階段.竟卡在安裝上.認為最不會有問題的地方 .
真是欲哭無淚.
但一安裝在95 上就問題百出, 甚至無法執行.
是否移至95 包裝後, 安裝至98及95系統就不會再有類似問題 .
程式已近最後階段.竟卡在安裝上.認為最不會有問題的地方 .
真是欲哭無淚.
如何轉換form(編號：83)
我現在有一陣列text，我要如何做，才能在最後一個陣列如text1(9)上有按下enter之後會出現第二個form的功能。
之前因為不使用陣列所以可以做，但現在改用陣列的方式，我就不知道怎麼做了。
對了！還有在轉換為第二個form的時候，如何做，才可使游標停在第一個text上。
請高手指教。
之前因為不使用陣列所以可以做，但現在改用陣列的方式，我就不知道怎麼做了。
對了！還有在轉換為第二個form的時候，如何做，才可使游標停在第一個text上。
請高手指教。
SQL SERVER如何存中文資料？(編號：82)
1.我用ASP存SQL SERVER ,中文資料存進去變成???,請問如何解決？
我開的是 CHAR , TEXT .
2.另外請問如何存取TIMESTAMP?
我開的是 CHAR , TEXT .
2.另外請問如何存取TIMESTAMP?
DataReport一問(編號：71)
datareport配合dataenvironment
詳細資訊欄內設定一個rpttextbox
此box之值要等於table內兩個欄位相加後的值
可有辦法?thanks...
詳細資訊欄內設定一個rpttextbox
此box之值要等於table內兩個欄位相加後的值
可有辦法?thanks...
VB6封裝部署精靈中如何將所要的資料夾一同封裝進去?(編號：65)
我發現封裝完後的東西只是一些程式要跑時所要用的VB檔案和元件
不包含我所有的form和程式根目錄下所有要用到的資料夾
請問如何才能將資料夾一併封裝進去呢?thanx!
不包含我所有的form和程式根目錄下所有要用到的資料夾
請問如何才能將資料夾一併封裝進去呢?thanx!
如何秀出程式執行內容？(編號：63)
大家好，
我想要做到一個功能，就是我利用一個while迴圈來做某一數值加減的運算
現在我想讓每一次加減後的結果都顯示在form中的label中
我將while迴圈放在form_load中
但執行的結果卻在整個while迴圈做完(也就是數值都加減完了)之後它才顯示出form來(我透過另一form來show出這個form)
我嘗試用delay也不行，它只是delay程式的執行而已
但還是在數值做完運算後才將我要的form顯示出來
請問大家，有什麼方法能夠做到我想要達到的功能呢？
謝謝大家的指導。
我想要做到一個功能，就是我利用一個while迴圈來做某一數值加減的運算
現在我想讓每一次加減後的結果都顯示在form中的label中
我將while迴圈放在form_load中
但執行的結果卻在整個while迴圈做完(也就是數值都加減完了)之後它才顯示出form來(我透過另一form來show出這個form)
我嘗試用delay也不行，它只是delay程式的執行而已
但還是在數值做完運算後才將我要的form顯示出來
請問大家，有什麼方法能夠做到我想要達到的功能呢？
謝謝大家的指導。
給給小吳: 一堆建議!(編號：62)
1.採會員制(採免費會員免得跑掉一堆人), 需先登錄輸入密碼之後才可進入網站!
2.由於有會員登錄資料, 所以發表文章或者回答問題時, 姓名和電郵兩欄就由會員資料自動帶出不可更改, 這樣如果碰到亂來的會員就直接停用該會員上線權利!以保持網站的一定品質!
3.查詢功能: 含發表人、標題與內文的查詢, 將含有查詢字串的問題編號列出一覽表, 以方便閱讀! 同時,有完善的查詢功能也可以減少同樣的問題重複發問好幾次的情形!
4.點選某一編號進入之後的畫面上增加二個按鈕: [下一編號],[上一編號],這樣就可以連續閱讀,就不必來來回目錄區好幾趟, 無形中減少網路不少的流量!
5.下載功能: 可以讓會員自行指定問題編號範圍然後自動打包成檔下載之後再閱讀! 或許打包成檔比較麻煩, 也可以採用將指定的編號範圍內的所有資料回應成一頁顯示, 讓使用者自行以流灠器的[另存新檔]功能自行存檔!
.
以上純屬建議不敢奢求你一定會做出來!
2.由於有會員登錄資料, 所以發表文章或者回答問題時, 姓名和電郵兩欄就由會員資料自動帶出不可更改, 這樣如果碰到亂來的會員就直接停用該會員上線權利!以保持網站的一定品質!
3.查詢功能: 含發表人、標題與內文的查詢, 將含有查詢字串的問題編號列出一覽表, 以方便閱讀! 同時,有完善的查詢功能也可以減少同樣的問題重複發問好幾次的情形!
4.點選某一編號進入之後的畫面上增加二個按鈕: [下一編號],[上一編號],這樣就可以連續閱讀,就不必來來回目錄區好幾趟, 無形中減少網路不少的流量!
5.下載功能: 可以讓會員自行指定問題編號範圍然後自動打包成檔下載之後再閱讀! 或許打包成檔比較麻煩, 也可以採用將指定的編號範圍內的所有資料回應成一頁顯示, 讓使用者自行以流灠器的[另存新檔]功能自行存檔!
.
以上純屬建議不敢奢求你一定會做出來!
關於Round函數的問題(編號：60)
dim a
a=100.5
print Round(a)
則結果為 100
dim a
a=100.52
print Round(a)
則結果為 101
為什麼要多個 0.0幾 才會進位呢??
疑惑............
a=100.5
print Round(a)
則結果為 100
dim a
a=100.52
print Round(a)
則結果為 101
為什麼要多個 0.0幾 才會進位呢??
疑惑............
請連小吳! .MDB可連接使用者的人數限制為何?(編號：59)
.MDB放在NT SERVER上供多人同時使用, 我的程式一進入之後就將.MDB開啟, 直到程式結束才關閉!
請問.MDB同時可讓多少人上線使用? ONLINE HELP說255個! 但是當有8個人進程式時, 後來進程式的人會發生3239的錯誤(太多使用中的使用者)! 為什麼會這樣呢? .MDB的連線人數是如何計算的呢?
PS.NT SERVER為4.0, 25人版本
請問.MDB同時可讓多少人上線使用? ONLINE HELP說255個! 但是當有8個人進程式時, 後來進程式的人會發生3239的錯誤(太多使用中的使用者)! 為什麼會這樣呢? .MDB的連線人數是如何計算的呢?
PS.NT SERVER為4.0, 25人版本
檔案傳輸,用Inet control...的問題(編號：58)
各位好~
小弟我想在網路上傳輸檔案,是使用TCP/IP的通訊協定,所以傳檔就使用FTP,傳的檔案類型有影像檔及文字檔,請問使用Inet這個control有沒有問題??有沒有人有一些經驗可以提供小弟我參考的...謝謝!!
小弟我想在網路上傳輸檔案,是使用TCP/IP的通訊協定,所以傳檔就使用FTP,傳的檔案類型有影像檔及文字檔,請問使用Inet這個control有沒有問題??有沒有人有一些經驗可以提供小弟我參考的...謝謝!!
RPT文件的修改有人知嗎?(編號：55)
你好,..
請問有誰知道用什麼software可以edit 以rpt結尾的文件..?
而visual basic中的crystal report可以嗎? 我試過但要什麼serial number似的,..
delphi可以嗎...我用word來打開它,內容好像是一些procedure來的...
請問我應如何做....thanks..
Alvin
請問有誰知道用什麼software可以edit 以rpt結尾的文件..?
而visual basic中的crystal report可以嗎? 我試過但要什麼serial number似的,..
delphi可以嗎...我用word來打開它,內容好像是一些procedure來的...
請問我應如何做....thanks..
Alvin
如何統一兩部電腦的做字檔?(編號：53)
請問是否有一個程式能100%統一兩部機的中文做字檔呢, 尤其是遠方的E-MAIL來信,試過用明體字有個別差異, 用楷書又會有另一批字有差異,又不知其做字檔的來源, 請幫幫手, 多謝
設定dataenvironment中connection的屬性(編號：52)
在dataenvironment的connection中有一屬性為connectionsource之中的database是必須設為固定路徑(c:\xxx.mdb)，在程式中如何設定為非固定的
新增資料一問?(編號：48)
當我在程式中新增一資料到一個空的資料表時,
完成後用visdata的grid看第一個欄位出現空白,(資料不見了,)
再第二次在程式中增加資料,卻正常了,為什麼呢?
將資料全部delete,再試情形一樣.
我是在visdata建立這個access 7.0資料表.
完成後用visdata的grid看第一個欄位出現空白,(資料不見了,)
再第二次在程式中增加資料,卻正常了,為什麼呢?
將資料全部delete,再試情形一樣.
我是在visdata建立這個access 7.0資料表.
關於Text的問題(編號：39)
大家好，我算是一個VB的新手
想請問大家的是，可以將一個text轉換為integer型態嗎?
我想要讀取text欄位裡面的資料，我是利用其text屬性來取得text欄位的值
但我要利用cint將它轉為integer的時候它回應我"型態錯誤"
請問我這樣做對嗎?
還否有其它方法能夠做到我想要的功能(將text轉為int)呢?
麻煩大家了！謝謝。
想請問大家的是，可以將一個text轉換為integer型態嗎?
我想要讀取text欄位裡面的資料，我是利用其text屬性來取得text欄位的值
但我要利用cint將它轉為integer的時候它回應我"型態錯誤"
請問我這樣做對嗎?
還否有其它方法能夠做到我想要的功能(將text轉為int)呢?
麻煩大家了！謝謝。
另一項建議(編號：37)
站長好:
新的討論區安排的確令人耳目一新，的確很不錯。
:)
小弟在此有個小小建議（除了先前有些人的建議之外），
建議有回應的message能以顏色區隔開(底色為其他顏色）
，則可更容易瀏覽。
新的討論區安排的確令人耳目一新，的確很不錯。
:)
小弟在此有個小小建議（除了先前有些人的建議之外），
建議有回應的message能以顏色區隔開(底色為其他顏色）
，則可更容易瀏覽。
ACCESS 與 VB6(編號：36)
ACCESS 有本身的 WIZARD 使用介面方便...
那在功能 上 VB6 & ACCESS 的 優缺點到底有那些
ACCESS2000 己有 CLIENT/SERVER 功能....
因為 沒摸過ACCESS 客戶也在問....有那些顯著點是 ACCESS
做不到的(除了 COM 以外)
那在功能 上 VB6 & ACCESS 的 優缺點到底有那些
ACCESS2000 己有 CLIENT/SERVER 功能....
因為 沒摸過ACCESS 客戶也在問....有那些顯著點是 ACCESS
做不到的(除了 COM 以外)
如何用vb寫 LED電子看版(編號：32)
上一次我曾問到如何寫LEd跑馬燈,有善心
人士告訴我用記憶體位置的方式,可是我
還是不會也.我主要的功能是要寫一程式
可以連續的Show出某一段文字,而該段文
字可以Show在LED電子看版上,希望知道
的網友可以大力相助,謝謝您.
人士告訴我用記憶體位置的方式,可是我
還是不會也.我主要的功能是要寫一程式
可以連續的Show出某一段文字,而該段文
字可以Show在LED電子看版上,希望知道
的網友可以大力相助,謝謝您.
DBgrid向左捲動的問題?(編號：24)
DBgrid向左捲動的問題?
各為高手大家好：
因為我的Dbgrid欄位太多，看資料時必須向右移動
旦是想把第1、2欄位凍結，不要第1、2欄位跟著捲動
不知如何做？
開發環境 VB5.0 Sp3 + Win95 + Access 97
各為高手大家好：
因為我的Dbgrid欄位太多，看資料時必須向右移動
旦是想把第1、2欄位凍結，不要第1、2欄位跟著捲動
不知如何做？
開發環境 VB5.0 Sp3 + Win95 + Access 97
有關Imagelist問題(編號：22)
請問Imagelist所收納的圖片是否可供Image或Picture等物件使用，若可以，請問Image如何從Imagelist取得想要的圖片；又Imagelist所收納之圖片是否有限制最大為48*48呢？謝謝。
DataGrid中如何增加 comboBox(編號：20)
在 DataGrid中有一選項可以在儲存格(Cell)中增加 comboBox 的物件
請問我要如何增加它的項目選單？
又或者在儲存格中，除了可增加 comboBox 的物件外，是否可增加
其他的物件如 Option ？
請問我要如何增加它的項目選單？
又或者在儲存格中，除了可增加 comboBox 的物件外，是否可增加
其他的物件如 Option ？
給Allen Enter有聲音的問題(編號：19)
今天貼上去
剛好站長又換了討論區
再寫一次
你的程式應該寫在KeyPress才對
也就是
If KeyAscii=13 Then
KeyAscii=0
End If
剛好站長又換了討論區
再寫一次
你的程式應該寫在KeyPress才對
也就是
If KeyAscii=13 Then
KeyAscii=0
End If
關於WebClass設計師(編號：18)
請問
為何當我想使用WebClass設計師時就會出現
(iis或pws必須先安裝才能夠執行WebClass)
但是我已經安裝PWS4.0了!為何還無法執行ㄋ?
誰能回答一下嗎?謝謝
為何當我想使用WebClass設計師時就會出現
(iis或pws必須先安裝才能夠執行WebClass)
但是我已經安裝PWS4.0了!為何還無法執行ㄋ?
誰能回答一下嗎?謝謝
如何關掉其它的程式(編號：17)
我從cww那裡引用了以下的桯式要把某一個程式關閉
結果程式會自動結束,該程式也沒有關閉
我是想做廣告過濾的小程式
有人可以幫我嗎?
我是用NT workstation 4.0 sp6(sp5也是一樣)
vb6 sp3 中文版
Dim winHwnd As Long
Dim winHwnd2 As Long
Dim RetVal As Long
Dim LT As String
LT = List1.Text
winHwnd = FindWindow(vbNullString, LT)
If winHwnd ＜＞ 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "Error posting message."
End If
Else
MsgBox "The Calculator is not open."
End If
結果程式會自動結束,該程式也沒有關閉
我是想做廣告過濾的小程式
有人可以幫我嗎?
我是用NT workstation 4.0 sp6(sp5也是一樣)
vb6 sp3 中文版
Dim winHwnd As Long
Dim winHwnd2 As Long
Dim RetVal As Long
Dim LT As String
LT = List1.Text
winHwnd = FindWindow(vbNullString, LT)
If winHwnd ＜＞ 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "Error posting message."
End If
Else
MsgBox "The Calculator is not open."
End If
新討論區成立(編號：14)
新的討論區成立了。
這是小吳第一支 ASP 的作品，花了 1 天的時間完成的。請大家多多指教。
原來的討論區我會將它歸檔之後，再讓大家下載。若您在這幾天發表文章，煩請您在這個新的討論區中重新再貼一次。不便之處敬請見諒。
舊的討論區我會將它歸檔整理後，於近日放到網站上供大家下載，並提供全文檢索功能。
目前這個討論區功能尚不齊全，因為小吳才剛學 ASP 及 ADO 嘛，如果在寫程式時遇到任何問題，也請網路上的眾高手們多多指導喔!
這是小吳第一支 ASP 的作品，花了 1 天的時間完成的。請大家多多指教。
原來的討論區我會將它歸檔之後，再讓大家下載。若您在這幾天發表文章，煩請您在這個新的討論區中重新再貼一次。不便之處敬請見諒。
舊的討論區我會將它歸檔整理後，於近日放到網站上供大家下載，並提供全文檢索功能。
目前這個討論區功能尚不齊全，因為小吳才剛學 ASP 及 ADO 嘛，如果在寫程式時遇到任何問題，也請網路上的眾高手們多多指導喔!
訂閱：
文章 (Atom)