Hoe to record a sound to the byte() array
提供小吳 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 .
what is Couldn't find installable ISAM???!!!(編號：4917)
hi,
我建立一新專案 form1上配置data1, 和一個DBGrid1 (MS Data Bound Grid Control 5.0 sp3),
data1的Connect屬性為dBASE 5.0; DatabaseName屬性為C:RecordSource屬性為table1(我在c:\中放置一table1.dbf檔)
DBGrid1的DataSource屬性為data1,
執行後會出現"Couldn't find installable ISAM", 請問為何會如此?
我建立一新專案 form1上配置data1, 和一個DBGrid1 (MS Data Bound Grid Control 5.0 sp3),
data1的Connect屬性為dBASE 5.0; DatabaseName屬性為C:RecordSource屬性為table1(我在c:\中放置一table1.dbf檔)
DBGrid1的DataSource屬性為data1,
執行後會出現"Couldn't find installable ISAM", 請問為何會如此?
請幫忙看一下我的程式哪裡有問題？(是不是SQL語法的問題？)(編號：4914)
我的程式如下：
Dim conn As New ADODB.Connection
Dim ConnStr As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\dbf\test.mdb"
conn.Open ConnStr
conn.Execute "Select teachno As 教師代碼,name As 教師姓名,idno As 身份證字號 Into 教師代碼資料表 From [Dbase III;Database=F:\dbf].tchcod.dbf"
結果跑出來卻出現「cannot define field more than once」的訊息！
這是怎麼回事？該怎麼解決？？
是不是SQL語法中用太多個的As呢？
因為我用兩個As時就沒問題，而用三個As時就出現上述的問題！
Dim conn As New ADODB.Connection
Dim ConnStr As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\dbf\test.mdb"
conn.Open ConnStr
conn.Execute "Select teachno As 教師代碼,name As 教師姓名,idno As 身份證字號 Into 教師代碼資料表 From [Dbase III;Database=F:\dbf].tchcod.dbf"
結果跑出來卻出現「cannot define field more than once」的訊息！
這是怎麼回事？該怎麼解決？？
是不是SQL語法中用太多個的As呢？
因為我用兩個As時就沒問題，而用三個As時就出現上述的問題！
請教要如何利用程式發短訊到手機之中(編號：4908)
各位高手請教一下我想寫一支程式,是可以利用網路連線去發短訊到手機中,不知哪裡可以尋找到相關資料,不論是利用lan或是撥接方面的資訊都可以..........
謝謝.....
謝謝.....
可以動態連結資料表嗎?(編號：4907)
我有五個資料表(是非.選擇.填充.問答.計算)
在Form上有五個Option選項,分別代表:是非.選擇.填充.問答.計算
我使用Adodc來連結資料庫...
我如何點到Option1(代表是非),就連結到＜是非＞的資料表?
點到Option2(代表選擇),就連結到＜選擇＞的資料表?
點到Option3(代表填充),就連結到＜填充＞的資料表?
......
可以動態的更改Adodc的RecordSource屬性來連結不同的資料表嗎?
在Form上有五個Option選項,分別代表:是非.選擇.填充.問答.計算
我使用Adodc來連結資料庫...
我如何點到Option1(代表是非),就連結到＜是非＞的資料表?
點到Option2(代表選擇),就連結到＜選擇＞的資料表?
點到Option3(代表填充),就連結到＜填充＞的資料表?
......
可以動態的更改Adodc的RecordSource屬性來連結不同的資料表嗎?
MTS VB(編號：4906)
想知道 MTS 匯出 Package 到 98 後,
再 Delete MTS 中的 Package,
為何程式還可使用如常??
是否我的 Concept 有問題??
因當程式在 98 中進行時,
MTS 中的 Component 沒有看到在旋轉.
煩請指點我的無知!!
再 Delete MTS 中的 Package,
為何程式還可使用如常??
是否我的 Concept 有問題??
因當程式在 98 中進行時,
MTS 中的 Component 沒有看到在旋轉.
煩請指點我的無知!!
程式安裝精靈?????(編號：4905)
以vb5.0應用程式安裝精靈製作一安裝程式
但在開啟crystal report要預覽時,卻出現missing database dll.
crystal 的datasource 是由vfp5.0連線oracle資料庫所產生
程式如下:
RetCode = SQLEXEC(Handle, SQLStrn,'domain_file')
SELECT domain_file
COPY TO &OutName TYPE FOXPLUS
請問各位先進,問題出在那裡?謝謝!!
但在開啟crystal report要預覽時,卻出現missing database dll.
crystal 的datasource 是由vfp5.0連線oracle資料庫所產生
程式如下:
RetCode = SQLEXEC(Handle, SQLStrn,'domain_file')
SELECT domain_file
COPY TO &OutName TYPE FOXPLUS
請問各位先進,問題出在那裡?謝謝!!
Data Environment如何更新(編號：4902)
弟使用Data Environment Command1內容如下
Select * ,底薪 + 津貼 As 總額 From 薪津資料表今天修改了與底薪或津貼連結的資料感知元件內容..可是與總額連結的內容並不會更新..是否是因為沒有Refresh..請問Data Environment..之前有位Alex兄說可用Resync或Requery但我查MSDN Resync似乎要設成批次樂觀時才可用(不知道是不是我誤解了)..而用Requery卻又怪怪的..請問這要如何解決..Command1各屬性:CursorLocation = adUseClint 而CursorType = adOpenDynamic LockType = adLockOptimistic謝謝
Select * ,底薪 + 津貼 As 總額 From 薪津資料表今天修改了與底薪或津貼連結的資料感知元件內容..可是與總額連結的內容並不會更新..是否是因為沒有Refresh..請問Data Environment..之前有位Alex兄說可用Resync或Requery但我查MSDN Resync似乎要設成批次樂觀時才可用(不知道是不是我誤解了)..而用Requery卻又怪怪的..請問這要如何解決..Command1各屬性:CursorLocation = adUseClint 而CursorType = adOpenDynamic LockType = adLockOptimistic謝謝
請問要如何註冊crystl32.ocx...(編號：4901)
vb應用程式己安裝妥當，只要註冊crystl32.ocx..
因為在執行中，出現錯誤訊息：
執行階段錯誤339,元件crystl32.ocx或它的依存檔案並未正確地註冊
因為在執行中，出現錯誤訊息：
執行階段錯誤339,元件crystl32.ocx或它的依存檔案並未正確地註冊
關於 DataEnvironment1.rsXX.Requry 的問題(編號：4899)
請問一下, DataEnvironment1中的 Requry 入使用後
在 DataGrid 的顯示就會不正常,並且無法使用
DataEnvironment1.rsXX.MoveNext or .MovePrevious ..等功能
這是何原因?
在 DataGrid 的顯示就會不正常,並且無法使用
DataEnvironment1.rsXX.MoveNext or .MovePrevious ..等功能
這是何原因?
Val()與資料庫內容的使用(編號：4897)
當開啟一個資料庫後,擷取裡面的資料欄如下例;
Dim jno as Integer
set rs = DataEnvironment1.rsDNS
jno = Val(rs("編號")) ' 編號 = 01
if jno ＞ 0 then
........
....
請問一下, 這樣使用 Val()這個函數成立嗎?
jno 的值會 = 1 嗎?
Dim jno as Integer
set rs = DataEnvironment1.rsDNS
jno = Val(rs("編號")) ' 編號 = 01
if jno ＞ 0 then
........
....
請問一下, 這樣使用 Val()這個函數成立嗎?
jno 的值會 = 1 嗎?
Interface 中的 Event 該如何 Implement ?(編號：4896)
想透過 interface 來 raise event 該如何做呢?
我用單純類別的方式試過 發現若宣告物件時加上 withevents
該物件則無法 set new 如下
Public WithEvents Stupy As IDog 'IDog 為一 interface
:
:
Set Stupy = New CDog 'CDog 為 implement 的 class
會出問題耶
到底該怎麼做?
我用單純類別的方式試過 發現若宣告物件時加上 withevents
該物件則無法 set new 如下
Public WithEvents Stupy As IDog 'IDog 為一 interface
:
:
Set Stupy = New CDog 'CDog 為 implement 的 class
會出問題耶
到底該怎麼做?
Middleware component model(編號：4894)
Hi, 我又上來了, 真是好久不見!
鑽研 JAVA 也有一段時日了, JAVA 為了 cross-platform 而存在, 雖然許多 Win32 的特性在 JDK 裏已大不相同, 不過把它當成 SDK 來用倒也無妨.
最近在研究 EJB 和 CCM, 這是和 MTS 類似的中間層技術, 只是 EJB 和 CCM 的 IDL 不像 MTS 那麼麻煩, 而且元件的穩定性也比較高. study JAVA 到現在還不曾讓程式 or Windows 當過, 用起來的感覺真的和 VB 很不一樣, 只是 JAVA run 起來的速度 "超慢" 就是了!
如果大家有興趣瞭解這三種技術, 可以參考以下網址:
http://www.execpc.com/~gopalan/
它對 EJB, CCM, MTS 都做了相同的範例來比較, 並有詳細解說.
不過如果前後端使用的平台都是 Windows 的話還是用 MTS 開發比較方便, 語言也是.
鑽研 JAVA 也有一段時日了, JAVA 為了 cross-platform 而存在, 雖然許多 Win32 的特性在 JDK 裏已大不相同, 不過把它當成 SDK 來用倒也無妨.
最近在研究 EJB 和 CCM, 這是和 MTS 類似的中間層技術, 只是 EJB 和 CCM 的 IDL 不像 MTS 那麼麻煩, 而且元件的穩定性也比較高. study JAVA 到現在還不曾讓程式 or Windows 當過, 用起來的感覺真的和 VB 很不一樣, 只是 JAVA run 起來的速度 "超慢" 就是了!
如果大家有興趣瞭解這三種技術, 可以參考以下網址:
http://www.execpc.com/~gopalan/
它對 EJB, CCM, MTS 都做了相同的範例來比較, 並有詳細解說.
不過如果前後端使用的平台都是 Windows 的話還是用 MTS 開發比較方便, 語言也是.
如何使用VB修改Access欄位之屬性(編號：4893)
請問如何使用VB程式來修改Access欄位之屬性?
因為我使用過type之屬性，但是不能修改，因為是唯讀檔，不知該如何修改其屬性，不知是否可以告之，謝謝!!
因為我使用過type之屬性，但是不能修改，因為是唯讀檔，不知該如何修改其屬性，不知是否可以告之，謝謝!!
有人用過DBList嗎?(編號：4891)
使用DBList時,在第一次執行時是正常的...
但下一次執行時...
第一筆紀錄都會被蓋掉...
變成其它筆紀錄..
連資料庫內的紀錄也跟著置換...
Why...why...why...
tell me why....
怎麼解決呢?
但下一次執行時...
第一筆紀錄都會被蓋掉...
變成其它筆紀錄..
連資料庫內的紀錄也跟著置換...
Why...why...why...
tell me why....
怎麼解決呢?
再請教資料庫的問題(編號：4887)
各位好：
昨天那位Sean 先生 or 小姐 有教使用 Month 的函數.
如我寫:
X=#2000/5/5#
If Adodc1.Recordset.Fields("日期") = x
它會找出所有2000/5/5的資料,如果我寫:
If Adodc1.Recordset.Fields("日期") =Month(X)
卻找不到任何資料.如 ＞ X，還是 ＜ X都可找出資料,唯獨Month(X)找不到。
請高手再指教,謝謝!
昨天那位Sean 先生 or 小姐 有教使用 Month 的函數.
如我寫:
X=#2000/5/5#
If Adodc1.Recordset.Fields("日期") = x
它會找出所有2000/5/5的資料,如果我寫:
If Adodc1.Recordset.Fields("日期") =Month(X)
卻找不到任何資料.如 ＞ X，還是 ＜ X都可找出資料,唯獨Month(X)找不到。
請高手再指教,謝謝!
如何在VB 6.0中Declare??(編號：4886)
我有一個dll檔包含了下列的VC++ function, 我在VB 6.0要如何宣告使用??煩請各位先進指導一下.
extern "C" __declspec(dllexport) int DloadSDRAM_Header (BYTE *ImgTable)
extern "C" __declspec(dllexport) int DloadSDRAM_Header (BYTE *ImgTable)
如何得知一個常數的值?(編號：4885)
如 MSDN 所列的 SPI_SCREENSAVERRUNNING....等等 ,要如何少能知道這些值 ?? SPI_SCREENSAVERRUNNING = 97 , 但是其他無法知道!!謝謝!
How to get the url that IE has visited?(編號：4883)
From this forum, I know I can activate a IE window like this,
Dim IE as Object
Set IE = CreateObject("InternetExplorer.Application)
IE.Navigate "http://yahoo.com"
But after that, how can I know the URLs that IE has visited?
The attributes like IE.LocationURL didn't work.
Dim IE as Object
Set IE = CreateObject("InternetExplorer.Application)
IE.Navigate "http://yahoo.com"
But after that, how can I know the URLs that IE has visited?
The attributes like IE.LocationURL didn't work.
關於Mask控制項的輸入法(編號：4882)
我是VB新兵,請教一個問題,還望先進指導.在表單上設一個MaskedEdit,以供輸入車牌號碼,因此當駐點在此控制項時須關閉中文輸入,程式碼寫
MaskedEdit.IMEMode=2執行後卻是錯誤,該如何寫才正確?
MaskedEdit.IMEMode=2執行後卻是錯誤,該如何寫才正確?
不接printer而從Printer port傳資料(編號：4878)
我想要在不接Printer的情況下，把資料
從Printer Port傳出去，因為我的專題需
要把資料傳到外部電路，不管是寫寫程式
就可以，或是要接其它的電路，希望各位
高手能幫助我...解決困難....!!!
謝謝...!!!!!!
從Printer Port傳出去，因為我的專題需
要把資料傳到外部電路，不管是寫寫程式
就可以，或是要接其它的電路，希望各位
高手能幫助我...解決困難....!!!
謝謝...!!!!!!
VB5+SP3 Call Store Procedure of SQL Server ! (DAO)(編號：4876)
如何在VB5內用DAO Call SQL Server 6.5+SP4 的Store Procedure,
請各界高手明示，謝謝!
請各界高手明示，謝謝!
DataReport如何設定列印的方式為橫向的?(編號：4874)
煩請各位VB高手
小弟目前有一個問題
就是該如何去將我所要列印的改為橫向的列印方式....
因為我所要的欄位相當的...
所以希望用橫向的方式表示出來....
但不知該用那個物件
希望各方高手相助....
謝謝
小弟目前有一個問題
就是該如何去將我所要列印的改為橫向的列印方式....
因為我所要的欄位相當的...
所以希望用橫向的方式表示出來....
但不知該用那個物件
希望各方高手相助....
謝謝
如何在命令鈕上混合使用多種字型？我想要下箭頭(編號：4872)
如何在命令鈕上混合使用多種字型？就像 word/尋找 裡的「更多v」「格式v」。這裡的 v 是 Marlett 字型的 "9"，就是下箭頭。
請不要告訴我用圖片，因為我的按鈕字型可以自由改變大小，圖片不行。
請不要告訴我用圖片，因為我的按鈕字型可以自由改變大小，圖片不行。
請問有誰能解用3D Studio MAX制成的VRML程式(編號：4871)
不好意思,借寶地一用.
我的問題是:我用3D Studio MAX做了個3D的房子, EXPORT 成 VRML的檔案, 以便在Browser中觀看,可是在browser中我只能遠遠的旆轉房子,而不能走入這個房子, 這是怎麼回事呢?(我的browser是正常的可以瀏覽其它vrml檔案).
或者有誰知道哪里有關于3D Studio MAX和vrml應用的討論區也請告訴小弟, 小弟十萬火急!!
我的問題是:我用3D Studio MAX做了個3D的房子, EXPORT 成 VRML的檔案, 以便在Browser中觀看,可是在browser中我只能遠遠的旆轉房子,而不能走入這個房子, 這是怎麼回事呢?(我的browser是正常的可以瀏覽其它vrml檔案).
或者有誰知道哪里有關于3D Studio MAX和vrml應用的討論區也請告訴小弟, 小弟十萬火急!!
如何將其他資料(如：DBF檔)匯入MDB檔呢？？(編號：4870)
請問一下，我照以下的方法做，可是卻出現「什麼ISAM沒有安裝的問題」，這是為什麼？
因為我是想把某個old.dbf的dbase檔，匯入一個叫test.mdb的檔內，
那是不是要先開啟test.mdb的資料庫，再用SQL語法去匯入呢？
我是這樣寫的：
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim ConnStr As String
Dim SQL As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=F:\dbf\test.mdb"
conn.Open ConnStr
SQL="Select * Into score From [Dbase III;Database=F:\dbf].old.dbf"
conn.Execute SQL
以上哪裡有問題呢？？
我已經照wave說的改過了，怎麼還是有同樣的問題呢？
因為我是想把某個old.dbf的dbase檔，匯入一個叫test.mdb的檔內，
那是不是要先開啟test.mdb的資料庫，再用SQL語法去匯入呢？
我是這樣寫的：
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim ConnStr As String
Dim SQL As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=F:\dbf\test.mdb"
conn.Open ConnStr
SQL="Select * Into score From [Dbase III;Database=F:\dbf].old.dbf"
conn.Execute SQL
以上哪裡有問題呢？？
我已經照wave說的改過了，怎麼還是有同樣的問題呢？
資料庫問題(編號：4869)
各位好：
我寫了一程式想選出所有五月份的資料，請高手改正我的錯誤。
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields("日期") Like #5/1/2000# & "%" Then
s = ""
For I = 0 To Adodc1.Recordset.Fields.Count - 1
s = s & Adodc1.Recordset.Fields(I).Value & vbTab
Next
List1.AddItem s
End If
Adodc1.Recordset.MoveNext
Wend
用move next 方式一一對比找五月的資料.
先在此謝謝!
我寫了一程式想選出所有五月份的資料，請高手改正我的錯誤。
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields("日期") Like #5/1/2000# & "%" Then
s = ""
For I = 0 To Adodc1.Recordset.Fields.Count - 1
s = s & Adodc1.Recordset.Fields(I).Value & vbTab
Next
List1.AddItem s
End If
Adodc1.Recordset.MoveNext
Wend
用move next 方式一一對比找五月的資料.
先在此謝謝!
資料庫問題(編號：4868)
各位好：
我寫了一程式想選出所有五月份的資料，請高手改正我的錯誤。
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields("日期") Like #5/1/2000# & "%" Then
s = ""
For I = 0 To Adodc1.Recordset.Fields.Count - 1
s = s & Adodc1.Recordset.Fields(I).Value & vbTab
Next
List1.AddItem s
End If
Adodc1.Recordset.MoveNext
Wend
用move next 方式一一對比找五月的資料.
先在此謝謝!
我寫了一程式想選出所有五月份的資料，請高手改正我的錯誤。
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields("日期") Like #5/1/2000# & "%" Then
s = ""
For I = 0 To Adodc1.Recordset.Fields.Count - 1
s = s & Adodc1.Recordset.Fields(I).Value & vbTab
Next
List1.AddItem s
End If
Adodc1.Recordset.MoveNext
Wend
用move next 方式一一對比找五月的資料.
先在此謝謝!
Timer控制要怎麼寫才不會和Keydown衝突,我正在寫一個有背景的射(編號：4867)
Public ManTimeNow As Long '記錄人物之前位置
Public ManTimeAfter As Long '記錄人物之後位置
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
ManTimeAfter = ManTimeNow
ManTimeNow = ManTimeNow - 40
If ManTimeNow ＞= 200 Then
LoadPic 0, 40, ManTimeAfter
Else
ManTimeNow = ManTimeNow + 40
End If
Case vbKeyDown
ManTimeAfter = ManTimeNow
ManTimeNow = ManTimeNow + 40
If ManTimeNow ＜= 360 Then
LoadPic 0, 40, ManTimeAfter
Else
ManTimeNow = ManTimeNow - 40
End If
End Select
LoadPic 4, 40, ManTimeAfter
LoadPic 0, 40, ManTimeNow
Form1.PicFkLoad1.Refresh
End Sub
Private Sub Form_Load()
BkData0
BkData1
BkData2
BkData3
ManTimeNow = 280
LoadPic 0, 40, 280 '野狼隊人初值位置
LoadPic 0, 80, 440 '啄木鳥等待
Form1.PicFkLoad1.Refresh
End Sub
Private Sub Timer1_Timer()
v
End Sub
----------------------------
.bas'LoadPic函數功能: 動畫畫面更新顯示於PicFkLoad1.Image
'方法 :(背景暫存頁數,X坐標,Y坐標)
'用Form1.PicFkLoad1.Refresh可一次顯示
Public Function LoadPic(SelectPic As Integer, ByVal ArugnX As Long, ByVal ArugnY As Long)
'代入引數
PicX = ArugnX
PicY = ArugnY
PicSelect = SelectPic
'選擇圖形出現位置
Select Case PicSelect
Case 0 '動物和人物的背景讀取至前景區PicFkLoad0
BitBlt Form1.PicFkLoad0.hdc, 0, 0, PicX + 40, PicY + 40, Form1.PicBkSave0.hdc, PicX, PicY, vbSrcCopy
Case 1 '子彈移動和石頭火燄的背景讀取至前景區PicFkLoad0
BitBlt Form1.PicFkLoad0.hdc, 0, 0, PicX + 40, PicY + 40, Form1.PicBkSave1.hdc, PicX, PicY, vbSrcCopy
Case 2 '子彈爆炸和人物死亡背景讀取至前景區PicFkLoad0
BitBlt Form1.PicFkLoad0.hdc, 0, 0, PicX + 40, PicY + 40, Form1.PicBkSave2.hdc, PicX, PicY, vbSrcCopy
Case 3 '雙方道具背景讀取至前景區PicFkLoad0
BitBlt Form1.PicFkLoad0.hdc, 0, 0, PicX + 40, PicY + 40, Form1.PicBkSave3.hdc, PicX, PicY, vbSrcCopy
Case 4 '消除出現圖形,PicBkSave4為一完整初始背景
BitBlt Form1.PicFkLoad0.hdc, 0, 0, PicX + 40, PicY + 40, Form1.PicBkSave4.hdc, PicX, PicY, vbSrcCopy
End Select
'讀取本次出現圖形和是否消除上次出現圖形
Form1.PicFkLoad0.Refresh
'PicFkLoad1為畫面上真正的前景
BitBlt Form1.PicFkLoad1.hdc, PicX, PicY, 40, 40, Form1.PicFkLoad0.hdc, 0, 0, vbSrcCopy
'回傳新引數
ArugnX = PicX
ArugnY = PicY
SelectPic = PicSelect
End Function
Public Sub v()
bnew1 = 40 * Int(5 * Rnd + 3)
bnew2 = 40 * Int(5 * Rnd + 3)
bnew3 = 40 * Int(5 * Rnd + 3)
bnew4 = 40 * Int(5 * Rnd + 3)
bnew5 = 40 * Int(5 * Rnd + 3)
tp1 = 440
tp2 = 440
tp3 = 440
tp4 = 440
tp5 = 440
'1(x,440)顯示
LoadPic 0, bnew1, tp1
Form1.PicFkLoad1.Refresh
'1(x,440)清除
LoadPic 4, bnew1, tp1
Form1.PicFkLoad1.Refresh
'1(x,400),2(x,440)顯示
tp1 = tp1 - 40
LoadPic 0, bnew1, tp1
LoadPic 0, bnew2, tp2
Form1.PicFkLoad1.Refresh
'1(x,400),2(x,440)清除
LoadPic 4, bnew1, tp1
LoadPic 4, bnew2, tp2
Form1.PicFkLoad1.Refresh
'1(x,360),2(x,400),3(x,440)顯示
tp1 = tp1 - 40
tp2 = tp2 - 40
LoadPic 0, bnew1, tp1
LoadPic 0, bnew2, tp2
LoadPic 0, bnew3, tp3
Form1.PicFkLoad1.Refresh
'1(x,360),2(x,400),3(x,440)清除
LoadPic 4, bnew1, tp1
LoadPic 4, bnew2, tp2
LoadPic 4, bnew3, tp3
Form1.PicFkLoad1.Refresh
'1(x,320),2(x,360),3(x,400),4(x,440)顯示
tp1 = tp1 - 40
tp2 = tp2 - 40
tp3 = tp3 - 40
LoadPic 0, bnew1, tp1
LoadPic 0, bnew2, tp2
LoadPic 0, bnew3, tp3
LoadPic 0, bnew4, tp4
Form1.PicFkLoad1.Refresh
'1(x,320),2(x,360),3(x,400),4(x,440)清除
LoadPic 4, bnew1, tp1
LoadPic 4, bnew2, tp2
LoadPic 4, bnew3, tp3
LoadPic 4, bnew4, tp4
Form1.PicFkLoad1.Refresh
'1(x,280),2(x,320),3(x,360),4(x,400),5(x,440)顯示
tp1 = tp1 - 40
tp2 = tp2 - 40
tp3 = tp3 - 40
tp4 = tp4 - 40
LoadPic 0, bnew1, tp1
LoadPic 0, bnew2, tp2
LoadPic 0, bnew3, tp3
LoadPic 0, bnew4, tp4
LoadPic 0, bnew5, tp5
Form1.PicFkLoad1.Refresh
'1(x,280),2(x,320),3(x,360),4(x,400),5(x,440)清除
LoadPic 4, bnew1, tp1
LoadPic 4, bnew2, tp2
LoadPic 4, bnew3, tp3
LoadPic 4, bnew4, tp4
LoadPic 4, bnew5, tp5
Form1.PicFkLoad1.Refresh
'1(x,240),2(x,280),3(x,320),4(x,360),5(x,400)顯示
tp1 = tp1 - 40
tp2 = tp2 - 40
tp3 = tp3 - 40
tp4 = tp4 - 40
tp5 = tp5 - 40
LoadPic 0, bnew1, tp1
LoadPic 0, bnew2, tp2
LoadPic 0, bnew3, tp3
LoadPic 0, bnew4, tp4
LoadPic 0, bnew5, tp5
Form1.PicFkLoad1.Refresh
'1(x,240),2(x,280),3(x,320),4(x,360),5(x,400)清除
LoadPic 4, bnew1, tp1
LoadPic 4, bnew2, tp2
LoadPic 4, bnew3, tp3
LoadPic 4, bnew4, tp4
LoadPic 4, bnew5, tp5
Form1.PicFkLoad1.Refresh
'1(x,200),2(x,240),3(x,280),4(x,320),5(x,360)顯示
tp1 = tp1 - 40
tp2 = tp2 - 40
tp3 = tp3 - 40
tp4 = tp4 - 40
tp5 = tp5 - 40
LoadPic 0, bnew1, tp1
LoadPic 0, bnew2, tp2
LoadPic 0, bnew3, tp3
LoadPic 0, bnew4, tp4
LoadPic 0, bnew5, tp5
Form1.PicFkLoad1.Refresh
'1(x,200),2(x,240),3(x,280),4(x,320),5(x,360)清除
LoadPic 4, bnew1, tp1
LoadPic 4, bnew2, tp2
LoadPic 4, bnew3, tp3
LoadPic 4, bnew4, tp4
LoadPic 4, bnew5, tp5
Form1.PicFkLoad1.Refresh
'1(x,160),2(x,200),3(x,240),4(x,280),5(x,320)顯示
tp1 = tp1 - 40
tp2 = tp2 - 40
tp3 = tp3 - 40
tp4 = tp4 - 40
tp5 = tp5 - 40
LoadPic 0, bnew1, tp1
LoadPic 0, bnew2, tp2
LoadPic 0, bnew3, tp3
LoadPic 0, bnew4, tp4
LoadPic 0, bnew5, tp5
Form1.PicFkLoad1.Refresh
'1(x,160),2(x,200),3(x,240),4(x,280),5(x,320)清除
LoadPic 4, bnew1, tp1
LoadPic 4, bnew2, tp2
LoadPic 4, bnew3, tp3
LoadPic 4, bnew4, tp4
LoadPic 4, bnew5, tp5
Form1.PicFkLoad1.Refresh
End Sub
Public ManTimeAfter As Long '記錄人物之後位置
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
ManTimeAfter = ManTimeNow
ManTimeNow = ManTimeNow - 40
If ManTimeNow ＞= 200 Then
LoadPic 0, 40, ManTimeAfter
Else
ManTimeNow = ManTimeNow + 40
End If
Case vbKeyDown
ManTimeAfter = ManTimeNow
ManTimeNow = ManTimeNow + 40
If ManTimeNow ＜= 360 Then
LoadPic 0, 40, ManTimeAfter
Else
ManTimeNow = ManTimeNow - 40
End If
End Select
LoadPic 4, 40, ManTimeAfter
LoadPic 0, 40, ManTimeNow
Form1.PicFkLoad1.Refresh
End Sub
Private Sub Form_Load()
BkData0
BkData1
BkData2
BkData3
ManTimeNow = 280
LoadPic 0, 40, 280 '野狼隊人初值位置
LoadPic 0, 80, 440 '啄木鳥等待
Form1.PicFkLoad1.Refresh
End Sub
Private Sub Timer1_Timer()
v
End Sub
----------------------------
.bas'LoadPic函數功能: 動畫畫面更新顯示於PicFkLoad1.Image
'方法 :(背景暫存頁數,X坐標,Y坐標)
'用Form1.PicFkLoad1.Refresh可一次顯示
Public Function LoadPic(SelectPic As Integer, ByVal ArugnX As Long, ByVal ArugnY As Long)
'代入引數
PicX = ArugnX
PicY = ArugnY
PicSelect = SelectPic
'選擇圖形出現位置
Select Case PicSelect
Case 0 '動物和人物的背景讀取至前景區PicFkLoad0
BitBlt Form1.PicFkLoad0.hdc, 0, 0, PicX + 40, PicY + 40, Form1.PicBkSave0.hdc, PicX, PicY, vbSrcCopy
Case 1 '子彈移動和石頭火燄的背景讀取至前景區PicFkLoad0
BitBlt Form1.PicFkLoad0.hdc, 0, 0, PicX + 40, PicY + 40, Form1.PicBkSave1.hdc, PicX, PicY, vbSrcCopy
Case 2 '子彈爆炸和人物死亡背景讀取至前景區PicFkLoad0
BitBlt Form1.PicFkLoad0.hdc, 0, 0, PicX + 40, PicY + 40, Form1.PicBkSave2.hdc, PicX, PicY, vbSrcCopy
Case 3 '雙方道具背景讀取至前景區PicFkLoad0
BitBlt Form1.PicFkLoad0.hdc, 0, 0, PicX + 40, PicY + 40, Form1.PicBkSave3.hdc, PicX, PicY, vbSrcCopy
Case 4 '消除出現圖形,PicBkSave4為一完整初始背景
BitBlt Form1.PicFkLoad0.hdc, 0, 0, PicX + 40, PicY + 40, Form1.PicBkSave4.hdc, PicX, PicY, vbSrcCopy
End Select
'讀取本次出現圖形和是否消除上次出現圖形
Form1.PicFkLoad0.Refresh
'PicFkLoad1為畫面上真正的前景
BitBlt Form1.PicFkLoad1.hdc, PicX, PicY, 40, 40, Form1.PicFkLoad0.hdc, 0, 0, vbSrcCopy
'回傳新引數
ArugnX = PicX
ArugnY = PicY
SelectPic = PicSelect
End Function
Public Sub v()
bnew1 = 40 * Int(5 * Rnd + 3)
bnew2 = 40 * Int(5 * Rnd + 3)
bnew3 = 40 * Int(5 * Rnd + 3)
bnew4 = 40 * Int(5 * Rnd + 3)
bnew5 = 40 * Int(5 * Rnd + 3)
tp1 = 440
tp2 = 440
tp3 = 440
tp4 = 440
tp5 = 440
'1(x,440)顯示
LoadPic 0, bnew1, tp1
Form1.PicFkLoad1.Refresh
'1(x,440)清除
LoadPic 4, bnew1, tp1
Form1.PicFkLoad1.Refresh
'1(x,400),2(x,440)顯示
tp1 = tp1 - 40
LoadPic 0, bnew1, tp1
LoadPic 0, bnew2, tp2
Form1.PicFkLoad1.Refresh
'1(x,400),2(x,440)清除
LoadPic 4, bnew1, tp1
LoadPic 4, bnew2, tp2
Form1.PicFkLoad1.Refresh
'1(x,360),2(x,400),3(x,440)顯示
tp1 = tp1 - 40
tp2 = tp2 - 40
LoadPic 0, bnew1, tp1
LoadPic 0, bnew2, tp2
LoadPic 0, bnew3, tp3
Form1.PicFkLoad1.Refresh
'1(x,360),2(x,400),3(x,440)清除
LoadPic 4, bnew1, tp1
LoadPic 4, bnew2, tp2
LoadPic 4, bnew3, tp3
Form1.PicFkLoad1.Refresh
'1(x,320),2(x,360),3(x,400),4(x,440)顯示
tp1 = tp1 - 40
tp2 = tp2 - 40
tp3 = tp3 - 40
LoadPic 0, bnew1, tp1
LoadPic 0, bnew2, tp2
LoadPic 0, bnew3, tp3
LoadPic 0, bnew4, tp4
Form1.PicFkLoad1.Refresh
'1(x,320),2(x,360),3(x,400),4(x,440)清除
LoadPic 4, bnew1, tp1
LoadPic 4, bnew2, tp2
LoadPic 4, bnew3, tp3
LoadPic 4, bnew4, tp4
Form1.PicFkLoad1.Refresh
'1(x,280),2(x,320),3(x,360),4(x,400),5(x,440)顯示
tp1 = tp1 - 40
tp2 = tp2 - 40
tp3 = tp3 - 40
tp4 = tp4 - 40
LoadPic 0, bnew1, tp1
LoadPic 0, bnew2, tp2
LoadPic 0, bnew3, tp3
LoadPic 0, bnew4, tp4
LoadPic 0, bnew5, tp5
Form1.PicFkLoad1.Refresh
'1(x,280),2(x,320),3(x,360),4(x,400),5(x,440)清除
LoadPic 4, bnew1, tp1
LoadPic 4, bnew2, tp2
LoadPic 4, bnew3, tp3
LoadPic 4, bnew4, tp4
LoadPic 4, bnew5, tp5
Form1.PicFkLoad1.Refresh
'1(x,240),2(x,280),3(x,320),4(x,360),5(x,400)顯示
tp1 = tp1 - 40
tp2 = tp2 - 40
tp3 = tp3 - 40
tp4 = tp4 - 40
tp5 = tp5 - 40
LoadPic 0, bnew1, tp1
LoadPic 0, bnew2, tp2
LoadPic 0, bnew3, tp3
LoadPic 0, bnew4, tp4
LoadPic 0, bnew5, tp5
Form1.PicFkLoad1.Refresh
'1(x,240),2(x,280),3(x,320),4(x,360),5(x,400)清除
LoadPic 4, bnew1, tp1
LoadPic 4, bnew2, tp2
LoadPic 4, bnew3, tp3
LoadPic 4, bnew4, tp4
LoadPic 4, bnew5, tp5
Form1.PicFkLoad1.Refresh
'1(x,200),2(x,240),3(x,280),4(x,320),5(x,360)顯示
tp1 = tp1 - 40
tp2 = tp2 - 40
tp3 = tp3 - 40
tp4 = tp4 - 40
tp5 = tp5 - 40
LoadPic 0, bnew1, tp1
LoadPic 0, bnew2, tp2
LoadPic 0, bnew3, tp3
LoadPic 0, bnew4, tp4
LoadPic 0, bnew5, tp5
Form1.PicFkLoad1.Refresh
'1(x,200),2(x,240),3(x,280),4(x,320),5(x,360)清除
LoadPic 4, bnew1, tp1
LoadPic 4, bnew2, tp2
LoadPic 4, bnew3, tp3
LoadPic 4, bnew4, tp4
LoadPic 4, bnew5, tp5
Form1.PicFkLoad1.Refresh
'1(x,160),2(x,200),3(x,240),4(x,280),5(x,320)顯示
tp1 = tp1 - 40
tp2 = tp2 - 40
tp3 = tp3 - 40
tp4 = tp4 - 40
tp5 = tp5 - 40
LoadPic 0, bnew1, tp1
LoadPic 0, bnew2, tp2
LoadPic 0, bnew3, tp3
LoadPic 0, bnew4, tp4
LoadPic 0, bnew5, tp5
Form1.PicFkLoad1.Refresh
'1(x,160),2(x,200),3(x,240),4(x,280),5(x,320)清除
LoadPic 4, bnew1, tp1
LoadPic 4, bnew2, tp2
LoadPic 4, bnew3, tp3
LoadPic 4, bnew4, tp4
LoadPic 4, bnew5, tp5
Form1.PicFkLoad1.Refresh
End Sub
Plz help!(編號：4862)
Private Sub Form_Initialize()
Please take a look:
____________________________________________________________
x = InputBox("Password Albert", "Guess what your password it!!!", "Enter it here")
If x ＜＞ abc Then
MsgBox "wrong password!!!", vbCritical
Else
Form1.Visible = True
End If
End Sub
____________________________________________________________
But the password is still wrong when I type abc!!!.What's wrong???
Please take a look:
____________________________________________________________
x = InputBox("Password Albert", "Guess what your password it!!!", "Enter it here")
If x ＜＞ abc Then
MsgBox "wrong password!!!", vbCritical
Else
Form1.Visible = True
End If
End Sub
____________________________________________________________
But the password is still wrong when I type abc!!!.What's wrong???
如何將其他資料(如：DBF檔)匯入MDB檔呢？？(編號：4861)
請問一下，我照以下的方法做，可是卻出現「什麼ISAM沒有安裝的問題」，這是為什麼？
因為我是想把某個old.dbf的dbase檔，匯入一個叫test.mdb的檔內，
那是不是要先開啟test.mdb的資料庫，再用SQL語法去匯入呢？
我是這樣寫的：
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim ConnStr As String
Dim SQL As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=F:\dbf\test.mdb"
conn.Open ConnStr
SQL="Select * Into score From [DbaseIII;Database=F:\dbf].old.dbf"
conn.Execute SQL
以上哪裡有問題呢？？
因為我是想把某個old.dbf的dbase檔，匯入一個叫test.mdb的檔內，
那是不是要先開啟test.mdb的資料庫，再用SQL語法去匯入呢？
我是這樣寫的：
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim ConnStr As String
Dim SQL As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=F:\dbf\test.mdb"
conn.Open ConnStr
SQL="Select * Into score From [DbaseIII;Database=F:\dbf].old.dbf"
conn.Execute SQL
以上哪裡有問題呢？？
可不可以更詳細的說明修改regedit的方法(編號：4859)
最近是看了一個有關這問題的範例~~但因為它是一次都用到(包括讀取~寫入~刪除)~~使得我看不太懂~~所以想看看有誰知道一次只教一種的範例ㄋ???謝謝~~
對不起, 因沒人回答, 再發表一次! (MTS 匯出 PAK 到 98 的問題)(編號：4858)
當 MTS 匯出 PAK 到 98 之後,
98 從新啟動後, 出現 Setupapi.dll 的 error,
及 powrprof.dll 的 error,
VB Program 更不能 Create Object.
請各大高手拍點!!!
98 從新啟動後, 出現 Setupapi.dll 的 error,
及 powrprof.dll 的 error,
VB Program 更不能 Create Object.
請各大高手拍點!!!
有誰能幫幫我 ? 使用inet 去 get 檔案的問題?(編號：4857)
1 .我用inet去get檔案時 , 為什麼有時抓得到,有時抓不到? 如何判斷有沒有get 到?
2 . 若get的目的檔案已存在 , 為何不會覆寫? 要加什麼參數嗎?
2 . 若get的目的檔案已存在 , 為何不會覆寫? 要加什麼參數嗎?
如何在執行階段設定Menu的快速鍵??(編號：4855)
如何在執行階段設定Menu的快速鍵 (非&A,&B....,&1,&2....等)
如: F1,F2...,Shift+F1...,Ctrl+A...等(顯示在下拉Menu的最右邊)
如: F1,F2...,Shift+F1...,Ctrl+A...等(顯示在下拉Menu的最右邊)
快轟掉了~~~~~幫幫我啊~~~~~~~~~~~(編號：4849)
快轟掉了~~~~~幫幫我啊~~~~~~~~~~~
下面的第一個問題真是快把我搞瘋了~~ 那位好心人士幫幫我吧~~
1.我在登陸資料庫中加上以下幾行機碼, 以便讓使用者能夠雙擊 .ccc 檔案時
執行我的 CCC.exe 程式, 並開啟 .ccc 檔案
REGEDIT4
[HKEY_CLASSES_ROOT\.ccc]
@="CCC_File"
[HKEY_CLASSES_ROOT\CCC_File]
@="CCC 檔案"
[HKEY_CLASSES_ROOT\CCC_File\DefaultIcon]
@="D:\\Program files\\CCC\\CCC.exe,0"
[HKEY_CLASSES_ROOT\CCC_File\shell]
@="open"
[HKEY_CLASSES_ROOT\CCC_File\shell\open]
@="開啟舊檔(&O)"
[HKEY_CLASSES_ROOT\CCC_File\shell\open\command]
@="D:\\Program files\\CCC\\CCC.exe %1"
但是問題來了：
在 VB 中可以擷取 "Command" (即 "命令列引數")
用以得知使用者按下的這個 .ccc 檔案的路徑 (即 "%1" 參數)
可是這檔案的路徑卻不是長檔名!?!?!?$#@! ??
(即原本的 "C:\My Documents\新增CCC檔案.ccc" 變成 "C:\MYDOCU~1\新增CC~1.CCC")
拜託喂呀!!! VB 既然是 for win9x 的東東為什麼還會有不支援長檔名的情形出現啊??? 真是受不了耶
雖然這樣依然可以正確的開啟檔案, 而且路徑不會錯誤
可是我需要這段路徑的文字, 好讓我在程式中顯示出來給使用者看,
這樣使用者看到的不就很怪了嗎!!
那位好心人士救救我啊~~~~
2.VB 中「"Text" = "text"」回傳的是 False
如何讓 VB 不區分大小寫呢? 也就是 "aBcdEFG" 要等於 "ABCdefg"
3.在編譯成 .exe 檔時, 如何能砍入兩個以上的圖示(icon)呢?
像 EXCEL.EXE 就有 13 個圖示, WINWORD.EXE 有 8 個圖示
麻煩寄e-mail告訴我, 謝謝!
下面的第一個問題真是快把我搞瘋了~~ 那位好心人士幫幫我吧~~
1.我在登陸資料庫中加上以下幾行機碼, 以便讓使用者能夠雙擊 .ccc 檔案時
執行我的 CCC.exe 程式, 並開啟 .ccc 檔案
REGEDIT4
[HKEY_CLASSES_ROOT\.ccc]
@="CCC_File"
[HKEY_CLASSES_ROOT\CCC_File]
@="CCC 檔案"
[HKEY_CLASSES_ROOT\CCC_File\DefaultIcon]
@="D:\\Program files\\CCC\\CCC.exe,0"
[HKEY_CLASSES_ROOT\CCC_File\shell]
@="open"
[HKEY_CLASSES_ROOT\CCC_File\shell\open]
@="開啟舊檔(&O)"
[HKEY_CLASSES_ROOT\CCC_File\shell\open\command]
@="D:\\Program files\\CCC\\CCC.exe %1"
但是問題來了：
在 VB 中可以擷取 "Command" (即 "命令列引數")
用以得知使用者按下的這個 .ccc 檔案的路徑 (即 "%1" 參數)
可是這檔案的路徑卻不是長檔名!?!?!?$#@! ??
(即原本的 "C:\My Documents\新增CCC檔案.ccc" 變成 "C:\MYDOCU~1\新增CC~1.CCC")
拜託喂呀!!! VB 既然是 for win9x 的東東為什麼還會有不支援長檔名的情形出現啊??? 真是受不了耶
雖然這樣依然可以正確的開啟檔案, 而且路徑不會錯誤
可是我需要這段路徑的文字, 好讓我在程式中顯示出來給使用者看,
這樣使用者看到的不就很怪了嗎!!
那位好心人士救救我啊~~~~
2.VB 中「"Text" = "text"」回傳的是 False
如何讓 VB 不區分大小寫呢? 也就是 "aBcdEFG" 要等於 "ABCdefg"
3.在編譯成 .exe 檔時, 如何能砍入兩個以上的圖示(icon)呢?
像 EXCEL.EXE 就有 13 個圖示, WINWORD.EXE 有 8 個圖示
麻煩寄e-mail告訴我, 謝謝!
MaskedEdit的IMEmode(編號：4848)
我是VB新兵,請教一個問題,還望先進指導.在表單上設一個MaskedEdit,以供輸入車牌號碼,因此當駐點在此控制項時須關閉中文輸入,程式碼寫
MaskedEdit.IMEMode=2執行後卻是錯誤該如何寫才正確?
MaskedEdit.IMEMode=2執行後卻是錯誤該如何寫才正確?
Listview支援Unicode嗎?(編號：4847)
因為要試著把一些Unicode文字填到Listview中
但是在Win98下失敗了(在Win2000下是正常的)
有沒有人知道這個問題能不能解決?
有API呼叫可以用嗎?
但是在Win98下失敗了(在Win2000下是正常的)
有沒有人知道這個問題能不能解決?
有API呼叫可以用嗎?
如何寫一個類似這樣的跟馬燈!!(編號：4845)
一個物件從左到右(或右到左),然後碰到form1的左邊時,會彈回來
一點點,然後又會去碰form1的左邊..(以此類推).直到靜止為止..
這樣說好像有點不清楚....舉個例子好了!!
就像你拿個籃球把籃球從高往下丟..籃球會
碰到地面,而反彈離開地面,籃球離開地面後
過一會兒又會碰到地面.....直到靜為止
我要說的就是這個意思..
一點點,然後又會去碰form1的左邊..(以此類推).直到靜止為止..
這樣說好像有點不清楚....舉個例子好了!!
就像你拿個籃球把籃球從高往下丟..籃球會
碰到地面,而反彈離開地面,籃球離開地面後
過一會兒又會碰到地面.....直到靜為止
我要說的就是這個意思..
請問如何將其他資料匯入MDB檔呢？？(編號：4844)
請問一下，我照以下的方法做，可是卻出現「什麼ISAM沒有安裝的問題」，這是為什麼？
因為我是想把某個old.dbf的dbase檔，匯入一個叫test.mdb的檔內，
那是不是要先開啟test.mdb的資料庫，再用SQL語法去匯入呢？
我是這樣寫的：
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim ConnStr As String
Dim SQL As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=F:\dbf\test.mdb"
conn.Open ConnStr
SQL="Select * Into score From [DbaseIII;Database=F:\dbf].old.dbf"
conn.Execute SQL
以上哪裡有問題呢？？
因為我是想把某個old.dbf的dbase檔，匯入一個叫test.mdb的檔內，
那是不是要先開啟test.mdb的資料庫，再用SQL語法去匯入呢？
我是這樣寫的：
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim ConnStr As String
Dim SQL As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=F:\dbf\test.mdb"
conn.Open ConnStr
SQL="Select * Into score From [DbaseIII;Database=F:\dbf].old.dbf"
conn.Execute SQL
以上哪裡有問題呢？？
還是VB套用Word表格問題(編號：4843)
對不起再打擾各位啦...
如果我在VB中引用Access的資料庫查詢出
Master/Detal 的資料錄,並且也在Word中
畫好要印的表格模式,請問一下該如何將
該資料錄填入Word的表格中?
我的資料錄有主/子資料 主資料在報表格
式中是表頭,子資料是明細(有多筆)
如果我在VB中引用Access的資料庫查詢出
Master/Detal 的資料錄,並且也在Word中
畫好要印的表格模式,請問一下該如何將
該資料錄填入Word的表格中?
我的資料錄有主/子資料 主資料在報表格
式中是表頭,子資料是明細(有多筆)
怎樣順利地利用陣列型態當作傳回值??(編號：4841)
Dear all,我有個有關"陣列"和"傳值"的問題想要請教大家。我的目的大概是這樣==＞想令數個全域變數能共同使用於多個程序與函數內，一開始想到要使用陣列當成引述傳遞到某函式內做運算後，再將運算結果設計成陣列傳會呼叫該函式的程序中，而這樣的過程必須迴圈相當的次數。經過指點，才將程式更改成下列這樣，但在function A傳值回來到find()時卻出現了錯誤,錯誤訊息如下:
dim X as integer,Y as integer
sub find()
dim info() as variant
dim flag as integer
X=0
Y=0
do while flag＜5
info = A(X,Y)
X=info(0) ＜==偵錯後說我此處'型態不符'
Y=info(1)
flag=flag+1
loop
end sub
function A(ParamArray all_data() as variant) as variant
data1=all_data(0)
data2=all_data(1)
data1=data1+1
data2=data2+2
all_data=array(data1.data2)
end function
不知我在傳回值的使用和設計上是否有誤?當初想利用'陣列型態'傳遞引數是考量到傳遞的引數很多,但現在我已經放棄這樣的傳遞方式,但是在傳回至呼叫該函式的程序時(function A的傳回值我是想要用陣列型態傳回),於指定變數值的地方還是出了錯,能否煩請各位高手指教,謝謝!! :) p.s.我使用的是VBA ,ACCESS2000
dim X as integer,Y as integer
sub find()
dim info() as variant
dim flag as integer
X=0
Y=0
do while flag＜5
info = A(X,Y)
X=info(0) ＜==偵錯後說我此處'型態不符'
Y=info(1)
flag=flag+1
loop
end sub
function A(ParamArray all_data() as variant) as variant
data1=all_data(0)
data2=all_data(1)
data1=data1+1
data2=data2+2
all_data=array(data1.data2)
end function
不知我在傳回值的使用和設計上是否有誤?當初想利用'陣列型態'傳遞引數是考量到傳遞的引數很多,但現在我已經放棄這樣的傳遞方式,但是在傳回至呼叫該函式的程序時(function A的傳回值我是想要用陣列型態傳回),於指定變數值的地方還是出了錯,能否煩請各位高手指教,謝謝!! :) p.s.我使用的是VBA ,ACCESS2000
請教如何撥放資源檔存在的.avi檔(編號：4840)
假設 test.rc 中有下列描述
//VIDEO
401 VIDEO TEST1.AVI
製成 test.res
Dim aviDat() As Byte
avidat = LoadResData(401, "VIDEO")
是否如此將檔案載入;若是,我當如何才能將它撥放出來.
若不是則又當如何才能將它撥放出來.
敬請先進指點.
//VIDEO
401 VIDEO TEST1.AVI
製成 test.res
Dim aviDat() As Byte
avidat = LoadResData(401, "VIDEO")
是否如此將檔案載入;若是,我當如何才能將它撥放出來.
若不是則又當如何才能將它撥放出來.
敬請先進指點.
如何叫醒區域網路上處於省電狀態的電腦螢幕呢?(編號：4838)
我希望可以從本地電腦把區域網路上的一台電腦的螢幕從省電模式中叫醒(那台電腦只有螢幕省電裝置，沒有睡眠或待命)。WINDOWS的工作排程可以做到，但我要能夠不定時叫醒
請問vb的dll(編號：4835)
請問一下
假設我要用.dll檔來做一個程式
譬如: 有四個參數
X , Y , text ,數值
假設: 座標:(3,4) 的一個字為 A
(10,20) 的一個字 為BC
(100,70) 的一個字為 DEF
我如果想查出所在的位置數值
譬如: 查出為一個值 (3,10,100)
或者為 (4,20,70)
也就是我在表單的格子輸入什麼
他便會幫我查出說
請問一下..該如何寫他的程式碼..因為我是用vb所做的
希望高手可以為我解答..可以直接回到我的信箱
d8750088@ms42.hinet.net
謝謝~~
假設我要用.dll檔來做一個程式
譬如: 有四個參數
X , Y , text ,數值
假設: 座標:(3,4) 的一個字為 A
(10,20) 的一個字 為BC
(100,70) 的一個字為 DEF
我如果想查出所在的位置數值
譬如: 查出為一個值 (3,10,100)
或者為 (4,20,70)
也就是我在表單的格子輸入什麼
他便會幫我查出說
請問一下..該如何寫他的程式碼..因為我是用vb所做的
希望高手可以為我解答..可以直接回到我的信箱
d8750088@ms42.hinet.net
謝謝~~
如何將BMAP陣列顯示在IMAGE or PICTURE 上(編號：4833)
固定的BMAP HEAD,BMAP 調色盤,(例 256色,8bit 代表1PIXEl,256色灰階值色調色盤,2048 pixel寬,10 pixel高),每次更新2048 data,然後show 在image or picture object上,不須由FILE 讀取BMAP DATA.
vinoza看這(編號：4832)
為什麼你的mail server不收我的信啊...
第一次檔案太大被退件,第二次第三次...沒理由還是被退件..
怪...怪....
算了,如果你有看到這篇的話
到webhd.com.tw登入後可以下載icon編輯軟體
帳號密碼都是xgtshared...
7/29 8:04 PM
第一次檔案太大被退件,第二次第三次...沒理由還是被退件..
怪...怪....
算了,如果你有看到這篇的話
到webhd.com.tw登入後可以下載icon編輯軟體
帳號密碼都是xgtshared...
7/29 8:04 PM
利用Data Environment 如何執行Commit動作(編號：4831)
原先程式
db.BeginTrans
db.Execute SQL
db.CommitTrans
dbrec.Requery
db.BeginTrans
db.Execute SQL
db.CommitTrans
dbrec.Requery
程式變的很慢(編號：4830)
我一直不知道如何分辨form與MDIform之分別,因此一個專案全部用form
的方式寫,至少有10個form,其中form之切換就使用show,unload方式做處理,在vb環境下程式沒有問題,但經過封裝後執行,速度卻慢的離譜,不知其原因如何,是不是因為我有呼叫通訊埠的關係
的方式寫,至少有10個form,其中form之切換就使用show,unload方式做處理,在vb環境下程式沒有問題,但經過封裝後執行,速度卻慢的離譜,不知其原因如何,是不是因為我有呼叫通訊埠的關係
百資linux6.4裡有visual basic ???(編號：4828)
百資6.4裡有visual basic ???(在百資的網頁下看到的)
寫出來的程式可以在win下面跑嗎!
或者只能在linux下面跑!!
請有用過的人說一下好用嗎??
不過在linux 下寫程式我想都沒有想過，如果是真的，那就真的太好了。
寫出來的程式可以在win下面跑嗎!
或者只能在linux下面跑!!
請有用過的人說一下好用嗎??
不過在linux 下寫程式我想都沒有想過，如果是真的，那就真的太好了。
無法執行程式(編號：4827)
我在VB6上寫程式執行時沒問題,但是經過編譯為.EXE時卻無法正常動作請問有那些原因造成,另外所謂VB封裝精靈是指那一個程式,不知我的VB
裡面有沒有,何處可DOWNLOAD
裡面有沒有,何處可DOWNLOAD
HTMLHelp 的左選單變調了...(編號：4826)
我到台灣微軟首頁瀏覽, 看到 VBScrpit 5.5 開放下載, 興沖沖的抓下來安裝, 根據下載網頁說明, 必須先安裝 HTMLHelp 1.32 , 就依指示先安裝至HTMLHelp 1.31 在升級至 HTMLHelp 1.32, 最後安裝 VBScript 5.5 ! 現在所有 HTML Help 的說明檔, 內容那一邊的所有文字都變成日文了... 無法閱讀瀏覽!!
暫時先這樣
我先將 IE5 的日文支援及簡體中文支援拿掉, 並進安全模式將 MSSong.ttf 字型刪除, 總算可以用中文瀏覽, 不過有點像 DC (裝置環境) 預設的 System Font , 矮肥短的中文字實在很醜, 我猜應該可以用機碼把它設回 "新細明體" 吧? 是否有人能處理嗎?
ps. 我安裝的皆為繁體中文版, OS:Win98SE IE:5.002919.6307IC
暫時先這樣
我先將 IE5 的日文支援及簡體中文支援拿掉, 並進安全模式將 MSSong.ttf 字型刪除, 總算可以用中文瀏覽, 不過有點像 DC (裝置環境) 預設的 System Font , 矮肥短的中文字實在很醜, 我猜應該可以用機碼把它設回 "新細明體" 吧? 是否有人能處理嗎?
ps. 我安裝的皆為繁體中文版, OS:Win98SE IE:5.002919.6307IC
請問新增資料....(編號：4825)
請問....為什麼在T_id及T_name其屬性中設定datasourec=adodc1，
datafield=id、name，就無法順利的新增資料，而不設定就行呢？？
以下是程式片段
Private Sub C_add_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset("id") = T_id.Text
Adodc1.Recordset("name") = T_name.Text
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub
datafield=id、name，就無法順利的新增資料，而不設定就行呢？？
以下是程式片段
Private Sub C_add_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset("id") = T_id.Text
Adodc1.Recordset("name") = T_name.Text
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub
如何使Mdi中的子form的X鈕無效！(編號：4824)
諸位好:
小弟有一事想請教:如果是一般的form，只要使用APi就可以使form上的X鈕無效，但一旦form的midchild=true時，則原本所使用的方法就無效了，不知是否有方法可以使子form的X鈕無效呢？
謝謝您！
小弟有一事想請教:如果是一般的form，只要使用APi就可以使form上的X鈕無效，但一旦form的midchild=true時，則原本所使用的方法就無效了，不知是否有方法可以使子form的X鈕無效呢？
謝謝您！
請問如何用vb6來寫出使用16位元編輯寫入檔案和記憶體?(編號：4823)
請問要如何用vb6寫出可以以16位元進制寫入資料到檔案(指定位置)及記憶體位置??? 可用來作Patch及Trainer程式.
幫幫忙.........急!! Data Report(編號：4821)
我使用vb6中的data report製作報表，我想在報表的每一頁顯示出當頁各筆數金額的加總並轉成中文(壹、貳.....)。
但產生結果每頁印出的卻是最後一頁加總的金額???。
但產生結果每頁印出的卻是最後一頁加總的金額???。
有關Word套表列印的問題(編號：4818)
請問一下各位, 如要以VB 來控制Word套表列印,除了單筆列印外
能否像類似印出貨單一般在內容中也可以列印出多筆的明細
Ex:
出貨單號:1234567 客戶:XXX
出貨日期:89/01/01
=========================================================
編 號 品 名 數量 單價 小計
=========================================================
12345 西瓜 3 12.4 37.2
23456 鳳梨 2 10.0 20.0
34567 蘋果 1 5.0 5.0
.....
...
..
如同上面的例子, 在Word的裡面,可以達成嗎? (ps:表格我沒畫出來)
另外;有關vb引用Word 來做套表的方式,除了紀先生的網站有一範例
外,哪邊還有相關的資料?或書籍可參考?
能否像類似印出貨單一般在內容中也可以列印出多筆的明細
Ex:
出貨單號:1234567 客戶:XXX
出貨日期:89/01/01
=========================================================
編 號 品 名 數量 單價 小計
=========================================================
12345 西瓜 3 12.4 37.2
23456 鳳梨 2 10.0 20.0
34567 蘋果 1 5.0 5.0
.....
...
..
如同上面的例子, 在Word的裡面,可以達成嗎? (ps:表格我沒畫出來)
另外;有關vb引用Word 來做套表的方式,除了紀先生的網站有一範例
外,哪邊還有相關的資料?或書籍可參考?
如何使open file 的dialog box 只有folder 選項(編號：4817)
如何使open file 的dialog box 只有folder 選項不要有files
就像第一次執行outlook express讓user選email的folder
及winamp裡的play list之"ADD" Add Dir
它們都不是從c:\ or D:\往下展開,而是從[桌面]往下展開
就像第一次執行outlook express讓user選email的folder
及winamp裡的play list之"ADD" Add Dir
它們都不是從c:\ or D:\往下展開,而是從[桌面]往下展開
請問如何在DataGrid中的欄位,預先填入可供選擇的多筆資料列?(編號：4814)
在access之下作出的資料表,經由vb6的資料表精靈作出資料表frm,但該frm的DataGrid內欄位無法建立在access中已經由查閱精靈建立的多項可選擇資料,請問如何在該frm之中的欄位,填入可選擇的多筆資料列?
如何讓滑鼠移label時顏色有變.......(編號：4812)
如何讓滑鼠移label時顏色有變,而離開時顏色又回到起初的顏色...
如何讓滑鼠移label時滑鼠變成手指,而離開時滑鼠又回到起初的預設值...
如何讓滑鼠移label時滑鼠變成手指,而離開時滑鼠又回到起初的預設值...
再問DataGrid(編號：4811)
欲在DataGrid中修改某欄位資料後於更新前, 作檢核動作, 卻始終抓不到該欄位修改後的值.
寫法如下 :
Private Sub DataGrid1_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
txt1 = Adodc1.Recordset.Fields(0).Value
End Sub
Ex:修改前='A', 修改後='B', 但txt1卻一直都是'A'
若於AfterColUpdate事件才作檢核, 已來不及資料庫已被更改,
請大家幫幫忙. 謝謝!
寫法如下 :
Private Sub DataGrid1_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
txt1 = Adodc1.Recordset.Fields(0).Value
End Sub
Ex:修改前='A', 修改後='B', 但txt1卻一直都是'A'
若於AfterColUpdate事件才作檢核, 已來不及資料庫已被更改,
請大家幫幫忙. 謝謝!
再問DataGrid(編號：4810)
欲在DataGrid中修改某欄位資料後於更新前, 作檢核動作, 卻始終抓不到該欄位修改後的值.
寫法如下 :
Private Sub DataGrid1_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
txt1 = Adodc1.Recordset.Fields(0).Value
End Sub
Ex:修改前='A', 修改後='B', 但txt1卻一直都是'A'
若於AfterColUpdate事件才作檢核, 已來不及資料庫已被更改,
請大家幫幫忙. 謝謝!
寫法如下 :
Private Sub DataGrid1_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
txt1 = Adodc1.Recordset.Fields(0).Value
End Sub
Ex:修改前='A', 修改後='B', 但txt1卻一直都是'A'
若於AfterColUpdate事件才作檢核, 已來不及資料庫已被更改,
請大家幫幫忙. 謝謝!
Sorry, 想問問HTML 的Table 如何強迫太長的字串中斷到下一行?(編號：4809)
＜table＞＜tr＞＜td＞WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
＜/rd＞＜/tr＞
＜/table＞
當＜td＞ 內的字串是連續時, Netscape 或IE 都會將它視為同一個字串而不將它分拆到下一行.
原因是沒有space 作字碼的分隔. 但當中英日文都有可能輸入的情況下, 又不能夠計算字碼去加入空格.
請問有什麼辦法能強迫作分拆?
抱歉.... 是個跟VB 沒關係的問題...
＜/rd＞＜/tr＞
＜/table＞
當＜td＞ 內的字串是連續時, Netscape 或IE 都會將它視為同一個字串而不將它分拆到下一行.
原因是沒有space 作字碼的分隔. 但當中英日文都有可能輸入的情況下, 又不能夠計算字碼去加入空格.
請問有什麼辦法能強迫作分拆?
抱歉.... 是個跟VB 沒關係的問題...
感謝網友們對快碼加編1.1的建議與鼓勵(編號：4805)
感謝網友們對快碼加編1.1的建議與鼓勵，謝謝您們。快碼加編1.2已推出，已使用過1.0版或1.1版的使用者均可試用14天，立即體驗快碼加編1.2的成長與進步吧。
快碼加編 1.2
網址： http://www.infotool.com.tw/
快碼加編 1.2
網址： http://www.infotool.com.tw/
有沒有人會用Crystal Reports 的web 列印的功能?(編號：4804)
如題，小弟想讓人能在WEB上列印資料，有沒人使用過Crystal Reports 的web 列印的功能，要如何使用????
API(編號：4801)
short UnlockPassword(unsogned char *inputStr, unsigned char *unlockKey)
the buffer size of inpustr and unlockey are both 7 bytes.
請問用vb api 呼叫怎麼宣告..怎麼使用＞??
the buffer size of inpustr and unlockey are both 7 bytes.
請問用vb api 呼叫怎麼宣告..怎麼使用＞??
MTS 匯出 98 出現問題(編號：4799)
當 MTS 匯出 PAK 到 98 之後,
98 從新啟動後, 出現 Setupapi.dll 的 error,
及 powrprof.dll 的 error,
VB Program 更不能 Create Object.
請各大高手拍點!!!
98 從新啟動後, 出現 Setupapi.dll 的 error,
及 powrprof.dll 的 error,
VB Program 更不能 Create Object.
請各大高手拍點!!!
Data Environment 如何新增一筆資料(編號：4796)
請問...我用Connection.rsCommand1.AddNew
Connection.rsCommand1.Update為何都會出錯呢...
甚至只要改變資料感知元件的內容後一移動資料錄就會發生錯誤...請問有那本書有在教ADO的關聯式資料庫ㄚ.!?..謝謝
Connection.rsCommand1.Update為何都會出錯呢...
甚至只要改變資料感知元件的內容後一移動資料錄就會發生錯誤...請問有那本書有在教ADO的關聯式資料庫ㄚ.!?..謝謝
關於DATAREPORT的問題???....急(編號：4795)
為什麼在執行DATAREPORT後,會產生一個*.LDB的檔案,使得我報表產生後便要關閉程式,再重新執行一次,這是怎樣的原因呢?...還是我的mdb檔有問題呢??
如何將自己程式的捷徑加入Windows的快顯功能表?(編號：4794)
我想將自己的程式如同WinZip一般,當開機後即可自動執行,成為背景的侍服程式,icon顯示於右下角的工作列上,進一步,此捷徑也加入了window98
windowNT的右鍵快顯功能表中,我該如何做呢 ?或者我該去哪裡找資料呢?我用VB6.0,sp4
windowNT的右鍵快顯功能表中,我該如何做呢 ?或者我該去哪裡找資料呢?我用VB6.0,sp4
ASP程式可以使用客戶端的API嗎?(編號：4792)
我想寫一個互動的資料庫ASP...
可是在客戶端的資料取得上並非單純的user輸入..
而是必須引用另一客戶端的CAD應用程式(SolidWorks)
的物件API來取得其中的資料回存至遠端資料庫..
請問這樣的架構可能實現嗎?How?
tks!!
可是在客戶端的資料取得上並非單純的user輸入..
而是必須引用另一客戶端的CAD應用程式(SolidWorks)
的物件API來取得其中的資料回存至遠端資料庫..
請問這樣的架構可能實現嗎?How?
tks!!
Access可作遠端資料庫伺服器嗎?(編號：4790)
我再改一個前人的程式...
是以Access作本機資料庫,利用DAO物件操作...
現在要把此系統改為主從式的資料庫應用程式..
請問Access是否可作遠端資料庫伺服器?
若可,使用VB寫應用程式（非ASP)應如何連結?
使用何種資料庫物件操作為佳?
謝謝!
是以Access作本機資料庫,利用DAO物件操作...
現在要把此系統改為主從式的資料庫應用程式..
請問Access是否可作遠端資料庫伺服器?
若可,使用VB寫應用程式（非ASP)應如何連結?
使用何種資料庫物件操作為佳?
謝謝!
有關ActiveForm and MDIForm子表單(編號：4789)
小弟想存下MDI程式子表單內的資料, 使用ActiveForm來確認儲存的表單. 可是問題來了. 如果現在沒有任何子表單. 將導致錯誤發生. 請問我該如何得知現在程式執行中沒有任何子表單?
DataGrid按鍵問題(編號：4786)
1. 新增一筆資料後, 便發覺無法再使用刪除鍵刪除資料, 必須退出程式再進入才可使用
2. 修改某欄位資料後, ↑↓←→鍵便無效, 只能用Tab鍵移動
3. 如何block多筆資料一次進行刪除
謝謝!
2. 修改某欄位資料後, ↑↓←→鍵便無效, 只能用Tab鍵移動
3. 如何block多筆資料一次進行刪除
謝謝!
如何使用AddNew的方法在DataEnviroment設計的資料庫(編號：4784)
一個form中的三個控制項(TextBox)是由DataEnviroment拖曳產生,新增一個CommandButton在此Form中,並在其中的ButtonClick的事件中寫了
DataEnviroment1.rsBookSales.AddNew
可是當執行時,按下CommandButton郤無法新增一筆資料,
請問原因何在?Thanks
DataEnviroment1.rsBookSales.AddNew
可是當執行時,按下CommandButton郤無法新增一筆資料,
請問原因何在?Thanks
關於Delphi(編號：4780)
sorry 小弟寫了個關於Delphi 相關的討論區，提供給各位
新進及前輩一個討論及指導空間，歡迎各位同好有空來
指導一番
進入後點選左邊功能表的書本圖示，即會展開
點選程式語言區的書本圖示後選擇delphi 即可進入delphi專區
謝謝指導~~
曾也在此學習過vb的 jeff 留... ^^
http://www7.ewebcity.com/andrewx/
新進及前輩一個討論及指導空間，歡迎各位同好有空來
指導一番
進入後點選左邊功能表的書本圖示，即會展開
點選程式語言區的書本圖示後選擇delphi 即可進入delphi專區
謝謝指導~~
曾也在此學習過vb的 jeff 留... ^^
http://www7.ewebcity.com/andrewx/
抽籤問題(編號：4778)
vb版本:6.0,win98,office2000,service pack4.0
我的抽籤程式的中籤條件如下登錄資料至100筆,要有3-5個號碼中籤2.同一申請人登錄達30筆才要中籤一次...且每一筆資料都要存至資料庫,請問要如何處理.......tks...
我的抽籤程式的中籤條件如下登錄資料至100筆,要有3-5個號碼中籤2.同一申請人登錄達30筆才要中籤一次...且每一筆資料都要存至資料庫,請問要如何處理.......tks...
資料庫的疑問(編號：4774)
Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
S = ""
For i = 0 To Adodc1.Recordset.Fields.Count - 1
S = S & Adodc1.Recordset.Fields(i).Value & Chr(vbKeyTab)
Next
List1.AddItem S
Adodc1.Recordset.MoveNext
Wend
End Sub
執行後會顯示每一筆資料的每一項
但在S = S &.............中
若我將 S & 拿掉的話他會在ListBox中顯示每一筆資料的最後一項
S = "" 有何作用呢???
為甚麼會造成這樣的結果呢???
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
S = ""
For i = 0 To Adodc1.Recordset.Fields.Count - 1
S = S & Adodc1.Recordset.Fields(i).Value & Chr(vbKeyTab)
Next
List1.AddItem S
Adodc1.Recordset.MoveNext
Wend
End Sub
執行後會顯示每一筆資料的每一項
但在S = S &.............中
若我將 S & 拿掉的話他會在ListBox中顯示每一筆資料的最後一項
S = "" 有何作用呢???
為甚麼會造成這樣的結果呢???
About DataGrid的樣式(編號：4773)
DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
好像要Click DataGrid才有效,如何做到一Show資料即出現效果。
好像要Click DataGrid才有效,如何做到一Show資料即出現效果。
複製檔案時遇到密碼問題(編號：4771)
Copy Folder A to Folder B ,Folder B是 share 因此有密碼問題
使用Copyfile會出現詢問密碼的視窗,如何做才能解決此問題.Ths.
使用Copyfile會出現詢問密碼的視窗,如何做才能解決此問題.Ths.
想請問那裡可以找到VB 錯誤訊息的解釋或書呢?(編號：4768)
各位高手，在撰寫程式時，不知你們碰到的有錯誤訊息大都如何解決呢，因為VB 翻譯的有時候很奇怪耶!像informix 即有一本解釋錯誤訊息的書，不知VB有無這方面的資訊呢?
如何 附加 資料於欄位中(編號：4766)
請問...為什麼只有int型態的欄位才能作"附加"這個動作呢？
其他的只能＞＞＞覆蓋.... ＜每次都錯在第二行處 *＞
是程式的錯誤嗎？？ ps.資料庫是 mysql ........
Private Sub Command_Click()
*Adodc1.Recordset("bb") = Adodc1.Recordset("bb") & T8.Text
Adodc1.Recordset.Update
Adodc1.Refresh
Adodc1.Recordset.Requery
end sub
其他的只能＞＞＞覆蓋.... ＜每次都錯在第二行處 *＞
是程式的錯誤嗎？？ ps.資料庫是 mysql ........
Private Sub Command_Click()
*Adodc1.Recordset("bb") = Adodc1.Recordset("bb") & T8.Text
Adodc1.Recordset.Update
Adodc1.Refresh
Adodc1.Recordset.Requery
end sub
求救!! 執行階段錯誤(編號：4764)
執行階段錯誤 '-2147221164(80040154)':沒有登記的Class.
後來我安裝了DCOM98, 錯誤訊息變成 "元件沒有正確地註冊"
不知道那裡出了問題??
有裝vb的pc都可以跑, 沒裝vb的pc都會有問題!!!
是小弟少裝了什麼嗎??
後來我安裝了DCOM98, 錯誤訊息變成 "元件沒有正確地註冊"
不知道那裡出了問題??
有裝vb的pc都可以跑, 沒裝vb的pc都會有問題!!!
是小弟少裝了什麼嗎??
從ProcessID如何得知其hwnd(編號：4763)
用shell起動一程式,如pid=shell("c:\pe2.exe",vbNormalFocus),要呼叫那一個api才能得知其所對應視窗代碼hwnd,亦即從pid求得hwnd?
難題(編號：4762)
各位好：
請教一個問題，使用Adodc 及Datagrid開啟資料.
如果目前資料: A * (-0.05) ＜= B ＜=A * 0.05.
請教該如何寫
請教高手給一點意見。(這是作業問題.)
謝謝!
請教一個問題，使用Adodc 及Datagrid開啟資料.
如果目前資料: A * (-0.05) ＜= B ＜=A * 0.05.
請教該如何寫
請教高手給一點意見。(這是作業問題.)
謝謝!
請問一個資料庫的問題(編號：4761)
Dim sB As String
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source= C:\Documents and Settings\Administrator\桌面\db1.mdb"
cn.Open
Set rs = New ADODB.Recordset
'rs.Open "hardnews", cn, adOpenStatic, adLockOptimistic
Set rs = cn.Execute("Select * From news")
rs.AddNew
rs("Data") = Text1.text
rs.Update
我要增加一筆資料到資料庫中
物件或提供者無法執行要求的動作..
到 rs.Addnew 就中斷了
請問要怎樣才能加入一筆資料到資料庫中呢?
謝謝解答!!~
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source= C:\Documents and Settings\Administrator\桌面\db1.mdb"
cn.Open
Set rs = New ADODB.Recordset
'rs.Open "hardnews", cn, adOpenStatic, adLockOptimistic
Set rs = cn.Execute("Select * From news")
rs.AddNew
rs("Data") = Text1.text
rs.Update
我要增加一筆資料到資料庫中
物件或提供者無法執行要求的動作..
到 rs.Addnew 就中斷了
請問要怎樣才能加入一筆資料到資料庫中呢?
謝謝解答!!~
請問如何設定鍵盤上的快速鍵叫出快速功能表??急!!(編號：4759)
請問在Form中,用Menu Editor做了一個隱藏性的Popup功能表,如果要在除了mouse右鍵之外,要令鍵盤上的application鍵也能叫出這個popup,請問它的KeyCode應該是哪一個?謝謝!!
在TextBox中要如才會自動斷行呢???(編號：4758)
我現在有一個Command Button 和 TextBox
當我按下Command Button時會出現5句話
同時顯示一句話後會自動跳到第二行繼續顯示第二句話
要如何做呢???
當我按下Command Button時會出現5句話
同時顯示一句話後會自動跳到第二行繼續顯示第二句話
要如何做呢???
VB查.mdb一定要安裝Access才可以用嗎？(編號：4757)
最近我寫了VB查詢Access檔案功能程式，在沒有Access機器上安裝我的程式結果不能執行，然而安裝Access後就可以，我的問題是有沒有其他辦法不安裝Access也可以執行我的程式。
#if...#End ???(編號：4756)
我在看Setup1的原始碼，看到
#If SMS Then
If gfSMS Then
ExitSetup frmSetup1, gintRET_FATAL
End If
#End If
請問:
在if前加上 # 和不加有何分別呢???
曾看MSDN裡的說明~不過不清楚所表達的````
#If SMS Then
If gfSMS Then
ExitSetup frmSetup1, gintRET_FATAL
End If
#End If
請問:
在if前加上 # 和不加有何分別呢???
曾看MSDN裡的說明~不過不清楚所表達的````
鍵盤、IME 中文輸入及字型 ( Bug O_Q... )(編號：4754)
www.hosp.ncku.edu.tw/~cww/main.htm#鍵盤、IME 中文輸入及字型
上述網址中 " 鍵盤、IME 中文輸入及字型 =＞ 其他IME程式範例"
在這個程式中, [ 選第三字 ] 不能選出來可以幫我看一下原始碼
PS : 這是在中文輸入選字列表的 API 函式
( ImmGetCandidateList ) 中有問題
,我看過 API 的文件但不知如何使用.
上述網址中 " 鍵盤、IME 中文輸入及字型 =＞ 其他IME程式範例"
在這個程式中, [ 選第三字 ] 不能選出來可以幫我看一下原始碼
PS : 這是在中文輸入選字列表的 API 函式
( ImmGetCandidateList ) 中有問題
,我看過 API 的文件但不知如何使用.
如何依序輸入Text Box,後再檢查資料(編號：4753)
讓user 一次輸入一個text_box後然後檢查資料是否存在?
例如 1.PART001 ? -------
2.PART002 ? -------
3.PART003 ? -------
例如 1.PART001 ? -------
2.PART002 ? -------
3.PART003 ? -------
請教FRAME(編號：4752)
在FRAME中插入PICTURE1時,移動整個FRAME時,自然會將PICTURE1一起移動,但若此時用覆製PICTURE1,成為PICTURE2時同樣放在FRAME中,卻無法將PICTURE2帶動,WHY????
請問如何讓MSChart不要自動改變X軸長度(編號：4751)
請問如何讓MSChatr在XY散佈途中可以改變X軸的大小而不改變它所顯示的長度嗎？就好像用picturebox一樣可以改變scalewidth而不改變大小!謝謝
How to get OS version?(編號：4748)
I use EWin98. I want to get OS version. For example, Get English Windows 98 in EWin98, Get Chinese Windows 98 in CWin98. What kind of functions I can use and how to use?
MSComm problem!(編號：4747)
I use Binary mode to receive data. But I lost some receive_event. For example, I sent 12 bytes data. In receive end, I only got 3 receive events, not 12 receive events. I use English VB6.0 professional version and EWin98 OS.
請問 MS Winsock 控制項 如何寄出附加檔案(編號：4746)
請問 MS Winsock 控制項
該如何寄出附加檔案
他應該是 data 中的那一個 field
目前我只可以寄出一般信件給To,CC,BCC
但該如何插入附加檔案.
該如何寄出附加檔案
他應該是 data 中的那一個 field
目前我只可以寄出一般信件給To,CC,BCC
但該如何插入附加檔案.
救救我!!! 封裝問題!!! msftqws.pdw\(DLLSelfRegisterEx) 找不(編號：4745)
我遇到一個問題, 我是用VB6.0在win98環境寫的. 用到office access mdb的檔案.也是封裝好後setup快完成時出現,之後就反安裝了...
the file 'c:\windows\temp\msftqws.pdw\$(DLLSelfRegisterEx)' could not be registered because it was not found.
the file 'c:\windows\temp\msftqws.pdw\$(DLLSelfRegisterEx)' could not be registered because it was not found.
用了AXDOC 後 IE5.5 無法另開新視窗(編號：4744)
我使用 VB6SP4，Win98/Win2000，IE5.5。在裝IE5.5之前都正常。
裝了IE5.5之後，本來也可以另開新視窗的，但在建立ActiveX Document後，除非是事先開啟瀏覽器，否則不管是啟動元件或以下面的URL啟動瀏覽器，都會出現「無法啟動 Internet Explorer。」的訊息而無法啟動。
在這之後，IE裡面除了「檔案-新增-視窗」以外，也變得無法開新視窗了，重開機也無效。包括連結上按右鍵選「在新視窗開啟」與＜a href="" target="_blank"＞是完全無反應，而 window.open 會出現下列視窗：
發生 Runtime Error。
錯誤:被呼叫者(伺服器[不是伺服應用程式])無法取得或已消失; 所有連接均無效。呼叫未執行。
不曉得是IE5.5的問題還是VB6SP4的問題？是否有人有遇過？如何解決？謝謝。
裝了IE5.5之後，本來也可以另開新視窗的，但在建立ActiveX Document後，除非是事先開啟瀏覽器，否則不管是啟動元件或以下面的URL啟動瀏覽器，都會出現「無法啟動 Internet Explorer。」的訊息而無法啟動。
在這之後，IE裡面除了「檔案-新增-視窗」以外，也變得無法開新視窗了，重開機也無效。包括連結上按右鍵選「在新視窗開啟」與＜a href="" target="_blank"＞是完全無反應，而 window.open 會出現下列視窗：
發生 Runtime Error。
錯誤:被呼叫者(伺服器[不是伺服應用程式])無法取得或已消失; 所有連接均無效。呼叫未執行。
不曉得是IE5.5的問題還是VB6SP4的問題？是否有人有遇過？如何解決？謝謝。
請問ASP有沒有人數上的問題(編號：4743)
請問各位:
使用ASP在開發網頁時..
會不會有人數一多整個Server就變成很慢的情形..
例如說:我的asp程式要去call store procedure,可是 Sql server
執行完大概需要5分鐘的時間,那如果這段期間內有Internet User
要連上web server會不會造成web server的反應突然變很慢????
使用ASP在開發網頁時..
會不會有人數一多整個Server就變成很慢的情形..
例如說:我的asp程式要去call store procedure,可是 Sql server
執行完大概需要5分鐘的時間,那如果這段期間內有Internet User
要連上web server會不會造成web server的反應突然變很慢????
關於報表列印？(編號：4740)
我想請問如何直接將CRYSTAL REPORT 產生的結果印到印表機，而不會先秀在螢幕上，請各位高手提供高見，謝謝!!我用的是CRYSTAL REPORT7.0
,VB6.0
,VB6.0
如何得知 欄位 資訊 ? (註解 , 型態 , 長度 .....等)(編號：4739)
如何以 coding(vb) 或任何方法得知 Access-Table 中 "欄位" 資訊 ? (註解 , 型態 , 長度 .....等) 敬請各路先進點撥 謝謝
為何不能匯出？(編號：4738)
Shell "Regedit /E /S D:\VB5.reg HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\5.0\RecentFiles" 為何不能匯出登錄檔？
如何動態改變adodc上的資料庫連屬性!(編號：4736)
請問一下，如果原先的adodc控制項中的connnectionstring已經寫死在
控制項屬性中，但是今天如果要改變connectionstring的內容的話，有沒有什麼較好的方法。因為我們在Form_initialize的事件中，重設一次但是執行時還是會出現error message!!謝謝!!
控制項屬性中，但是今天如果要改變connectionstring的內容的話，有沒有什麼較好的方法。因為我們在Form_initialize的事件中，重設一次但是執行時還是會出現error message!!謝謝!!
一個dbgrid的小問題...(編號：4734)
With DataFind
If Not .Recordset.RecordCount = 0 Then
For DBGridFind.Bookmark = 1 To .Recordset.RecordCount
DBGridFind.Columns("單位").Text = rs產品(IIf(.Recordset.Fields("單位"), "單位一", "單位二")).Value
Next
End If
End With
我想讓單位這一行的值如果是true就是單位一false就是單位二
可是如果不加上for...next他就只有第一行會改變
加上了卻又產生錯誤...該怎麼辦呢??
If Not .Recordset.RecordCount = 0 Then
For DBGridFind.Bookmark = 1 To .Recordset.RecordCount
DBGridFind.Columns("單位").Text = rs產品(IIf(.Recordset.Fields("單位"), "單位一", "單位二")).Value
Next
End If
End With
我想讓單位這一行的值如果是true就是單位一false就是單位二
可是如果不加上for...next他就只有第一行會改變
加上了卻又產生錯誤...該怎麼辦呢??
如何 coding(VB) 或以任何方法得知 Access-Table 中所有 欄位 的(編號：4732)
如何 coding(VB) 或以任何方法得知 Access-Table 中所有 "欄位" 的相關資訊 ? ( 註解 , 長度... 等)
敬請各路先進點撥 謝謝
敬請各路先進點撥 謝謝
如何連結SQL server ,並建立Table(編號：4728)
我是使用VB6.0專業版，作業系統為win98，請問我該如何連結至另一台NT系統的SQL server並動態建立資料庫表單及欄位，還有如何把文字資料轉入至該所屬欄位中，目前小弟我只會把它轉入Access，煩請各位告知，謝謝。再請問是否有專門介紹VB與SQL的書籍，可否介紹一兩本給小弟參考，謝謝。
MaskedEdit控制項問題...(編號：4724)
有一個關於MaskedEdit的問題想請教大家...!
我使用MaskedEdit連結ACCESS資料庫
但是在下達ADODC.Recordset.Update時..資料並沒有
寫入資料庫中..(如果移動資料錄的話就會寫入)
而下達Adodc.RecordSet.Delete雖然已被刪除可是
那筆資料卻還留在畫面上...就算移開再移回也還是看
得到(我已下了Adodc.Refresh),除非離開程式再執行
那筆資料錄才會消失
而下達Adodc.Recordset.CancelUpdate剛剛修改的內容
卻都還留在畫面上(此時移動資料錄便會將改變存入資料庫中)
...這到底是為什麼ㄚ.?!
另外還有一個問題就是..有無辦法可以讓MaskEdBox的Text包含遮罩ㄚ..
因為MASK設定9999/99/99如果輸入2000/07/25
可是MaskEdBox的Text內容會是200000725但在Access的日期欄位裡必須
要有/日期分隔符號才可以ㄟ..!!可是我又不想用FormattedText屬性
請各位幫忙一下囉...
我使用MaskedEdit連結ACCESS資料庫
但是在下達ADODC.Recordset.Update時..資料並沒有
寫入資料庫中..(如果移動資料錄的話就會寫入)
而下達Adodc.RecordSet.Delete雖然已被刪除可是
那筆資料卻還留在畫面上...就算移開再移回也還是看
得到(我已下了Adodc.Refresh),除非離開程式再執行
那筆資料錄才會消失
而下達Adodc.Recordset.CancelUpdate剛剛修改的內容
卻都還留在畫面上(此時移動資料錄便會將改變存入資料庫中)
...這到底是為什麼ㄚ.?!
另外還有一個問題就是..有無辦法可以讓MaskEdBox的Text包含遮罩ㄚ..
因為MASK設定9999/99/99如果輸入2000/07/25
可是MaskEdBox的Text內容會是200000725但在Access的日期欄位裡必須
要有/日期分隔符號才可以ㄟ..!!可是我又不想用FormattedText屬性
請各位幫忙一下囉...
資料壓縮後,VB的程式可以讀,可是Access 97不能讀.(編號：4722)
怎麼辦?我用ado 2.5, 程式碼如下, Access 為97. jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db1.mdb, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db2.mdb" ';Jet OLEDB:Engine Type=5"
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db2.mdb" ';Jet OLEDB:Engine Type=5"
Crystal Report 4.6 mdb版如何直接升級抓取SQLsever的資料?(編號：4721)
原本用Crystal Report 4.6抓取mdb資料庫的資料,現在將用SQL7.0將TABLE 轉入,請問如何改變Crystal Report的參數就可以抓到SQLsever的資料?
如何偵測使用者在word編輯文章時, 把字打進去(編號：4720)
as title...
我是使用addin, 想要做類似word裡面拼字檢查的功能,
也就是使用者在word編輯時, 程式可以自動針對前面的句子做檢查,
我是想要找有沒有類似keypress這種event,但..
目前我找到的event都只有mouseclick, 或是selectionchange
等event, 想問一下這要怎麼做, 或是我的方向錯誤了???
我用的是vb6, 開發add-in針對word2000
我是使用addin, 想要做類似word裡面拼字檢查的功能,
也就是使用者在word編輯時, 程式可以自動針對前面的句子做檢查,
我是想要找有沒有類似keypress這種event,但..
目前我找到的event都只有mouseclick, 或是selectionchange
等event, 想問一下這要怎麼做, 或是我的方向錯誤了???
我用的是vb6, 開發add-in針對word2000
sql問題.....(編號：4716)
MYSQL = "SELECT 銷貨單號,產品編號,單位,數量,單價,小計 FROM 進貨單細目 WHERE 產品編號 = '" & DBGridSUB.Columns("CARGOID").Text & "'" & _
"AND 銷貨單號 IN (SELECT 單號 AS 銷貨單號 FROM 進貨單 WHERE 廠商編號 = '" & TextCUSID.Text & "') " & _
"ORDER BY 銷貨單號"
這樣的sql為什麼會有錯誤呢
我是要把以前進貨單調出來作為進貨單的一個對照表
可是就是不行
"AND 銷貨單號 IN (SELECT 單號 AS 銷貨單號 FROM 進貨單 WHERE 廠商編號 = '" & TextCUSID.Text & "') " & _
"ORDER BY 銷貨單號"
這樣的sql為什麼會有錯誤呢
我是要把以前進貨單調出來作為進貨單的一個對照表
可是就是不行
關於 Crystal Report 4.6 !(編號：4715)
Table1 structure;
uid char(10);
amount currency;
有100筆資料,每一版只能顯示10筆資料
請問各位;
如何在第一頁的底部(Page footer)顯示第一頁的Total Amount;
在第二頁的底部顯示累積這兩頁的Total Amount;
...
如此類推將所有資料顯示出來!
如何設定請賜教!
謝謝!
uid char(10);
amount currency;
有100筆資料,每一版只能顯示10筆資料
請問各位;
如何在第一頁的底部(Page footer)顯示第一頁的Total Amount;
在第二頁的底部顯示累積這兩頁的Total Amount;
...
如此類推將所有資料顯示出來!
如何設定請賜教!
謝謝!
有關開啟 DBF 檔(編號：4713)
請教各位:使用ADO建立 connection 後(dbf),在開啟recordset時要如何指定所用之index 檔(*.CDX),因為不用index 時在搜尋時非常慢.
DataGrid 的 DataSource 如何連接 ?(編號：4712)
各位先進:
我在 Form 上放置了 DataGrid 元件一個 , 並作了以下的程式,
可是在 DataGrid 中無法顯示資料,請教各位問題出在那裡 ?
Private Sub Form_Load()
dim ado_cn as adodc.connection
dim ado_rs as adodc.recordset
Set ado_cn = New ADODB.Connection
Set ado_rs = New ADODB.Recordset
ado_cn.Open connstr
sqlstr = "SELECT * FROM tireuser ORDER BY user_no"
ado_rs.Open sqlstr, ado_cn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = ado_rs
End Sub
p.s. 我確定 ado_rs 已成功的取得資料庫的內容, 因為我用 TextBox 元件可看到資料內容正確無誤.
我在 Form 上放置了 DataGrid 元件一個 , 並作了以下的程式,
可是在 DataGrid 中無法顯示資料,請教各位問題出在那裡 ?
Private Sub Form_Load()
dim ado_cn as adodc.connection
dim ado_rs as adodc.recordset
Set ado_cn = New ADODB.Connection
Set ado_rs = New ADODB.Recordset
ado_cn.Open connstr
sqlstr = "SELECT * FROM tireuser ORDER BY user_no"
ado_rs.Open sqlstr, ado_cn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = ado_rs
End Sub
p.s. 我確定 ado_rs 已成功的取得資料庫的內容, 因為我用 TextBox 元件可看到資料內容正確無誤.
ado資料更新問題.........(編號：4711)
請問為什麼只能輸入個30字左右呢？再多就發生錯誤了耶~~~
但access資料庫欄位設定是可輸入100字左右的呢!!
另... 想要附加的話.. 就是欄位之前的東東不要被覆蓋，該如何作呢？
Adodc1.Recordset("aa") = text1.text ＜＜＜＜＜＜ 於此有錯誤嗎？
Adodc1.Recordset.Update
Adodc1.Refresh
但access資料庫欄位設定是可輸入100字左右的呢!!
另... 想要附加的話.. 就是欄位之前的東東不要被覆蓋，該如何作呢？
Adodc1.Recordset("aa") = text1.text ＜＜＜＜＜＜ 於此有錯誤嗎？
Adodc1.Recordset.Update
Adodc1.Refresh
vb的終端機...(編號：4709)
請問一下...如果我用vb+MScomm的控制項..寫的出來
像windows-HyperTermianl的程式嗎？！我只需要跟
Com做溝通...有人可以指點一下嗎!?
像windows-HyperTermianl的程式嗎？！我只需要跟
Com做溝通...有人可以指點一下嗎!?
DBgrid錯誤(編號：4706)
請教高手
我原先設計的資料庫連結dbgrid是ok的
自從我更改了Access欄位裡的允許空字串改成"是"
之後卻在執行中data move 就會出現
DBgrid錯誤
資料轉換型態錯誤
而後我再度將更改了Access欄位裡的允許空字串改成"否"
同樣的錯誤
我不知道是哪裡有問題
請給我點蛛絲馬跡...
請救救我吧......
我原先設計的資料庫連結dbgrid是ok的
自從我更改了Access欄位裡的允許空字串改成"是"
之後卻在執行中data move 就會出現
DBgrid錯誤
資料轉換型態錯誤
而後我再度將更改了Access欄位裡的允許空字串改成"否"
同樣的錯誤
我不知道是哪裡有問題
請給我點蛛絲馬跡...
請救救我吧......
如何將Form及其中的所有功能,寫成一個Object(編號：4705)
各位前輩大家好:
小弟在此有個問題想請教各位高手,問題就是我在一個Project的某一個功能中必須同時執行兩個或兩個以上的Form,而此兩個Form的功能大同小異,所以我希望能將它寫成一個Object,當使用者執行該功能時再Create數個Object!
小弟在此有個問題想請教各位高手,問題就是我在一個Project的某一個功能中必須同時執行兩個或兩個以上的Form,而此兩個Form的功能大同小異,所以我希望能將它寫成一個Object,當使用者執行該功能時再Create數個Object!
如何複製新的檔案內容(編號：4703)
我想要把Folder A and Folder B 的新增內容 copy to Folder c.
Folder A 和 Folder B 可能有相同的檔案(.txt),應此想用時間較興的去cover舊檔.請問該如何做或是有哪本書有提到.謝謝
Folder A 和 Folder B 可能有相同的檔案(.txt),應此想用時間較興的去cover舊檔.請問該如何做或是有哪本書有提到.謝謝
(ASP)真的沒人知道嗎(編號：4702)
請問以下的程式 為何會出現這樣的錯誤訊息呢
難道Access2000不支援 JOIN 的語法嗎?
----------------------------------------------------------
Microsoft OLE DB Provider for ODBC Drivers 錯誤 '80004005'
[Microsoft][ODBC Microsoft Access 驅動程式] 不支援結合運算式。
/test.asp, 列29
----------------------------------------------------------
＜!--#include file="adovbs.inc"--＞
＜%
DBPath = Server.MapPath("/test.mdb")
sql = "[topic_A]"
Set TPC_conn = Server.CreateObject("ADODB.Connection")
TPC_conn.Open "driver={Microsoft Access driver (*.mdb)};dbq=" & DBPath
Set TPC_A_rs = Server.CreateObject("ADODB.Recordset")
TPC_A_rs.Open sql,TPC_conn,adOpenStatic,adLockReadOnly
%＞
＜html＞
＜head＞
＜meta http-equiv="Content-Type" content="text/html; charset=big5"＞
＜title＞分類項目管理＜/title＞
＜/head＞
＜center＞
＜%
Do While Not TPC_A_rs.EOF
sql = "Select topic_A.TPC_A , topic_B.TPC_B , topic_B.TPC_B_Name , topic_B.TPC_A " & _
"From topic_A Left Join topic_B " & _
"ON topic_B.TPC_B = " & TPC_A_rs("TPC_A")
Set TPC_B_rs = Server.CreateObject("ADODB.Recordset")
TPC_B_rs.Open sql,TPC_conn,adOpenDynamic,adLockPessimistic
TPC_A_rs.MoveNext
Loop
%＞
＜/center＞
＜/html＞
難道Access2000不支援 JOIN 的語法嗎?
----------------------------------------------------------
Microsoft OLE DB Provider for ODBC Drivers 錯誤 '80004005'
[Microsoft][ODBC Microsoft Access 驅動程式] 不支援結合運算式。
/test.asp, 列29
----------------------------------------------------------
＜!--#include file="adovbs.inc"--＞
＜%
DBPath = Server.MapPath("/test.mdb")
sql = "[topic_A]"
Set TPC_conn = Server.CreateObject("ADODB.Connection")
TPC_conn.Open "driver={Microsoft Access driver (*.mdb)};dbq=" & DBPath
Set TPC_A_rs = Server.CreateObject("ADODB.Recordset")
TPC_A_rs.Open sql,TPC_conn,adOpenStatic,adLockReadOnly
%＞
＜html＞
＜head＞
＜meta http-equiv="Content-Type" content="text/html; charset=big5"＞
＜title＞分類項目管理＜/title＞
＜/head＞
＜center＞
＜%
Do While Not TPC_A_rs.EOF
sql = "Select topic_A.TPC_A , topic_B.TPC_B , topic_B.TPC_B_Name , topic_B.TPC_A " & _
"From topic_A Left Join topic_B " & _
"ON topic_B.TPC_B = " & TPC_A_rs("TPC_A")
Set TPC_B_rs = Server.CreateObject("ADODB.Recordset")
TPC_B_rs.Open sql,TPC_conn,adOpenDynamic,adLockPessimistic
TPC_A_rs.MoveNext
Loop
%＞
＜/center＞
＜/html＞
為何我的vb6中很多引用項目都看不到?(編號：4700)
如題,如dao的部份,或 Microsoft Jet and Replication Object等.是否是我未安裝完整? 我是安裝VB6企業版+sp3.作業系統是Win98.
LABEL 和 TEXTBOX 的問題(編號：4695)
我在寫程式時發現了以下問題，請前輩們幫忙解惑
各位可以開一個標準執行檔，並擺上一個 LABEL 和一個 TEXTBOX 後
再貼上以下的程式碼測試看看，以便瞭解我描述的問題所在。
Private Sub Form_Load()
Text1_Change
End Sub
Private Sub Text1_Change()
Label1.Caption = "姓名" & Chr(13) & Text1.Text
End Sub
我的目的是當我在textbox中輸入資料時，可以套用我要的格式、並立即顯示在label1的框框裡
程式執行之後，在label1中應該會有兩列資料，第一列是 "姓名" ，第二列是 "text1"
這時所看到的的確是我要的結果，而且我在text1中加入其他資料時label1中的第二列也確實有跟著變動
但是卻發現當我在textbox的字串前端插入兩個空白時，label1中的第二列卻只被插入一個空白
而當我刪掉textbox字串前端的一個空白時，label1中的第二列卻沒有空白了
我在公司試的時候只有textbox的multiline為true時才會有這個問題
但在家裡試的時候不管mutiline的值為何都有這個問題
我現在就是被這個問題給考倒了，您可以幫幫我嗎?
我會很感謝你的。
各位可以開一個標準執行檔，並擺上一個 LABEL 和一個 TEXTBOX 後
再貼上以下的程式碼測試看看，以便瞭解我描述的問題所在。
Private Sub Form_Load()
Text1_Change
End Sub
Private Sub Text1_Change()
Label1.Caption = "姓名" & Chr(13) & Text1.Text
End Sub
我的目的是當我在textbox中輸入資料時，可以套用我要的格式、並立即顯示在label1的框框裡
程式執行之後，在label1中應該會有兩列資料，第一列是 "姓名" ，第二列是 "text1"
這時所看到的的確是我要的結果，而且我在text1中加入其他資料時label1中的第二列也確實有跟著變動
但是卻發現當我在textbox的字串前端插入兩個空白時，label1中的第二列卻只被插入一個空白
而當我刪掉textbox字串前端的一個空白時，label1中的第二列卻沒有空白了
我在公司試的時候只有textbox的multiline為true時才會有這個問題
但在家裡試的時候不管mutiline的值為何都有這個問題
我現在就是被這個問題給考倒了，您可以幫幫我嗎?
我會很感謝你的。
如何在VB60 修復壓縮Access2000的database(編號：4693)
如何在VB60 修復壓縮Access2000的database???
因為在vb中新增或刪除資料數次後mdb的檔案會變大, 我都是手動開啟access後執行"工具" "資料庫公用程式" "壓縮及修復資料庫", Thanks.
因為在vb中新增或刪除資料數次後mdb的檔案會變大, 我都是手動開啟access後執行"工具" "資料庫公用程式" "壓縮及修復資料庫", Thanks.
十進位轉二進位(編號：4692)
注..TEXT1是使用者輸入的十進位數字(TEXT2則是顯示出來的二進位數字)
請幫我看一下以下程式碼有何錯誤~~謝謝
我在Command1輸入以下程式碼!
ABC=TEXT1.TEXT
DO
CBA=ABC MOD 2
ABC=ABC/2
ER$=CBA & ER$
LOOP UNTIL (ABC ＜ 2)
TEXT2.TEXT =ER$
請幫我看一下以下程式碼有何錯誤~~謝謝
我在Command1輸入以下程式碼!
ABC=TEXT1.TEXT
DO
CBA=ABC MOD 2
ABC=ABC/2
ER$=CBA & ER$
LOOP UNTIL (ABC ＜ 2)
TEXT2.TEXT =ER$
how to control another PC?(編號：4690)
環境:3台PC, Hub, windows98連線(都設定ok)
請教如何做到下列功能?
在甲pc或丙pc 執行乙pc的vb畫面上的功能或選項???
請教如何做到下列功能?
在甲pc或丙pc 執行乙pc的vb畫面上的功能或選項???
如何將access資料庫內的相片欄位連結到visual basic(編號：4689)
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" _
& "Data Source= D:\My Documents\homework\Visual Basic\project1\Friend.mdb"
cn.Open
Set rs = New ADODB.Recordset
rs.Open "Friendlist", cn, adOpenStatic, adLockOptimistic
Set txtname.DataSource = rs
Set txtphone.DataSource = rs
Set txtbirth.DataSource = rs
Set txtaddress.DataSource = rs
Set Picture1.DataSource = rs
txtname.DataField = "Name"
txtphone.DataField = "Homephone"
txtbirth.DataField = "Birthdate"
txtaddress.DataField = "Address"
Picture1.DataField = "Photo"
但picture1連結唔到,怎樣解決呢@!!!
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" _
& "Data Source= D:\My Documents\homework\Visual Basic\project1\Friend.mdb"
cn.Open
Set rs = New ADODB.Recordset
rs.Open "Friendlist", cn, adOpenStatic, adLockOptimistic
Set txtname.DataSource = rs
Set txtphone.DataSource = rs
Set txtbirth.DataSource = rs
Set txtaddress.DataSource = rs
Set Picture1.DataSource = rs
txtname.DataField = "Name"
txtphone.DataField = "Homephone"
txtbirth.DataField = "Birthdate"
txtaddress.DataField = "Address"
Picture1.DataField = "Photo"
但picture1連結唔到,怎樣解決呢@!!!
請問阿虹...(編號：4688)
謝謝你回答我的問題...
不過我還是有點疑惑! sorry...
方便給我你的E-mail嗎?
真的好急!交不出來會被扒皮....
我要製作的系統是＜題庫系統＞
應書商的要求是要運用VB系統中＜可能是一個command按鈕＞
將存在ACCESS中的每筆題目轉成*.txt檔
也就是能在記事本中看到各筆題目
--------------------------------------
你提到的方法三:
下面提供一個簡單方法(使用DAO):＞＞＞＞＞＞＞DAO是Adodc嗎??
dim db as database
dim rs as recordset
dim hand as long
set db=dbengine.workspaces(0).opendatabase("c:\temp\yourmdb.mdb")＞＞＞＞＞＞＞＞＞＞此處應更改成我自己的*.mdb檔名嗎?
set rs=db.openrecordset("mytable",dbopendynaset)＞＞＞＞＞此處要更改成我的表格名稱嗎?
hand=freefile
open "c:\temp\mytable.txt" for outputas#hand＞＞＞＞＞＞＞mytable.txt要預先設好嗎?
with rs
'輸出的格式請自行決定
print #hand,.fields("filed1") & "," & .fields("field2") & "," & ......＞＞＞＞＞＞＞＞＞＞＞＞這是欄位名嗎?
.movenext
end rs＞＞＞＞＞＞＞＞＞＞＞為何此處會出現錯誤?
close #hand
rs.close
db.close
不過我還是有點疑惑! sorry...
方便給我你的E-mail嗎?
真的好急!交不出來會被扒皮....
我要製作的系統是＜題庫系統＞
應書商的要求是要運用VB系統中＜可能是一個command按鈕＞
將存在ACCESS中的每筆題目轉成*.txt檔
也就是能在記事本中看到各筆題目
--------------------------------------
你提到的方法三:
下面提供一個簡單方法(使用DAO):＞＞＞＞＞＞＞DAO是Adodc嗎??
dim db as database
dim rs as recordset
dim hand as long
set db=dbengine.workspaces(0).opendatabase("c:\temp\yourmdb.mdb")＞＞＞＞＞＞＞＞＞＞此處應更改成我自己的*.mdb檔名嗎?
set rs=db.openrecordset("mytable",dbopendynaset)＞＞＞＞＞此處要更改成我的表格名稱嗎?
hand=freefile
open "c:\temp\mytable.txt" for outputas#hand＞＞＞＞＞＞＞mytable.txt要預先設好嗎?
with rs
'輸出的格式請自行決定
print #hand,.fields("filed1") & "," & .fields("field2") & "," & ......＞＞＞＞＞＞＞＞＞＞＞＞這是欄位名嗎?
.movenext
end rs＞＞＞＞＞＞＞＞＞＞＞為何此處會出現錯誤?
close #hand
rs.close
db.close
執行階段錯誤 ' 3706 '(編號：4687)
我在USER端安裝寫好的程式，於執行時出現如下的敘述：
執行階段錯誤 ' 3706 '
ADO 找不到指定的提供者。
在我自己的電腦上執行並無問題，但在無裝VB的PC上確有此問題。
執行階段錯誤 ' 3706 '
ADO 找不到指定的提供者。
在我自己的電腦上執行並無問題，但在無裝VB的PC上確有此問題。
Ado + Datagrid 的問題 !!(編號：4686)
我的環境是 VB6.0 + SP4 + Access 2000 的資料庫,
我的問題如下:
我在 Form 上放置了 Adodc 及 Datagrid 及 6 個按鈕及 四個 Text 元件, 設定了如下的程式
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\winuas\UASDATA.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM user
ORDER BY user_no"
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
End Sub
'
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Adodc1.Recordset.MoveFirst
Case 1
Adodc1.Recordset.MovePrevious
Case 2
Adodc1.Recordset.MoveNext
Case 3
Adodc1.Recordset.MoveLast
Case 4
Adodc1.Recordset.Delete
Case 5
Adodc1.Recordset.AddNew
Adodc1.Recordset("user_no") = Text1
Adodc1.Recordset("user_name") = Text2
Adodc1.Recordset("user_addr") = Text3
Adodc1.Recordset("user_tel") = Text4
Adodc1.Recordset.Update
Adodc1.Refresh
End Select
End Sub
問題如下:
為何新增的資料不會按照 order by 的順序顯示在 DataGrid 中,
而是跑到最後面去了呢 ?
謝謝 !!
我的問題如下:
我在 Form 上放置了 Adodc 及 Datagrid 及 6 個按鈕及 四個 Text 元件, 設定了如下的程式
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\winuas\UASDATA.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM user
ORDER BY user_no"
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
End Sub
'
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Adodc1.Recordset.MoveFirst
Case 1
Adodc1.Recordset.MovePrevious
Case 2
Adodc1.Recordset.MoveNext
Case 3
Adodc1.Recordset.MoveLast
Case 4
Adodc1.Recordset.Delete
Case 5
Adodc1.Recordset.AddNew
Adodc1.Recordset("user_no") = Text1
Adodc1.Recordset("user_name") = Text2
Adodc1.Recordset("user_addr") = Text3
Adodc1.Recordset("user_tel") = Text4
Adodc1.Recordset.Update
Adodc1.Refresh
End Select
End Sub
問題如下:
為何新增的資料不會按照 order by 的順序顯示在 DataGrid 中,
而是跑到最後面去了呢 ?
謝謝 !!
Ado + Datagrid 的問題 !!(編號：4685)
我的環境是 VB6.0 + SP4 + Access 2000 的資料庫,
我的問題如下:
我在 Form 上放置了 Adodc 及 Datagrid 及 6 個按鈕及 四個 Text 元件, 設定了如下的程式
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\winuas\UASDATA.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM user
ORDER BY user_no"
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
End Sub
'
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Adodc1.Recordset.MoveFirst
Case 1
Adodc1.Recordset.MovePrevious
Case 2
Adodc1.Recordset.MoveNext
Case 3
Adodc1.Recordset.MoveLast
Case 4
Adodc1.Recordset.Delete
Case 5
Adodc1.Recordset.AddNew
Adodc1.Recordset("user_no") = Text1
Adodc1.Recordset("user_name") = Text2
Adodc1.Recordset("user_addr") = Text3
Adodc1.Recordset("user_tel") = Text4
Adodc1.Recordset.Update
Adodc1.Refresh
End Select
End Sub
問題如下:
為何新增的資料不會按照 order by 的順序顯示在 DataGrid 中,
而是跑到最後面去了呢 ?
謝謝 !!
我的問題如下:
我在 Form 上放置了 Adodc 及 Datagrid 及 6 個按鈕及 四個 Text 元件, 設定了如下的程式
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\winuas\UASDATA.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM user
ORDER BY user_no"
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
End Sub
'
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Adodc1.Recordset.MoveFirst
Case 1
Adodc1.Recordset.MovePrevious
Case 2
Adodc1.Recordset.MoveNext
Case 3
Adodc1.Recordset.MoveLast
Case 4
Adodc1.Recordset.Delete
Case 5
Adodc1.Recordset.AddNew
Adodc1.Recordset("user_no") = Text1
Adodc1.Recordset("user_name") = Text2
Adodc1.Recordset("user_addr") = Text3
Adodc1.Recordset("user_tel") = Text4
Adodc1.Recordset.Update
Adodc1.Refresh
End Select
End Sub
問題如下:
為何新增的資料不會按照 order by 的順序顯示在 DataGrid 中,
而是跑到最後面去了呢 ?
謝謝 !!
可以做出GIS效果嗎?(編號：4684)
由於我們想做一個類似"路易通"的地理資訊系統,已經有GIS繪圖軟體MapInfo,想以VB做為介面,不曉得能不能和MapInfo的檔案連結,做出查詢地圖的功能?希望有善心人士能給個建議..謝謝
ASP高手請看...(編號：4680)
請問以下的程式 為何會出現這樣的錯誤訊息呢
難道Access2000不支援 JOIN 的語法嗎?
----------------------------------------------------------
Microsoft OLE DB Provider for ODBC Drivers 錯誤 '80004005'
[Microsoft][ODBC Microsoft Access 驅動程式] 不支援結合運算式。
/test.asp, 列29
----------------------------------------------------------
＜!--#include file="adovbs.inc"--＞
＜%
DBPath = Server.MapPath("/test.mdb")
sql = "[topic_A]"
Set TPC_conn = Server.CreateObject("ADODB.Connection")
TPC_conn.Open "driver={Microsoft Access driver (*.mdb)};dbq=" & DBPath
Set TPC_A_rs = Server.CreateObject("ADODB.Recordset")
TPC_A_rs.Open sql,TPC_conn,adOpenStatic,adLockReadOnly
%＞
＜html＞
＜head＞
＜meta http-equiv="Content-Type" content="text/html; charset=big5"＞
＜title＞分類項目管理＜/title＞
＜/head＞
＜center＞
＜%
Do While Not TPC_A_rs.EOF
sql = "Select topic_A.TPC_A , topic_B.TPC_B , topic_B.TPC_B_Name , topic_B.TPC_A " & _
"From topic_A Left Join topic_B " & _
"ON topic_B.TPC_B = " & TPC_A_rs("TPC_A")
Set TPC_B_rs = Server.CreateObject("ADODB.Recordset")
TPC_B_rs.Open sql,TPC_conn,adOpenDynamic,adLockPessimistic
TPC_A_rs.MoveNext
Loop
%＞
＜/center＞
＜/html＞
難道Access2000不支援 JOIN 的語法嗎?
----------------------------------------------------------
Microsoft OLE DB Provider for ODBC Drivers 錯誤 '80004005'
[Microsoft][ODBC Microsoft Access 驅動程式] 不支援結合運算式。
/test.asp, 列29
----------------------------------------------------------
＜!--#include file="adovbs.inc"--＞
＜%
DBPath = Server.MapPath("/test.mdb")
sql = "[topic_A]"
Set TPC_conn = Server.CreateObject("ADODB.Connection")
TPC_conn.Open "driver={Microsoft Access driver (*.mdb)};dbq=" & DBPath
Set TPC_A_rs = Server.CreateObject("ADODB.Recordset")
TPC_A_rs.Open sql,TPC_conn,adOpenStatic,adLockReadOnly
%＞
＜html＞
＜head＞
＜meta http-equiv="Content-Type" content="text/html; charset=big5"＞
＜title＞分類項目管理＜/title＞
＜/head＞
＜center＞
＜%
Do While Not TPC_A_rs.EOF
sql = "Select topic_A.TPC_A , topic_B.TPC_B , topic_B.TPC_B_Name , topic_B.TPC_A " & _
"From topic_A Left Join topic_B " & _
"ON topic_B.TPC_B = " & TPC_A_rs("TPC_A")
Set TPC_B_rs = Server.CreateObject("ADODB.Recordset")
TPC_B_rs.Open sql,TPC_conn,adOpenDynamic,adLockPessimistic
TPC_A_rs.MoveNext
Loop
%＞
＜/center＞
＜/html＞
set PaperSize 的時機(編號：4679)
請問：PaperSize要在哪個時點設定？
我在專案啟動後，show datareport前判斷&設定，無效！
設定後檢查PaperSize屬性有變更，但DataReport Show 的報表還是不變(沿用Windows原來的設定)。
我在專案啟動後，show datareport前判斷&設定，無效！
設定後檢查PaperSize屬性有變更，但DataReport Show 的報表還是不變(沿用Windows原來的設定)。
vb string vs vc string(編號：4675)
大家都知 VB String 與 VC String 不同,
VB String 最前面還多了字串長度
以 binaray 方式直接讀取檔案時
VB 會自動轉換字串
但寫回時 String 的前面已自動加了長度
再已 VC 讀取時就發生錯誤了
我的問題是 :
如何在VB 下直接將 VB string 轉 VC string
再以 binary 方式寫到 file 內
VB ready example:
Dim varString As String
Open DBF For Binary Access Read As #1
varString = Space$(10)
Get #1,0,varstring
close #1
以上會從0 byte 讀入10byte的 string
VB write example?
VB String 最前面還多了字串長度
以 binaray 方式直接讀取檔案時
VB 會自動轉換字串
但寫回時 String 的前面已自動加了長度
再已 VC 讀取時就發生錯誤了
我的問題是 :
如何在VB 下直接將 VB string 轉 VC string
再以 binary 方式寫到 file 內
VB ready example:
Dim varString As String
Open DBF For Binary Access Read As #1
varString = Space$(10)
Get #1,0,varstring
close #1
以上會從0 byte 讀入10byte的 string
VB write example?
如何重置 Access 的自動編號欄位...(編號：4674)
如何重置 Access 的自動編號欄位...
我要如何做才能將 Access 的 自動編號欄位歸零??
記得在書上看過..不過現在要找都一直找不到....
非常急...希望有人能幫助我解決此問題~~~thx
我要如何做才能將 Access 的 自動編號欄位歸零??
記得在書上看過..不過現在要找都一直找不到....
非常急...希望有人能幫助我解決此問題~~~thx
資料庫的問題。(編號：4673)
大家好：
我想請教高手們:
我使用Adodc Connect Accress ，再用DataGrid 顯示出來.
我在 datagrid Click 寫程式
x=Adodc1.Recordset("數量")
j=Adodc1.Recordset("價錢")
Adodc1.Recordset("總計")=x * j
因我使用 Click 所以寫好之後要 Click 才能總計起來.
我希望高手指教我只要在輸入數量和價錢，而不用按Click 就能把總計加起來.
請指教程式該如何寫.謝謝!
我想請教高手們:
我使用Adodc Connect Accress ，再用DataGrid 顯示出來.
我在 datagrid Click 寫程式
x=Adodc1.Recordset("數量")
j=Adodc1.Recordset("價錢")
Adodc1.Recordset("總計")=x * j
因我使用 Click 所以寫好之後要 Click 才能總計起來.
我希望高手指教我只要在輸入數量和價錢，而不用按Click 就能把總計加起來.
請指教程式該如何寫.謝謝!
如何將.rtf或.doc檔的內容轉到access的某資料表(編號：4669)
我要將.rtf檔內的資料轉為.mdb
但執行後卻顯示
run-time error '3343'
unrecognized database format 'e:\rtf\new.mdb'
不知問題為何,請哪位高手可以指教一下
但執行後卻顯示
run-time error '3343'
unrecognized database format 'e:\rtf\new.mdb'
不知問題為何,請哪位高手可以指教一下
這個程式執行作業無效,即將關閉' 的錯誤訊息'(編號：4666)
請問 ReplaceText API 該如何測試,我以下列程式測試總會出現現'這個程式執行作業無效,即將關閉' 的錯誤訊息',
PS:表單內只有一個Text1及兩個Command Button
使用Win98se + vb6 + sp3 程式碼如下:
Option Explicit
'Find/Replace Type Structure
Private Type FINDREPLACE
lStructSize As Long
hwndOwner As Long
hInstance As Long
flags As Long
lpstrFindWhat As String
lpstrReplaceWith As String
wFindWhatLen As Integer
wReplaceWithLen As Integer
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
'Common Dialog DLL Calls
Private Declare Function FindText Lib "comdlg32.dll" _
Alias "FindTextA" (pFindreplace As FINDREPLACE) As Long
Private Declare Function ReplaceText Lib "comdlg32.dll" _
Alias "ReplaceTextA" (pFindreplace As FINDREPLACE) As Long
'Delcaration of the type structure
Dim frText As FINDREPLACE
Private Sub cmdFind_Click()
'Call the find text function
frText.lpstrFindWhat = Text1.SelText
FindText frText
End Sub
Private Sub cmdReplace_Click()
'Call the replace text function
ReplaceText frText
End Sub
Private Sub Form_Load()
'Set the Find/Replace Type properties
With frText
.lpstrReplaceWith = "Replace Text"
.lpstrFindWhat = "Find Text"
.wFindWhatLen = 9
.wReplaceWithLen = 12
.hInstance = App.hInstance
.hwndOwner = Me.hWnd
.lStructSize = LenB(frText)
End With
End Sub
PS:表單內只有一個Text1及兩個Command Button
使用Win98se + vb6 + sp3 程式碼如下:
Option Explicit
'Find/Replace Type Structure
Private Type FINDREPLACE
lStructSize As Long
hwndOwner As Long
hInstance As Long
flags As Long
lpstrFindWhat As String
lpstrReplaceWith As String
wFindWhatLen As Integer
wReplaceWithLen As Integer
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
'Common Dialog DLL Calls
Private Declare Function FindText Lib "comdlg32.dll" _
Alias "FindTextA" (pFindreplace As FINDREPLACE) As Long
Private Declare Function ReplaceText Lib "comdlg32.dll" _
Alias "ReplaceTextA" (pFindreplace As FINDREPLACE) As Long
'Delcaration of the type structure
Dim frText As FINDREPLACE
Private Sub cmdFind_Click()
'Call the find text function
frText.lpstrFindWhat = Text1.SelText
FindText frText
End Sub
Private Sub cmdReplace_Click()
'Call the replace text function
ReplaceText frText
End Sub
Private Sub Form_Load()
'Set the Find/Replace Type properties
With frText
.lpstrReplaceWith = "Replace Text"
.lpstrFindWhat = "Find Text"
.wFindWhatLen = 9
.wReplaceWithLen = 12
.hInstance = App.hInstance
.hwndOwner = Me.hWnd
.lStructSize = LenB(frText)
End With
End Sub
IE Web Archive with OLECMDID_SAVEAS Automation(編號：4665)
請問如何使用自動化機制令IE使用OLECMDID_SAVEAS將網頁存成Web Archive(*.mht)？
這個問題我想破頭了，軟趴趴的Knowledgebase沒有相關的說明及範例，有誰有相關的經驗可傳授嘛？
基本上的我的做法是希望藉由自創一個COM的物件傳入網址及存檔路徑名稱，然後其物件就會在底層驅動IE來做這檔事。
使用環境：Windows 2000 Advanced Server, Visual Basic 6.0 Enterprise SP4, Internet Explorer 5.01
thx alot.....^^!!
這個問題我想破頭了，軟趴趴的Knowledgebase沒有相關的說明及範例，有誰有相關的經驗可傳授嘛？
基本上的我的做法是希望藉由自創一個COM的物件傳入網址及存檔路徑名稱，然後其物件就會在底層驅動IE來做這檔事。
使用環境：Windows 2000 Advanced Server, Visual Basic 6.0 Enterprise SP4, Internet Explorer 5.01
thx alot.....^^!!
vb小問題(編號：4663)
strSUPPLYSHOW = DBGirdSUB.Columns("產品編號").Text
If strSUPPLYSHOW = "" Then
MsgBox "無法查詢", vbExclamation & vbOKOnly, "錯誤訊息"
Else
FrmSUPPLYSHOW.Show
為什麼錯誤訊息會在第一行,此處應有物件
If strSUPPLYSHOW = "" Then
MsgBox "無法查詢", vbExclamation & vbOKOnly, "錯誤訊息"
Else
FrmSUPPLYSHOW.Show
為什麼錯誤訊息會在第一行,此處應有物件
BringWindowToTop (API)(編號：4661)
Declare Function BringWindowToTop Lib "user32" (ByVal hWnd As Long) As Long
請問 BringWindowToTop 可以將 Label, ImageBox 或 Line 等物件放到最上層嗎, 文件好像說可將物件 always on top, 無 hWnd 的物件不說, 我試過用在 CommandButton 上面, 不過好像相當於 VB 的Obj.Zorder 0, 不是所謂的 always on top...
請問 BringWindowToTop 可以將 Label, ImageBox 或 Line 等物件放到最上層嗎, 文件好像說可將物件 always on top, 無 hWnd 的物件不說, 我試過用在 CommandButton 上面, 不過好像相當於 VB 的Obj.Zorder 0, 不是所謂的 always on top...
資料排序法演算(編號：4660)
' 以下是排序的賤招, 利用另一個ListBox.Stored 屬性來排序的功能(32600 個項目平均時間 12(PIII-550,w98,128ram) 秒)
List2.Clear
For R1 = 0 To List1.ListCount - 1
List2.AddItem List1.List(R1)
Next
List1.Clear
For R1 = 0 To List2.ListCount - 1
List1.AddItem List2.List(R1)
Next
'-----------------------------------------------------------------
' 以下是所謂正規的排序演算法, 比上面那個賤招龜速幾十倍... (1170 個項目平均時間 40 秒)
' For R1 = 0 To List1.ListCount - 2
' For R2 = R1 + 1 To List1.ListCount - 1
' If List1.List(R1) ＞ List1.List(R2) Then
' Temp = List1.List(R1)
' List1.List(R1) = List1.List(R2)
' List1.List(R2) = Temp
' End If
' Next
' Next
第一個方法是取自王國榮先生的VB6實戰講座, 雖不太建議使用, 但我覺得他實在好用太多了(在我還沒想出更好的方法之前)... 也希望各位指點一二
另, 什麼是泡沫排序法, 常常聽到大家談泡沫法, 她是什麼法呢...
List2.Clear
For R1 = 0 To List1.ListCount - 1
List2.AddItem List1.List(R1)
Next
List1.Clear
For R1 = 0 To List2.ListCount - 1
List1.AddItem List2.List(R1)
Next
'-----------------------------------------------------------------
' 以下是所謂正規的排序演算法, 比上面那個賤招龜速幾十倍... (1170 個項目平均時間 40 秒)
' For R1 = 0 To List1.ListCount - 2
' For R2 = R1 + 1 To List1.ListCount - 1
' If List1.List(R1) ＞ List1.List(R2) Then
' Temp = List1.List(R1)
' List1.List(R1) = List1.List(R2)
' List1.List(R2) = Temp
' End If
' Next
' Next
第一個方法是取自王國榮先生的VB6實戰講座, 雖不太建議使用, 但我覺得他實在好用太多了(在我還沒想出更好的方法之前)... 也希望各位指點一二
另, 什麼是泡沫排序法, 常常聽到大家談泡沫法, 她是什麼法呢...
Bitblt到底怎用ㄚ(編號：4659)
我按照MSDN上說的去用,可是在指定為Source的Picture1上所
擷取的圖片卻無法在作為Distinatin的Picture2上顯現,到底
怎麼回事????我已經摸了一早上了,誰能救救我~~~~T_T
擷取的圖片卻無法在作為Distinatin的Picture2上顯現,到底
怎麼回事????我已經摸了一早上了,誰能救救我~~~~T_T
請vb的高手們，看一下這個程式碼是否能在精簡(編號：4657)
請vb的高手們，看一下這個程式碼是否能在精簡
或是有另一種寫法...
因為我是個高中生對程式的蓋概念還不是很好請各位高手幫幫忙!!
(這個程式是電阻值測驗程式)
Dim a
Dim b
Dim c
Dim d
Dim aa
Dim bb
Dim cc
Dim dd, qq, ert
Dim er$, tt$, tt1$
Private Sub Command1_Click()
For i = 0 To 2
Text1(i).Text = ""
Next i
Randomize
123
a = Int(Rnd * 10)
b = Int(Rnd * 10)
c = Int(Rnd * 12)
d = Int(Rnd * 3)
aa = 0
bb = 0
cc = 0
dd = 0
'第一個色碼不能為黑色
If a = 0 Then
GoTo 123
End If
'執行隨機頻色副程式
aaa
bbb
ccc
ddd
'答案
If c = 0 Then
tt$ = aa & bb & cc
wer = tt$
Text3(0).Text = wer & er$
wer1 = wer / 10 ^ 3
Text3(1).Text = wer1 & er$
wer2 = wer / 10 ^ 6
Text3(2).Text = wer2 & er$
Else
tt1$ = aa & bb
tt$ = tt1$ * cc
wer = tt$
Text3(0).Text = wer & er$
wer1 = wer / 10 ^ 3
Text3(1).Text = wer1 & er$
wer2 = wer / 10 ^ 6
Text3(2).Text = wer2 & er$
End If
End Sub
Private Sub Command2_Click()
Beep
Unload Me
End Sub
Private Sub Command3_Click()
qq = qq + 1
If Text1(0) = "" And Text1(1) = "" And Text1(2) = "" Then
MsgBox ("抱歉您還沒輸入電阻數值!!")
Else
If qq = 10 Then
MsgBox ("色碼電阻測驗試題測驗結束!!")
Command1.Enabled = False
Label3.Caption = ert * 10 & " 分"
End If
If Text1(Index).Text = Text3(Index).Text Then
MsgBox ("恭喜您答對了!!")
Text1(Index) = ""
Text3(Index) = ""
ert = ert + 1
Label4.Caption = " " & ert
Else
If Text1(Index).Text ＜＞ Text3(Index).Text Then
MsgBox ("抱歉您答錯了!!")
Text1(Index) = ""
Text3(Index) = ""
End If
End If
End If
End Sub
Private Sub Form_Load()
a = 0
b = 0
c = 0
aa = 0
bb = 0
cc = 0
dd = 0
d = 0
er$ = 0
qq = 0
ert = 0
End Sub
Public Sub aaa()
Select Case a
Case 0
'黑
Picture1.BackColor = 0
Case 1
'棕
Picture1.BackColor = RGB(128, 64, 0)
aa = 1
Case 2
'紅
Picture1.BackColor = RGB(255, 0, 0)
aa = 2
Case 3
'橙
Picture1.BackColor = RGB(255, 128, 0)
aa = 3
Case 4
'黃
Picture1.BackColor = RGB(255, 255, 0)
aa = 4
Case 5
'綠
Picture1.BackColor = RGB(0, 255, 0)
aa = 5
Case 6
'藍
Picture1.BackColor = RGB(0, 0, 255)
aa = 6
Case 7
'紫
Picture1.BackColor = RGB(128, 0, 128)
aa = 7
Case 8
'灰
Picture1.BackColor = RGB(128, 128, 128)
aa = 8
Case 9
'白
Picture1.BackColor = RGB(255, 255, 255)
aa = 9
End Select
End Sub
Public Sub bbb()
Select Case b
Case 0
'黑
Picture2.BackColor = 0
bb = 0
Case 1
'棕
Picture2.BackColor = RGB(128, 64, 0)
bb = 1
Case 2
'紅
Picture2.BackColor = RGB(255, 0, 0)
bb = 2
Case 3
'橙
Picture2.BackColor = RGB(255, 128, 0)
bb = 3
Case 4
'黃
Picture2.BackColor = RGB(255, 255, 0)
bb = 4
Case 5
'綠
Picture2.BackColor = RGB(0, 255, 0)
bb = 5
Case 6
'藍
Picture2.BackColor = RGB(0, 0, 255)
bb = 6
Case 7
'紫
Picture2.BackColor = RGB(128, 0, 128)
bb = 7
Case 8
'灰
Picture2.BackColor = RGB(128, 128, 128)
bb = 8
Case 9
'白
Picture2.BackColor = RGB(255, 255, 255)
bb = 9
End Select
End Sub
Public Sub ccc()
Select Case c
Case 0
'黑
Picture3.BackColor = 0
cc = 0
Case 1
'棕
Picture3.BackColor = RGB(128, 64, 0)
cc = 10
Case 2
'紅
Picture3.BackColor = RGB(255, 0, 0)
cc = 10 ^ 2
Case 3
'橙
Picture3.BackColor = RGB(255, 128, 0)
cc = 10 ^ 3
Case 4
'黃
Picture3.BackColor = RGB(255, 255, 0)
cc = 10 ^ 4
Case 5
'綠
Picture3.BackColor = RGB(255, 0, 0)
cc = 10 ^ 5
Case 6
'藍
Picture3.BackColor = RGB(0, 255, 0)
cc = 10 ^ 6
Case 7
'紫
Picture3.BackColor = RGB(128, 0, 128)
cc = 10 ^ 7
Case 8
'灰
Picture3.BackColor = RGB(128, 128, 128)
cc = 10 ^ 8
Case 9
'白
Picture3.BackColor = RGB(255, 255, 255)
cc = 10 ^ 9
Case 10
'金
Picture3.BackColor = RGB(225, 225, 202)
cc = 10 ^ -1
Case 11
'銀
Picture3.BackColor = RGB(242, 242, 242)
cc = 10 ^ -2
End Select
End Sub
Public Sub ddd()
Select Case d
Case 0
'金
Picture4.BackColor = RGB(225, 225, 202)
er$ = "+-5%"
Case 1
'銀
Picture4.BackColor = RGB(242, 242, 242)
er$ = "+-10%"
Case 2
'無
Picture4.BackColor = RGB(255, 255, 255)
er$ = "+-20%"
End Select
End Sub
或是有另一種寫法...
因為我是個高中生對程式的蓋概念還不是很好請各位高手幫幫忙!!
(這個程式是電阻值測驗程式)
Dim a
Dim b
Dim c
Dim d
Dim aa
Dim bb
Dim cc
Dim dd, qq, ert
Dim er$, tt$, tt1$
Private Sub Command1_Click()
For i = 0 To 2
Text1(i).Text = ""
Next i
Randomize
123
a = Int(Rnd * 10)
b = Int(Rnd * 10)
c = Int(Rnd * 12)
d = Int(Rnd * 3)
aa = 0
bb = 0
cc = 0
dd = 0
'第一個色碼不能為黑色
If a = 0 Then
GoTo 123
End If
'執行隨機頻色副程式
aaa
bbb
ccc
ddd
'答案
If c = 0 Then
tt$ = aa & bb & cc
wer = tt$
Text3(0).Text = wer & er$
wer1 = wer / 10 ^ 3
Text3(1).Text = wer1 & er$
wer2 = wer / 10 ^ 6
Text3(2).Text = wer2 & er$
Else
tt1$ = aa & bb
tt$ = tt1$ * cc
wer = tt$
Text3(0).Text = wer & er$
wer1 = wer / 10 ^ 3
Text3(1).Text = wer1 & er$
wer2 = wer / 10 ^ 6
Text3(2).Text = wer2 & er$
End If
End Sub
Private Sub Command2_Click()
Beep
Unload Me
End Sub
Private Sub Command3_Click()
qq = qq + 1
If Text1(0) = "" And Text1(1) = "" And Text1(2) = "" Then
MsgBox ("抱歉您還沒輸入電阻數值!!")
Else
If qq = 10 Then
MsgBox ("色碼電阻測驗試題測驗結束!!")
Command1.Enabled = False
Label3.Caption = ert * 10 & " 分"
End If
If Text1(Index).Text = Text3(Index).Text Then
MsgBox ("恭喜您答對了!!")
Text1(Index) = ""
Text3(Index) = ""
ert = ert + 1
Label4.Caption = " " & ert
Else
If Text1(Index).Text ＜＞ Text3(Index).Text Then
MsgBox ("抱歉您答錯了!!")
Text1(Index) = ""
Text3(Index) = ""
End If
End If
End If
End Sub
Private Sub Form_Load()
a = 0
b = 0
c = 0
aa = 0
bb = 0
cc = 0
dd = 0
d = 0
er$ = 0
qq = 0
ert = 0
End Sub
Public Sub aaa()
Select Case a
Case 0
'黑
Picture1.BackColor = 0
Case 1
'棕
Picture1.BackColor = RGB(128, 64, 0)
aa = 1
Case 2
'紅
Picture1.BackColor = RGB(255, 0, 0)
aa = 2
Case 3
'橙
Picture1.BackColor = RGB(255, 128, 0)
aa = 3
Case 4
'黃
Picture1.BackColor = RGB(255, 255, 0)
aa = 4
Case 5
'綠
Picture1.BackColor = RGB(0, 255, 0)
aa = 5
Case 6
'藍
Picture1.BackColor = RGB(0, 0, 255)
aa = 6
Case 7
'紫
Picture1.BackColor = RGB(128, 0, 128)
aa = 7
Case 8
'灰
Picture1.BackColor = RGB(128, 128, 128)
aa = 8
Case 9
'白
Picture1.BackColor = RGB(255, 255, 255)
aa = 9
End Select
End Sub
Public Sub bbb()
Select Case b
Case 0
'黑
Picture2.BackColor = 0
bb = 0
Case 1
'棕
Picture2.BackColor = RGB(128, 64, 0)
bb = 1
Case 2
'紅
Picture2.BackColor = RGB(255, 0, 0)
bb = 2
Case 3
'橙
Picture2.BackColor = RGB(255, 128, 0)
bb = 3
Case 4
'黃
Picture2.BackColor = RGB(255, 255, 0)
bb = 4
Case 5
'綠
Picture2.BackColor = RGB(0, 255, 0)
bb = 5
Case 6
'藍
Picture2.BackColor = RGB(0, 0, 255)
bb = 6
Case 7
'紫
Picture2.BackColor = RGB(128, 0, 128)
bb = 7
Case 8
'灰
Picture2.BackColor = RGB(128, 128, 128)
bb = 8
Case 9
'白
Picture2.BackColor = RGB(255, 255, 255)
bb = 9
End Select
End Sub
Public Sub ccc()
Select Case c
Case 0
'黑
Picture3.BackColor = 0
cc = 0
Case 1
'棕
Picture3.BackColor = RGB(128, 64, 0)
cc = 10
Case 2
'紅
Picture3.BackColor = RGB(255, 0, 0)
cc = 10 ^ 2
Case 3
'橙
Picture3.BackColor = RGB(255, 128, 0)
cc = 10 ^ 3
Case 4
'黃
Picture3.BackColor = RGB(255, 255, 0)
cc = 10 ^ 4
Case 5
'綠
Picture3.BackColor = RGB(255, 0, 0)
cc = 10 ^ 5
Case 6
'藍
Picture3.BackColor = RGB(0, 255, 0)
cc = 10 ^ 6
Case 7
'紫
Picture3.BackColor = RGB(128, 0, 128)
cc = 10 ^ 7
Case 8
'灰
Picture3.BackColor = RGB(128, 128, 128)
cc = 10 ^ 8
Case 9
'白
Picture3.BackColor = RGB(255, 255, 255)
cc = 10 ^ 9
Case 10
'金
Picture3.BackColor = RGB(225, 225, 202)
cc = 10 ^ -1
Case 11
'銀
Picture3.BackColor = RGB(242, 242, 242)
cc = 10 ^ -2
End Select
End Sub
Public Sub ddd()
Select Case d
Case 0
'金
Picture4.BackColor = RGB(225, 225, 202)
er$ = "+-5%"
Case 1
'銀
Picture4.BackColor = RGB(242, 242, 242)
er$ = "+-10%"
Case 2
'無
Picture4.BackColor = RGB(255, 255, 255)
er$ = "+-20%"
End Select
End Sub
為何我無法使用Microsoft Jet and Replication Objects(編號：4656)
我裝了vb6sp3,但是我還是無法使用Microsoft Jet and Replication Objects .我在設定使用元件中用流灠找到了msjro.dll,又出現無法載入的錯誤訊息.請問到底是什麼問題?
我去download 了mdac 2.5,但還是一樣.我用mcac component checker 檢查發現一堆error,如下請那位高手教教我吧! 謝了.
------錯誤訊息如下:Item Name,Item Type,ErrorString,Status
mtxdm.dll,File,Field 'FileVersion' mismatch: Expect '1999.9.3421.3' Got '1999.6.902.0',Error
MSVCRT.DLL,File,Field 'FileVersion' mismatch: Expect '6.10.8637.0' Got '6.00.8397.0',Error
odbccp32.cpl,File,Field 'CodePage' mismatch: Expect '1252' Got '1200',Error
odbcint.dll,File,Field 'CodePage' mismatch: Expect '1252' Got '1200',Error
STDOLE2.TLB,File,Field 'FileDescription' mismatch: Expect '' Got 'Microsoft OLE 2.40 for Windows NT(TM) and Windows 95(TM) Operating Systems',Error
ASYCFILT.DLL,File,Field 'FileDescription' mismatch: Expect '' Got 'Microsoft OLE 2.40 for Windows NT(TM) and Windows 95(TM) Operating Systems',Error
OLEPRO32.DLL,File,Field 'FileVersion' mismatch: Expect '5.0.4512' Got '5.0.4277',Error
OLEAUT32.DLL,File,Field 'FileDescription' mismatch: Expect '' Got 'Microsoft OLE 2.40 for Windows NT(TM) and Windows 95(TM) Operating Systems',Error
msader15.dll,File,Field 'CodePage' mismatch: Expect '1252' Got '1200',Error
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\MSDASC,Registry,Field 'Value' mismatch: Expect 'Microsoft Data Link' Got 'Microsoft 資料連結',Error
我去download 了mdac 2.5,但還是一樣.我用mcac component checker 檢查發現一堆error,如下請那位高手教教我吧! 謝了.
------錯誤訊息如下:Item Name,Item Type,ErrorString,Status
mtxdm.dll,File,Field 'FileVersion' mismatch: Expect '1999.9.3421.3' Got '1999.6.902.0',Error
MSVCRT.DLL,File,Field 'FileVersion' mismatch: Expect '6.10.8637.0' Got '6.00.8397.0',Error
odbccp32.cpl,File,Field 'CodePage' mismatch: Expect '1252' Got '1200',Error
odbcint.dll,File,Field 'CodePage' mismatch: Expect '1252' Got '1200',Error
STDOLE2.TLB,File,Field 'FileDescription' mismatch: Expect '' Got 'Microsoft OLE 2.40 for Windows NT(TM) and Windows 95(TM) Operating Systems',Error
ASYCFILT.DLL,File,Field 'FileDescription' mismatch: Expect '' Got 'Microsoft OLE 2.40 for Windows NT(TM) and Windows 95(TM) Operating Systems',Error
OLEPRO32.DLL,File,Field 'FileVersion' mismatch: Expect '5.0.4512' Got '5.0.4277',Error
OLEAUT32.DLL,File,Field 'FileDescription' mismatch: Expect '' Got 'Microsoft OLE 2.40 for Windows NT(TM) and Windows 95(TM) Operating Systems',Error
msader15.dll,File,Field 'CodePage' mismatch: Expect '1252' Got '1200',Error
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\MSDASC,Registry,Field 'Value' mismatch: Expect 'Microsoft Data Link' Got 'Microsoft 資料連結',Error
SQL可以這樣做嗎?(編號：4655)
有下列兩個SQL查詢,可有方法合併成一個嗎?
select 貨品,sum(金額) as money1 from sale where 日期='20000101'
select 貨品,sum(金額) as money2 from sale where 日期='20000201'
select 貨品,sum(金額) as money1 from sale where 日期='20000101'
select 貨品,sum(金額) as money2 from sale where 日期='20000201'
NT 如何裝兩塊網路卡(編號：4654)
我在NT 裝兩塊網路卡,一塊連內部網域,一塊連外部網域,單獨一塊使用都沒問題,兩塊一起使用卻出現網路無法啟動的錯誤,網路上的芳鄰看不到自己的電腦,事件檢視器出現電腦名稱相同的錯誤,不知應如何解決
SQL的大問題???(編號：4653)
MySql = "SELECT PRODUCT.NAME AS PRODNAME,SUPPLY.NAME,SUPPLY.ADD,SUPPLY.TEL FROM PRODUCT,SUPPLY "
'產品名稱 廠商名稱 廠商地址 廠商電話
MySql = MySql & "WHERE PRODUCT.ID IN (SELECT PRODID FROM STOCKSUB WHERE PRODID ='" & strSUPPLYSHOW & "',"
進貨單明細
MySql = MySql & "SUPPLY.ID IN(SELECT SUPID FROM STOCKMAIN WHERE ID IN (SELECT MAINID FROM STOCKSUB WHERE PRODID ='" & strSUPPLYSHOW & "')"
進貨單
SQL這樣子寫可以用嗎???
'產品名稱 廠商名稱 廠商地址 廠商電話
MySql = MySql & "WHERE PRODUCT.ID IN (SELECT PRODID FROM STOCKSUB WHERE PRODID ='" & strSUPPLYSHOW & "',"
進貨單明細
MySql = MySql & "SUPPLY.ID IN(SELECT SUPID FROM STOCKMAIN WHERE ID IN (SELECT MAINID FROM STOCKSUB WHERE PRODID ='" & strSUPPLYSHOW & "')"
進貨單
SQL這樣子寫可以用嗎???
How to list network neighborhood?(編號：4651)
When you click window explorer, it opens menu, drivelist box, folderlist box (on the left), filelist box (on the right) and so on. Beside the local drives, how they do the drivelist box to include network neighborhood. Same as common dialog control (showopen, showsave, etc). The question is what is that box? Is it same as the normal drivelistbox control. How can it include network drive inside?
如何控制Printer port(編號：4650)
*********************************************
網路上我看過有人控制RS232，但...
請問有人知道，如何可用VB在Printer port上傳資料出去.....????
謝謝...!!
*********************************************
網路上我看過有人控制RS232，但...
請問有人知道，如何可用VB在Printer port上傳資料出去.....????
謝謝...!!
*********************************************
關於VB及Eiffel！(編號：4648)
請問大家知道Eiffel嗎？我在網路上找一些中文的相關網站都找不到！我是在澳洲念電腦的，上學期念了VB，這學期就念Eiffel！不過因為VB也是念的蠻慘的！所以現在念Eiffel有點辛苦！Eiffel是屬於Object-Oriented，不過很不幸的我也不知道Object-Oriented正確的意思！有哪為前輩可以為小妹解答這些問題呢？另外一個問題就素小妹我現在正在苦惱一份報告，是關於換算日期的，（將西元某某年某某月某某日換算成法國一個特別的曆法！）想請教一下大家，我在哪裡可以找到關於換算日期及閏年的code！
(正在使用中的視窗)是尋找對話視窗,而非(記事本)本身!可是(記事(編號：4647)
如果要TextBox中被選取的文字反白,一般上是TextBox要SetFocus才行,
或是TextBox所在的視窗是使用中的視窗才行.
可是如果你有用(記事本)尋找對話視窗搜尋文字的話,如果當找到時,
你會發現(正在使用中的視窗)是尋找對話視窗,而非(記事本)本身!
可是(記事本)中的文字卻可以反白,請問這如何做到?謝謝!!
或是TextBox所在的視窗是使用中的視窗才行.
可是如果你有用(記事本)尋找對話視窗搜尋文字的話,如果當找到時,
你會發現(正在使用中的視窗)是尋找對話視窗,而非(記事本)本身!
可是(記事本)中的文字卻可以反白,請問這如何做到?謝謝!!
直譯式與編譯式程式語言(編號：4645)
直譯式與編譯式程式語言
高階語言的執行方式有編譯式與直譯式兩種
編譯： 編譯式的語言是將原始程式碼透過編譯器 (Compiler) 轉成機械碼，再直接執行機械碼。
直譯： 直譯式的語言是利用直譯器 (Interpreter) 對原始程式碼一邊讀解，一邊執行。
據我所知 vb屬直譯 是嗎
那麼像以下這段程式碼有何不同嗎?
bb是個boolean
sub ee()
dim aa as string
if bb then
exit sub
else
aa="beer"
print aa
endif
end sub
================================
sub ee()
if bb then
exit sub
else
dim aa as string
aa="beer"
print aa
endif
end sub
================================
以上的不同是dim aa as string的位置
我的問題來了....
直譯式是說一行一行讀 則第一段不管bb是啥值都會assign一個位置給aa嗎
而第二段則是若bb為false才assign
是不是速度上會有不同勒.....????因為我想在我們用recordset時是否先後定
義會有速度上的不同(if資料很多時)
高階語言的執行方式有編譯式與直譯式兩種
編譯： 編譯式的語言是將原始程式碼透過編譯器 (Compiler) 轉成機械碼，再直接執行機械碼。
直譯： 直譯式的語言是利用直譯器 (Interpreter) 對原始程式碼一邊讀解，一邊執行。
據我所知 vb屬直譯 是嗎
那麼像以下這段程式碼有何不同嗎?
bb是個boolean
sub ee()
dim aa as string
if bb then
exit sub
else
aa="beer"
print aa
endif
end sub
================================
sub ee()
if bb then
exit sub
else
dim aa as string
aa="beer"
print aa
endif
end sub
================================
以上的不同是dim aa as string的位置
我的問題來了....
直譯式是說一行一行讀 則第一段不管bb是啥值都會assign一個位置給aa嗎
而第二段則是若bb為false才assign
是不是速度上會有不同勒.....????因為我想在我們用recordset時是否先後定
義會有速度上的不同(if資料很多時)
請問如何刪除Dbf檔案的Recordset(編號：4644)
請問如何刪除Dbf檔案的Recordset,我下了data1.recordset.delete 後在vb內看不到資料但在其它程式(Winfax)內記錄仍然存在??
Thanks!!
Thanks!!
請問一個關於PictureBox和文字的問題(編號：4643)
請問要如何在將文字貼到PictureBox裡呢??
就是例如使用者輸入 abc , 然後PictureBox裡就出現abc三個字,但不是文字格式,是圖的格式呢?
就是例如使用者輸入 abc , 然後PictureBox裡就出現abc三個字,但不是文字格式,是圖的格式呢?
請教 Datagrid ???(編號：4641)
請教不使用 dataenvironment自行寫 master-detail 為何改完 detail 資料後, master 部份按下一筆時, detail 卻沒變(如不做
修改則按下一筆都正常)
修改則按下一筆都正常)
如何在Win2000 中設VB 的中斷點！(編號：4640)
請問各位高手如何在Win2000中使用VB開發Web 的Componment 時可以設定中斷點呢？或者有什麼比較好的Debug的方法嗎？！
關於Text or Label控制項的顏色....(編號：4638)
如何在一個Text(或Label)控制項中，設定不同的顏色的文字，如：第一行用紅色字，第二行用藍色字，第三行用黃色字等等。(VB5)
請問SQL語法與日期的配合!試了很多方法, 都辦不到! :=((編號：4637)
如果需經過SQL語法在Access抽出數筆在1999/5/5至2000/5/5之間的資料, 我的SQL語法應怎樣寫呢?
我已經試過用
"select * from DateDataBase where from_date ＞= 1999/5/5 and to_date ＜= 2000/5/5"
但是出現錯誤。
而在ASP利用這種方法
sql = "select * from DateDataBase"
set rs = conn.Execute(sql)
If rs("from_date") ＞= "1999/5/5" and rs("to_date") ＜= "2000/5/5" then
.......
End If
都是有錯誤的!
請問各位高手,
如何依日期範圍取出Records?
Thanks :=)
我已經試過用
"select * from DateDataBase where from_date ＞= 1999/5/5 and to_date ＜= 2000/5/5"
但是出現錯誤。
而在ASP利用這種方法
sql = "select * from DateDataBase"
set rs = conn.Execute(sql)
If rs("from_date") ＞= "1999/5/5" and rs("to_date") ＜= "2000/5/5" then
.......
End If
都是有錯誤的!
請問各位高手,
如何依日期範圍取出Records?
Thanks :=)
起始畫面....(編號：4636)
我用一般的Form 然後用標準的 Menu 功能表, 但是竟被人嫌字太小,以及太醜, 真是打擊我幼小的心靈, 請教各位高手, 是否有其他方法給他寫的美美的, 像網頁那樣......傷心的人....
問一個sql的問題........(編號：4632)
請問....為什麼如下的sql在adodc的物件，其物件屬性recordsource中設定，程式可以run沒問題；但將其放於程式碼中，就會發生sql syntax 錯誤呢？
select a.x1,a.x2,b.x1,b.x2 from a,b where a.x3=0 and a.x1＜＞"" and b.x1=a.x1 order by b.x3
select a.x1,a.x2,b.x1,b.x2 from a,b where a.x3=0 and a.x1＜＞"" and b.x1=a.x1 order by b.x3
請問 VB6中的SQL語法是否不可使用convert的函數?(編號：4631)
請問各位高手:
我的資料庫是使用SQL7.0,vb6 sp3
當我在VB6中寫了段SQL語法其中包括
了一段"corder_id+CONVERT(char(2),seq)"的sql函數後,當找在
開啟resultset時,會出現"37000:{Microsoft}[ODBC SQL SERVER
DRIVER][SQL SERVER]The cursor was not declared"的錯誤訊息,
由錯誤訊息看來應是odbc的問題,因為我將此段語法移至sql7.0上
執行是可以查詢的.不知問題在那裏.........
我的資料庫是使用SQL7.0,vb6 sp3
當我在VB6中寫了段SQL語法其中包括
了一段"corder_id+CONVERT(char(2),seq)"的sql函數後,當找在
開啟resultset時,會出現"37000:{Microsoft}[ODBC SQL SERVER
DRIVER][SQL SERVER]The cursor was not declared"的錯誤訊息,
由錯誤訊息看來應是odbc的問題,因為我將此段語法移至sql7.0上
執行是可以查詢的.不知問題在那裏.........
data control or adodc(編號：4630)
在屬性欄的 recordsource
可否用程式碼來改變
假設我有兩個recordsource
一個為基本資料.一個為部門
那在執行時可由基本資料轉為部門嗎?
How???
可否用程式碼來改變
假設我有兩個recordsource
一個為基本資料.一個為部門
那在執行時可由基本資料轉為部門嗎?
How???
如何使用 TOOLBAR 的使用者自訂功能?(編號：4623)
如題。小弟想在程式中放置二十個按鈕，但預設只出現十個按鈕，然後使用者可以 Double Click ToolBar 後可看到另外十個按鈕出現在 "可選用的按鈕"中，讓使用者自行設定，之後再用SaveToolbar/RestorToolbar Method 來載入
使用者設定的工具列。但小弟在 TOOLBAR 中放了二十個按鈕，然後將其中十個設成不可見，結果這十個按鈕卻沒有出現在自訂工具列的視窗中讓使用者選用，不知各位先進可知到要如何才可達成小弟想要的結果？謝謝！
使用者設定的工具列。但小弟在 TOOLBAR 中放了二十個按鈕，然後將其中十個設成不可見，結果這十個按鈕卻沒有出現在自訂工具列的視窗中讓使用者選用，不知各位先進可知到要如何才可達成小弟想要的結果？謝謝！
如何在自製e-mail軟體的e-mail中附加檔案(編號：4621)
本人自己研發一套e-mail軟體，沒有透過微軟outlook的功能來執行
，可是我遇到一個困難，就是在發e-mail時想附加檔案不知道該如何加入請告訴我，或回信到我的信箱
，可是我遇到一個困難，就是在發e-mail時想附加檔案不知道該如何加入請告訴我，或回信到我的信箱
封裝問題 出現ADO找不到提供者訊息(編號：4620)
使用vb6.0封裝程式
在封裝過程中出現依存資料遺漏
MSADO20.TLB找不到
但此檔案確實有在其顯示的目錄內
封裝完成後拿到其他電腦setup
程式在run後卻出現
ADO找不到提供者之錯誤訊息
程式仍可run但無法開啟資料庫
煩請各路高手幫忙一下
ps jet= 3.5.1 &4.0皆試過了
在封裝過程中出現依存資料遺漏
MSADO20.TLB找不到
但此檔案確實有在其顯示的目錄內
封裝完成後拿到其他電腦setup
程式在run後卻出現
ADO找不到提供者之錯誤訊息
程式仍可run但無法開啟資料庫
煩請各路高手幫忙一下
ps jet= 3.5.1 &4.0皆試過了
請問 ReplaceText API 該如何測試(編號：4619)
請問 ReplaceText API 該如何測試,我以下列程式測試總會出現現'這個程式執行作業無效,即將關閉' 的錯誤訊息',
PS:表單內只有一個Text1及兩個Command Button
使用Win98se + vb6 + sp3 程式碼如下:
Option Explicit
'Find/Replace Type Structure
Private Type FINDREPLACE
lStructSize As Long
hwndOwner As Long
hInstance As Long
flags As Long
lpstrFindWhat As String
lpstrReplaceWith As String
wFindWhatLen As Integer
wReplaceWithLen As Integer
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
'Common Dialog DLL Calls
Private Declare Function FindText Lib "comdlg32.dll" _
Alias "FindTextA" (pFindreplace As FINDREPLACE) As Long
Private Declare Function ReplaceText Lib "comdlg32.dll" _
Alias "ReplaceTextA" (pFindreplace As FINDREPLACE) As Long
'Delcaration of the type structure
Dim frText As FINDREPLACE
Private Sub cmdFind_Click()
'Call the find text function
frText.lpstrFindWhat = Text1.SelText
FindText frText
End Sub
Private Sub cmdReplace_Click()
'Call the replace text function
ReplaceText frText
End Sub
Private Sub Form_Load()
'Set the Find/Replace Type properties
With frText
.lpstrReplaceWith = "Replace Text"
.lpstrFindWhat = "Find Text"
.wFindWhatLen = 9
.wReplaceWithLen = 12
.hInstance = App.hInstance
.hwndOwner = Me.hWnd
.lStructSize = LenB(frText)
End With
End Sub
PS:表單內只有一個Text1及兩個Command Button
使用Win98se + vb6 + sp3 程式碼如下:
Option Explicit
'Find/Replace Type Structure
Private Type FINDREPLACE
lStructSize As Long
hwndOwner As Long
hInstance As Long
flags As Long
lpstrFindWhat As String
lpstrReplaceWith As String
wFindWhatLen As Integer
wReplaceWithLen As Integer
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
'Common Dialog DLL Calls
Private Declare Function FindText Lib "comdlg32.dll" _
Alias "FindTextA" (pFindreplace As FINDREPLACE) As Long
Private Declare Function ReplaceText Lib "comdlg32.dll" _
Alias "ReplaceTextA" (pFindreplace As FINDREPLACE) As Long
'Delcaration of the type structure
Dim frText As FINDREPLACE
Private Sub cmdFind_Click()
'Call the find text function
frText.lpstrFindWhat = Text1.SelText
FindText frText
End Sub
Private Sub cmdReplace_Click()
'Call the replace text function
ReplaceText frText
End Sub
Private Sub Form_Load()
'Set the Find/Replace Type properties
With frText
.lpstrReplaceWith = "Replace Text"
.lpstrFindWhat = "Find Text"
.wFindWhatLen = 9
.wReplaceWithLen = 12
.hInstance = App.hInstance
.hwndOwner = Me.hWnd
.lStructSize = LenB(frText)
End With
End Sub
VB about Excel(編號：4614)
我已經用Data control 將Excel file載入
but
我該如何get data from Excel cell to
the cell I defined in the VB
假設我宣告了一個陣列 A[100]
那我如何將在Excel 中
的 A1,A2,A3......存入A[0],A[1],A[2]
but
我該如何get data from Excel cell to
the cell I defined in the VB
假設我宣告了一個陣列 A[100]
那我如何將在Excel 中
的 A1,A2,A3......存入A[0],A[1],A[2]
在光碟片上Run程式?(編號：4613)
各位好:
小弟想寫一支可在光碟片上run的程式,
程式內容是要做簡單的查詢功能,
資料庫使用Access MDB,放在光碟片上...
不知道可否做到?
ps:不需要install程式
小弟想寫一支可在光碟片上run的程式,
程式內容是要做簡單的查詢功能,
資料庫使用Access MDB,放在光碟片上...
不知道可否做到?
ps:不需要install程式
在vb6.0及SQL7.0中實現記錄鎖定?(編號：4611)
請問一下如何以ADO在SQL7.0中實現記錄鎖定(Row Locking)?小弟使用的環境為: NT4.0, VB6.0 及 SQL server7.0,謝謝.
在vb6.0及SQL7.0中實現記錄鎖定?(編號：4610)
請問一下如何以ADO在SQL7.0中實現記錄鎖定(Row Locking)?
小弟使用的環境為: NT4.0, VB6.0 及 SQL server7.0
謝謝.
小弟使用的環境為: NT4.0, VB6.0 及 SQL server7.0
謝謝.
請教一道 SQL 語法該如何寫(編號：4608)
[tableA]
code addressname
A 台北市
B 台中
C 台南
D 高雄市
E 台北縣
[table B]
id addresscode
101 A
102 D
103 A
104 E
105 C
106 D
根據[一道join 語法]就可以很容易的知道所有id與addressname的關係
101 -＞ 台北市
102 -＞ 高雄市
...
那麼若某個 id 的addresscode = "ABC"
如何一次sql command得知 "台北市台中台南"
或者有何其他好方法
code addressname
A 台北市
B 台中
C 台南
D 高雄市
E 台北縣
[table B]
id addresscode
101 A
102 D
103 A
104 E
105 C
106 D
根據[一道join 語法]就可以很容易的知道所有id與addressname的關係
101 -＞ 台北市
102 -＞ 高雄市
...
那麼若某個 id 的addresscode = "ABC"
如何一次sql command得知 "台北市台中台南"
或者有何其他好方法
一個Sendkeys的問題...(編號：4605)
我需要用Sendkeys去送出"Spacebar"--空白鍵..可是我查過
MSDN..所有鍵都有..就是沒有送出空白鍵的id...
有人知道該怎麼做嗎！？
MSDN..所有鍵都有..就是沒有送出空白鍵的id...
有人知道該怎麼做嗎！？
不知道可以用嗎?(編號：4604)
If Adodc1.Recordset.RecordCount ＜＞ 0 Then
Adodc1.Recordset.MoveFirst
Do
ADODC1.Recordset.Delete
ADODC1.Recordset.MoveNext
Loop Until ADODC1.Recordset.EOF
End If
但是都會在ADODC1.Recordset.Delete這裡出問題
因為DATA控制項可以用~所以不知道ㄝ~~
謝謝各位~~
Adodc1.Recordset.MoveFirst
Do
ADODC1.Recordset.Delete
ADODC1.Recordset.MoveNext
Loop Until ADODC1.Recordset.EOF
End If
但是都會在ADODC1.Recordset.Delete這裡出問題
因為DATA控制項可以用~所以不知道ㄝ~~
謝謝各位~~
About ODBC!(編號：4603)
請問 Windows NT 4.0 上的ODBC Driver 和 Windows 9x上的有版本上的分別嗎! 本人想Download 新版的ODBC,哪裡可以Download,需要Pay $ 嗎???
事件原因;
OS: Windows NT 4.0(中文版) SP6 + SQL Server 6.5 sp3;
在NT 上 Run VB5 sp3 經ODBC connect to sql server, 總是在Run 的時候, Dr. Watson 便走了出來,說什麼vb5.exe .....;
但我在Windows98 經ODBC connect to sql server,卻操作正常!
事件原因;
OS: Windows NT 4.0(中文版) SP6 + SQL Server 6.5 sp3;
在NT 上 Run VB5 sp3 經ODBC connect to sql server, 總是在Run 的時候, Dr. Watson 便走了出來,說什麼vb5.exe .....;
但我在Windows98 經ODBC connect to sql server,卻操作正常!
Winsock 的問題 !!(編號：4602)
我有一個用 winsock 做的聊天程式, 但如果某一方的電腦是在 Proxy or FireWall 之下就不能與另一方聊天了 !! 請問各位有何解決之法? 謝謝!!
可是在 Proxy 內的電腦不是要透過 http, ftp, ...等才能連到外面的電腦嗎?
如果是直接指對方電腦的 IP, 好像不能連喔!
是不是要用 Sock4, Sock5 之類的東西!!
可是在 Proxy 內的電腦不是要透過 http, ftp, ...等才能連到外面的電腦嗎?
如果是直接指對方電腦的 IP, 好像不能連喔!
是不是要用 Sock4, Sock5 之類的東西!!
DataReport 的頁尾控制(編號：4597)
請問一下各位先進,在DataReport中,如要列印出每頁不同的頁尾
內容,(比方說:整頁的資料中每個客戶的交易量列印出來了,在頁
尾的部分,設計成列印客戶的姓名及地址以便折頁郵寄)我該如何
去控制他讓他每頁都跟著不同的客戶姓名地址列印出來??
我曾試過在呼叫報表時先設定頁尾的Section item 資料,但是印
出來卻始終每一頁都是第一筆客戶資料的姓名及地址 ,難道使用
頁尾的列印就不能如同每頁頁尾列印頁數一般的可用程式來控制
嘛?
內容,(比方說:整頁的資料中每個客戶的交易量列印出來了,在頁
尾的部分,設計成列印客戶的姓名及地址以便折頁郵寄)我該如何
去控制他讓他每頁都跟著不同的客戶姓名地址列印出來??
我曾試過在呼叫報表時先設定頁尾的Section item 資料,但是印
出來卻始終每一頁都是第一筆客戶資料的姓名及地址 ,難道使用
頁尾的列印就不能如同每頁頁尾列印頁數一般的可用程式來控制
嘛?
shell???(編號：4596)
我用shell "test.exe"呼叫一個執行檔,可是vb執行完這一行命令後就會繼續執行下一行命令了,請問有沒有方法才能讓vb等test.exe結束後才繼續執行下一行命令呢??或是有沒有方法能知到test.exe已經結束了呢??????謝謝~~
用word做面板來列印so...(編號：4595)
1.曾經在某站看到一篇用word做面板來列印報表的方式,
對於這一個問題可否再問各位先進:
如果在word中已經有一個面板(假設如下:),如何在程式中控制將這個Page的資料中整個copy 到下一個Page中
-------------------------------------
! test reporter !
! ______________________ !
! ! ! ＜-表格 !
2.在vb中下document("test.doc").printout
在run time 中 無任何的error產生但是印表机卻沒有任何的反應
請問這是怎麼回事(註:印表机在word等其程式中是正常的)
3.Thank you everybody!!!!
對於這一個問題可否再問各位先進:
如果在word中已經有一個面板(假設如下:),如何在程式中控制將這個Page的資料中整個copy 到下一個Page中
-------------------------------------
! test reporter !
! ______________________ !
! ! ! ＜-表格 !
2.在vb中下document("test.doc").printout
在run time 中 無任何的error產生但是印表机卻沒有任何的反應
請問這是怎麼回事(註:印表机在word等其程式中是正常的)
3.Thank you everybody!!!!
請問 FindText API 該如何測試(編號：4593)
請問 FindText API 該如何測試,我以下列程式測試總會出現現'這個程式執行作業無效,即將關閉' 的錯誤訊息',
PS:表單內只有一個Text1及兩個Command Button
使用Win98se + vb6 + sp3
Option Explicit
'Find/Replace Type Structure
Private Type FINDREPLACE
lStructSize As Long
hwndOwner As Long
hInstance As Long
flags As Long
lpstrFindWhat As String
lpstrReplaceWith As String
wFindWhatLen As Integer
wReplaceWithLen As Integer
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
'Common Dialog DLL Calls
Private Declare Function FindText Lib "comdlg32.dll" _
Alias "FindTextA" (pFindreplace As FINDREPLACE) As Long
Private Declare Function ReplaceText Lib "comdlg32.dll" _
Alias "ReplaceTextA" (pFindreplace As FINDREPLACE) As Long
'Delcaration of the type structure
Dim frText As FINDREPLACE
Private Sub cmdFind_Click()
'Call the find text function
frText.lpstrFindWhat = Text1.SelText
FindText frText
End Sub
Private Sub cmdReplace_Click()
'Call the replace text function
ReplaceText frText
End Sub
Private Sub Form_Load()
'Set the Find/Replace Type properties
With frText
.lpstrReplaceWith = "Replace Text"
.lpstrFindWhat = "Find Text"
.wFindWhatLen = 9
.wReplaceWithLen = 12
.hInstance = App.hInstance
.hwndOwner = Me.hWnd
.lStructSize = LenB(frText)
End With
End Sub
PS:表單內只有一個Text1及兩個Command Button
使用Win98se + vb6 + sp3
Option Explicit
'Find/Replace Type Structure
Private Type FINDREPLACE
lStructSize As Long
hwndOwner As Long
hInstance As Long
flags As Long
lpstrFindWhat As String
lpstrReplaceWith As String
wFindWhatLen As Integer
wReplaceWithLen As Integer
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
'Common Dialog DLL Calls
Private Declare Function FindText Lib "comdlg32.dll" _
Alias "FindTextA" (pFindreplace As FINDREPLACE) As Long
Private Declare Function ReplaceText Lib "comdlg32.dll" _
Alias "ReplaceTextA" (pFindreplace As FINDREPLACE) As Long
'Delcaration of the type structure
Dim frText As FINDREPLACE
Private Sub cmdFind_Click()
'Call the find text function
frText.lpstrFindWhat = Text1.SelText
FindText frText
End Sub
Private Sub cmdReplace_Click()
'Call the replace text function
ReplaceText frText
End Sub
Private Sub Form_Load()
'Set the Find/Replace Type properties
With frText
.lpstrReplaceWith = "Replace Text"
.lpstrFindWhat = "Find Text"
.wFindWhatLen = 9
.wReplaceWithLen = 12
.hInstance = App.hInstance
.hwndOwner = Me.hWnd
.lStructSize = LenB(frText)
End With
End Sub
如何在印出RichTextBox文字內容時,同時印出其範圍內之command控(編號：4591)
如何在印出RichTextBox文字內容時,同時印出其範圍內command控制項或自行設計之控制項之caption或圖片?
安裝時的錯誤訊息(編號：4587)
製成執行檔、封裝程式時都無問題
但安裝在機器卻出現下列錯誤訊息
*** 錯誤: 找不到檔案「D:\TEMP\msftqws.pdw\$(DLLSelfRegisterEx)」，因此無法註冊。
但安裝在機器卻出現下列錯誤訊息
*** 錯誤: 找不到檔案「D:\TEMP\msftqws.pdw\$(DLLSelfRegisterEx)」，因此無法註冊。
??此變數使用了Visual Basic 不支援 Automation 型態(編號：4582)
有個程式,執行到某一行指令時即出現上述錯誤訊息
請問出現這個錯誤訊息代表什麼呢
為何編譯不會出錯
但,執行檔拿到別台電腦執行居然也不會錯
若在不會出錯的電腦上,編譯好再拿過來執行
同樣會出現上述錯誤訊息
這是什麼原因
請問出現這個錯誤訊息代表什麼呢
為何編譯不會出錯
但,執行檔拿到別台電腦執行居然也不會錯
若在不會出錯的電腦上,編譯好再拿過來執行
同樣會出現上述錯誤訊息
這是什麼原因
如何了解侵入更改oulook express的簽名欄或internet的首頁(編號：4581)
Dear Sir:
有一個問題請教您
如果有一個網址(如下)
-----------------------------------------------------
Click here for Free Video!!
http://www.gohip.com/free_video/
-----------------------------------------------------
當您執行這個網址的時候，它會將您outlook express 內的簽名欄改成上述狀況，甚至於將您的Internet Explorer 的homepage改成它的網址，您能告訴我它是如何做到的呢?謝謝
Karl
有一個問題請教您
如果有一個網址(如下)
-----------------------------------------------------
Click here for Free Video!!
http://www.gohip.com/free_video/
-----------------------------------------------------
當您執行這個網址的時候，它會將您outlook express 內的簽名欄改成上述狀況，甚至於將您的Internet Explorer 的homepage改成它的網址，您能告訴我它是如何做到的呢?謝謝
Karl
程設:網頁到某一網址,但讓使用者看不到網頁內容(編號：4579)
請問如何讓網頁到某一網址,但讓使用者看不到該網頁內容,
且如何得知該網頁已下載完畢?希望盡量用java script,若非用
其他解法也可.
謝謝!
chsu@acer.net
且如何得知該網頁已下載完畢?希望盡量用java script,若非用
其他解法也可.
謝謝!
chsu@acer.net
MS-SQL 的日期時間顯示(編號：4578)
請問眾高手，為何我在VB中SELECT出SQL7的某時間欄位(datetime)資料時，結果顯示成"2000/07/07 上午 09:00"，而非"2000/07/07 09:00 AM"，如此造成我要把資料轉入另一Table時發生欄位Type不符的錯誤，請問是哪裡"設定?"出了問題。
VB6+MS-SQL7
VB6+MS-SQL7
如何用VB傳Dos command(編號：4577)
有沒有人知道要怎樣送命令到Dos的程式下
我本來想用Sendkeys..可是查過才知道這樣只能送到
Windows下的程式中..我現在是要用Shell叫一個Dos下的
程式,再送一些命令給它...有高手知道如何做嗎！？
感激不盡.....謝謝～～
我本來想用Sendkeys..可是查過才知道這樣只能送到
Windows下的程式中..我現在是要用Shell叫一個Dos下的
程式,再送一些命令給它...有高手知道如何做嗎！？
感激不盡.....謝謝～～
要如何Join,Dele才不會出問題??(編號：4576)
Select OrH.OrdNo.OrH.ItemNo.Item.Descr...
from Orh Left Join Item on OrH.Item=Item.Item...
如此Select後有將近 100,000筆的資料
下Delete指令時會連 Item檔中的Item刪除
如何才能避免這個問題..
*已經使用過Temp Recordset的方式一個一個塞,可是要花2倍的時間
才讀得出資料來,雖然可以解決這個問題,可是太慢了..
請問有何良方???
from Orh Left Join Item on OrH.Item=Item.Item...
如此Select後有將近 100,000筆的資料
下Delete指令時會連 Item檔中的Item刪除
如何才能避免這個問題..
*已經使用過Temp Recordset的方式一個一個塞,可是要花2倍的時間
才讀得出資料來,雖然可以解決這個問題,可是太慢了..
請問有何良方???
小問題請教眾高手(編號：4573)
1.請問如何抓到網卡的mac
2.如何修改window的Registry以便讓ie或netscape或其他browser
可以成為 default browser?
謝謝
2.如何修改window的Registry以便讓ie或netscape或其他browser
可以成為 default browser?
謝謝
推薦書籍 - 給想深入了解 Windows SDK 的人(編號：4569)
Charles Petzold，「Windows 程式開發設計指南」，華彩軟體，第五版，民國 89 年 6 月 2 日。
書號：CD016
ISBN 957-8239-73-4 (精裝附光碟)
-------------------------------------
這是一本中文書 for Windows 95/98/NT/2K, 約 1,600 頁, 定價 NT 1,200 !
是純就 SDK 的觀念寫 Windows 程式, 所以是以 C 為範例, 但是重點是它將很多觀念寫出來, 想更深入了解 Windows API 就非靠它不可! 是重量級的大師寫的書, 華彩翻譯! 介紹範圍涵蓋整個 Windows 核心, 算是頂級書刊!
在物件氾濫前, 寫 Windows 程式必須只依靠 Windows API 構成, 當時都簡稱這種做法為 SDK (Sofeware Development Kit) , 市面上幾乎找不到這種書了, 難得找到一本! 適合進階人員觀賞, 特別推薦給 MSDN 看半天卻搞不清楚 API 呼叫的前後順序的人, 及對 Windows 核心想深入了解的人!
書號：CD016
ISBN 957-8239-73-4 (精裝附光碟)
-------------------------------------
這是一本中文書 for Windows 95/98/NT/2K, 約 1,600 頁, 定價 NT 1,200 !
是純就 SDK 的觀念寫 Windows 程式, 所以是以 C 為範例, 但是重點是它將很多觀念寫出來, 想更深入了解 Windows API 就非靠它不可! 是重量級的大師寫的書, 華彩翻譯! 介紹範圍涵蓋整個 Windows 核心, 算是頂級書刊!
在物件氾濫前, 寫 Windows 程式必須只依靠 Windows API 構成, 當時都簡稱這種做法為 SDK (Sofeware Development Kit) , 市面上幾乎找不到這種書了, 難得找到一本! 適合進階人員觀賞, 特別推薦給 MSDN 看半天卻搞不清楚 API 呼叫的前後順序的人, 及對 Windows 核心想深入了解的人!
EXCEL的排序(編號：4565)
請問如何將excel中排序並將排序的結果
中間有缺值的補零
我試過排序完之後 缺值的欄位都排到後面去
但是要如何判斷那些欄位需要補零呢
不要用一筆一筆撿查..因為試過效率很差...
中間有缺值的補零
我試過排序完之後 缺值的欄位都排到後面去
但是要如何判斷那些欄位需要補零呢
不要用一筆一筆撿查..因為試過效率很差...
msdn在microsoft的網站就有on line的了(編號：4564)
好像很多人沒裝msdn,其實我也沒裝所以要查資料還真不好找＞_＜
不過microsoft的網站就有on line的msdn可用了,大家可好好利用
不過microsoft的網站就有on line的msdn可用了,大家可好好利用
無關vb事項(編號：4563)
請問各位網友，諸如經濟學常用的圖表，如只有二向限(x,y)，而且在上
面可以畫各種直線，曲線、標示各種分析符號，通常是由那一軟體(英
文、中文，word,visio本人試過皆費時費力，本人要找較專業軟體)可以快速製作。
'
'
謝謝。
面可以畫各種直線，曲線、標示各種分析符號，通常是由那一軟體(英
文、中文，word,visio本人試過皆費時費力，本人要找較專業軟體)可以快速製作。
'
'
謝謝。
有關MultiThread的練習~~(編號：4562)
最近K侯Sir的MultiThread..
這方面的書~~
但是不知道可以應用於那方面??
請各位高手前輩~~
告訴小弟如何練習~~
最好有個關於Internet 或是misc的專題~~
不是作業~~
謝謝~~各位~~3Q~~~
^_^
這方面的書~~
但是不知道可以應用於那方面??
請各位高手前輩~~
告訴小弟如何練習~~
最好有個關於Internet 或是misc的專題~~
不是作業~~
謝謝~~各位~~3Q~~~
^_^
select case.......end select 問題(編號：4560)
請問： 如果一個程式如下
想要在(2)的地方跳出select迴圈直接執行(3)，該怎麼作？
"break"似乎不行耶~~~
select case aa
case 1:
........
case 2:
if cc then
......(1)
......(2)
else
.......
end if
case 3:
......
case else
.......
end select
........(3)
想要在(2)的地方跳出select迴圈直接執行(3)，該怎麼作？
"break"似乎不行耶~~~
select case aa
case 1:
........
case 2:
if cc then
......(1)
......(2)
else
.......
end if
case 3:
......
case else
.......
end select
........(3)
關於Store Procedure !(編號：4553)
各位!
我是第一次用VB5 SP3 連上SQL Server的, Version 是6.5 with sp3
我在Server 上建立了一道Store Procedure 名叫 UpdateSalary (@Var1 Char(10),@Var2 Char(10))
我想在VB 上Call 這個UpdateSalary來用,
請問應該怎樣做!
可否舉例明示!
我是第一次用VB5 SP3 連上SQL Server的, Version 是6.5 with sp3
我在Server 上建立了一道Store Procedure 名叫 UpdateSalary (@Var1 Char(10),@Var2 Char(10))
我想在VB 上Call 這個UpdateSalary來用,
請問應該怎樣做!
可否舉例明示!
select case 問題(編號：4550)
請問的select case中 ,若我的case是有範圍的,是否不能用此指令
程式如下:
aa = 4
select case aa
case aa ＞ = 6
bb = 1
case aa＞= 6 and aa ＜= 10
bb = 2
.
.
.
end select
雖然 aa=4照理要跑第一段使bb=1
但是程式卻跳過,怎麼會這樣,我寫錯了嗎?還是select case 的限制
謝謝!!
程式如下:
aa = 4
select case aa
case aa ＞ = 6
bb = 1
case aa＞= 6 and aa ＜= 10
bb = 2
.
.
.
end select
雖然 aa=4照理要跑第一段使bb=1
但是程式卻跳過,怎麼會這樣,我寫錯了嗎?還是select case 的限制
謝謝!!
Q of VB + SQL(編號：4548)
我用vb 去execute sql statement 的時候, 因為database太大, 所以要execute一句sql statement需要數分鐘, 導致screen好似當機(但其實只是executing the sql statement), 有甚麼方法每數秒
update screen一次? 我曾試過利用timer, 但問題仍然存在.
VB Version: 4.0
SQL statement: Insert Into Table_A In Database_A Select * From Table_B
update screen一次? 我曾試過利用timer, 但問題仍然存在.
VB Version: 4.0
SQL statement: Insert Into Table_A In Database_A Select * From Table_B
關於MCSD考試(編號：4545)
請問有人用過Transcender的MCSD模擬試題嗎?不知效果如何.網路上有一家在賣該牌試題(在台灣),但是價錢只有原Transcender網站上價錢的一半,不知道是不是翻版的?
繪圖的問題(編號：4543)
請問有人知道
當我們以bitblt函數把圖片貼到Screen上面時
能否再將之清除呢?
and Screen是否也能像picturebox一樣autoredraw呢?
請高手指導
THANKS~^______________________^
當我們以bitblt函數把圖片貼到Screen上面時
能否再將之清除呢?
and Screen是否也能像picturebox一樣autoredraw呢?
請高手指導
THANKS~^______________________^
請問一個vb程式拜託高手指導謝謝(編號：4541)
急問
請問vb如何寫出計時的功能我要的是1-2-4-5-6-7...............慢慢增加數字的功能還要有啟動跟停止請問誰能能教我嗎???拜託
請問vb如何寫出計時的功能我要的是1-2-4-5-6-7...............慢慢增加數字的功能還要有啟動跟停止請問誰能能教我嗎???拜託
imagelist vs commandbutton, flatbutton(編號：4540)
請問如何下指令給commandbutton or flatbutton 控制項來使用ImageList中的影像????...
怎麼用vb6載入非vb做出的dll(編號：4539)
我用下面的方法，可是run的時候會有錯誤：can't find entry point SomeFunc in SomeDLL.dll
不知道是不是我的語法還是什麼有問題呀
我想要include的這個dll可以用c來include
那該如何用vb來載入呢?
Private Declare Function SomeFunc Lib "SomeDLL.dll" (ByVal DATA1 As Long, ByVal DATA2 As String) As Integer
不知道是不是我的語法還是什麼有問題呀
我想要include的這個dll可以用c來include
那該如何用vb來載入呢?
Private Declare Function SomeFunc Lib "SomeDLL.dll" (ByVal DATA1 As Long, ByVal DATA2 As String) As Integer
用ADODC可以刪除mdb內TABLE的一筆資料嗎?(編號：4538)
If Adodc1.Recordset.RecordCount ＜＞ 0 Then
Adodc1.Recordset.MoveFirst
Do
ADODC1.Recordset.Delete
ADODC1.Recordset.MoveNext
Loop Until ADODC1.Recordset.EOF
End If
但是都會在ADODC1.Recordset.Delete這裡出問題
因為DATA控制項可以用~所以不知道ㄝ~~
謝謝各位~~
Adodc1.Recordset.MoveFirst
Do
ADODC1.Recordset.Delete
ADODC1.Recordset.MoveNext
Loop Until ADODC1.Recordset.EOF
End If
但是都會在ADODC1.Recordset.Delete這裡出問題
因為DATA控制項可以用~所以不知道ㄝ~~
謝謝各位~~
SQL Insert Into 的問題??(編號：4534)
為何以下的 SQL Stement 會發生錯誤?
Insert Into ATable values('2000/7/17 PM 12:00:00')
但以下的 SQL Statement 不會錯誤!!
Insert Into ATable values('2000/7/17')
是不是 SQL 不能 Insert 日期時間的資料型態??
只能 Insert 日期的型1態??
Insert Into ATable values('2000/7/17 PM 12:00:00')
但以下的 SQL Statement 不會錯誤!!
Insert Into ATable values('2000/7/17')
是不是 SQL 不能 Insert 日期時間的資料型態??
只能 Insert 日期的型1態??
關於command button(編號：4533)
我想在command button上面插上label但不知為何無法在編輯模式下看到我打入label上的文字,似乎command總是在上層,請問該如何設定?
請問如何使crystal report 的線不顯示出來？(編號：4532)
在crystal report7.0中畫一條直線，在程式執行時，符合某條件時才顯示出來?請問各位高手該如何作？謝謝!!(vb6.0,sp5)
Winsock 的問題 !!(編號：4531)
我有一個用 winsock 做的聊天程式, 但如果某一方的電腦是在 Proxy or FireWall 之下就不能與另一方聊天了 !! 請問各位有何解決之法? 謝謝!!
是不是要用 Sock4, Sock5 之類的東西!!
是不是要用 Sock4, Sock5 之類的東西!!
About PictureBox-2(編號：4530)
run time 時自動載入99個label inside the picturebox,
但picturebox 的畫面只能容納50個label, 請問高手們
該如何使用VScollBar來顯示1-100 label??????
但picturebox 的畫面只能容納50個label, 請問高手們
該如何使用VScollBar來顯示1-100 label??????
VB DataGrid 的問題 ?(編號：4529)
VB Datagrid 的欄位可以以 ComboBox 顯示嗎??
要如何做?? 我有設定 Datagrid 的 "下拉式" 屬性為啟用, 但好像沒有用.!!
要如何做?? 我有設定 Datagrid 的 "下拉式" 屬性為啟用, 但好像沒有用.!!
rtf上如何顯示Label及Image,並可拖放移動?(編號：4526)
rtf上如何顯示透明的Label及Image,並可拖放移動,word輸入區是用何種控制項,其上圖片拖放功能如何作到?及其存檔格式為何?
有個vb問題請教站長及各(編號：4525)
有個vb問題請教站長及各前位高手...
＜html＞
＜p＞＜a href="http://netcity2.web.hinet.net/UserData/mumin/Q.zip" target="_blank"＞問題.ZIP
2kb＜/a＞＜/p＞
＜/html＞
＜html＞
＜p＞＜a href="http://netcity2.web.hinet.net/UserData/mumin/Q.zip" target="_blank"＞問題.ZIP
2kb＜/a＞＜/p＞
＜/html＞
一個關於排序的問題(編號：4524)
我目前正在做一個益智遊戲
這益智遊戲在過關時要能紀錄
玩家所花費的時間
每個關卡就做一次成績排名(共排10名)
如果玩家的時間比這原先的前10名時間還少
(也就是以時間做為排序依據)
就顯示一對話框讓玩家輸入其姓名
輸入完後就顯示這關卡前10名的成績
也就是說要有下面這樣的畫面
名次 姓名 時間
1 XXX YY
2 ggg ff
. . .
. . .
. . .
10 hhh jj
我目前是用隨機檔的方式將這10筆資料存檔
裡面每筆資料錄都存放"姓名"和"時間"
然後讀出來用氣泡排序的方式將"時間"做排序
那現在問題是"時間"排序是排對了
把時間依照最少的排第一
依序寫進隨機檔中是沒問題
可是還有一個"姓名"ㄚ
姓名要對照時間ㄝ
我要如何做才能使"姓名"跟著"時間"排序??
還是用資料庫做??
各位高手能不能提供一些方法或方向
Thx
這益智遊戲在過關時要能紀錄
玩家所花費的時間
每個關卡就做一次成績排名(共排10名)
如果玩家的時間比這原先的前10名時間還少
(也就是以時間做為排序依據)
就顯示一對話框讓玩家輸入其姓名
輸入完後就顯示這關卡前10名的成績
也就是說要有下面這樣的畫面
名次 姓名 時間
1 XXX YY
2 ggg ff
. . .
. . .
. . .
10 hhh jj
我目前是用隨機檔的方式將這10筆資料存檔
裡面每筆資料錄都存放"姓名"和"時間"
然後讀出來用氣泡排序的方式將"時間"做排序
那現在問題是"時間"排序是排對了
把時間依照最少的排第一
依序寫進隨機檔中是沒問題
可是還有一個"姓名"ㄚ
姓名要對照時間ㄝ
我要如何做才能使"姓名"跟著"時間"排序??
還是用資料庫做??
各位高手能不能提供一些方法或方向
Thx
如何附加傳真*.fmf以外的檔案格式?*.bmp,*.txt...?(編號：4523)
請教高手~不知有沒有人研究過傳真軟體~我用faxman~server想用vb做傳真程式其中~電子簽核這方面的功能因為它標準輸出格式為fmf或格式~不知有啥方法能夾帶列印其他格式的資料或轉檔ㄉ方法,目前始用vb6.0有vb5.0~vb4.0原始程式
~~~~~~~~~~~~~~~~~~~~~~~若有需要願提供原始碼~一起研究看看
~~~~~~~~~~~~~~~~~~~~~~~若有需要願提供原始碼~一起研究看看
請問如判斷buff的內容(編號：4522)
程式碼如下
Dim ret As Long
Dim buff As String
buff = String(255, 0)
ret = GetPrivateProfileString(SessionName, ItemName, DefaultValue, buff, 256, INIFileName)
我要怎麼知道buff有沒有傳回值呢?
我試過用if的條件判斷
for i=1 to len(buff)
if mid(buff,i,1) = 0 or mid(buff,i,1)="" or isempty(buff,i,1) or isnull(buff,i,1) then
debug.print "A"
else
debug.print "B"
end if
next
但是都是傳回B
請問高手如何判斷buff有值呢?
Dim ret As Long
Dim buff As String
buff = String(255, 0)
ret = GetPrivateProfileString(SessionName, ItemName, DefaultValue, buff, 256, INIFileName)
我要怎麼知道buff有沒有傳回值呢?
我試過用if的條件判斷
for i=1 to len(buff)
if mid(buff,i,1) = 0 or mid(buff,i,1)="" or isempty(buff,i,1) or isnull(buff,i,1) then
debug.print "A"
else
debug.print "B"
end if
next
但是都是傳回B
請問高手如何判斷buff有值呢?
是否有方法可以把DataReport用得更好??(編號：4521)
在我的資料庫中的一個資料表中,有個性別欄位是"是/否"的型態,是否可以在DataReport中寫成遇到"是"的資料錄就顯示成"男",遇到"否"的資料錄就顯示成"女"???請教教我,謝謝你!
錯誤代號：3706(編號：4520)
我在USER端執行程式，但卻出現了『 錯誤代碼：3706 ADO 找不到指定提供者』的錯誤訊息，但如果在有裝 VB 的PC上執行卻無此問題，不知問題出在哪裡？
PS： USER端已執行過以封裝的PACKAGE。
PS： USER端已執行過以封裝的PACKAGE。
請問在ADO如何取得ACCESS或SQL資料庫中的table name(編號：4517)
recordset1.Fields.Item(1).Name 可取得欄位名稱(field name)
但是一個資料庫當中有許多Table 要如何取得其table name?
(因為在connection 的屬性當中好像找不到相關資訊)
但是一個資料庫當中有許多Table 要如何取得其table name?
(因為在connection 的屬性當中好像找不到相關資訊)
如何 merge 兩個專案?(編號：4516)
Dear All:
我和朋友各別維護系統中某一個專案,若為方便各自維護而想利用專案群組來達成系統維護,即某一個專案中可Call另一個專案的Form或sub是否可以?
要不在多人共同發展的系統,VB是如何來管理?
謝謝!
Tommy
我和朋友各別維護系統中某一個專案,若為方便各自維護而想利用專案群組來達成系統維護,即某一個專案中可Call另一個專案的Form或sub是否可以?
要不在多人共同發展的系統,VB是如何來管理?
謝謝!
Tommy
刪除資料庫資料(編號：4512)
如何刪除完檔案內最後一筆資料後, 畫面會清乾淨呢 ?
我使用 refresh 後, 只是將檔案重整而已,
我想知道有沒有方法可使畫也清除, 免得USER看到殘餘的記錄.
謝謝!
我使用 refresh 後, 只是將檔案重整而已,
我想知道有沒有方法可使畫也清除, 免得USER看到殘餘的記錄.
謝謝!
VB的CGI如何做？(編號：4508)
誰會用Visual Basic做CGI ?
做成*.exe 後，
以http://....../xxx.exe?id=111&color=ff0000之類的來啟動計數器。
如果會，請把原始碼給我，或做給我(附原始檔)！
謝謝！
做成*.exe 後，
以http://....../xxx.exe?id=111&color=ff0000之類的來啟動計數器。
如果會，請把原始碼給我，或做給我(附原始檔)！
謝謝！
how to reference ActiveX?(編號：4506)
I want to join two project, some one teach me change one as Activex and another reference it.
But i don't know how can i reference another project from one project.
can u teach me? thx a lot.
But i don't know how can i reference another project from one project.
can u teach me? thx a lot.
Label中的文字變色(編號：4502)
如何讓Mouse接觸到Label中的文字後(未Click)讓他變顏色呢?
我是要用一個網址Link...我已經會用Mouse接觸後就變圖示..
可是顏色要怎麼用呀......???
我是要用一個網址Link...我已經會用Mouse接觸後就變圖示..
可是顏色要怎麼用呀......???
如何做出像InputBox的東西(編號：4497)
InputBox是很好用的輸入工具，但是只能有一個可輸入的文字列，
我想做出能輸入數個資料，得到一個字串，例如年月日分別輸入，
處理後得到一個日期文字
謝謝諸位的解惑
我想做出能輸入數個資料，得到一個字串，例如年月日分別輸入，
處理後得到一個日期文字
謝謝諸位的解惑
ODBC 的問題 !!(編號：4496)
這個問題可能與 VB 比較無關,
還是請教各位,如何將控制台的 ODBC 版本回復為舊版本, 或是將現存的版本刪除, 因為它偷偷升級後,我的 VB 程式變得怪怪的 .
謝謝 !!
還是請教各位,如何將控制台的 ODBC 版本回復為舊版本, 或是將現存的版本刪除, 因為它偷偷升級後,我的 VB 程式變得怪怪的 .
謝謝 !!
使用DATA COMBO 的一些問題?(編號：4493)
最近寫了資料庫的軟體,本來使用combo box連結相關資料欄位,再作修改資料時,讓使用者有取消修改功能,使用cancelupdate時資料會回覆原先的狀態!
但改用Datacombo以後,做資料修改時,於datacombo選取選項後,想取消,下Cancelupdate卻沒辦法回覆原先資料狀態,懇請站上高手不吝解答
我的Datacombo的Datasource為連結Adodc物件的datafield!
但改用Datacombo以後,做資料修改時,於datacombo選取選項後,想取消,下Cancelupdate卻沒辦法回覆原先資料狀態,懇請站上高手不吝解答
我的Datacombo的Datasource為連結Adodc物件的datafield!
資料問題(編號：4490)
在資料庫中的資料, 要如何讓某筆資料有「英文字串」和「數學符號」共處？
如 「ζis damping ratio」 -＞ 當然我所用的符號會比ζ複雜很多, 如積分...等符號
如 「ζis damping ratio」 -＞ 當然我所用的符號會比ζ複雜很多, 如積分...等符號
How can I use the SQL statement to search...?(編號：4488)
How can I use the SQL statement to search exactly that number of the record?
(eg. The 17th row of 100 record and the 33th row of 100 record in the database)
(eg. The 17th row of 100 record and the 33th row of 100 record in the database)
I don't know how to join two project.(編號：4487)
But don't answer me add all form from another project.
I have two project, some function and procedure name are the same, cannot add them together.
Anyother good method?
thx a lot.
I have two project, some function and procedure name are the same, cannot add them together.
Anyother good method?
thx a lot.
How to check no-match situation in SQL(編號：4486)
As title, if i want to show the error message if record exist after executing the SQL statement. How can I do?
VB 載入物件的問題(編號：4485)
請問一下, 我在程序裡面寫 load picture(i), 載入了很多個圖框, 並且在寫load Lable(i),載入了很多文字框, 但是我希望文字框能夠載入到不同的圖框中,結果卻是文字框全部載入到 picture(0) 裡面了, 請教教我該如何解決 ...
Service Pack 的問題(編號：4484)
我由 Microsoft Download 了 VB 的 SP4 並且安裝了它,
現在我面臨的問題是:
我的程式透過 ODBC 去讀取 dBASE 的資料庫,
我本來引用 Microsoft ActivX Data Object 2.0 Library,
透過 conn = New ADODB.Connection 的方式進行連結.
現在程式自動改成引用 Microsoft ActivX Data Object 2.5 Library,被它這麼一改之後,我的程式便無法正常工作了,
連我下的 SQL 指令 "SELECT * FROM table ORDER BY fields"
程式多會出現 error message 說 "ODBC 不支援我所指定的排序方法",
請各位網友幫忙想想辦法 ,
謝謝 !!
現在我面臨的問題是:
我的程式透過 ODBC 去讀取 dBASE 的資料庫,
我本來引用 Microsoft ActivX Data Object 2.0 Library,
透過 conn = New ADODB.Connection 的方式進行連結.
現在程式自動改成引用 Microsoft ActivX Data Object 2.5 Library,被它這麼一改之後,我的程式便無法正常工作了,
連我下的 SQL 指令 "SELECT * FROM table ORDER BY fields"
程式多會出現 error message 說 "ODBC 不支援我所指定的排序方法",
請各位網友幫忙想想辦法 ,
謝謝 !!
請問Microsoft Jet 4.0 哪裡可以下載(編號：4480)
請問Microsoft Jet 4.0 OLE DB Provider 有哪裡可以下載
麻煩知道的各位夥伴,告知小弟,必感激不盡,謝謝~
麻煩知道的各位夥伴,告知小弟,必感激不盡,謝謝~
VB5 開啟 Word 2000 就 Automation Error(編號：4479)
我要在Win98下用VB5開啟Word2000,在設定引用MSWord9Olb後,程式:
Dim MyDocApp As Word.Application
Set MyDocApp = CreateObject("Word.Application")
MyDocApp.Visible = True
結果在我的電腦都可以順利開啟Word,但在另一台電腦上,每一執行至CreateObject就會產生"Automation錯誤-'2147417846(8001010a)'",我查出這個錯誤代碼的意思是"The massage filter indicated the application is busy",請問為什麼會這樣呢?該如何解決呢?我在開啟這個程式前都已關閉並結束所有的Word程式。希望大家能不吝告知，謝謝!
Dim MyDocApp As Word.Application
Set MyDocApp = CreateObject("Word.Application")
MyDocApp.Visible = True
結果在我的電腦都可以順利開啟Word,但在另一台電腦上,每一執行至CreateObject就會產生"Automation錯誤-'2147417846(8001010a)'",我查出這個錯誤代碼的意思是"The massage filter indicated the application is busy",請問為什麼會這樣呢?該如何解決呢?我在開啟這個程式前都已關閉並結束所有的Word程式。希望大家能不吝告知，謝謝!
VB錯誤訊息求救(編號：4478)
各位大哥好......
我想用VB5.0寫一個程式....可是在寫好後用編譯成EXE檔時....
他跳出"在程式碼產生器或程式碼連結器(linker)，發生無法預期的錯誤。"
下面為錯誤訊息:
Microsoft (R) 32-Bit Incremental Linker Version 4.20.6164
Copyright (C) Microsoft Corp 1992-1996. All rights reserved.
LINK : fatal error LNK1181: cannot open input file "C:\PROGRAM FILES\DEVSTUDIO\VB\VBAEXE5.LIB"
知道要怎麼解決的大哥請幫幫我吧.....感謝您.....*_*
(另一個問題再請教一下)
Command1_Click後要怎麼讓程式跳出一個選擇檔案的畫面(像Word開啟舊檔一樣)
然後使用者選好檔案後把路徑和檔名/大小顯示在一Label中呢.....謝謝...^^
我想用VB5.0寫一個程式....可是在寫好後用編譯成EXE檔時....
他跳出"在程式碼產生器或程式碼連結器(linker)，發生無法預期的錯誤。"
下面為錯誤訊息:
Microsoft (R) 32-Bit Incremental Linker Version 4.20.6164
Copyright (C) Microsoft Corp 1992-1996. All rights reserved.
LINK : fatal error LNK1181: cannot open input file "C:\PROGRAM FILES\DEVSTUDIO\VB\VBAEXE5.LIB"
知道要怎麼解決的大哥請幫幫我吧.....感謝您.....*_*
(另一個問題再請教一下)
Command1_Click後要怎麼讓程式跳出一個選擇檔案的畫面(像Word開啟舊檔一樣)
然後使用者選好檔案後把路徑和檔名/大小顯示在一Label中呢.....謝謝...^^
電腦一些名詷(編號：4476)
各位可否幫我解釋一下以下各個名詞,字典真的找不到.....
.Polymorphism
.Inheritance
.Data Abstraction
.Recursive
.Dynamic Binding
.Von Neumann
.packet Swiching
.Circuit Swiching
.Message Swiching
.DMA
.INTERRUPT
.Polling
.Polymorphism
.Inheritance
.Data Abstraction
.Recursive
.Dynamic Binding
.Von Neumann
.packet Swiching
.Circuit Swiching
.Message Swiching
.DMA
.INTERRUPT
.Polling
銷貨單與銷貨單明細這樣連接可以嗎??(編號：4475)
Dim WithEvents adoPrimaryRS As Recordset
Dim adoPlexRS As ADODB.Recordset
Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CY\Cy.mdb;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select 合計,收款方式,折讓,客戶編號,訂單號碼,送貨方式,現金銷貨,異動說明,發票開立,稅金,結帳月份,業務員,實收,銷貨日期,銷貨單號,應收 from 銷貨單 Order by 銷貨單號", db, adOpenStatic, adLockOptimistic
Set adoPlexRS = New ADODB.Recordset
adoPlexRS.Open "select 銷貨單細目.折數,銷貨單細目.金額,銷貨單細目.品名,銷貨單細目.規格,銷貨單細目.單位,銷貨單細目.單價,銷貨單細目.詳細序號,銷貨單細目.廠牌,銷貨單細目.數量,銷貨單細目.編號,銷貨單細目.銷貨單號 from 銷貨單細目,銷貨單 where 銷貨單細目.銷貨單號 = 銷貨單.銷貨單號 Order by 編號", db, adOpenStatic, adLockOptimistic
End Sub
Dim adoPlexRS As ADODB.Recordset
Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CY\Cy.mdb;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select 合計,收款方式,折讓,客戶編號,訂單號碼,送貨方式,現金銷貨,異動說明,發票開立,稅金,結帳月份,業務員,實收,銷貨日期,銷貨單號,應收 from 銷貨單 Order by 銷貨單號", db, adOpenStatic, adLockOptimistic
Set adoPlexRS = New ADODB.Recordset
adoPlexRS.Open "select 銷貨單細目.折數,銷貨單細目.金額,銷貨單細目.品名,銷貨單細目.規格,銷貨單細目.單位,銷貨單細目.單價,銷貨單細目.詳細序號,銷貨單細目.廠牌,銷貨單細目.數量,銷貨單細目.編號,銷貨單細目.銷貨單號 from 銷貨單細目,銷貨單 where 銷貨單細目.銷貨單號 = 銷貨單.銷貨單號 Order by 編號", db, adOpenStatic, adLockOptimistic
End Sub
在word 2000 用vba叫出ADOBE ACROBAT(編號：4474)
我想將一個ADOBE ACROBAT 4.0的.PDF檔案插到MS WORD中,而且是用WORD的VBA寫.
請問應如何陳述?
我的目的是想用WORD的巨集自動開啟ACROBAT,而且使用ACROBAT的拷貝到剪貼簿功能,
然後把ACROBAT關閉,回到WORD,貼上.
P.S.已經在WORD的VBA內把引用項目的ACROBAT打開了.
請問應如何陳述?
我的目的是想用WORD的巨集自動開啟ACROBAT,而且使用ACROBAT的拷貝到剪貼簿功能,
然後把ACROBAT關閉,回到WORD,貼上.
P.S.已經在WORD的VBA內把引用項目的ACROBAT打開了.
請問如何使用linkpoke(編號：4473)
以下的程式是從VB5.0的help中copy下來的,為什麼無法執行？
Private Sub Form_Click ()
Dim Cmd, I, Q, Row, Z ' 宣告變數。
Q = Chr(34) ' 定義引用符號。
' 建立一個含有 Microsoft Excel 巨集指令的字串。
Cmd = [ACTIVATE( & Q & SHEET1 & Q & )]
Cmd = Cmd & [SELECT( & Q & R1C1:R5C2 & Q & )]
Cmd = Cmd & [NEW(2,1)][ARRANGE.ALL()]
If Text1.LinkMode = vbNone Then
Z = Shell( Excel , 4) ' 啟動 Microsoft Excel。
Text1.LinkTopic = Excel!Sheet1 ' 設定連結主題。
Text1.LinkItem = R1C1 ' 設定連結項目。
Text1.LinkMode = vbLinkManual ' 設定連結模式。
End If
For I = 1 To 5
Row = I ' 定義資料列碼。
Text1.LinkItem = R & Row & C1 ' 設定連結項目。
Text1.Text = Chr(64 + I) ' 將值放置在 Text 中。
Text1.LinkPoke ' 將值放入儲存格。
Text1.LinkItem = R & Row & C2 ' 設定連結項目。
Text1.Text = Row ' 將值放置在 Text 中。
Text1.LinkPoke ' 將值放入儲存格。
Next I
Text1.LinkExecute Cmd ' 執行 Microsoft Excel 指令。
On Error Resume Next
MsgBox LinkPoke DDE demo with Microsoft Excel finished. , 64
End
End Sub
Private Sub Form_Click ()
Dim Cmd, I, Q, Row, Z ' 宣告變數。
Q = Chr(34) ' 定義引用符號。
' 建立一個含有 Microsoft Excel 巨集指令的字串。
Cmd = [ACTIVATE( & Q & SHEET1 & Q & )]
Cmd = Cmd & [SELECT( & Q & R1C1:R5C2 & Q & )]
Cmd = Cmd & [NEW(2,1)][ARRANGE.ALL()]
If Text1.LinkMode = vbNone Then
Z = Shell( Excel , 4) ' 啟動 Microsoft Excel。
Text1.LinkTopic = Excel!Sheet1 ' 設定連結主題。
Text1.LinkItem = R1C1 ' 設定連結項目。
Text1.LinkMode = vbLinkManual ' 設定連結模式。
End If
For I = 1 To 5
Row = I ' 定義資料列碼。
Text1.LinkItem = R & Row & C1 ' 設定連結項目。
Text1.Text = Chr(64 + I) ' 將值放置在 Text 中。
Text1.LinkPoke ' 將值放入儲存格。
Text1.LinkItem = R & Row & C2 ' 設定連結項目。
Text1.Text = Row ' 將值放置在 Text 中。
Text1.LinkPoke ' 將值放入儲存格。
Next I
Text1.LinkExecute Cmd ' 執行 Microsoft Excel 指令。
On Error Resume Next
MsgBox LinkPoke DDE demo with Microsoft Excel finished. , 64
End
End Sub
vb5.0 封裝時的問題 ...高手請幫幫忙(編號：4471)
我用vb5使用ADO連結SQL Server 及 Oracle 封裝之後安裝到其他PC 後,無法執行都出現 Active X 物件無法產生 是什麼原因...是否可幫幫忙,感激不盡......
如何控制VB6 Data Report中Detail的以固定行數跳行.(編號：4466)
請問各位VB高手,如何能夠在VB6 Data Report中的Detail以固定行數跳行,即使因Grouping跳頁而且一頁Detail筆數才1,2筆也要以固定行數跳行...
關於 On Error Resume Next(編號：4460)
使用了 On Error Resume Next 之後，它好像就會略過所有的錯誤耶，可是我希望它只略過第一個錯誤，之後的錯誤仍然要顯示出來，這樣該怎麼做呢？謝謝！
CWW 站上的 取得 Caret 的位置(編號：4459)
在這個範例中，大致上是沒問題，只不過
如果我用滑鼠從後面到前面選取文字，那麼 Caret 應該在前面
可是所取得的 Caret 位置依然在後面，怎麼會這樣呢？
有人試過這個範例嗎？謝謝！
如果我用滑鼠從後面到前面選取文字，那麼 Caret 應該在前面
可是所取得的 Caret 位置依然在後面，怎麼會這樣呢？
有人試過這個範例嗎？謝謝！
有關DHTML的TDC載入資料出現亂碼(編號：4458)
在DHTML中使用TDC載入的文字資料表(.txt),在中文的部分會出現亂碼,但其他部分的中文並不會出現亂碼.將相同的文件移到另一台電腦瀏覽卻全部正常.
請問是那一部分有問題,該如何調整?
請問是那一部分有問題,該如何調整?
無法啟動主安裝程式(Create Process()傳回錯誤代碼0X000000C1H),(編號：4457)
我再安裝vb6.0設計的程式於NT Workstation 4.0機器時,有的機器可以安裝,有的機器會出現"無法啟動主安裝程式(Create Process()傳回錯誤代碼0X000000C1H)"，是何原因?煩請大家告知! 謝謝!!!!
為什麼用在VB中用Paradox的db不能做到Refresh(編號：4456)
我用Datagrid call ADO 中的Paradox ODBC資料庫, 但在查詢時不能
用adodb1.refresh 去令ADODB強行重讀資料.
請問那位高手能幫忙,多謝!
用adodb1.refresh 去令ADODB強行重讀資料.
請問那位高手能幫忙,多謝!
有關路徑問題(編號：4455)
我的Adodc沒有設定資料庫檔案的路徑
所以不管我把程式裝在那一個資料夾都能夠抓到資料庫來使用
但是問題來了
如果在程式執行時,用commondialig去開啟其他的檔案
則我的路徑被改成剛才開啟檔案的位置
所以程式就出現找不到資料庫檔的錯誤
請問要如何解決
所以不管我把程式裝在那一個資料夾都能夠抓到資料庫來使用
但是問題來了
如果在程式執行時,用commondialig去開啟其他的檔案
則我的路徑被改成剛才開啟檔案的位置
所以程式就出現找不到資料庫檔的錯誤
請問要如何解決
如何將Forn永遠都在Windows的最上層？(編號：4454)
我寫了一個Form，想讓它無論執行Windows的任何程式時，都能在最上層，該如何控制Form的屬性或方法呢?(類似Dr.eye這種軟體，一旦執行後，就一直在windows的最上層)
開機自動執行的問題(編號：4452)
1.請問有沒辦法讓程式於windows的登入畫面結束立即
執行??(僅量提早程式執行的時間)
2.另外再請教,如果自己的程式與Word2000都已經執行(
or 多個程式),我要如何用程式將自己程式設為作用中
的程式?也就是我希望可以由程式中指定自己的程式具
有接受鍵盤輸入的功能(註:我實作時,發現將自己程式
顯示在最上層並無法解決我的問題)
執行??(僅量提早程式執行的時間)
2.另外再請教,如果自己的程式與Word2000都已經執行(
or 多個程式),我要如何用程式將自己程式設為作用中
的程式?也就是我希望可以由程式中指定自己的程式具
有接受鍵盤輸入的功能(註:我實作時,發現將自己程式
顯示在最上層並無法解決我的問題)
如何讓CheckBox or OptionButton只執行一次？(編號：4451)
若CheckBox預設值為0，程式碼為：
If Check1.Value=0 then
執行AAA
.......
.......
Else
執行BBB
.......
.......
End if
若將Check1.Value=0存檔，當程式啟動時將intCheckValue=0設給Check1.Value，因為Check1.Value=0為VB預設值，所以不執行Check1_Chick事件程序，也就是AAA沒執行到。
啟動時：
讀取Check1.Value存檔之值(如intCheckValue)
Check1.Value=intCheckValue 'intCheckValue=0 不執行Check1_Chick事件程序
若將Check1.Value=1存檔,當程式啟動時將intCheckValue=1設給Check1.Value則可執行Check1_Chick事件程序。
啟動時：
Check1.Value=intCheckValue '開始執行Check1_Chick事件程序
若將啟動時改為：
Check1.Value=intCheckValue
Check1_Chick
則intCheckValue=1時Check1.Value=intCheckValue會執行一次Check1_Chick事件程序，到Check1_Chick又執行一次同樣事件程序。這樣雖然不論存檔之intCheckValue值是否與預設相同但都可執行到Check1_Chick事件程序，問題是不管intCheckValue是否為預設值如何使之只執行一次事件程序？
If Check1.Value=0 then
執行AAA
.......
.......
Else
執行BBB
.......
.......
End if
若將Check1.Value=0存檔，當程式啟動時將intCheckValue=0設給Check1.Value，因為Check1.Value=0為VB預設值，所以不執行Check1_Chick事件程序，也就是AAA沒執行到。
啟動時：
讀取Check1.Value存檔之值(如intCheckValue)
Check1.Value=intCheckValue 'intCheckValue=0 不執行Check1_Chick事件程序
若將Check1.Value=1存檔,當程式啟動時將intCheckValue=1設給Check1.Value則可執行Check1_Chick事件程序。
啟動時：
Check1.Value=intCheckValue '開始執行Check1_Chick事件程序
若將啟動時改為：
Check1.Value=intCheckValue
Check1_Chick
則intCheckValue=1時Check1.Value=intCheckValue會執行一次Check1_Chick事件程序，到Check1_Chick又執行一次同樣事件程序。這樣雖然不論存檔之intCheckValue值是否與預設相同但都可執行到Check1_Chick事件程序，問題是不管intCheckValue是否為預設值如何使之只執行一次事件程序？
VB Editor in WORD(編號：4449)
發言者： Jim 時間： 07/10/00 09:15:10 來自： 202.39.14.34
請問如何將WORD裡的VB升級成VB5.0以上
或是增加以下控制項:DriveList,DirList,FileListBox等..
thx~~~
--------------------------------------------------------------------------------
發言者： Wade 時間： 07/10/00 17:23:34 來自： 210.209.25.65
在Word中預設的控制項是另外一組與VB並不相同，如果要使用VB的控制項只要引用進來就可以了。
不過要注意的是如果你要散發出去，可能會有Design Time License的問題而無法使用！
--------------------------------------------------------------------------------
發言者： Jim 時間： 07/10/00 22:04:03 來自： 202.39.14.34
不好意思... 請問如何引進??
我在word李的VB editor只看到reference等選項...
我試過把control & precedure for VB6等加進來，
但word vb裡的control list裡並沒多出vb6的controls...
不知我還少掛什麼進來..?
請問如何將WORD裡的VB升級成VB5.0以上
或是增加以下控制項:DriveList,DirList,FileListBox等..
thx~~~
--------------------------------------------------------------------------------
發言者： Wade 時間： 07/10/00 17:23:34 來自： 210.209.25.65
在Word中預設的控制項是另外一組與VB並不相同，如果要使用VB的控制項只要引用進來就可以了。
不過要注意的是如果你要散發出去，可能會有Design Time License的問題而無法使用！
--------------------------------------------------------------------------------
發言者： Jim 時間： 07/10/00 22:04:03 來自： 202.39.14.34
不好意思... 請問如何引進??
我在word李的VB editor只看到reference等選項...
我試過把control & precedure for VB6等加進來，
但word vb裡的control list裡並沒多出vb6的controls...
不知我還少掛什麼進來..?
datagrid在addnew後不能cancelupdata(編號：4443)
我用的是adodc可是當我addnew後想取消
卻不能cancelupdata
datagrid會出現不能插入一列空列
這該怎麼解決阿??
卻不能cancelupdata
datagrid會出現不能插入一列空列
這該怎麼解決阿??
請問誰熟Crystal report!(編號：4440)
麻煩懂Crystal report的前輩幫幫忙!
在vb使用crystal report時選擇印表卻不能選擇印表機, 後以Dialog
雖已可選擇印表機, 但卻沒辦法選擇頁次, 雖然已將cdlPDPageNums=
&H2, 但還是沒用, 不知道有沒有人用過, 謝謝!
在vb使用crystal report時選擇印表卻不能選擇印表機, 後以Dialog
雖已可選擇印表機, 但卻沒辦法選擇頁次, 雖然已將cdlPDPageNums=
&H2, 但還是沒用, 不知道有沒有人用過, 謝謝!
mshflexgrid問題??(編號：4438)
我要如何在MSHflexgrid的click後
使得adodc可以跟著move到那個資料錄
我試過mshflexgrid.row
讓adodc可以跟著move到第幾個資料錄
可是卻發現mshflexfgrid.row是累加的
所以這一次按第3個下一次按第四個
mshflexfgrid.row會=7
使得adodc可以跟著move到那個資料錄
我試過mshflexgrid.row
讓adodc可以跟著move到第幾個資料錄
可是卻發現mshflexfgrid.row是累加的
所以這一次按第3個下一次按第四個
mshflexfgrid.row會=7
給 mt(編號：4436)
我相信閣下對VB定有相當功力, 關於 print 是否能提供模組, 我已經為 report ㄉ問題被攪的快掛了, 若願提供必衷心感謝 (當然實質上都可以商量ㄉ) 拜託拜託........
一般VB6.0問題......(編號：4434)
小弟把一個用VB編寫的DHTML程式放在ISP提供的FTP Sever
路徑是/uhome14/tsh123/public_html
小弟想知道如何用Open"save.htm"for output as #1 把檔案存到以上的路徑上
"tsh123"是Login ID,"public_html"是存放網頁的路徑。
路徑是/uhome14/tsh123/public_html
小弟想知道如何用Open"save.htm"for output as #1 把檔案存到以上的路徑上
"tsh123"是Login ID,"public_html"是存放網頁的路徑。
關於Win Api 繪圖函式?(編號：4432)
不知是有人使用過CreatePolygonRgn,CreateRectRgn等WIN API 函式,
當我用一個程式,使用上述函式Create出一些Rgn,並記憶這些Rgn的Rgn_id,當我用另一個程式使用相同的Rgn_id,想捉取這個Rgn的坐標資訊(註:Create出這些Rgn的程式仍在執行),卻捉不出這個Rgn.......
請問我的問題出在那,可用什麼方法解決.
程式簡述如下(有兩個程式):
程式一使用CreatePolygonRgn函式,Create出一個Rgn,如下語法:
Rgn_Id=CreatePolygonRgn(Point(1),Pointnum,1}
程式二使用GetRgnBox,想捉出程式一所Create出Rgn的Rect,語法如下:
aid=GetRgnBox(Rgn_id,aRect),傳回值aid=0,aRect為null,捉取失敗.
但在程式一中使用相同之語法可捉取成功
當我用一個程式,使用上述函式Create出一些Rgn,並記憶這些Rgn的Rgn_id,當我用另一個程式使用相同的Rgn_id,想捉取這個Rgn的坐標資訊(註:Create出這些Rgn的程式仍在執行),卻捉不出這個Rgn.......
請問我的問題出在那,可用什麼方法解決.
程式簡述如下(有兩個程式):
程式一使用CreatePolygonRgn函式,Create出一個Rgn,如下語法:
Rgn_Id=CreatePolygonRgn(Point(1),Pointnum,1}
程式二使用GetRgnBox,想捉出程式一所Create出Rgn的Rect,語法如下:
aid=GetRgnBox(Rgn_id,aRect),傳回值aid=0,aRect為null,捉取失敗.
但在程式一中使用相同之語法可捉取成功
TreeView的NodeCheck事件有bug嗎?(編號：4430)
我在TreeView的NodeCheck事件中寫以下程式
Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
If Node.Children ＞ 0 Then
For i = 1 To Node.Children
If i = 1 Then
Node.Child.Checked = True
Else
Node.Child.Next.Checked = True
End If
Next i
End If
End Sub
我讓被checked的節點的子節點都打上勾(checked), 可是總是只有前兩個子節點被打上勾,三個或三個以上都不被打勾,這是為什么?
我用逐行方式執行程式,都有被執行到,可是為什么不給我checked上呢?
Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
If Node.Children ＞ 0 Then
For i = 1 To Node.Children
If i = 1 Then
Node.Child.Checked = True
Else
Node.Child.Next.Checked = True
End If
Next i
End If
End Sub
我讓被checked的節點的子節點都打上勾(checked), 可是總是只有前兩個子節點被打上勾,三個或三個以上都不被打勾,這是為什么?
我用逐行方式執行程式,都有被執行到,可是為什么不給我checked上呢?
如何檢測輸入重覆資料(編號：4428)
請教一下:
如果有一種情況
你要讓使用者輸入一欄位資料
但又要避免輸入重覆值
(例如:每次輸入你都把它放到一個mulitline的text box , 然後換行)
(但若有重覆輸入,就不放進去)
一種方法是把資料放到array中
每一次輸入都做一次 loop 判斷
一種方法是把輸入資料組成字串
每次用Instr()來判斷
但這要每個輸入都沒有部份相同的情況
但感覺以上方法都不好,所以想請教一下
還有沒有其它好方法可以檢測
本次輸入有沒有與以上輸入相同的方法
不要用collection object
如果有一種情況
你要讓使用者輸入一欄位資料
但又要避免輸入重覆值
(例如:每次輸入你都把它放到一個mulitline的text box , 然後換行)
(但若有重覆輸入,就不放進去)
一種方法是把資料放到array中
每一次輸入都做一次 loop 判斷
一種方法是把輸入資料組成字串
每次用Instr()來判斷
但這要每個輸入都沒有部份相同的情況
但感覺以上方法都不好,所以想請教一下
還有沒有其它好方法可以檢測
本次輸入有沒有與以上輸入相同的方法
不要用collection object
程式中如何加入及刪除物件?(編號：4426)
請問前輩們, 在vb中的物件都是在設計中拉進 Form 中, 如何在程式中, 由程式來控制物件的新增, 如在 Form 中設兩個 CommondButtom1, 當 user 按下 CommondButton1 後, 會在 Form 中自動新增兩個 picture 的物件, 當按 CommondButton2時, 會把原先兩 picture 物件刪除, 再加入四個 picture 物件
兩個Recordsets之間資料的複製(編號：4424)
我將Text file中的資料讀到一個local的Recordset中, 然後再抄到SQL Server 中一個結構一模一樣的Table中, 以下是 Pseudo code:
Define an ADO Recordset (use Recordset.Append...)
Open Recordset
Read data from text file into Recordset
Open a SQL server Table as a ADO Recordset (rsTarget, adLockBatchOptimistic)
Delete all data in rsTarget (using SQL statement, this step got done really fast.)
Disconnect rsTarget
While Not rsSource.Eof
rsTarget.Addnew
copy a record from rsSource to rsTarget
rsSource.MoveNext
Wend
Re-connect rsTarget
rsTarget.UpdateBatch
基於某些原因, 我不能直接把資料寫進連接到SQL server的Recordset, 而必須透過一個中介的Recordset. 問題是當資料量大時, 速度實在令人不滿意, 請問各位有無更快的方法? 同樣的資料量, 從Excel中下MS Query, 幾乎是瞬間就從SQL Server download下來了...
Define an ADO Recordset (use Recordset.Append...)
Open Recordset
Read data from text file into Recordset
Open a SQL server Table as a ADO Recordset (rsTarget, adLockBatchOptimistic)
Delete all data in rsTarget (using SQL statement, this step got done really fast.)
Disconnect rsTarget
While Not rsSource.Eof
rsTarget.Addnew
copy a record from rsSource to rsTarget
rsSource.MoveNext
Wend
Re-connect rsTarget
rsTarget.UpdateBatch
基於某些原因, 我不能直接把資料寫進連接到SQL server的Recordset, 而必須透過一個中介的Recordset. 問題是當資料量大時, 速度實在令人不滿意, 請問各位有無更快的方法? 同樣的資料量, 從Excel中下MS Query, 幾乎是瞬間就從SQL Server download下來了...
頭大的Inputbox問題(編號：4423)
在inputbox 中,按"取消"按鈕, 傳回一個空字串,
在inputbox 中不輸入任何東西按"確定"按鈕, 也傳回一個空字串,
那麼程式如何判斷是按了"確定", 還是"取消"?
在inputbox 中不輸入任何東西按"確定"按鈕, 也傳回一個空字串,
那麼程式如何判斷是按了"確定", 還是"取消"?
想請教幾個問題,請詳細告知謝謝....不勝感激(編號：4421)
小弟不才.想請教幾個問題,請詳細告知謝謝....不勝感激
問題一:
如何以按鈕的方式刪除 ComboBox 的內容(使用者點選的那一項資料 and 選單內所有資料)
問題二:
==================
姓名!!電話!!住址!!
==================
[text] [按鈕]
如何讓使用者輸入查詢的關鍵字 按下按鈕後單獨顯示此項資料
EX: 姓名 !姓名!
!張三!
!李四!
問題三:
ex:
Form1 ----＞在此輸入姓名
Form2 ----＞顯示Form1想要的姓名
問題四:
如何讓 Form1 與 Form2 的資料同步化,並以固定時間更新資料庫.
Ex:
在 Form1 查詢 張三的資料 並在 Form1和Form2 顯示結果
問題五:
資料庫可存多少筆資料,
問題六:
我通常 都用以下方法關閉錯誤訊息不知可不可以
On Error GoTo qqq
.
.
.
qqq:
Exit Sub
問題一:
如何以按鈕的方式刪除 ComboBox 的內容(使用者點選的那一項資料 and 選單內所有資料)
問題二:
==================
姓名!!電話!!住址!!
==================
[text] [按鈕]
如何讓使用者輸入查詢的關鍵字 按下按鈕後單獨顯示此項資料
EX: 姓名 !姓名!
!張三!
!李四!
問題三:
ex:
Form1 ----＞在此輸入姓名
Form2 ----＞顯示Form1想要的姓名
問題四:
如何讓 Form1 與 Form2 的資料同步化,並以固定時間更新資料庫.
Ex:
在 Form1 查詢 張三的資料 並在 Form1和Form2 顯示結果
問題五:
資料庫可存多少筆資料,
問題六:
我通常 都用以下方法關閉錯誤訊息不知可不可以
On Error GoTo qqq
.
.
.
qqq:
Exit Sub
請前輩們校正一下小瓜瓜的IE5與ActiveX關念(編號：4417)
小瓜瓜首先在Html裡試驗：
＜script language=vbscript＞
Dim MyObj
Set MyObj = CreateObject("Application.Graph")
...(以下略...
結果執行沒問題，然後把這一個Html檔移到PWS，IE5從PWS裡叫這個Html檔，結果IE5執行會在Set MyObj = CreateObject("Application.Graph")發生錯誤，因此又改成
＜%Response.Write "＜script language=vbscript＞" & vbCrlf
Response.Write "Dim MyObj" & vbCrlf
Response .Write "Set MyObj = CreateObject(""Application.Graph"")"
...(以下略...
結果還是錯誤，但在IE5上開起原始檔案的內容卻與Html檔是一樣，它還是錯在Set MyObj = CreateObject("Application.Graph")這一行，在本機電腦端執行html時載入物件，這個小瓜瓜可以理解，而由遠端下載的網頁內的敘述來載入物件，IE5會從那裡下載物件？還是IE5會拒絕遠端所指示的物件敘述？
請個位前輩校正小瓜瓜錯誤的ActiveX的觀念！3Q
＜script language=vbscript＞
Dim MyObj
Set MyObj = CreateObject("Application.Graph")
...(以下略...
結果執行沒問題，然後把這一個Html檔移到PWS，IE5從PWS裡叫這個Html檔，結果IE5執行會在Set MyObj = CreateObject("Application.Graph")發生錯誤，因此又改成
＜%Response.Write "＜script language=vbscript＞" & vbCrlf
Response.Write "Dim MyObj" & vbCrlf
Response .Write "Set MyObj = CreateObject(""Application.Graph"")"
...(以下略...
結果還是錯誤，但在IE5上開起原始檔案的內容卻與Html檔是一樣，它還是錯在Set MyObj = CreateObject("Application.Graph")這一行，在本機電腦端執行html時載入物件，這個小瓜瓜可以理解，而由遠端下載的網頁內的敘述來載入物件，IE5會從那裡下載物件？還是IE5會拒絕遠端所指示的物件敘述？
請個位前輩校正小瓜瓜錯誤的ActiveX的觀念！3Q
空白鍵的問題???(編號：4416)
PRINTER.PRINT " A"
PRINTER.PRINT "00000A"
PRINTER.PRINT "@@@@@A"
''-------------------------
LABEL1=" A"
LABEL2="00000A"
如何讓"A"對齊???
PRINTER.PRINT "00000A"
PRINTER.PRINT "@@@@@A"
''-------------------------
LABEL1=" A"
LABEL2="00000A"
如何讓"A"對齊???
我想把excel資料表的資料轉到access的table，但‧‧(編號：4415)
我現正要把一個excel 裏的table 裏的資料轉換到access的表格裏，而我巳經用VB DAO 將兩個TABLE連在一起，如下
AccessRes.fields(i)=ExcelRes.fields(i)
但問題出於excel表格中有些 fields 的資料如下格式
〝03/05/2000 00:00:00〞
date 及 time 之間有個空格，令我在相應的 accessres.fields 中只讀到前半部份 date 而讀不到 space 之後的東西〈time〉，而且在 access 的新表格中date 及time 是分開兩個fields的，請問我應該怎樣做呢？
心急人PHENIX上
AccessRes.fields(i)=ExcelRes.fields(i)
但問題出於excel表格中有些 fields 的資料如下格式
〝03/05/2000 00:00:00〞
date 及 time 之間有個空格，令我在相應的 accessres.fields 中只讀到前半部份 date 而讀不到 space 之後的東西〈time〉，而且在 access 的新表格中date 及time 是分開兩個fields的，請問我應該怎樣做呢？
心急人PHENIX上
訂閱：
文章 (Atom)