我用 VB 6.0 開發的 Active X 元件 ( 給 ASP 呼叫用的 ) , 我想要呼叫一個別人用 C or 其他語言寫的 DLL , 卻無法成功 , 那個 DLL 是用來做 IO 控制的 , 不知道應如何做 , 希望大家不吝賜教 !!
PS 假如用 Active X 元件 可以直接對 8255 單晶片做控制,希望大家給小弟指導一下 !
Thank You So Much !!!
提供小吳 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 .
怎樣在vb做出來的程式中使用手掣or joypad(編號：1157)
大家好!
我想問一問各位高手,
你們知不知道怎樣在vb做出來的程式中使用手掣or joypad
同direct x有無關?
希望你們能解答我的疑難
我想問一問各位高手,
你們知不知道怎樣在vb做出來的程式中使用手掣or joypad
同direct x有無關?
希望你們能解答我的疑難
datagrid 的問題...3個(編號：1156)
使用datagrid:
1. 各個column名稱顯示時, 會自動對齊左邊, 是否可設成對齊中間, how??
2. 用過 .rebind 方法之後, 原本設定各個column的屬性都會改變, 若想要保留原來設定的屬性(如: column width)
要怎麼做??
3. 如何設定datagrid中, 某一筆資料變成反白, 就像""選取一筆資料""的效果??
謝謝各位高手指導...."笨蛋"感激不盡..
1. 各個column名稱顯示時, 會自動對齊左邊, 是否可設成對齊中間, how??
2. 用過 .rebind 方法之後, 原本設定各個column的屬性都會改變, 若想要保留原來設定的屬性(如: column width)
要怎麼做??
3. 如何設定datagrid中, 某一筆資料變成反白, 就像""選取一筆資料""的效果??
謝謝各位高手指導...."笨蛋"感激不盡..
如何讓 TextBox 的 Enter 鍵變成 Tab 鍵?(編號：1155)
我想請問一下在TextBox中如何讓Enter變成Tab鍵???我是用以下方式,但我覺得如果有20個就要做20次,是否有簡便的方法?????
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
SendKeys "{Tab}"
End If
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
SendKeys "{Tab}"
End If
End Sub
我用 Get # 來讀取檔案的資料到一個Byte陣列，可是很慢耶(編號：1154)
我是用下面這種方式來讀檔，可是滿慢的
請問有沒有比較快的方法呢？謝謝
Open sPath & sFileName For Binary As #1
lFileLen = LOF(1)
ReDim FileBuffer(lFileLen - 1)
For i = 0 To lFileLen - 1
Get #1, , FileBuffer(i)
Next i
Close #1
請問有沒有比較快的方法呢？謝謝
Open sPath & sFileName For Binary As #1
lFileLen = LOF(1)
ReDim FileBuffer(lFileLen - 1)
For i = 0 To lFileLen - 1
Get #1, , FileBuffer(i)
Next i
Close #1
元件繼承(編號：1152)
各位高手請問:
我在VB的form1下佈置了一個元件 Rs232 的Mscomm
但是程式寫到後來我發現還要再該開另一個Form (Form2)
才放的下那我該如何引用之前已佈置在form1的Mscomm呢?
謝謝!
我在VB的form1下佈置了一個元件 Rs232 的Mscomm
但是程式寫到後來我發現還要再該開另一個Form (Form2)
才放的下那我該如何引用之前已佈置在form1的Mscomm呢?
謝謝!
vb可否讀取bmp檔案某一點顏色的值(編號：1150)
請問一下各位
vb 程式可否做到讀取bmp上面的某一點顏色值,例如...一張圖片裡面有多點紅色小圓,想讀取圖片中的小紅點,並計算數目,不知可否作到請各位知道的朋友告知....
vb 程式可否做到讀取bmp上面的某一點顏色值,例如...一張圖片裡面有多點紅色小圓,想讀取圖片中的小紅點,並計算數目,不知可否作到請各位知道的朋友告知....
modem with fax(編號：1149)
請問若使用com1與對方電腦做溝通時,是否可利用winsock
再者,若要與對方傳真機做構通時,是否得先透過winsock
先送一個訊號對傳真機,得送啥訊號過去呢
再者,若要與對方傳真機做構通時,是否得先透過winsock
先送一個訊號對傳真機,得送啥訊號過去呢
如何使用VB程式碼,控制NT Server的使用者權限？(編號：1148)
如何使用VB程式碼,控制NT Server的使用者權限？
若不行，也煩請告知！（若那裡可以得到'不行'的說明文件，請指引小弟去找）
若不行，也煩請告知！（若那裡可以得到'不行'的說明文件，請指引小弟去找）
如何使用 AT 指令,執行排程工作?(編號：1147)
我使用at指令執行*.bat檔可以工作,但是執行*.exe檔卻不行,
請問各路高手,我應該如何做？
以下是我的at指令:
at 14:50 /every:1 c:\Change.exe
請問各路高手,我應該如何做？
以下是我的at指令:
at 14:50 /every:1 c:\Change.exe
如何檢查INDEX KEY是否重複？(編號：1145)
環境: MS SQL 7.0 + VB6.0
問題: 訂單明細的INDEX KEY 由訂單編號 + 產品編號組成。如何在寫入SQL7.0前，檢查是否重複，避免當掉。
問題: 訂單明細的INDEX KEY 由訂單編號 + 產品編號組成。如何在寫入SQL7.0前，檢查是否重複，避免當掉。
請教如何撰寫 *.hlp 輔助說明檔案(編號：1143)
各位先進好:
好高興，我終於寫了一個小程式，但是對於輔助說明的處理
卻一竅不通，大約知道如何去叫出說明檔，但是如何做出一個
說明檔卻莫宰羊，能請各位幫幫忙嗎?
請教教初學者:
1.如何撰寫一個Win98下的標準格式說明檔給 User 使用?
2.要使用哪一種發展軟體或編輯器?可以直接在 VB 上做出來嗎?
謝謝啦! 阿里阿的!
好高興，我終於寫了一個小程式，但是對於輔助說明的處理
卻一竅不通，大約知道如何去叫出說明檔，但是如何做出一個
說明檔卻莫宰羊，能請各位幫幫忙嗎?
請教教初學者:
1.如何撰寫一個Win98下的標準格式說明檔給 User 使用?
2.要使用哪一種發展軟體或編輯器?可以直接在 VB 上做出來嗎?
謝謝啦! 阿里阿的!
關於vbscript 的刪除檔案!!(編號：1142)
各位高手:
請問在vbscript是否有像vb裡kill 刪除檔案的指令，
或者是我如何使用vbscript去刪除檔案....
thanks.....
請問在vbscript是否有像vb裡kill 刪除檔案的指令，
或者是我如何使用vbscript去刪除檔案....
thanks.....
高手救命(編號：1141)
FindStr="Var1= '" & temp & "' and Var2 = '" & temp2 & "'"
Data1.recordset.findfirst FindStr
請問高手，以上這種寫法為何連結dbase III的資料庫無法使用
Data1.recordset.findfirst FindStr
請問高手，以上這種寫法為何連結dbase III的資料庫無法使用
我想寫一個多媒體的program。(編號：1139)
我想知那裏有play MP3的ocx download?
另外，我記得用MCI control來顯示一個聲音檔的時間會出一個長整數，可否轉成"XX:XX"這個格式?
另外，我記得用MCI control來顯示一個聲音檔的時間會出一個長整數，可否轉成"XX:XX"這個格式?
如何使用Pset讀取BMP圖檔某個位置某個顏色值?(編號：1138)
使用了Pset讀取BMP圖檔,如下但不知如何讀取某個位置某個顏色值.
Private Sub Picture1_Click()
Dialog.Filter = "BMP(*.bmp)!*.bmp"
Dialog.ShowOpen
Picture1.Picture = LoadPicture(Dialog.FileName)
For Y = 0 To Picture1.ScaleHeight Step 15
For X = 0 To Picture1.ScaleWidth Step 15
Picture1.PSet (X, Y)
Next
Next
Print Y
Print X
Picture1.Picture = LoadPicture(Dialog.FileName)
End Sub
Private Sub Picture1_Click()
Dialog.Filter = "BMP(*.bmp)!*.bmp"
Dialog.ShowOpen
Picture1.Picture = LoadPicture(Dialog.FileName)
For Y = 0 To Picture1.ScaleHeight Step 15
For X = 0 To Picture1.ScaleWidth Step 15
Picture1.PSet (X, Y)
Next
Next
Print Y
Print X
Picture1.Picture = LoadPicture(Dialog.FileName)
End Sub
list box(編號：1137)
For i = 1 To Val(List1.ListCount - 1)
If List1.listitem(i).Selected = True Then
street.Show
End If
Next
我想在listobox 中判斷那個list 被選中了 如果選了某個就把street show (listitem) 這裡會出錯為什麼呢?
這樣寫不為什麼不行呀 請各位綱友幫幫忙吧
If List1.listitem(i).Selected = True Then
street.Show
End If
Next
我想在listobox 中判斷那個list 被選中了 如果選了某個就把street show (listitem) 這裡會出錯為什麼呢?
這樣寫不為什麼不行呀 請各位綱友幫幫忙吧
如何判斷某控制項已經存在??(編號：1136)
各位先進:
我需利用load text(5) 來載入控制項,但如果text(5)已經存在就會發生ERROR,請問有辦法判斷text(5)已經存在了嗎?
謝謝!
我需利用load text(5) 來載入控制項,但如果text(5)已經存在就會發生ERROR,請問有辦法判斷text(5)已經存在了嗎?
謝謝!
利用modem來做【檔案傳輸】(編號：1135)
如何使用MSCOMM利用modem來做【檔案傳輸】呢?(除了文字檔,如 XX.ZIP)
如何利用VB使用通訊協定呢?(如 ZMODEM)
我的E-MAIL是 happy186@mars.seed.net.tw
如何利用VB使用通訊協定呢?(如 ZMODEM)
我的E-MAIL是 happy186@mars.seed.net.tw
這樣需要安裝嗎？(編號：1134)
假如用VB5或VB6寫的程式，除了基本控制項外，只用到一個CommonDialog。將COMDLG32.OCX，CmDlgCHT.dll和MSVBVM50.dll或MSVBVM60.dll複製至Windows\System是否就可在其他電腦無誤執行？
為何不能建立資料夾？(編號：1130)
請問這程式哪裡錯？
If Dir("C:\Program Files\MyDir") = "" Then
MkDir "C:\Program Files\MyDir"
End If
If Dir("C:\Program Files\MyDir") = "" Then
MkDir "C:\Program Files\MyDir"
End If
RDS的問題(編號：1124)
Public WithEvents rdso As RDS.DataControl
Dim rs As ADODB.Recordset
Private Sub Connect_Click()
rdso.Connect = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=" & DBPath.Text
rdso.SQL = "Select * From 文章"
rdso.FetchOptions = adcFetchBackground
rdso.ExecuteOptions = adcExecAsync
rdso.Refresh
End Sub
Private Sub Form_Load()
Set rdso = New RDS.DataControl
rdso.Server = RemoteServer.Text
End Sub
Private Sub Form_Resize()
RemoteServer.Width = Me.ScaleWidth
DBPath.Width = Me.ScaleWidth
End Sub
Private Sub rdso_onreadystatechange()
If rdso.ReadyState = adcReadyStateComplete Or _
rdso.ReadyState = adcReadyStateInteractive Then
Set rs = rdso.Recordset
'-------------這行有錯--------------------
If rs.State = adStateClosed Then
'-----------------------------------------
MsgBox "無法讀取資料，設定可能有誤。", vbInformation, "錯誤"
Else
Debug.Print "complete"
'DoSomething
End If
End If
End Sub
Private Sub RemoteServer_Change()
rdso.Server = RemoteServer.Text
End Sub
Private Sub Stop_Click()
rdso.Cancel
End Sub
作業環境:Windows98SE+VB6(SP3)+Office2000+IE5
rdso.recordset是個空物件(Nothing)，這就是問題所在，
執行王國榮的範例程式也有這樣的錯誤，同一個地方。
幫幫我吧！
Dim rs As ADODB.Recordset
Private Sub Connect_Click()
rdso.Connect = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=" & DBPath.Text
rdso.SQL = "Select * From 文章"
rdso.FetchOptions = adcFetchBackground
rdso.ExecuteOptions = adcExecAsync
rdso.Refresh
End Sub
Private Sub Form_Load()
Set rdso = New RDS.DataControl
rdso.Server = RemoteServer.Text
End Sub
Private Sub Form_Resize()
RemoteServer.Width = Me.ScaleWidth
DBPath.Width = Me.ScaleWidth
End Sub
Private Sub rdso_onreadystatechange()
If rdso.ReadyState = adcReadyStateComplete Or _
rdso.ReadyState = adcReadyStateInteractive Then
Set rs = rdso.Recordset
'-------------這行有錯--------------------
If rs.State = adStateClosed Then
'-----------------------------------------
MsgBox "無法讀取資料，設定可能有誤。", vbInformation, "錯誤"
Else
Debug.Print "complete"
'DoSomething
End If
End If
End Sub
Private Sub RemoteServer_Change()
rdso.Server = RemoteServer.Text
End Sub
Private Sub Stop_Click()
rdso.Cancel
End Sub
作業環境:Windows98SE+VB6(SP3)+Office2000+IE5
rdso.recordset是個空物件(Nothing)，這就是問題所在，
執行王國榮的範例程式也有這樣的錯誤，同一個地方。
幫幫我吧！
Excel VBA...(編號：1122)
我的報表是丟到Excel套表去印的,有一現有的Excel檔案
內只有一個工作表Sheet,如今因為會有多筆記錄丟到裡面,
故會印好幾頁,我如何Copy前一個Sheet的格式?
然後如何新增一個Sheet再將資料分別放到裡面去?
印出來?
以上三點可否幫我解答!!!Thanks...
內只有一個工作表Sheet,如今因為會有多筆記錄丟到裡面,
故會印好幾頁,我如何Copy前一個Sheet的格式?
然後如何新增一個Sheet再將資料分別放到裡面去?
印出來?
以上三點可否幫我解答!!!Thanks...
串字…檔案…(編號：1121)
嗯…我想請問一個問題…
假如現在有一個字串this is a test.
然後我用一個一個字元讀取的方式來讀取。當讀到空白時就會把之前的單存成一個字串…變成"this","is","a","test"4個字串…這樣。
不然就是有沒有辦法能將陣列內的資料轉成一個字串…
arry(0)="t" arry(1)="h" - 一個字串等於this的…謝謝。
arry(2)="i" -
arry(3)="s" /
假如現在有一個字串this is a test.
然後我用一個一個字元讀取的方式來讀取。當讀到空白時就會把之前的單存成一個字串…變成"this","is","a","test"4個字串…這樣。
不然就是有沒有辦法能將陣列內的資料轉成一個字串…
arry(0)="t" arry(1)="h" - 一個字串等於this的…謝謝。
arry(2)="i" -
arry(3)="s" /
在 NT4.0 中停掉 vfp 的程式(編號：1120)
在我們的 NT4.0 上執行了一個 vfp 程式
因為某些未知原因會出現一個"程式錯誤"的對話框
讓我們按下"取消"再重新執行它
請問高手們是否有方法去監控它, 一旦程式發生
錯誤就自動結束再執行, 謝謝!!!
因為某些未知原因會出現一個"程式錯誤"的對話框
讓我們按下"取消"再重新執行它
請問高手們是否有方法去監控它, 一旦程式發生
錯誤就自動結束再執行, 謝謝!!!
如何將字變成模糊(編號：1119)
我要在picture box中加入文字存成圖檔.
可是遇到一個問題.
就是如果將字放大時.
因為那文字是點陣式.所以很難看.
所以要把文字變成模糊.
請問各位大大要如何寫這部份的程式呢.
可是遇到一個問題.
就是如果將字放大時.
因為那文字是點陣式.所以很難看.
所以要把文字變成模糊.
請問各位大大要如何寫這部份的程式呢.
資料轉換的問題(編號：1118)
dbf檔; 除了用匯入的功能加入到 Access 的資料庫中成為一個
新的 Table 外, 能否用ADO Connection 方式開啟再將他加入到
Access 已存在的 Table 中? 如果可以該如何達成?
另外; VB 所提供的 VisiData 該版本似乎無法開啟 Access 2000
的 mdb , 不知那位前輩有修正過的版本(或 Source)可供下載.
新的 Table 外, 能否用ADO Connection 方式開啟再將他加入到
Access 已存在的 Table 中? 如果可以該如何達成?
另外; VB 所提供的 VisiData 該版本似乎無法開啟 Access 2000
的 mdb , 不知那位前輩有修正過的版本(或 Source)可供下載.
richtextbox.seltext(編號：1116)
已知道插入資料於richtextbox(以下以rtbox代替)中以rtbox.seltext=字串,可以插入文字
但如果插入的是如"正字標記"的特殊符號(假設機器中已含此字型)
該如何指定
是如此嗎？
EX：
rtbox.seltext=asc(??)
where ??表內碼。
感謝賜教！
但如果插入的是如"正字標記"的特殊符號(假設機器中已含此字型)
該如何指定
是如此嗎？
EX：
rtbox.seltext=asc(??)
where ??表內碼。
感謝賜教！
可以提供搜尋的功能嗎？(編號：1115)
現在文章越來越多了，
找其文章好像不怎麼方便，
建議小吳趕緊做個搜尋的功能，
不用全文檢索，只要能找標題相關字即可，
這樣找起資料會方面許多......
謝謝.......
ps:這個站對大家幫助蠻大的，希望能夠一直持續下去......
找其文章好像不怎麼方便，
建議小吳趕緊做個搜尋的功能，
不用全文檢索，只要能找標題相關字即可，
這樣找起資料會方面許多......
謝謝.......
ps:這個站對大家幫助蠻大的，希望能夠一直持續下去......
救命....(編號：1114)
For i = 1 To 15
rs.Find "no='" & i & "'" 'no--＞欄位(值1~15)
Print rs("no")
Label1(i).Caption = rs("value") 'value--＞欄位加總值group by no
rs.MoveNext
Next i
各位vb高手可以幫我改一下嗎?
問題:依各欄位的值將加總的結果顯示在相對的LABEL陣列上
謝謝大家幫忙,感激不盡
rs.Find "no='" & i & "'" 'no--＞欄位(值1~15)
Print rs("no")
Label1(i).Caption = rs("value") 'value--＞欄位加總值group by no
rs.MoveNext
Next i
各位vb高手可以幫我改一下嗎?
問題:依各欄位的值將加總的結果顯示在相對的LABEL陣列上
謝謝大家幫忙,感激不盡
PictureBox如何接收IME ?(編號：1112)
Private Sub Picture1_KeyPress(KeyAscii As Integer)
Picture1.Print Chr(KeyAscii)
End Sub
這樣可以將使用者接下的按鈕print出來，那中文呢？
Picture1.Print Chr(KeyAscii)
End Sub
這樣可以將使用者接下的按鈕print出來，那中文呢？
如何在BMP 圖檔中計算兩點距離(編號：1110)
當BMP 圖檔存入picture box 後如何將BMP 圖檔存入arry,
再計算兩點pixel的距離,或是其他可行計算兩點pixel的距
離辦法.謝謝.
再計算兩點pixel的距離,或是其他可行計算兩點pixel的距
離辦法.謝謝.
關於刪除的問題(編號：1106)
我想請問一下:
我在程式開始時就執行 Data1.DatabaseName = "c:\db1.mdb"
而現在我要在程式前刪除"c:\db1.mdb"寫法如下
kill "c:\db1.mdb"卻不行刪除
為什麼?請問一下要如何寫比較好???
我在程式開始時就執行 Data1.DatabaseName = "c:\db1.mdb"
而現在我要在程式前刪除"c:\db1.mdb"寫法如下
kill "c:\db1.mdb"卻不行刪除
為什麼?請問一下要如何寫比較好???
入會！(編號：1105)
我知在台灣及中國都有VB或程式帥會的，
請問各位大佬？知否香港有冇呢？
如果沒有，如可可以識多幾個Programmer朋友，
開一個會所，大家可交留意見及心得。
有心一起開設這個會或加入的就Email給我吧，
andxx@netvigator.com
請問各位大佬？知否香港有冇呢？
如果沒有，如可可以識多幾個Programmer朋友，
開一個會所，大家可交留意見及心得。
有心一起開設這個會或加入的就Email給我吧，
andxx@netvigator.com
API如何設定座標系統?(編號：1104)
如標題,我要將Y軸向下為正,X軸向右為正
變換為Y軸向上為正,X軸向右為正,
使否須使用setmapmode,setwindowextex,setviewportextex,
setwindoworgex呢?
那麼應該如何使用呢?我試了好久都試不出來,
可否舉一個簡單的例子呢?
變換為Y軸向上為正,X軸向右為正,
使否須使用setmapmode,setwindowextex,setviewportextex,
setwindoworgex呢?
那麼應該如何使用呢?我試了好久都試不出來,
可否舉一個簡單的例子呢?
VB連SQL，做新增，希望回傳identitykey 值？(編號：1102)
大家好：
我是用ADO的connection, 後，建立command字串為
"insert into xxx values(.....)'
con.execute abc, infectdRecord
我知道有個Return Records infected
請問如何直接知道該筆記錄的identitykey ,
不想再select一遍...
我是用ADO的connection, 後，建立command字串為
"insert into xxx values(.....)'
con.execute abc, infectdRecord
我知道有個Return Records infected
請問如何直接知道該筆記錄的identitykey ,
不想再select一遍...
當Record 的位置已經要改變時, 如何能維持不動?(編號：1101)
使用 VB6 + ADO.
User 已想變動 Record 的位置 ( MoveNext, Addnew, set bookmak,在 Grid 上選其他Record...) , 因有其他原因, 我想擋住 User, 不讓 User 變動目前 Record 的位置.
希望解決的方法是決不能移動目前 Record的位置(不使用 BookMark 移來移去). ADO 有這種指令嗎? ADO 的 WillMove 的事件也不能讓我 Cancel 這個 Move.
User 已想變動 Record 的位置 ( MoveNext, Addnew, set bookmak,在 Grid 上選其他Record...) , 因有其他原因, 我想擋住 User, 不讓 User 變動目前 Record 的位置.
希望解決的方法是決不能移動目前 Record的位置(不使用 BookMark 移來移去). ADO 有這種指令嗎? ADO 的 WillMove 的事件也不能讓我 Cancel 這個 Move.
vb6, DAO在編輯模式或新增模式 , 關掉程式, 如何避免新增一筆空(編號：1099)
'我的程式碼 :
'datLM 為 DAO
'結果若在編輯模式或新增模式 , 關掉程式, 照樣關掉, 且不出現 'MsgBox , 並新增一筆空白資料.
'請釋疑 !!
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If datLM.Recordset.EditMode ＜＞ dbEditNone Then
MsgBox "Please Save or Cancel ! Then you can Exit. ", vbExclamation, "LandMark"
Cancel = True
Exit Sub
End If
End Sub
把"Exit Sub"刪去 , 還是有問題 ! 情形還是一樣 !!
是不是vb6對DAO無法做此項檢驗 ?????
'datLM 為 DAO
'結果若在編輯模式或新增模式 , 關掉程式, 照樣關掉, 且不出現 'MsgBox , 並新增一筆空白資料.
'請釋疑 !!
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If datLM.Recordset.EditMode ＜＞ dbEditNone Then
MsgBox "Please Save or Cancel ! Then you can Exit. ", vbExclamation, "LandMark"
Cancel = True
Exit Sub
End If
End Sub
把"Exit Sub"刪去 , 還是有問題 ! 情形還是一樣 !!
是不是vb6對DAO無法做此項檢驗 ?????
Textbox saving(編號：1098)
I want to ask a question,
I am building a form which contain a lot of textboxs
(like a address book), how can I save the data into a file?
How can I read that file and search through the file?
I am building a form which contain a lot of textboxs
(like a address book), how can I save the data into a file?
How can I read that file and search through the file?
vb與資料庫之間的難題(編號：1097)
vb在資料庫裡的動作似乎很簡單,要新增.刪除.查詢,透過odbc直接可以存取ISAM
RDMS....一大堆資料格式,但是;我碰到一個問題,百思不得其解
如何以VB連到SQL SERVER去CREATE DATABASE??
透過ODBC的時候不是需要DATABASE_NAME??,既然不存在
我該如何去連上,並且建立資料庫??(就像CreateDatabase建立access格式一樣??)
please mailto me ,thanks
RDMS....一大堆資料格式,但是;我碰到一個問題,百思不得其解
如何以VB連到SQL SERVER去CREATE DATABASE??
透過ODBC的時候不是需要DATABASE_NAME??,既然不存在
我該如何去連上,並且建立資料庫??(就像CreateDatabase建立access格式一樣??)
please mailto me ,thanks
請問data report 的寬度限制(編號：1096)
請教各位前輩
我想設計橫頁列印的DataReport報表
將報表設計加寬後 ( ＞9000 )
列印時都出現 表寬度大於紙張寬度....的錯誤訊息
請問該如何調整設定或撰寫程式?
還要請問一下
若更改 printer 物件的屬性設定 會對 DataReport 有所影響嗎
例如改變 printer 的屬性為橫印 那 DataReport 列印時會變橫嗎..
這兩種設定有什麼不同呢?
有點不解..請指點一下.謝謝
我想設計橫頁列印的DataReport報表
將報表設計加寬後 ( ＞9000 )
列印時都出現 表寬度大於紙張寬度....的錯誤訊息
請問該如何調整設定或撰寫程式?
還要請問一下
若更改 printer 物件的屬性設定 會對 DataReport 有所影響嗎
例如改變 printer 的屬性為橫印 那 DataReport 列印時會變橫嗎..
這兩種設定有什麼不同呢?
有點不解..請指點一下.謝謝
如何使用Common Dialog Control(編號：1095)
我知道Common Dialog Control控制項能作很多如檔案存取的工作,但是裡面的各項引數所代表的意義實在叫我搞不懂,誰能幫幫我
(如:檔案存取中的選項置入"1"就有一種型式的視窗,鍵入其它數字就或是一樣,或是不一樣了)
(如:檔案存取中的選項置入"1"就有一種型式的視窗,鍵入其它數字就或是一樣,或是不一樣了)
ADO可不可以像RDO一樣，一次收到多筆Resultsets?(編號：1093)
我用VB6加上Desktop的SQL Server，我可以用ADO加T-SQL呼叫系統程序，如sp_help，但是傳回的Recordsets我只收到第一組。要如何才能收到多組呢？像Query Analizer一樣收到多組。
VB之SQL語法會發生問題(編號：1092)
ut="中山大學"期刊" 字串其中有一個"標點
select * from 期刊 where 主題名='"& ut &"'
如果ut中有"時sql語法要如何寫才不會有錯誤呢?
在[期刊]中也有一筆 "中正大學"期刊" 字串其中有一個"標點
select * from 期刊 where 主題名='"& ut &"'
如果ut中有"時sql語法要如何寫才不會有錯誤呢?
在[期刊]中也有一筆 "中正大學"期刊" 字串其中有一個"標點
請大家幫忙─一起建立CPU的資料庫(編號：1091)
API使用如下：
宣告，於模組宣告，並宣告相關結構
Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Type SYSTEM_INFO
dwOemID As Long
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOrfProcessors As Long
dwProcessorType As Long
dwProcessLevel As Integer
dwAllocationGranularity As Integer
dwReserved As Long
End Type
用法 ●得知CPU種類
Dim CPUInfo As SYSTEM_INFO
GetSystemInfo CPUInfo
Select Case CPUInfo.ProcessType
Case 386
Print "這是386的CPU"
Case 486
Print "這是486的CPU"
Case 586
Print "這是586的CPU"
Case 4000
Print "這是MIPS 4000的CPU"
Case 21064
Print "這是Alpha的CPU"
End Select
●得知CPU有幾顆
Dim CPUInfo As SYSTEM_INFO
GetSystemInfo CPUInfo
MsgBox "你的電腦上有" & CPUInfo.dwNumberOrfProcessors & "顆
CPU"
●得知CPU最大定址
Dim CPUInfo As SYSTEM_INFO
GetSystemInfo CPUInfo
MsgBox "你的CPU最大定址" & CPUInfo.lpMaximumApplicationAddress
& "顆CPU"
●從Pentuim時代開始，有K5、Pentium MMX、6x86......等CPU加入戰局，因此用ProcessType的方式很難得知這是一顆怎樣的CPU，因此有了dwResved，得知修訂編號，以判斷這是那一顆CPU。
Dim CPUInfo As SYSTEM_INFO
GetSystemInfo CPUInfo
MsgBox "你的CPU修訂編號是" & CPUInfo.dwReserved
●小瓜瓜沒有辦法對每一顆CPU作測試，請求各位網友將你的CPU總類、廠牌及GetSystemInfo的各項結果登出來，以利網友們的查詢！
●以下是網友提供的數據
dwReserved CPU 提供
100794373 K6-166 李森遠
100990982 Celeron 366 Victor W.P. Tung
101318662 PII-366 Victor W.P. Tung
84017158 PII-400 Victor W.P. Tung
135004165 K6-2-350 Victor W.P. Tung
宣告，於模組宣告，並宣告相關結構
Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Type SYSTEM_INFO
dwOemID As Long
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOrfProcessors As Long
dwProcessorType As Long
dwProcessLevel As Integer
dwAllocationGranularity As Integer
dwReserved As Long
End Type
用法 ●得知CPU種類
Dim CPUInfo As SYSTEM_INFO
GetSystemInfo CPUInfo
Select Case CPUInfo.ProcessType
Case 386
Print "這是386的CPU"
Case 486
Print "這是486的CPU"
Case 586
Print "這是586的CPU"
Case 4000
Print "這是MIPS 4000的CPU"
Case 21064
Print "這是Alpha的CPU"
End Select
●得知CPU有幾顆
Dim CPUInfo As SYSTEM_INFO
GetSystemInfo CPUInfo
MsgBox "你的電腦上有" & CPUInfo.dwNumberOrfProcessors & "顆
CPU"
●得知CPU最大定址
Dim CPUInfo As SYSTEM_INFO
GetSystemInfo CPUInfo
MsgBox "你的CPU最大定址" & CPUInfo.lpMaximumApplicationAddress
& "顆CPU"
●從Pentuim時代開始，有K5、Pentium MMX、6x86......等CPU加入戰局，因此用ProcessType的方式很難得知這是一顆怎樣的CPU，因此有了dwResved，得知修訂編號，以判斷這是那一顆CPU。
Dim CPUInfo As SYSTEM_INFO
GetSystemInfo CPUInfo
MsgBox "你的CPU修訂編號是" & CPUInfo.dwReserved
●小瓜瓜沒有辦法對每一顆CPU作測試，請求各位網友將你的CPU總類、廠牌及GetSystemInfo的各項結果登出來，以利網友們的查詢！
●以下是網友提供的數據
dwReserved CPU 提供
100794373 K6-166 李森遠
100990982 Celeron 366 Victor W.P. Tung
101318662 PII-366 Victor W.P. Tung
84017158 PII-400 Victor W.P. Tung
135004165 K6-2-350 Victor W.P. Tung
如何改變游標(Careat)的顏色....part II(編號：1089)
我用 CreateCreat這個 API 可以做我想要的游標的形狀
它的第二個參數 hBitMap 這個 handle 是可以由
CreateBitmap ..等可以產生 hBitMap 的 API, 經我測試的結果
在 W2000上會有產生顏色的改變,但 NT 卻不會不曉得為什麼
ReDim x(width * height * 2) As Byte
For i = LBound(x) To UBound(x) - 1 Step 2
x(i) = &HF3
x(i + 1) = &H3
Next i
hBitmap = CreateBitmap(width, height, 4, 4, x(0))
CreateCaret ctlHwnd, hBitmap, width, height '重新Create Caret
ShowCaret ctlHwnd
希望各位先進可以告訴我, CreateBitmap 的真正用法,第三個參數的內陣列
每一個點的顏色排列方式,要16色以上的排法,王國榮書上的 CreateBitmap 僅是黑白的
它的第二個參數 hBitMap 這個 handle 是可以由
CreateBitmap ..等可以產生 hBitMap 的 API, 經我測試的結果
在 W2000上會有產生顏色的改變,但 NT 卻不會不曉得為什麼
ReDim x(width * height * 2) As Byte
For i = LBound(x) To UBound(x) - 1 Step 2
x(i) = &HF3
x(i + 1) = &H3
Next i
hBitmap = CreateBitmap(width, height, 4, 4, x(0))
CreateCaret ctlHwnd, hBitmap, width, height '重新Create Caret
ShowCaret ctlHwnd
希望各位先進可以告訴我, CreateBitmap 的真正用法,第三個參數的內陣列
每一個點的顏色排列方式,要16色以上的排法,王國榮書上的 CreateBitmap 僅是黑白的
請問如何將一張form轉成EXCEL或HTML格式????(編號：1085)
我想將一張FORM裡的所有欄位(包含文字,圖片,線條)轉存成其它`應用程式可閱讀的檔案,或是一個FORM存成一個圖檔也可
請問這樣的"程式"如何寫??或是有相關儲存一個FORM的指令語法嗎??
希望各位高手能幫幫忙!!!感激不盡!!!
請問這樣的"程式"如何寫??或是有相關儲存一個FORM的指令語法嗎??
希望各位高手能幫幫忙!!!感激不盡!!!
請問~有關I/O控製的問題~~~(編號：1083)
由於專題的需要 我想利用vb 來寫一個程式(由週邊電路取得信號
送入電腦做處理)
小弟現在不知道要 使用那一個指令或是什麼方法才能控制I/O
P.s由Print port埠或是Rs232作為輸入介面??
送入電腦做處理)
小弟現在不知道要 使用那一個指令或是什麼方法才能控制I/O
P.s由Print port埠或是Rs232作為輸入介面??
VB轉換DBF資料的問題？..全形資料？(編號：1081)
請問大家..
利用 SQL語法配合ADO轉換DBF的資料.
我發現了一個現象..
如果原始資料為全形字元..那轉換後的仍為全形
用ACCESS匯入的則不會..一律為半形..
請問我該如何處理呢..
利用 SQL語法配合ADO轉換DBF的資料.
我發現了一個現象..
如果原始資料為全形字元..那轉換後的仍為全形
用ACCESS匯入的則不會..一律為半形..
請問我該如何處理呢..
如何作一個A4大小的表單並用檢視比例縮小來製作此表單?(編號：1079)
1. 表單長寬似乎有最大值限制, 請問前輩們是否有人曾作過與A4一樣大小的表單? 不知該如何作呢?
2. 若我已作了一個超大型的表單(已有加捲軸)不知如何才能使用VB工具列上的[檢視][檢視比例]來將它縮小,以在此大表單上放各個控制項? 因它一直都是灰色的, 都不能使用.
以上問題, 若各位先進有人知道, 請幫幫小妹吧! 小妹感激不盡. 謝謝!
2. 若我已作了一個超大型的表單(已有加捲軸)不知如何才能使用VB工具列上的[檢視][檢視比例]來將它縮小,以在此大表單上放各個控制項? 因它一直都是灰色的, 都不能使用.
以上問題, 若各位先進有人知道, 請幫幫小妹吧! 小妹感激不盡. 謝謝!
真是見鬼了﹗﹗怎麼會溢位？？？(編號：1078)
小弟在執行VB debug mode時，在即時運算視窗中鍵入
? 6305984 * 512
竟然出現"溢位"的錯誤
但是若鍵入
? 324214343215554325 * 434
則出現 1.40709024955551E+20 的正確結果（其他較大的數字
也可運算成功)
在VB5.0或6.0(+SP3)都會如此，為什麼？？？？
? 6305984 * 512
竟然出現"溢位"的錯誤
但是若鍵入
? 324214343215554325 * 434
則出現 1.40709024955551E+20 的正確結果（其他較大的數字
也可運算成功)
在VB5.0或6.0(+SP3)都會如此，為什麼？？？？
How do the VB control the 8255 card?(編號：1076)
can u send some program can control the 8255 card.
Thank you!
Thank you!
有關壓縮資料庫(編號：1071)
小弟使用下面方法壓縮資料庫
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\comp1.mdb", _ '來源資料庫
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\comp2.mdb;Jet OLEDB:Engine Type=4" '目的資料庫
但發生以下錯誤：
{執行階段錯誤，-2147467259(80004005)，無法執行此運算，此版本的功能在舊格式資料庫無效 }
而小弟的設定如下：
Microsoft DAO 3.6 Object Library
Microsoft Jet and Replication Objects 2.1 library
vb6.0
Access 2000
請問應如何解決。
亦可以e_mail到我的信箱中，
謝謝
rock 敬上
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\comp1.mdb", _ '來源資料庫
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\comp2.mdb;Jet OLEDB:Engine Type=4" '目的資料庫
但發生以下錯誤：
{執行階段錯誤，-2147467259(80004005)，無法執行此運算，此版本的功能在舊格式資料庫無效 }
而小弟的設定如下：
Microsoft DAO 3.6 Object Library
Microsoft Jet and Replication Objects 2.1 library
vb6.0
Access 2000
請問應如何解決。
亦可以e_mail到我的信箱中，
謝謝
rock 敬上
請問VB要如何抓取字型16*16(system or 細明體)?(編號：1070)
抱歉,小妹是VB的初學者,請問VB要如何抓取字型16*16(system or 細明體) ps.要一點一點抓(BitMap)到記憶體!!謝謝!!
請問如何在 Menu 加入圖形？(編號：1066)
在下想請問各位先進，像是IE、VC、VB的Menu前面都可以加入圖形，
可是VB似乎沒有提供這個功能，只有提供可否打勾的選項。敢問各位
先進，有誰知道怎麼在Menu內加入圖形？謝謝！
可是VB似乎沒有提供這個功能，只有提供可否打勾的選項。敢問各位
先進，有誰知道怎麼在Menu內加入圖形？謝謝！
請幫我解答這兩個問題 謝謝(編號：1062)
謝謝各位幫我解答
我有兩個問題想問
(1).如果要將這種文字檔用vb作成讀取一個Textbox讀取一個欄位資料怎麼做(共有六個Textbox)?
1438 8811 1187 .00 1.00 .0000
2397 8809 1887 1.00 .00 .0000
2402 8808 1787 2.54 .96 .0000
4207 8509 1984 .00 1.00 5.0000
4304 8809 2987 .50 .00 .0000
4715 8810 0587 .20 .50 .0000
5345 8901 2088 .00 .00 16.4000
(2)還有adodc的問題雖然兩個資料放在不同資料庫內(sql跟Access)可是內容跟欄位名稱都一樣也就是說都是相同的資料祇是
放的資料庫不同而已也不行讓兩個Adodc顯示相同的一筆資料嗎?那還是得用find嗎?那如果要用find要怎麼寫呢?
謝謝各位先輩幫忙
我有兩個問題想問
(1).如果要將這種文字檔用vb作成讀取一個Textbox讀取一個欄位資料怎麼做(共有六個Textbox)?
1438 8811 1187 .00 1.00 .0000
2397 8809 1887 1.00 .00 .0000
2402 8808 1787 2.54 .96 .0000
4207 8509 1984 .00 1.00 5.0000
4304 8809 2987 .50 .00 .0000
4715 8810 0587 .20 .50 .0000
5345 8901 2088 .00 .00 16.4000
(2)還有adodc的問題雖然兩個資料放在不同資料庫內(sql跟Access)可是內容跟欄位名稱都一樣也就是說都是相同的資料祇是
放的資料庫不同而已也不行讓兩個Adodc顯示相同的一筆資料嗎?那還是得用find嗎?那如果要用find要怎麼寫呢?
謝謝各位先輩幫忙
vb6用DAO編輯模式時,user關掉程式,如何避免新增一筆空白資料?(編號：1060)
vb6用DAO編輯模式時,user關掉程式,如何避免新增一筆空白資料?
Thanks very much !
chsu@acer.net
Thanks very much !
chsu@acer.net
關於bat檔案的問題????(編號：1058)
我現在有一個批次檔(BAT FILE)
install.bat內容為:
copy t1.ttf c:\windows\fonts\t1.ttf
link.exe
而autorun的檔案內容如下:
open = install.bat
而執行install.bat第一行copy指令時,系統會跳到dos模式下,請問一下有什麼方法,可以使系統直接在windows模式下執行?????
install.bat內容為:
copy t1.ttf c:\windows\fonts\t1.ttf
link.exe
而autorun的檔案內容如下:
open = install.bat
而執行install.bat第一行copy指令時,系統會跳到dos模式下,請問一下有什麼方法,可以使系統直接在windows模式下執行?????
如何將SETUP安裝成CD-ROM自動執行檔?(編號：1055)
請教各位如何將SETUP安裝成CD-ROM自動執行檔 ?
讓使用者一放入光碟就自動執行SETUP ?
更進一步 , 若判斷程式己經安裝過就不會自動執行SETUP ?
讓使用者一放入光碟就自動執行SETUP ?
更進一步 , 若判斷程式己經安裝過就不會自動執行SETUP ?
SELECT記錄時不能在WHERE中包含中文字 (SQL7.0)(編號：1054)
本人使用 SQL Server 7.0 及 Windows NT 4.0 英文Version.
在Client端使用SELECT時不能傳回所查詢的結果.
SQL:
SELECT * FROM ACCOUNT WHERE Address like '%香港%"
沒有傳回結果....
但在Statement中將'%香港%" 轉為 '%HK$', 這樣Server會將所有有HK的記錄傳回.
本人亦試過以下SQL:
SELECT * FROM ACCOUNT WHERE Address like N'%香港%"
但結果一樣!! (0記錄)
本人亦試過在NT Workstation 4.0 中文Version + SQL Server 7.0 SP1, 在Client端測試但結果一樣.
ACCOUNT這TABLE中Address的Data Type 是nvarchar.
Client端安裝了最新的MDAC, ODBC Version 是3.70.690
各位高手請指點!!
謝謝!!
在Client端使用SELECT時不能傳回所查詢的結果.
SQL:
SELECT * FROM ACCOUNT WHERE Address like '%香港%"
沒有傳回結果....
但在Statement中將'%香港%" 轉為 '%HK$', 這樣Server會將所有有HK的記錄傳回.
本人亦試過以下SQL:
SELECT * FROM ACCOUNT WHERE Address like N'%香港%"
但結果一樣!! (0記錄)
本人亦試過在NT Workstation 4.0 中文Version + SQL Server 7.0 SP1, 在Client端測試但結果一樣.
ACCOUNT這TABLE中Address的Data Type 是nvarchar.
Client端安裝了最新的MDAC, ODBC Version 是3.70.690
各位高手請指點!!
謝謝!!
請問一下，如何利用VB6 連結ODBC後處理DBF的資料?(編號：1053)
由於原資料為DBF的檔案，現在要利用 VB6 開發前端程式，可是卻無法利用DELETE等方式增修資料...不知道各位先進是否有相關經驗可指導一二....
(使用工具；VB 6.0 SP3、ADO 語法)
(使用工具；VB 6.0 SP3、ADO 語法)
製成安裝片安裝時所發生的問題.......(編號：1049)
我的程式在封裝時都沒出什麼問題，
可是執行安裝程式，裝到一半會出現下列的錯誤訊息：
The file 'C:\TEMP\msftqws.pdw\$(DLLSelfRegisterEx)' could not be registered because it was not found.
請問上面的錯誤訊息是什麼意思呢？
該如何解決？？
ps:我的程式是用vb6(sp3)寫的......
可是執行安裝程式，裝到一半會出現下列的錯誤訊息：
The file 'C:\TEMP\msftqws.pdw\$(DLLSelfRegisterEx)' could not be registered because it was not found.
請問上面的錯誤訊息是什麼意思呢？
該如何解決？？
ps:我的程式是用vb6(sp3)寫的......
請問我如何預先取得自動編號(SQL 7.0)(編號：1048)
通常我們在insert資料時自動編號都尚未產生,
只有在insert完成之後才會產生編號,
rs.addnew也無法預先知道.
有無方法可知道呢.謝謝.
只有在insert完成之後才會產生編號,
rs.addnew也無法預先知道.
有無方法可知道呢.謝謝.
Error: Physical database not found (Crystal Smart Viewer)(編號：1047)
本人現裝了SP3 和Crystal Report 7, 在自己機可以Run,
但在第二部機就出以上Error.
Title: Crystal Smart Viewer
Physical database not found
請問怎樣解決,謝謝!
但在第二部機就出以上Error.
Title: Crystal Smart Viewer
Physical database not found
請問怎樣解決,謝謝!
關於封裝檔裡的setup.lst的問題about [Bootstrap Files] Section(編號：1046)
封裝檔裡setup.lst內容中有分為
[Bootstrap]
[Bootstrap Files]
[IconGroups]
[Setup]
[Setup1 Files]
等區段,
關於[Bootstrap Files]區段裡裝的檔案,
是不是只有封裝程式自己會用到?
而真正自行設計的軟體會用到的檔案都在
[Setup1 Files]區段裡,這樣的說法對不對?
如果真是這樣,當用別種封裝程式包裝時,不就
只要包[Setup1 Files]這裡面的檔案就行了,
對吧????
對於vb包的檔,實在大的嚇人,so有此問題....
[Bootstrap]
[Bootstrap Files]
[IconGroups]
[Setup]
[Setup1 Files]
等區段,
關於[Bootstrap Files]區段裡裝的檔案,
是不是只有封裝程式自己會用到?
而真正自行設計的軟體會用到的檔案都在
[Setup1 Files]區段裡,這樣的說法對不對?
如果真是這樣,當用別種封裝程式包裝時,不就
只要包[Setup1 Files]這裡面的檔案就行了,
對吧????
對於vb包的檔,實在大的嚇人,so有此問題....
關於封裝檔裡的setup.lst的問題about [Bootstrap Files] Section(編號：1045)
封裝檔裡setup.lst內容中有分為
[Bootstrap]
[Bootstrap Files]
[IconGroups]
[Setup]
[Setup1 Files]
等區段,
關於[Bootstrap Files]區段裡裝的檔案,
是不是只有封裝程式自己會用到?
而真正自行設計的軟體會用到的檔案都在
[Setup1 Files]區段裡,這樣的說法對不對?
如果真是這樣,當用別種封裝程式包裝時,不就
只要包[Setup1 Files]這裡面的檔案就行了,
對吧????
對於vb包的檔,實在大的嚇人,so有此問題....
[Bootstrap]
[Bootstrap Files]
[IconGroups]
[Setup]
[Setup1 Files]
等區段,
關於[Bootstrap Files]區段裡裝的檔案,
是不是只有封裝程式自己會用到?
而真正自行設計的軟體會用到的檔案都在
[Setup1 Files]區段裡,這樣的說法對不對?
如果真是這樣,當用別種封裝程式包裝時,不就
只要包[Setup1 Files]這裡面的檔案就行了,
對吧????
對於vb包的檔,實在大的嚇人,so有此問題....
再次請教:VB是否能像ASP一樣include一段程式進來(編號：1044)
在VB上寫作總是會同樣的sub在不同的from裡
重覆寫了好几次, 只因為模組中不能有物件.
我在想是不是能有其它的語言,如C或者是Clipper, call sub
及function一樣,不曉得諸位能不能了解我的意思...
舉個例子.
form1
text1 * 1 (text1.text = 1)
command1 *1
程式
Private Sub Command1_Click()
Call Form2.showMytext
End Sub
form2
text1 * 1 (text1.text = 2)
程式
Public Sub showMytext()
MsgBox Text1.Text
End Sub
執行結果會是2,
該如何讓它 shwo 出 1 呢??
若將sub showMytext程式放在模組裡也是錯誤的.
我的意思是純程式碼的include,不管是不是物件,
只要是名稱一樣就行了.
真的挺苦腦的.....
可能是以前寫程式的習慣,
不知現在的程式能不能這樣表現.
還是諸位前輩對於這面是否有其它的建議....謝謝!!
重覆寫了好几次, 只因為模組中不能有物件.
我在想是不是能有其它的語言,如C或者是Clipper, call sub
及function一樣,不曉得諸位能不能了解我的意思...
舉個例子.
form1
text1 * 1 (text1.text = 1)
command1 *1
程式
Private Sub Command1_Click()
Call Form2.showMytext
End Sub
form2
text1 * 1 (text1.text = 2)
程式
Public Sub showMytext()
MsgBox Text1.Text
End Sub
執行結果會是2,
該如何讓它 shwo 出 1 呢??
若將sub showMytext程式放在模組裡也是錯誤的.
我的意思是純程式碼的include,不管是不是物件,
只要是名稱一樣就行了.
真的挺苦腦的.....
可能是以前寫程式的習慣,
不知現在的程式能不能這樣表現.
還是諸位前輩對於這面是否有其它的建議....謝謝!!
ActiveX文件(編號：1041)
何謂ActiveX文件？？
在表單上填好資料，按了button後，可否將整張表單存檔起來，並還可以
再開啟重新編輯，並寄出ㄋ？？
該表單上除了文字外還有圖片，請問一下可有辦法做到ㄋ???
在表單上填好資料，按了button後，可否將整張表單存檔起來，並還可以
再開啟重新編輯，並寄出ㄋ？？
該表單上除了文字外還有圖片，請問一下可有辦法做到ㄋ???
如何讓迴圈停一下跑(編號：1040)
各位大家好：
我現在有一個迴圈，利用迴圈將圖片一張一張的load進到picture box框裡面，
希望能做到像播投影片的樣子，可是我卻不知道該怎麼讓迴圈等一下再去
load下一張圖，請教一下，謝謝。
ps..我有利用timer跟for迴圈去load圖片
我現在有一個迴圈，利用迴圈將圖片一張一張的load進到picture box框裡面，
希望能做到像播投影片的樣子，可是我卻不知道該怎麼讓迴圈等一下再去
load下一張圖，請教一下，謝謝。
ps..我有利用timer跟for迴圈去load圖片
程式如可上web最快???(編號：1039)
dear all
我用vb6 + Sql 7 + crystal report 寫了一套會計總帳軟體是2-tier架構,我想把它放在web server 上讓別人上網用IE 來run,請問如何可以最快達到這個目的? 謝謝指教.
我用vb6 + Sql 7 + crystal report 寫了一套會計總帳軟體是2-tier架構,我想把它放在web server 上讓別人上網用IE 來run,請問如何可以最快達到這個目的? 謝謝指教.
我自己寫的工具─標點符號小鍵盤(編號：1037)
我自己寫的工具─標點符號小鍵盤
這個東西與神奇力量網的〝符號II〞的作用相同，而且比它更強，並且能匯入與匯出〝符號II〞的sy2檔，動態視窗大小調整等功能，歡迎大家來一起找bug。
在我的網頁 http://netcity.hinet.net/stupids/ 的〝作品下載〞單元裡！
這個東西與神奇力量網的〝符號II〞的作用相同，而且比它更強，並且能匯入與匯出〝符號II〞的sy2檔，動態視窗大小調整等功能，歡迎大家來一起找bug。
在我的網頁 http://netcity.hinet.net/stupids/ 的〝作品下載〞單元裡！
偵測seltextbox的內容?高手請幫忙(編號：1036)
我是用seltextbox輸入了各行資料
如何讓我之後輸入的字串和之前輸入的字串相比，知道已存在
比如其內容:
1234
1325
1111
1234----這行能在輸入時知道已輸入過
請高手幫忙!
如何讓我之後輸入的字串和之前輸入的字串相比，知道已存在
比如其內容:
1234
1325
1111
1234----這行能在輸入時知道已輸入過
請高手幫忙!
關於autorun檔案的一些問題~~~(編號：1034)
我想請問一下:
現在有一個autorun的檔案內容如下:
open = link.exe
而現在我必須在執行link.exe這個檔案前,先安裝一個字型檔及軟體檔,我可以一起寫在autorun裡嗎??
copy t1.ttf c:\windows\fontsopen = abc.exe
open = link.exe
以上這樣寫語法對嗎?是否會按順利往下執行?使得在將字型檔copy及軟體檔執行後,才會執行link.exe?????
現在有一個autorun的檔案內容如下:
open = link.exe
而現在我必須在執行link.exe這個檔案前,先安裝一個字型檔及軟體檔,我可以一起寫在autorun裡嗎??
copy t1.ttf c:\windows\fontsopen = abc.exe
open = link.exe
以上這樣寫語法對嗎?是否會按順利往下執行?使得在將字型檔copy及軟體檔執行後,才會執行link.exe?????
謝謝各位還有問題跟文字檔和adodc問題(編號：1033)
謝謝各位幫我解答
我還有兩個問題想問
(1).如果要將這種文字檔用vb作成讀取一個Textbox讀取一個欄位資料怎麼做(共有六個Textbox)?
1438 8811 1187 .00 1.00 .0000
2397 8809 1887 1.00 .00 .0000
2402 8808 1787 2.54 .96 .0000
4207 8509 1984 .00 1.00 5.0000
4304 8809 2987 .50 .00 .0000
4715 8810 0587 .20 .50 .0000
5345 8901 2088 .00 .00 16.4000
(2)還有剛剛的adodc的問題雖然兩個資料放在不同資料庫內(sql跟Access)可是內容跟欄位名稱都一樣也就是說都是相同的資料祇是
放的資料庫不同而已也不行讓兩個Adodc顯示相同的一筆資料嗎?那還是得用find嗎?那如果要用find要怎麼寫呢?
謝謝各位先被幫忙
我還有兩個問題想問
(1).如果要將這種文字檔用vb作成讀取一個Textbox讀取一個欄位資料怎麼做(共有六個Textbox)?
1438 8811 1187 .00 1.00 .0000
2397 8809 1887 1.00 .00 .0000
2402 8808 1787 2.54 .96 .0000
4207 8509 1984 .00 1.00 5.0000
4304 8809 2987 .50 .00 .0000
4715 8810 0587 .20 .50 .0000
5345 8901 2088 .00 .00 16.4000
(2)還有剛剛的adodc的問題雖然兩個資料放在不同資料庫內(sql跟Access)可是內容跟欄位名稱都一樣也就是說都是相同的資料祇是
放的資料庫不同而已也不行讓兩個Adodc顯示相同的一筆資料嗎?那還是得用find嗎?那如果要用find要怎麼寫呢?
謝謝各位先被幫忙
粉頭痛的傳值問題與粉頭痛的VB功能(編號：1032)
我把Focus轉給別的程式後，用SendKeys 可以把字串正確的傳給記事本、WordPad這一類的文件裡
但是我把Focus轉給像是Office這一套軟體的任一個程式，用SendKeys把中文字送出，結果它們中文兩個Byte拆開，然後這兩個一Byte的字各自再變成兩Byte的字，也就是用英文字型可以出現中文，但一換成中文字型..會被誤判，中文變亂碼
VB又無法取得資料的記憶體位址，所以我所資到的API也無法幫我傳送字串
現在只能笨笨的把字先複製到剪貼簿後再貼上去，但是萬一剪貼簿有資料，這個資料就會被毀了
有沒有好方法可以模擬小鍵盤一樣把中文字正確的送出到GotFocus的文件上？
但是我把Focus轉給像是Office這一套軟體的任一個程式，用SendKeys把中文字送出，結果它們中文兩個Byte拆開，然後這兩個一Byte的字各自再變成兩Byte的字，也就是用英文字型可以出現中文，但一換成中文字型..會被誤判，中文變亂碼
VB又無法取得資料的記憶體位址，所以我所資到的API也無法幫我傳送字串
現在只能笨笨的把字先複製到剪貼簿後再貼上去，但是萬一剪貼簿有資料，這個資料就會被毀了
有沒有好方法可以模擬小鍵盤一樣把中文字正確的送出到GotFocus的文件上？
VB檔案複製問題？(編號：1031)
我最近以程式碼把DBF的資料轉成ACCESS的資料..
發現一個奇怪的問題：
我的原始檔案中有全形資料..要能查詢
但是查詢..用程式碼轉的資料卻查不到.
用ACCESS匯入的就可以查到.
請問會不會是DCBS跟UNICODE字集不同的關係？..
發現一個奇怪的問題：
我的原始檔案中有全形資料..要能查詢
但是查詢..用程式碼轉的資料卻查不到.
用ACCESS匯入的就可以查到.
請問會不會是DCBS跟UNICODE字集不同的關係？..
有關Winsock問題(編號：1028)
請教各位,
本人想建立client/server的架構,要如何用winsock去connect server端的Access資料庫及如何利用winsock在client和server之間互相溝通，目前已寫了一單機程式用ADO去存取Access資料庫。
可否舉個範例做說明?
本人想建立client/server的架構,要如何用winsock去connect server端的Access資料庫及如何利用winsock在client和server之間互相溝通，目前已寫了一單機程式用ADO去存取Access資料庫。
可否舉個範例做說明?
文字檔....(編號：1027)
我有以個文字檔想抓入VB的textbox中但是卻會沒辦法對齊textbox
而且每一欄都對一個textbox請各位先輩教教我吧謝謝
文字檔如下
1438 88111187 .00 1.00 .0000
2397 88091887 1.00 .00 .0000
2402 88081787 2.54 .96 .0000
4207 85091984 .00 1.00 5.0000
4304 88092987 1.50 .00 .0000
4715 88100587 .20 .50 .0000
5345 89012088 .00 .00 16.4000
而且每一欄都對一個textbox請各位先輩教教我吧謝謝
文字檔如下
1438 88111187 .00 1.00 .0000
2397 88091887 1.00 .00 .0000
2402 88081787 2.54 .96 .0000
4207 85091984 .00 1.00 5.0000
4304 88092987 1.50 .00 .0000
4715 88100587 .20 .50 .0000
5345 89012088 .00 .00 16.4000
請教 MonthView(編號：1024)
請問我在MonthView 的SelChange event 中有一些程式，但在 runtime 時為何它會自動定時去觸發 SelChange event。
Regsvr32(編號：1021)
我執行
Regsvr32 c:\winnt\system32\Threed32.ocx
為何在vb6的"專案"-"元件"可以選取並套用,但當我要使用該物件時確出
現
"License information for this component not found.You do not
have an appropriate license to use to use this
functionality in the design environment."
TKS !
Regsvr32 c:\winnt\system32\Threed32.ocx
為何在vb6的"專案"-"元件"可以選取並套用,但當我要使用該物件時確出
現
"License information for this component not found.You do not
have an appropriate license to use to use this
functionality in the design environment."
TKS !
關於DAO所建立的資料庫(編號：1016)
我用DAO建立一個資料庫及一個資料表,其中有4個欄位, 可是為此四個欄位新增資料上去後,第一個欄位卻永遠存不進其資料, 百思不解為何?
可否請各位高人指點
謝謝
可否請各位高人指點
謝謝
除了用winsock, 還有用其他方法connect remote database ?(編號：1015)
你好,本人想問在client/server 的 network 入面, client 如何用簡單既方法 access server 入面既database?( 本人現在用ADO 去access database, 是否有方法可以用ADO connect remote server by IP?)
本人知道可以用winsock 去connect server, 也可以利用winsock 在client 和server 之間互相溝通. 但係WINSOCK的限制是只可以send 單一既data type, 很不方便.
可否舉一個例子?
本人知道可以用winsock 去connect server, 也可以利用winsock 在client 和server 之間互相溝通. 但係WINSOCK的限制是只可以send 單一既data type, 很不方便.
可否舉一個例子?
為什麼 VB + SQL 7.0則無法正常運作(編號：1014)
本人初次使用MS SQL7.0當作資料庫，嘗試撰寫客戶管理畫面。
'
' 在未使用「修改」功能按鈕之前，「首筆」、「上筆」、「下筆」、「末筆」功能按鈕可以正常運作。
' 當使用用「修改」功能按鈕之後，並按「寫入」功能按鈕之後，則會當掉，出現的MSGBOX 為
' 鍵欄位資訊不足或不正確；大多列被更新所影響。
'
' 之前，VB + ACCESS 2000正常運作，為什麼 VB + SQL 7.0則無法正常運作。
'
' 請各位高手指點迷津，在此先行言謝！
'
' 程式碼節略如下:
'=========================================================================================
' 目 的: 功能按鈕
'=========================================================================================
Private Sub Form_Load()
...
'------------------------------------------------
' D0 資料控制項
'------------------------------------------------
With adoPrimaryRS
.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI; " _
& "Persist Security Info=False;Initial Catalog=Client; " _
& "Data Source=QA_0001"
.CommandType = adCmdTable
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.RecordSource = "tblclient"
.Refresh
End With
...
End Sub
'=========================================================================================
' 目 的: 功能按鈕
'=========================================================================================
Private Sub tbrTool_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim at As Variant
On Error Resume Next
Select Case Trim(Button.Description)
Case "新增"
at = adoPrimaryRS.Recordset.AbsolutePosition
adoPrimaryRS.Recordset.AddNew
mstrEditMode = "新增"
Case "修改"
at = adoPrimaryRS.Recordset.AbsolutePosition
mstrEditMode = "修改"
Case "刪除"
Delete
Case "取消"
adoPrimaryRS.Recordset.CancelUpdate
adoPrimaryRS.Move 0
mstrEditMode = ""
Case "寫入"
Select Case mstrEditMode
Case "新增"
lblDateCreated.Caption = Now()
Case "修改"
lblDateModified.Caption = Now()
End Select
Save
mstrEditMode = ""
...
Case "首筆"
adoPrimaryRS.Recordset.MoveFirst
Case "上筆"
adoPrimaryRS.Recordset.MovePrevious
If adoPrimaryRS.Recordset.BOF Then
adoPrimaryRS.Recordset.MoveFirst
End If
Case "下筆"
adoPrimaryRS.Recordset.MoveNext
If adoPrimaryRS.Recordset.EOF Then
adoPrimaryRS.Recordset.MoveLast
End If
Case "末筆"
adoPrimaryRS.Recordset.MoveLast
...
End Select
End Sub
'=========================================================================================
' 目 的: 儲存
'=========================================================================================
Private Sub Save()
If adoPrimaryRS.Recordset.EditMode = adEditAdd Then
On Error GoTo SaveFailure:
adoPrimaryRS.Recordset.Update
End If
SaveDone:
Exit Sub
SaveFailure:
MsgBox Err.Number & vbCrLf & Err.Description
Resume SaveDone
End Sub
SPENCER YANG
------------
2000/01/26
'
' 在未使用「修改」功能按鈕之前，「首筆」、「上筆」、「下筆」、「末筆」功能按鈕可以正常運作。
' 當使用用「修改」功能按鈕之後，並按「寫入」功能按鈕之後，則會當掉，出現的MSGBOX 為
' 鍵欄位資訊不足或不正確；大多列被更新所影響。
'
' 之前，VB + ACCESS 2000正常運作，為什麼 VB + SQL 7.0則無法正常運作。
'
' 請各位高手指點迷津，在此先行言謝！
'
' 程式碼節略如下:
'=========================================================================================
' 目 的: 功能按鈕
'=========================================================================================
Private Sub Form_Load()
...
'------------------------------------------------
' D0 資料控制項
'------------------------------------------------
With adoPrimaryRS
.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI; " _
& "Persist Security Info=False;Initial Catalog=Client; " _
& "Data Source=QA_0001"
.CommandType = adCmdTable
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.RecordSource = "tblclient"
.Refresh
End With
...
End Sub
'=========================================================================================
' 目 的: 功能按鈕
'=========================================================================================
Private Sub tbrTool_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim at As Variant
On Error Resume Next
Select Case Trim(Button.Description)
Case "新增"
at = adoPrimaryRS.Recordset.AbsolutePosition
adoPrimaryRS.Recordset.AddNew
mstrEditMode = "新增"
Case "修改"
at = adoPrimaryRS.Recordset.AbsolutePosition
mstrEditMode = "修改"
Case "刪除"
Delete
Case "取消"
adoPrimaryRS.Recordset.CancelUpdate
adoPrimaryRS.Move 0
mstrEditMode = ""
Case "寫入"
Select Case mstrEditMode
Case "新增"
lblDateCreated.Caption = Now()
Case "修改"
lblDateModified.Caption = Now()
End Select
Save
mstrEditMode = ""
...
Case "首筆"
adoPrimaryRS.Recordset.MoveFirst
Case "上筆"
adoPrimaryRS.Recordset.MovePrevious
If adoPrimaryRS.Recordset.BOF Then
adoPrimaryRS.Recordset.MoveFirst
End If
Case "下筆"
adoPrimaryRS.Recordset.MoveNext
If adoPrimaryRS.Recordset.EOF Then
adoPrimaryRS.Recordset.MoveLast
End If
Case "末筆"
adoPrimaryRS.Recordset.MoveLast
...
End Select
End Sub
'=========================================================================================
' 目 的: 儲存
'=========================================================================================
Private Sub Save()
If adoPrimaryRS.Recordset.EditMode = adEditAdd Then
On Error GoTo SaveFailure:
adoPrimaryRS.Recordset.Update
End If
SaveDone:
Exit Sub
SaveFailure:
MsgBox Err.Number & vbCrLf & Err.Description
Resume SaveDone
End Sub
SPENCER YANG
------------
2000/01/26
我找到Open CD-ROM的方法了~~(編號：1013)
只要用API動態改變:
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\MediaResources\mci\cdaudio
下的Default Drive值的第一個Bytes
00:第一台光碟機
01:第二台光碟機
02:第三台光碟機
:
以此類推............然後就可以用
MciExecute "Set CDAudio Door Open"來用就可以了~~參考一下吧
如果有不妥的地方,請幫幫我,告訴我...(最近Case要用)
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\MediaResources\mci\cdaudio
下的Default Drive值的第一個Bytes
00:第一台光碟機
01:第二台光碟機
02:第三台光碟機
:
以此類推............然後就可以用
MciExecute "Set CDAudio Door Open"來用就可以了~~參考一下吧
如果有不妥的地方,請幫幫我,告訴我...(最近Case要用)
Right 函數(編號：1011)
請問一下, 在一個檢查路徑是否為根目錄的過程中使用
了 Right() 這個函數, 為何會出現 "必須是陣列"的錯誤?
If Right(File1.Path,1) ＜＞ "\" Then
ret = File1.Path + "\" + FileName
Else
ret = File1.Path + FileName
End If
了 Right() 這個函數, 為何會出現 "必須是陣列"的錯誤?
If Right(File1.Path,1) ＜＞ "\" Then
ret = File1.Path + "\" + FileName
Else
ret = File1.Path + FileName
End If
About MTS(編號：1010)
請問我使用VB6.0 設計了一個DLL若設定為 NotAnMTSObject,則放在
MTS 上都正常,為何當我設成RequiresTransction且完全不改程式碼的
情況下,放回MTS上則會出現"使用ODBC驅動程式錯誤"
PS.我使用Microsoft ODBC Driver for Oracle
謝謝各位高手...
MTS 上都正常,為何當我設成RequiresTransction且完全不改程式碼的
情況下,放回MTS上則會出現"使用ODBC驅動程式錯誤"
PS.我使用Microsoft ODBC Driver for Oracle
謝謝各位高手...
UserControl疑問三部曲.....(編號：1007)
請問各高手:
1.我要如何才能在UserControl中取得Control所在Form的hWnd?
2.我要如何使UserControl在一Form中唯一存在(同一From中該Control僅能有一個)?
3.我要如何讓已完成的UserControl建立時僅能建立在Form上(Container僅能是Form，而Form上不做任何判斷程式)?
1.我要如何才能在UserControl中取得Control所在Form的hWnd?
2.我要如何使UserControl在一Form中唯一存在(同一From中該Control僅能有一個)?
3.我要如何讓已完成的UserControl建立時僅能建立在Form上(Container僅能是Form，而Form上不做任何判斷程式)?
MTS vs DCOM(編號：1005)
使用Dcom喚起mts上的物件時會因為物件啟動的太慢而讓client以為喚起失敗,所以第一次啟動時常常有錯誤訊息,要求切換至或重試,有沒有辦法延長timeout的時間,或者不是timeout的問題而是別的問題,還請高手解答,感激不盡.
在 Setup Disk ，如何將 捷徑 放在桌面(編號：1003)
在 中文版 VB6.0 ，產生一個 Setup Disk 的程式，有沒有辦法在執行 Setup.exe 時，自動產生一個捷徑在桌面呢
MTS vs Windows98(編號：1000)
請問我從mts匯出package,然後安裝在win98上結果發生了相衝突的問題,
導致一開機時會發生,powrprof.dll連接系統没有作用,然後是SETUPAPI.DLL無法連結輸出,CFGMGR32.DLL:CM_Get_Log_Conf_Priority,
結果電源管理無法使用,顯示器也無法使用,
請大家幫幫忙告訴我怎麼解決這個問題.
導致一開機時會發生,powrprof.dll連接系統没有作用,然後是SETUPAPI.DLL無法連結輸出,CFGMGR32.DLL:CM_Get_Log_Conf_Priority,
結果電源管理無法使用,顯示器也無法使用,
請大家幫幫忙告訴我怎麼解決這個問題.
選單(編號：996)
請問win98中的『開始』選單是toolbar 還是menu , 如果是menu那要如何加上圖示;?
還有vb中的物件都要先放到from上才可以用嗎?
可不可以要用到時才宣告產生，可以省一些記憶体?
謝謝!!
還有vb中的物件都要先放到from上才可以用嗎?
可不可以要用到時才宣告產生，可以省一些記憶体?
謝謝!!
如何讓VB可以取用,有設群組及使用者,密碼之access 資料庫(編號：995)
如何讓VB可以取用,有設群組及使用者,密碼之access 資料庫
之前有討論整體資料庫之進入方式,我依照方法又試了
很多次,還是無法突破那一層....密碼,有請諸位高手幫忙
......
之前有討論整體資料庫之進入方式,我依照方法又試了
很多次,還是無法突破那一層....密碼,有請諸位高手幫忙
......
如何不用winsock控制項而取得winNT的IP位址？(編號：994)
我原本是用找REGISTRY的方法，在WIN98下可以找到IP 位址，但是後來我發現在NT系統下，IP位址是和網路卡綁在一起的(在REGISTRY中)，所以只要是不同的機器，用不同的網路卡，就會將IP位址放在不同的SUBKEY中，使用找REGISTRY的方法會變得非常非常慢。而我又找不到WIN32API可用，或可用的TYPE LIB。
我不可以用WINSOCK控制項，因為我必須將這功能寫成*.DLL，請問有什麼方法可以做到？
我不可以用WINSOCK控制項，因為我必須將這功能寫成*.DLL，請問有什麼方法可以做到？
DataGrid如何複製一整列?(編號：993)
請問在DataGrid中如何作出像Excel一般可以複製一整列後再貼上的功能?試過用ClipBoard的方式,但只能複製Text,對於一整列的資料無法複製,謝謝!
資料計算問題(DataGrid)(編號：991)
請問一下各位高手, 我在一個 DataGrid 中處理庫存問題
但始終都無法將更新的資料去扣除庫存中的數量, 請問一
下以下的做法那邊有問題?
Private Sub DataGrid2_AfterColUpdate(ByVal ColIndex As Integer)
Dim tno, tname As String
Dim aqty, tqty, nqty As Integer
On Error Resume Next
Set b1 = DataEnvironment1.rs設備
If ColIndex = 1 Then
If DataGrid2.Columns(1) ＜＞ "" Then
tno = DataGrid2.Columns(1).Text
b1.Open
b1.MoveFirst
b1.Find "物品編號 =" & Chr(39) & tno & Chr(39)
If Not b1.EOF Then
tname = b1("物品名稱")
tqty = b1("庫存量")
Else
MsgBox "找不到該筆資料!!", vbOKOnly + vbExclamation, "輸入錯誤"
b1.Close
End If
DataGrid2.Columns(2).Text = tname
End If
b1.Close
End If
***** 這邊始終無法去達成扣庫存的問題 ********
If ColIndex = 3 Then
If DataGrid2.Columns(3) ＜＞ "" Then
nqty = CInt(DataGrid2.Columns(3).Text)
aqty = tqty - nqty
b1.Update "庫存量", aqty
End If
End If
End Sub
但始終都無法將更新的資料去扣除庫存中的數量, 請問一
下以下的做法那邊有問題?
Private Sub DataGrid2_AfterColUpdate(ByVal ColIndex As Integer)
Dim tno, tname As String
Dim aqty, tqty, nqty As Integer
On Error Resume Next
Set b1 = DataEnvironment1.rs設備
If ColIndex = 1 Then
If DataGrid2.Columns(1) ＜＞ "" Then
tno = DataGrid2.Columns(1).Text
b1.Open
b1.MoveFirst
b1.Find "物品編號 =" & Chr(39) & tno & Chr(39)
If Not b1.EOF Then
tname = b1("物品名稱")
tqty = b1("庫存量")
Else
MsgBox "找不到該筆資料!!", vbOKOnly + vbExclamation, "輸入錯誤"
b1.Close
End If
DataGrid2.Columns(2).Text = tname
End If
b1.Close
End If
***** 這邊始終無法去達成扣庫存的問題 ********
If ColIndex = 3 Then
If DataGrid2.Columns(3) ＜＞ "" Then
nqty = CInt(DataGrid2.Columns(3).Text)
aqty = tqty - nqty
b1.Update "庫存量", aqty
End If
End If
End Sub
About ActiveX Document Web publish(編號：990)
當我將Activex Document 封裝成 Cab 也產生相對 htm & vbd
但總不能很順利Publish 於網站上,於Local 都沒有問題,至於遠端
主機就不能順利執行vbd file,會產生 Save as file 的視窗,
請問各位,要如何將vbd 順利Publish 出去呢?
Best Regards
Chris Lu
但總不能很順利Publish 於網站上,於Local 都沒有問題,至於遠端
主機就不能順利執行vbd file,會產生 Save as file 的視窗,
請問各位,要如何將vbd 順利Publish 出去呢?
Best Regards
Chris Lu
ADO 一問(編號：989)
從書得知 ado 覆蓋了 rdo 的功能, 請問怎樣用 ado 作一個遠端連接, 是否在 connection string 裡加上ip位址便可?
但看來不是這樣... 可是看了很多書藉都未能得到解決~ !
這問各位高手可否提供一些簡單例子?
但看來不是這樣... 可是看了很多書藉都未能得到解決~ !
這問各位高手可否提供一些簡單例子?
如何將ADO所查詢的資料，匯入EXCEL97裡？(編號：988)
我是用ADO並下SQL的方式，將RecordSet放到DataGrid裡頭，同時也希望將此RecordSet匯到EXCEL97，
但不知如何解決？
但不知如何解決？
The VB source code to access 8255 interface card(編號：987)
can u send me the source code to access 8255 interface card ..
i need to use the 8255A ppi interface card to input and output the data through the computer and the
hardware part...
i need to use the 8255A ppi interface card to input and output the data through the computer and the
hardware part...
CD-ROM API(編號：986)
我們都知道可以用API將CD-ROM的DOOR Open.....
但是如果有兩台以上的CD-ROM要如何選擇要open的CDROM咧??
可以用API來控制嗎??謝謝.....
曾經看過有一種方法就是把CDAudio後面加1 or 2 or.....
但是無效並會發生錯誤....
但是如果有兩台以上的CD-ROM要如何選擇要open的CDROM咧??
可以用API來控制嗎??謝謝.....
曾經看過有一種方法就是把CDAudio後面加1 or 2 or.....
但是無效並會發生錯誤....
請問有關搖桿的API(編號：985)
請問一下:
我用API joyGetDevCaps 來抓取搖桿的資訊為何傳回來的都是0咧?
Public Declare Function joyGetDevCaps Lib "winmm.dll" Alias "joyGetDevCapsA" (ByVal id As Long, lpCaps As JOYCAPS, ByVal uSize As Long) As Long
我知道 id =0第一支 =1是第二支,lpCaps我也有事先宣告 uSize我是用Len(宣告lpCaps的變數),為何所傳回來的JOYCAPS內的參數都是0呢?
不過我用 joyGetPos是可以直接抓取到搖桿的狀態啦,包括上下左右及一些Button按下的情形,不過為了判斷上下左右,所以我需要
joyGetDevCaps所傳回來的X,Y的Min跟Max值呀~~~
謝了^_^
我用API joyGetDevCaps 來抓取搖桿的資訊為何傳回來的都是0咧?
Public Declare Function joyGetDevCaps Lib "winmm.dll" Alias "joyGetDevCapsA" (ByVal id As Long, lpCaps As JOYCAPS, ByVal uSize As Long) As Long
我知道 id =0第一支 =1是第二支,lpCaps我也有事先宣告 uSize我是用Len(宣告lpCaps的變數),為何所傳回來的JOYCAPS內的參數都是0呢?
不過我用 joyGetPos是可以直接抓取到搖桿的狀態啦,包括上下左右及一些Button按下的情形,不過為了判斷上下左右,所以我需要
joyGetDevCaps所傳回來的X,Y的Min跟Max值呀~~~
謝了^_^
如 何 讓 VB 知 道 兩 個 image 是 相 同 的 ？(編號：980)
為 何 VB 無 法 知 道 兩 個
image 或 picture 是 否 相 似 ？ 例 如 說 當 我 按 下 Command Button，
我 要 VB 查 看 兩 個 image1 和 image2 是 否 一 樣 ， 然 後 在
label.caption 告 訴 我 "It's the same" . 我 試 了 picture 也 不 能 ，
image1 和 image2 我 都 放 同 樣 的 圖 片 。到 底 有 什 麼 方 法 呢 ？
image 或 picture 是 否 相 似 ？ 例 如 說 當 我 按 下 Command Button，
我 要 VB 查 看 兩 個 image1 和 image2 是 否 一 樣 ， 然 後 在
label.caption 告 訴 我 "It's the same" . 我 試 了 picture 也 不 能 ，
image1 和 image2 我 都 放 同 樣 的 圖 片 。到 底 有 什 麼 方 法 呢 ？
關於 multi-threading 的問題(編號：979)
小弟目前有一個問題. winsock 的一個 server 端程式要如何設計才算具有 multi-threading (多執行緒) 的功能,小弟快被炒魷魚了,請大家幫幫忙!!!....謝謝!!
請問一下...圖形漸變效果是怎樣做出來的?...如同PowerPoint 中的(編號：977)
請問一下...圖形漸變效果是怎樣做出來的?...如同PowerPoint 中的Slide...
請哪位高手邦忙解答一下...
請哪位高手邦忙解答一下...
crystal report 4.60報表問題想了好久想不出來解答(編號：974)
請問各位高手：
請問各位高手在crystal report 的報表中如何用程式去
控制其中一個欄位在某條件式下列印資料在某條件式下不列印資料
請問各位高手幫幫忙想了好久想不出來
開發環境：
Access 97
vb5.0+sp3
win95
請問各位高手在crystal report 的報表中如何用程式去
控制其中一個欄位在某條件式下列印資料在某條件式下不列印資料
請問各位高手幫幫忙想了好久想不出來
開發環境：
Access 97
vb5.0+sp3
win95
How to change data-transfer mode from "bin" to "asc" mode b(編號：973)
Dear All:
Right now , I have used ftp funcion in inet control to get the file.
but i find it: when using
inet.execute get, ***,*** ,it used " bin mode" to transfer the file. How can
i change this mode to
"asc mode" when i used inet.execute command??
thanks!! best regards....
Right now , I have used ftp funcion in inet control to get the file.
but i find it: when using
inet.execute get, ***,*** ,it used " bin mode" to transfer the file. How can
i change this mode to
"asc mode" when i used inet.execute command??
thanks!! best regards....
如何排序 LiveView 中的數字資料?(編號：972)
請問該如何排序 LiveView 中的數字或日期資料? 就像檔案總管一樣.
我找到 LVM_SORTITEMS 這個 message, 不過語法看不懂...
我找到 LVM_SORTITEMS 這個 message, 不過語法看不懂...
如何將利用2-tier方式所撰寫的vb程式安裝在Client 端!!(編號：970)
Dear All:
由於目前還無法利用3-tier的方式去完成vb program.因此每當完成一個利用2-tier的方式所設計的程式時，利用封裝暨佈署精靈去完成setup.exe時便必須去每一個client端去執行一遍，而當程式需有所變更時，仍需在update原程式之後再去"每一個client端"update，這樣的作法對嗎?還是有更簡便的作法，在安裝所寫的2-tier方式的vb-program上!!
謝謝!!
由於目前還無法利用3-tier的方式去完成vb program.因此每當完成一個利用2-tier的方式所設計的程式時，利用封裝暨佈署精靈去完成setup.exe時便必須去每一個client端去執行一遍，而當程式需有所變更時，仍需在update原程式之後再去"每一個client端"update，這樣的作法對嗎?還是有更簡便的作法，在安裝所寫的2-tier方式的vb-program上!!
謝謝!!
如何在一個專案中，讓type 可以在form 和class共用??(編號：969)
小妹想在專案中自定一個type 讓form 和class 都可以用，也可以當
參數互傳，可是都會出現 public 和private 的問題，請各位高手幫幫我!
參數互傳，可是都會出現 public 和private 的問題，請各位高手幫幫我!
ADSL(編號：968)
站長大人
您這個網站是使用ADSL
但聽說ADSL所使用的MODEM是CISCO 676
這個MODEM據說散熱不良,且一旦溫度過高就隨即當機
或下載速度變慢,請問您的網站也會有相關問題嗎...
您這個網站是使用ADSL
但聽說ADSL所使用的MODEM是CISCO 676
這個MODEM據說散熱不良,且一旦溫度過高就隨即當機
或下載速度變慢,請問您的網站也會有相關問題嗎...
關於檔案屬性的問題(編號：966)
請問一下,我有一個資料庫的程式,是在光碟片上面,可是因為access的檔案每次連結執行時都會產生一個檔案,直使得無法直接在光碟片上植行,請問一下vb是否能寫出自行在使用者的硬碟上自動產生一個.mdb的檔案,且裡面也能夠有資料????
(若是要用filecopy這個指令是可以,可以還有一個問題就是在光碟片上的檔案是唯讀檔
所以copy到使用者的硬碟還是唯讀檔,所有有什麼方法可以將唯讀的檔案屬性取消???
(若是要用filecopy這個指令是可以,可以還有一個問題就是在光碟片上的檔案是唯讀檔
所以copy到使用者的硬碟還是唯讀檔,所有有什麼方法可以將唯讀的檔案屬性取消???
String 裡有式子(編號：962)
如果在 TEXT1.TEXT 裡放 21+32, 請問如何能得到 53?
也就是如何在 TEXT2.TEXT 裡顯示出 53?
在 CLIPPER 裡可以作得到。
謝謝!
也就是如何在 TEXT2.TEXT 裡顯示出 53?
在 CLIPPER 裡可以作得到。
謝謝!
救救我吧~(編號：961)
我們都知道可以用API將CD-ROM的DOOR Open.....
但是如果有兩台以上的CD-ROM要如何選擇要open的CDROM咧??
可以用API來控制嗎??謝謝.....
曾經看過有一種方法就是把CDAudio後面加1 or 2 or.....
但是無效並會發生錯誤....
一定有辦法的吧??因為檔案總管可以~應該會有API支援吧?
但是如果有兩台以上的CD-ROM要如何選擇要open的CDROM咧??
可以用API來控制嗎??謝謝.....
曾經看過有一種方法就是把CDAudio後面加1 or 2 or.....
但是無效並會發生錯誤....
一定有辦法的吧??因為檔案總管可以~應該會有API支援吧?
關於 Null Value 的問題(編號：960)
資料庫程式設計常常會使用到日期及數值型態的資料格式,
程式設計時常會遇到 Null value 的問題,而導致設計工作的困難,
因些我想把上述兩種型態的資料多存成文字,待程式中需要拿上述資料作運時再以 val() , cdate() 等函數來作轉換,你覺得可行嗎 ?
或是會造成將來的其他設計上的問題,請各位先進給點意見.
謝謝 !!
程式設計時常會遇到 Null value 的問題,而導致設計工作的困難,
因些我想把上述兩種型態的資料多存成文字,待程式中需要拿上述資料作運時再以 val() , cdate() 等函數來作轉換,你覺得可行嗎 ?
或是會造成將來的其他設計上的問題,請各位先進給點意見.
謝謝 !!
vb寫的Active dll(編號：959)
VB寫的Active DLL能否供其他程式使用,如寫了xxx.dll,其他程式可Declare Function xxx Lib xxx.dll的方式引用其程序?
About ADODB.RECORDSET(編號：957)
請問為何使用ADO搭配SQL取得符合條件的RECORDSET並放入陣列中,
第一次執行OPEN時正常,但我將RECORDSET先CLOSE後再用另一個SQL語法
取得另外的符合條件資料並將其放入相同的RECORDSET變數時,當我要RECORDCOUNT值時會出現
＜Method 'RecordCount' of object '_RecordSet' failed＞
的錯誤
Dim LSTR_DSN As String
Dim LSTR_UserId As String
Dim LSTR_UserPwd As String
Dim Lcon_adoConn As New ADODB.Connection
Dim Lrst_adoRsc As New ADODB.Recordset
Dim Lint_RstCount As Integer
Dim Lvar_Fields() As Variant
Dim Lstr_SqlSent As String
Dim Lint_TmpI As Integer
Dim Lint_TmpJ As Integer
Dim Lint_Row As Integer
Dim Lint_Row_1 As Integer
Dim Lbln_Found As Boolean
Lcon_adoConn.Errors.Clear
'取得FILEDSN,USERID,USERPWD
Call sbGetUserProfile(LSTR_DSN, LSTR_UserId, LSTR_UserPwd)
Lcon_adoConn.Open LSTR_DSN, LSTR_UserId, LSTR_UserPwd
Lrst_adoRsc.ActiveConnection = Lcon_adoConn
Lrst_adoRsc.CursorType = adOpenStatic
Lrst_adoRsc.LockType = adLockReadOnly
Lrst_adoRsc.CursorLocation = adUseClient
Lstr_SqlSent = " SELECT " & vbCrLf & _
" DF023.CLNTID, " & vbCrLf & _
" SUM(NVL(DF023.SETADVSBAL,0))," & vbCrLf & _
" '0'," & vbCrLf & _
" MAX(DF023.SETINVSDT) " & vbCrLf & _
" FROM " & vbCrLf & _
" DF023 " & vbCrLf & _
" WHERE " & vbCrLf & _
" DF023.CLNTID BETWEEN '" & Trim(Lstr_代號開始) & "' AND '" & Trim(Lstr_代號結束) & "'" & vbCrLf & _
" GROUP BY DF023.CLNTID " & vbCrLf & _
" ORDER BY DF023.CLNTID "
Lrst_adoRsc.Open Lstr_SqlSent, , , , adCmdText 'Command16
Lint_RstCount = Lrst_adoRsc.RecordCount
Select Case Lint_RstCount
Case 0
ReDim Lvar_暫存陣列(0, 0)
If Not Lcon_adoConn Is Nothing Then Set Lcon_adoConn = Nothing
If Not Lrst_adoRsc Is Nothing Then Set Lrst_adoRsc = Nothing
'GetObjectContext.SetComplete
Exit Function
Case Else
ReDim Lvar_Fields(Lrst_adoRsc.Fields.Count - 1)
For Lint_TmpI = 0 To Lrst_adoRsc.Fields.Count - 1
Lvar_Fields(Lint_TmpI) = Lrst_adoRsc.Fields(Lint_TmpI).Name
Next Lint_TmpI
Lvar_暫存陣列() = Lrst_adoRsc.GetRows(Lint_RstCount, 1, Lvar_Fields)
End Select
Lrst_adoRsc.Close
Lstr_SqlSent = " SELECT " & vbCrLf & _
" DF023.INSTLT," & vbCrLf & _
" DF023.INST01," & vbCrLf & _
" DF023.INST02," & vbCrLf & _
" DF023.INST03," & vbCrLf & _
" DF023.INST04," & vbCrLf & _
" DF023.INST05," & vbCrLf & _
" DF023.INST06," & vbCrLf & _
" DF023.INST07," & vbCrLf & _
" DF023.INST08," & vbCrLf & _
" DF023.INST09," & vbCrLf & _
" DF023.INST10," & vbCrLf & _
" DF023.INST11," & vbCrLf & _
" DF023.INST12," & vbCrLf & _
" DF023.CLNTID," & vbCrLf & _
" DF023.SETADVSBAL," & vbCrLf & _
" DF023.SETINVSDT, " & vbCrLf & _
" DF023.YYY " & vbCrLf & _
" FROM DF023 " & vbCrLf & _
" WHERE " & vbCrLf & _
" DF023.CLNTID='" & Trim(Lvar_代號) & "'" & vbCrLf & _
" AND DF023.SETINVSDT ＞= '" & Trim(Lstr_計算終止日) & "'" & vbCrLf & _
" ORDER BY DF023.YYY ASC"
Lrst_adoRsc.Open Lstr_SqlSent, , , , adCmdText
Lint_RstCount = Lrst_adoRsc.RecordCount
ps. Lrst_adoRsc.RecordCount為錯誤發生處
我的環境為Win95,VB6中文,VB6SP3
有誰遇過這問題,請回答我...我急需解決這問題....
非常感謝,感謝....
第一次執行OPEN時正常,但我將RECORDSET先CLOSE後再用另一個SQL語法
取得另外的符合條件資料並將其放入相同的RECORDSET變數時,當我要RECORDCOUNT值時會出現
＜Method 'RecordCount' of object '_RecordSet' failed＞
的錯誤
Dim LSTR_DSN As String
Dim LSTR_UserId As String
Dim LSTR_UserPwd As String
Dim Lcon_adoConn As New ADODB.Connection
Dim Lrst_adoRsc As New ADODB.Recordset
Dim Lint_RstCount As Integer
Dim Lvar_Fields() As Variant
Dim Lstr_SqlSent As String
Dim Lint_TmpI As Integer
Dim Lint_TmpJ As Integer
Dim Lint_Row As Integer
Dim Lint_Row_1 As Integer
Dim Lbln_Found As Boolean
Lcon_adoConn.Errors.Clear
'取得FILEDSN,USERID,USERPWD
Call sbGetUserProfile(LSTR_DSN, LSTR_UserId, LSTR_UserPwd)
Lcon_adoConn.Open LSTR_DSN, LSTR_UserId, LSTR_UserPwd
Lrst_adoRsc.ActiveConnection = Lcon_adoConn
Lrst_adoRsc.CursorType = adOpenStatic
Lrst_adoRsc.LockType = adLockReadOnly
Lrst_adoRsc.CursorLocation = adUseClient
Lstr_SqlSent = " SELECT " & vbCrLf & _
" DF023.CLNTID, " & vbCrLf & _
" SUM(NVL(DF023.SETADVSBAL,0))," & vbCrLf & _
" '0'," & vbCrLf & _
" MAX(DF023.SETINVSDT) " & vbCrLf & _
" FROM " & vbCrLf & _
" DF023 " & vbCrLf & _
" WHERE " & vbCrLf & _
" DF023.CLNTID BETWEEN '" & Trim(Lstr_代號開始) & "' AND '" & Trim(Lstr_代號結束) & "'" & vbCrLf & _
" GROUP BY DF023.CLNTID " & vbCrLf & _
" ORDER BY DF023.CLNTID "
Lrst_adoRsc.Open Lstr_SqlSent, , , , adCmdText 'Command16
Lint_RstCount = Lrst_adoRsc.RecordCount
Select Case Lint_RstCount
Case 0
ReDim Lvar_暫存陣列(0, 0)
If Not Lcon_adoConn Is Nothing Then Set Lcon_adoConn = Nothing
If Not Lrst_adoRsc Is Nothing Then Set Lrst_adoRsc = Nothing
'GetObjectContext.SetComplete
Exit Function
Case Else
ReDim Lvar_Fields(Lrst_adoRsc.Fields.Count - 1)
For Lint_TmpI = 0 To Lrst_adoRsc.Fields.Count - 1
Lvar_Fields(Lint_TmpI) = Lrst_adoRsc.Fields(Lint_TmpI).Name
Next Lint_TmpI
Lvar_暫存陣列() = Lrst_adoRsc.GetRows(Lint_RstCount, 1, Lvar_Fields)
End Select
Lrst_adoRsc.Close
Lstr_SqlSent = " SELECT " & vbCrLf & _
" DF023.INSTLT," & vbCrLf & _
" DF023.INST01," & vbCrLf & _
" DF023.INST02," & vbCrLf & _
" DF023.INST03," & vbCrLf & _
" DF023.INST04," & vbCrLf & _
" DF023.INST05," & vbCrLf & _
" DF023.INST06," & vbCrLf & _
" DF023.INST07," & vbCrLf & _
" DF023.INST08," & vbCrLf & _
" DF023.INST09," & vbCrLf & _
" DF023.INST10," & vbCrLf & _
" DF023.INST11," & vbCrLf & _
" DF023.INST12," & vbCrLf & _
" DF023.CLNTID," & vbCrLf & _
" DF023.SETADVSBAL," & vbCrLf & _
" DF023.SETINVSDT, " & vbCrLf & _
" DF023.YYY " & vbCrLf & _
" FROM DF023 " & vbCrLf & _
" WHERE " & vbCrLf & _
" DF023.CLNTID='" & Trim(Lvar_代號) & "'" & vbCrLf & _
" AND DF023.SETINVSDT ＞= '" & Trim(Lstr_計算終止日) & "'" & vbCrLf & _
" ORDER BY DF023.YYY ASC"
Lrst_adoRsc.Open Lstr_SqlSent, , , , adCmdText
Lint_RstCount = Lrst_adoRsc.RecordCount
ps. Lrst_adoRsc.RecordCount為錯誤發生處
我的環境為Win95,VB6中文,VB6SP3
有誰遇過這問題,請回答我...我急需解決這問題....
非常感謝,感謝....
請問....(編號：956)
小弟有兩個問題想請教:
1.我想用VB設計一個射擊遊戲,要如何測定子彈是否擊中?有哪些寫法呢?
2.我的亂數每次重新執行都一樣(例如第一次是 2 55 66 11 33 弟二次還是那三個數,WHY?)
希望各位高手不吝賜教,thankssss~
1.我想用VB設計一個射擊遊戲,要如何測定子彈是否擊中?有哪些寫法呢?
2.我的亂數每次重新執行都一樣(例如第一次是 2 55 66 11 33 弟二次還是那三個數,WHY?)
希望各位高手不吝賜教,thankssss~
怎會出現這訊息，代表何意思？如何處理？(編號：952)
我用FarPoint的Spread列印報表時出現下列訊息，代表何意思？如何處理？
a fatal exception 0D hac occurred at 83dc.00081371 the current application will be terminated
press any key to terminate the current application
press Ctrl+Alt+Del again to restart your computer you will lose any unsaued inbormation in all applications
a fatal exception 0D hac occurred at 83dc.00081371 the current application will be terminated
press any key to terminate the current application
press Ctrl+Alt+Del again to restart your computer you will lose any unsaued inbormation in all applications
Sorry ! 如何把一個10進位的整數轉為二進位。(編號：951)
Sorry ! 如何把一個10進位的整數轉為二進位。
可否有函數可轉換能,
如：
十進位 二進位
10 1010
15 1111
tks !
可否有函數可轉換能,
如：
十進位 二進位
10 1010
15 1111
tks !
如何將RecordSet轉存成mdb格式(編號：950)
經過我try過…Access無法接受RecordSet的格式。
大略的程式碼如下：
dim dbs as object,tdf as object,fld as variant
dim strDB as string
dim rs as new adodb.recordset
rs.open "select * from table1","dsn=aa;initial catalog=database1"
strDB="c:\test1.mdb"
set appAccess = CreateObject("access.application,9"0
appAccess.NewCurrentDatabase strDB
set dbs=appAccess.CurrentDb
set tdf=dbs.CreateTableDef("contacts")
dbs.TableDefs.Append tdf
會出現錯誤訊息，說「不接受此種格式」！
為什麼呢？還是有另外的方法呢？請大家幫幫忙！謝謝！
大略的程式碼如下：
dim dbs as object,tdf as object,fld as variant
dim strDB as string
dim rs as new adodb.recordset
rs.open "select * from table1","dsn=aa;initial catalog=database1"
strDB="c:\test1.mdb"
set appAccess = CreateObject("access.application,9"0
appAccess.NewCurrentDatabase strDB
set dbs=appAccess.CurrentDb
set tdf=dbs.CreateTableDef("contacts")
dbs.TableDefs.Append tdf
會出現錯誤訊息，說「不接受此種格式」！
為什麼呢？還是有另外的方法呢？請大家幫幫忙！謝謝！
CD-ROM的門如何開?(編號：949)
我們都知道可以用API將CD-ROM的DOOR Open.....
但是如果有兩台以上的CD-ROM要如何選擇要open的CDROM咧??
可以用API來控制嗎??謝謝.....
曾經看過有一種方法就是把CDAudio後面加1 or 2 or.....
但是無效並會發生錯誤....
但是如果有兩台以上的CD-ROM要如何選擇要open的CDROM咧??
可以用API來控制嗎??謝謝.....
曾經看過有一種方法就是把CDAudio後面加1 or 2 or.....
但是無效並會發生錯誤....
能夠縮小封包檔嗎?(編號：948)
在程式完成後的製作封包檔的過程中
可以自行加入或取消一些DLL或OCX的檔案
能否將這些檔案減少到最少嗎?
只要留那些檔案就好了?不然一個小小的程式都要3MB,4MB那麼大
謝謝
可以自行加入或取消一些DLL或OCX的檔案
能否將這些檔案減少到最少嗎?
只要留那些檔案就好了?不然一個小小的程式都要3MB,4MB那麼大
謝謝
ado與mdb的問題(編號：947)
請問一下
如何在vb中使用陣列,一次將多個變數的欄位寫入mdb資料庫中
例如:
dim b1,b2,b3 as string
dim t1,t2
t1=array("a1","a2","a3") 'mdb資料庫欄位(a2是日期欄位)
t2=array(b1,b2,b3) '自訂變數(含有日期和字串)
adodc1.recordset.update t1,t2
結果執行時都顯示沒有設定物件變數或WITH區塊變數why?
(我是參考王國榮先生的vb6資料庫程式設計一書,按照書中例子卻沒辦法一次把變數寫入資料庫)
救救我吧.....thinks
如何在vb中使用陣列,一次將多個變數的欄位寫入mdb資料庫中
例如:
dim b1,b2,b3 as string
dim t1,t2
t1=array("a1","a2","a3") 'mdb資料庫欄位(a2是日期欄位)
t2=array(b1,b2,b3) '自訂變數(含有日期和字串)
adodc1.recordset.update t1,t2
結果執行時都顯示沒有設定物件變數或WITH區塊變數why?
(我是參考王國榮先生的vb6資料庫程式設計一書,按照書中例子卻沒辦法一次把變數寫入資料庫)
救救我吧.....thinks
請聰明人回答我這個笨問題!(編號：945)
給聰明的你:
我在做一個VB assignment,做出一個計算機,
code如下:
Private Sub cmdNumber_click(Index As Integer)
lblAnswer = cmdNumber(Index).Caption
End Sub
但螢幕上(labelAnswer中),一次只會顯示1或2或3,不能顯示111或123,請問我該如何修改程式?你懂我的意思嗎?
有點傻卻對VB有興趣的女孩,希望能得到你的幫助.
我在做一個VB assignment,做出一個計算機,
code如下:
Private Sub cmdNumber_click(Index As Integer)
lblAnswer = cmdNumber(Index).Caption
End Sub
但螢幕上(labelAnswer中),一次只會顯示1或2或3,不能顯示111或123,請問我該如何修改程式?你懂我的意思嗎?
有點傻卻對VB有興趣的女孩,希望能得到你的幫助.
可否用VB做8051與電腦連線程式........(編號：944)
可否用VB做8051與電腦連線程式,他的函式為何......是否有相關書籍介紹........
那位能人異士可否幫我.............
那位能人異士可否幫我.............
請問大家 2 個有關 VB6 的問題!!(編號：943)
1. 請問 " VB 6.0 SP3 和 BC++B 4.0 " 是否可以安裝在同一個作業系統裡面??
2. 又如果 " VB 6.0 SP3 和 BC++B 4.0 " 安裝在一起會不會有任何的問題??
2. 又如果 " VB 6.0 SP3 和 BC++B 4.0 " 安裝在一起會不會有任何的問題??
How to use winsock to sent a file and Receive(編號：941)
How to use winsock to sent a file and Receive?
Use Microsoft Winsock 6.0
Please.
Use Microsoft Winsock 6.0
Please.
#if ... #then .... #end if 和 if....then....end if 的差異(編號：940)
#if ... #then .... #end if
的意義如何&大慨如何會使用到
和 if....then....end if 有何不同?
請各位大俠幫幫吧!!
的意義如何&大慨如何會使用到
和 if....then....end if 有何不同?
請各位大俠幫幫吧!!
我想問一些有關壓縮程式的問題。(編號：938)
我想知道用有沒有一些Zip或其他壓縮程式的ocx或class download?
如果沒有，可否自行寫一個?(要怎麼寫?)
我也想知道怎樣可以將多個file合成一個?
(如:有一個叫"Test"的Directory，裏面有3個file，可否將Directory及裏面的file轉成一個"Test.dat"?如果要用就再用某些方法開啟...)
如果沒有，可否自行寫一個?(要怎麼寫?)
我也想知道怎樣可以將多個file合成一個?
(如:有一個叫"Test"的Directory，裏面有3個file，可否將Directory及裏面的file轉成一個"Test.dat"?如果要用就再用某些方法開啟...)
TextBox 顯示問題(編號：936)
請問一下：
是否有能知道在TextBox中若我要一直顯示" **** "，該如何做?(使用者若按Del鍵或任何鍵
此符號都要存在，並且在輸入完成後會顯示如"abc****def")
謝謝
是否有能知道在TextBox中若我要一直顯示" **** "，該如何做?(使用者若按Del鍵或任何鍵
此符號都要存在，並且在輸入完成後會顯示如"abc****def")
謝謝
SMART CARD 疑問(編號：934)
有沒有網友用 VB 開發過 SMART CARD 程式?
有點問題想請教: 是否一定要以 RS-232 (MSCOMM) 方式對 SMART CARD
進行讀寫, 微軟的 SMART CARD BASE COMPONENT 1.0 是否支援其它廠牌的 SMART CARD ?! 因下載安裝後無控制項, 請問該如何使用? 因在 MSDN 裡未找到範例特此討教.. 謝謝各位!
有點問題想請教: 是否一定要以 RS-232 (MSCOMM) 方式對 SMART CARD
進行讀寫, 微軟的 SMART CARD BASE COMPONENT 1.0 是否支援其它廠牌的 SMART CARD ?! 因下載安裝後無控制項, 請問該如何使用? 因在 MSDN 裡未找到範例特此討教.. 謝謝各位!
請問VB是否能像ASP一樣include一段程式進來(編號：933)
各位是否發現在VB上寫作總是會同樣的sub在不同的from裡
重覆寫了好几次, 只因為模組中不能有物件.
我在想是不是能有其它的語言,如C或者是Clipper, call sub
及function一樣,不曉得諸位能不能了解我的意思...
在此先謝過了.
重覆寫了好几次, 只因為模組中不能有物件.
我在想是不是能有其它的語言,如C或者是Clipper, call sub
及function一樣,不曉得諸位能不能了解我的意思...
在此先謝過了.
Auto send Mail(編號：932)
各位先進:
麻煩各位幫忙,
以下程式為何只有sMailaddress2收的到,
而sMailaddress1 收不到呢?
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipType = mapToList
MAPIMessages1.RecipAddress = sMailaddress1
MAPIMessages1.RecipType = mapCcList
MAPIMessages1.RecipAddress= sMailaddress2
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.ResolveName MAPIMessages1.AttachmentPathName = "c:\jimmy\3.txt"
MAPIMessages1.Send False
MAPISession1.SignOff
麻煩各位幫忙,
以下程式為何只有sMailaddress2收的到,
而sMailaddress1 收不到呢?
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipType = mapToList
MAPIMessages1.RecipAddress = sMailaddress1
MAPIMessages1.RecipType = mapCcList
MAPIMessages1.RecipAddress= sMailaddress2
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.ResolveName MAPIMessages1.AttachmentPathName = "c:\jimmy\3.txt"
MAPIMessages1.Send False
MAPISession1.SignOff
VB能否寫DLL供其他程式使用....(編號：931)
VB能否寫DLL供其他程式使用,如寫了xxx.dll,其他程式可Declare Function xxx Lib xxx.dll的方式引用程序?
請教一個API 的 ByRef 問題 ??(編號：929)
程式片段如下:
Dim k1 As Long
k1 = SetWindowExtEx(Picture1(i).hdc, wt, ht, 0&)
請問上一行的0&,
我使用 0 或 0& 引數型態都不符合,
請問該如何修改呢?
搞不清楚狀況的kevin
Dim k1 As Long
k1 = SetWindowExtEx(Picture1(i).hdc, wt, ht, 0&)
請問上一行的0&,
我使用 0 或 0& 引數型態都不符合,
請問該如何修改呢?
搞不清楚狀況的kevin
請問要如何能夠在使用者的硬碟產生一個.mdb的資料庫檔案(用vb)(編號：928)
請問一下,我有一個資料庫的程式,是在光碟片上面,可是因為access的檔案每次連結執行時都會產生一個檔案,直使得無法直接在光碟片上植行,請問一下vb是否能寫出自行在使用者的硬碟上自動產生一個.mdb的檔案,且裡面也能夠有資料????
為何原本可run的程式, 現在卻不可complier呢?(編號：925)
我的電腦環境是P-200MMX,64MB,WIN98,VB5,這是一台重新安裝好的電腦,但當我把以前用別台電腦以RDO方式寫好可執行的程式拿出來,重新編譯,卻在Set env = rdoEnvironments(0)的地方出現﹝編譯錯誤：沒有使用權限﹞的錯誤,我按它的說明是寫﹝沒有使用權限 ( 錯誤 70)﹞,請問這到底是那裏錯了呢?
在popup menu中加入bitmap(編號：924)
在cww的例子中,有一個在menu中加入bitmap的例子.
如果在一開始的時候,將menu設成visible =false
在使用popmenu的方式來顯示menu,bitmap就看不見.
這是什麼原因?
如果在一開始的時候,將menu設成visible =false
在使用popmenu的方式來顯示menu,bitmap就看不見.
這是什麼原因?
how to print a report start at 6 inch from the top ( Set mar(編號：919)
i need help here . could anyone tell me how to set the top margin by using VB code , cos i need to print my report start at the 6 inch from the top of the every page .
Hurry, about activex.ocx and activex.dll(編號：915)
(1) What is the difference betwen activex control and activeX Dll?
(2) How to convert code written for a activeX control to a activeX dll project?
(3) How to make my vb code avalible to other applications, e.g a C program?
Thanks.
(2) How to convert code written for a activeX control to a activeX dll project?
(3) How to make my vb code avalible to other applications, e.g a C program?
Thanks.
開啟CD-ROM的DOOR用API?(編號：913)
我們都知道可以用API將CD-ROM的DOOR Open.....
但是如果有兩台以上的CD-ROM要如何選擇要open的CDROM咧??
可以用API來控制嗎??謝謝.....
曾經看過有一種方法就是把CDAudio後面加1 or 2 or.....
但是無效並會發生錯誤....
但是如果有兩台以上的CD-ROM要如何選擇要open的CDROM咧??
可以用API來控制嗎??謝謝.....
曾經看過有一種方法就是把CDAudio後面加1 or 2 or.....
但是無效並會發生錯誤....
一個非常重要的問題！！希望能快點得到答案！！(編號：911)
請問要如何做出一個檔案列表然後裡面只能顯示＊.MDB的檔案呢??
又如果我按下其中之一個檔案時要如何讓程式知道我按下的檔名是
什麼呢??
希望能快點得到答案!!!
謝謝!!!
又如果我按下其中之一個檔案時要如何讓程式知道我按下的檔名是
什麼呢??
希望能快點得到答案!!!
謝謝!!!
組合鍵的問題 !!(編號：910)
我要用 Access + VB 設計一個訂單輸入程式(訂單主檔+訂單明細檔),一般的情況下我們多知道它是一個 "一對多的檔案結構"
我的問題是 Access 如何將訂單明細檔的多個欄位組成一個所謂的 Key 值
謝謝 !!
我的問題是 Access 如何將訂單明細檔的多個欄位組成一個所謂的 Key 值
謝謝 !!
請問怎麼自動移動Mouse去點取別的程式(不是自己寫的FORM)的視窗?(編號：909)
請問怎麼自動移動Mouse去點取別的程式(不是自己寫的FORM)的視窗??
例:畫面上有兩個視窗,一個是我寫的,一個是其他程式(如Word)
我今天想用VB控制MOUSE自動移動至WORD上並按下Click(這樣WORD就會在最上層)
請問我要如何寫Click這個動作呢???
MOUSE移動程式我在VB心得筆記有看到...可是CLICK我只會CLICK在自己寫的FORM上
例:畫面上有兩個視窗,一個是我寫的,一個是其他程式(如Word)
我今天想用VB控制MOUSE自動移動至WORD上並按下Click(這樣WORD就會在最上層)
請問我要如何寫Click這個動作呢???
MOUSE移動程式我在VB心得筆記有看到...可是CLICK我只會CLICK在自己寫的FORM上
徵詢顧問及PARTTIME技術人員(編號：902)
我公司目前正在開發一套vb程式應用軟體
走三層式架構
由於我們技術不足又要符合公司需求
因此需要有專業人士幫忙
如各位有興趣請與我聯絡或介紹
不找軟體公司是因符合度不高
走三層式架構
由於我們技術不足又要符合公司需求
因此需要有專業人士幫忙
如各位有興趣請與我聯絡或介紹
不找軟體公司是因符合度不高
小吳! 是否可以增加一欄位(作為文章性資分類).....(編號：898)
小吳 :
你好 ! 你的付出的確另人欣賞,謝謝你的努力....
個人提出一個淺見,不知是否在你的資料庫內增加一欄位(作為文章性資分類),你以你的專業作分類,並設計在你的網頁查詢中.....
可以讓我們自行挑選有同性資的文章.....
例: 安裝程式類
ftp類
mouse類.....
或許會花你一些時間.....不知此建議如何呢?謝謝你 !!!!!!
你好 ! 你的付出的確另人欣賞,謝謝你的努力....
個人提出一個淺見,不知是否在你的資料庫內增加一欄位(作為文章性資分類),你以你的專業作分類,並設計在你的網頁查詢中.....
可以讓我們自行挑選有同性資的文章.....
例: 安裝程式類
ftp類
mouse類.....
或許會花你一些時間.....不知此建議如何呢?謝謝你 !!!!!!
如何讓windows關機或重開機等動作(編號：896)
小弟為vb初學者,想寫一個程式是能於定時時間關掉windows ,和重新開機,或是跳回dos或是
使用者離限的動作,之前曾用"shell"指令呼叫rundll.exe來達到關閉windows的動作,但是要重新
開機等動作卻不知要如何達到,還請各位先進指教 謝謝
使用者離限的動作,之前曾用"shell"指令呼叫rundll.exe來達到關閉windows的動作,但是要重新
開機等動作卻不知要如何達到,還請各位先進指教 謝謝
如何在listview和treeview拖拉物件(編號：888)
請問要如何做才能在 listview和 treeview之間拖拉物件
例如 如果想要把listitem拖到 treeview中的node應該怎麼做
有類似的範例程式可供參考嗎
謝謝!!
例如 如果想要把listitem拖到 treeview中的node應該怎麼做
有類似的範例程式可供參考嗎
謝謝!!
DataGrid無法新增(編號：885)
當DataGrid中都沒有資料時，要新增第一筆卻不能新增，新增時會出現＜The current row is not available＞與＜不論所指定的cRows值為何，lRowsOffset將定位您超出列集的一端;cRowsObtained為0＞的錯誤訊息，請問原因為何?
(其DataGrid的資料來源為adodc, AllowAddNew=True)
請指教！
(其DataGrid的資料來源為adodc, AllowAddNew=True)
請指教！
請問什麼原因會出invalid page fault?(編號：884)
本人寫了一個程式,但常常出現invalid page fault ,通常會在這些dll 和ocx 發生 MSVCRT.DLL,P2SODBC.DLL,MSDATGRD.OCX
印表時,數據無法對齊,format 格式(編號：882)
程式如下:
------------------------------
For k = 1 To 31
Printer.CurrentX = 6
Printer.Print Format(k, "###")
Printer.CurrentX = 18
Printer.Print Format(A(k), "###,###,###,###");
Printer.CurrentX = 37
Printer.Print Format(B(k), "###,###,###,###");
NEXT K
------------------------------------
執行結果:
1 X,XXX XXX
2 X,XXX X,XXX
3 XX,XXX XX,XXXX
請問如何使數值向右對齊?
Printer.Print Format(C(k), "###,###,###,###")
Else
Printer.Print Format(0, "###,###,###,###")
End If
Printer.CurrentX = 5
Printer.Print "－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－"
Next k
------------------------------
For k = 1 To 31
Printer.CurrentX = 6
Printer.Print Format(k, "###")
Printer.CurrentX = 18
Printer.Print Format(A(k), "###,###,###,###");
Printer.CurrentX = 37
Printer.Print Format(B(k), "###,###,###,###");
NEXT K
------------------------------------
執行結果:
1 X,XXX XXX
2 X,XXX X,XXX
3 XX,XXX XX,XXXX
請問如何使數值向右對齊?
Printer.Print Format(C(k), "###,###,###,###")
Else
Printer.Print Format(0, "###,###,###,###")
End If
Printer.CurrentX = 5
Printer.Print "－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－"
Next k
可以模擬關機的form(編號：881)
各位高手！
小弟希望能像關機前一樣，整個畫面暗下來，並且除了我的form
之外，其他皆無法操作....
目前我只有找到方法讓畫面暗下來，但卻無法鎖定除了我的form之外
其餘的地方......
請各務高手不吝指教.....
小弟希望能像關機前一樣，整個畫面暗下來，並且除了我的form
之外，其他皆無法操作....
目前我只有找到方法讓畫面暗下來，但卻無法鎖定除了我的form之外
其餘的地方......
請各務高手不吝指教.....
ToolBar 的問題 !!(編號：880)
Office 97 的 ToolBar 可以對 MDI 表單內的每一個 Gotfocus 的子表單產生動作.
我想請教的問題是我們用 VB 寫的應用程式會需要對資料庫作讀寫,
上下移動等動作,問題如何以同一個按鈕對不同的子表單的不同資料庫作動作呢 ?
也就是說如何作到 不需在每一個子表單定義一個 ToolBar , 而能共用 MDI 表單上的 ToolBar.
謝謝 !!
我想請教的問題是我們用 VB 寫的應用程式會需要對資料庫作讀寫,
上下移動等動作,問題如何以同一個按鈕對不同的子表單的不同資料庫作動作呢 ?
也就是說如何作到 不需在每一個子表單定義一個 ToolBar , 而能共用 MDI 表單上的 ToolBar.
謝謝 !!
請問許多問題(編號：873)
請問一下
1.Common Dialog的控制項,當Show出對話框時,若是按下取消,那麼要如何得知?如果把CancelError的屬性使用True,就只會告訴你,已經按下取消了!並不會離開啊?要怎麼樣做才能按下離開就離開??
2.On Error Then Goto與Resume要如何應用,我看了許多的書,但是都寫得含糊不清,能否舉了例子
3.若是在程式中將Data的Data.RecodeSource="Name"作指定之後,再作Data.Refresh的動作就會出現"沒有設定With區域"之類的提示,是為什麼呢??如果沒有去做RecodeSource的指定,就不會有這一種事情發生??
這三個小問題煩請各位高手幫助解答一下,謝謝
1.Common Dialog的控制項,當Show出對話框時,若是按下取消,那麼要如何得知?如果把CancelError的屬性使用True,就只會告訴你,已經按下取消了!並不會離開啊?要怎麼樣做才能按下離開就離開??
2.On Error Then Goto與Resume要如何應用,我看了許多的書,但是都寫得含糊不清,能否舉了例子
3.若是在程式中將Data的Data.RecodeSource="Name"作指定之後,再作Data.Refresh的動作就會出現"沒有設定With區域"之類的提示,是為什麼呢??如果沒有去做RecodeSource的指定,就不會有這一種事情發生??
這三個小問題煩請各位高手幫助解答一下,謝謝
EAN13條碼核檢驗證函數，歡迎指教！(編號：869)
前二日有人討論條碼檢核程式，本人發現其命題方式，稍為複雜，茲將較為精簡程式臚列如下，歡迎指正！
'=========================================================================================
' 目 的: EAN_13條碼檢查程式
' 假 設:
' 效 果:
' 輸 入 值: ByVal strBarcode As String
' 傳 回 值: blnBarcodeCheck As Boolean
' 參考資料: 李媛媛、余文俊編著《條碼解碼器的設計》第10章EAN_13碼解碼程式
'
' 日 期 By COMMENT
' ---------- ---- -------
' 2000/01/13 Chris Juang 來自： 210.68.97.130
' 2000/01/18 SY 改寫
'=========================================================================================
Public Function blnBarcodeEAN13(ByVal strBarcode As String) As Boolean
Dim intX As Integer ' 計數變數
Dim intY As Integer ' 計數變數
Dim intEvenSum As Integer ' 偶數(Even Number)和變數
Dim intOddSum As Integer ' 奇數(Odd Numbe)和變數
Dim intSum As Integer ' 合計變數
For intX = 1 To 12
intY = CInt(Mid(strBarcode, intX, 1))
If intX Mod 2 ＜＞ 0 Then
intOddSum = intOddSum + intY
Else
intEvenSum = intEvenSum + intY
End If
Next intX
' 偶數和乘三之積
intEvenSum = intEvenSum * 3
' 奇數和 + 偶數和乘三之積 + 檢核碼
intSum = intOddSum + intEvenSum + CInt(Mid(strBarcode, 13, 1))
' 驗證是否為10的倍數
' 正確者傳回 TURE之值
' 不正確者傳回 FALSE之值
If (intSum Mod 10) = 0 Then
blnBarcodeEAN13 = True
Exit Function
Else
MsgBox "條碼數字有誤，請查明後再行輸入。"
blnBarcodeEAN13 = False
Exit Function
End If
End Function
'呼叫範例:
'
'Private Sub txt_LostFocus()
' If blnBarcodeEAN13 = False Then
' txt.SetFocus
' End If
'End Sub
'=========================================================================================
' 目 的: EAN_13條碼檢查程式
' 假 設:
' 效 果:
' 輸 入 值: ByVal strBarcode As String
' 傳 回 值: blnBarcodeCheck As Boolean
' 參考資料: 李媛媛、余文俊編著《條碼解碼器的設計》第10章EAN_13碼解碼程式
'
' 日 期 By COMMENT
' ---------- ---- -------
' 2000/01/13 Chris Juang 來自： 210.68.97.130
' 2000/01/18 SY 改寫
'=========================================================================================
Public Function blnBarcodeEAN13(ByVal strBarcode As String) As Boolean
Dim intX As Integer ' 計數變數
Dim intY As Integer ' 計數變數
Dim intEvenSum As Integer ' 偶數(Even Number)和變數
Dim intOddSum As Integer ' 奇數(Odd Numbe)和變數
Dim intSum As Integer ' 合計變數
For intX = 1 To 12
intY = CInt(Mid(strBarcode, intX, 1))
If intX Mod 2 ＜＞ 0 Then
intOddSum = intOddSum + intY
Else
intEvenSum = intEvenSum + intY
End If
Next intX
' 偶數和乘三之積
intEvenSum = intEvenSum * 3
' 奇數和 + 偶數和乘三之積 + 檢核碼
intSum = intOddSum + intEvenSum + CInt(Mid(strBarcode, 13, 1))
' 驗證是否為10的倍數
' 正確者傳回 TURE之值
' 不正確者傳回 FALSE之值
If (intSum Mod 10) = 0 Then
blnBarcodeEAN13 = True
Exit Function
Else
MsgBox "條碼數字有誤，請查明後再行輸入。"
blnBarcodeEAN13 = False
Exit Function
End If
End Function
'呼叫範例:
'
'Private Sub txt_LostFocus()
' If blnBarcodeEAN13 = False Then
' txt.SetFocus
' End If
'End Sub
另外一個不大不小的問題...也是很重要！(編號：867)
我在寫下列程式碼時...
發生了問題!!!
其中PicDef是PictureBox.......
PicDef.Picture = App.Path + "\defaultm.jpg"
^^^
這兒就是問題點!!!
為什麼會這樣呢???
我在別的地方用 XXX.XXX=App.Path + "\xxx.xxx" 時都安然無恙的...
怎麼一到 PictureBox 時就出問題了呢???
發生了問題!!!
其中PicDef是PictureBox.......
PicDef.Picture = App.Path + "\defaultm.jpg"
^^^
這兒就是問題點!!!
為什麼會這樣呢???
我在別的地方用 XXX.XXX=App.Path + "\xxx.xxx" 時都安然無恙的...
怎麼一到 PictureBox 時就出問題了呢???
使用WebBrowser控制項的疑問...(快!!跟我討論..._)(編號：865)
我知道在之前有討論過用VB寫出可以讀html檔的用法,
就是用inet跟WebBrowser控制項,
程式碼應為
webbrowser1.Navigate URL
對吧?
可是要是我要內定一開啟程式就會顯示在硬碟裡某個html檔
那個URL要如何設定?還是要設定別的地方?
就是用inet跟WebBrowser控制項,
程式碼應為
webbrowser1.Navigate URL
對吧?
可是要是我要內定一開啟程式就會顯示在硬碟裡某個html檔
那個URL要如何設定?還是要設定別的地方?
Single Byte and Double Bytes(編號：861)
Ex :
字串1 = "123一二三"
字串2 = "abcdef測試"
我知道:
字串1=9 bytes
字串2=10 bytes
但如何用 vb5 分辨出字串1 和 2 分別等如多少個bytes
請指教!
字串1 = "123一二三"
字串2 = "abcdef測試"
我知道:
字串1=9 bytes
字串2=10 bytes
但如何用 vb5 分辨出字串1 和 2 分別等如多少個bytes
請指教!
請教有關ADO的問題(編號：858)
請幫忙看看錯在那?? THANKS
錯誤訊息:執行階段錯誤 3706
ADO找不到指定的提供者
程式在自己的PC上可正確執行,但一裝到同事的PC就發生上述錯誤
相關程式碼:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim ConnStr As String, i As Integer, SQL As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=\\vs17a\message\IP.mdb"
SQL = "Select * From IP Order By USER"
conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open SQL, conn, adOpenKeyset, adLockPessimistic
rs.MoveFirst
List1.Clear
List2.Clear
While Not rs.EOF
List1.AddItem rs.Fields(0).Value
List2.AddItem rs.Fields(1).Value
rs.MoveNext
Wend
rs.Close
conn.Close
Set conn = Nothing
錯誤訊息:執行階段錯誤 3706
ADO找不到指定的提供者
程式在自己的PC上可正確執行,但一裝到同事的PC就發生上述錯誤
相關程式碼:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim ConnStr As String, i As Integer, SQL As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=\\vs17a\message\IP.mdb"
SQL = "Select * From IP Order By USER"
conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open SQL, conn, adOpenKeyset, adLockPessimistic
rs.MoveFirst
List1.Clear
List2.Clear
While Not rs.EOF
List1.AddItem rs.Fields(0).Value
List2.AddItem rs.Fields(1).Value
rs.MoveNext
Wend
rs.Close
conn.Close
Set conn = Nothing
關於程式內動態建立捷徑檔的問題........百思不解(編號：855)
有沒有方法能在程式執行時自建程式捷徑檔,
我想把主程式建個捷徑,放到啟動中,讓使用
者能開機時執行程式........
不想用登錄register的方式,想自行寫檔,不知
行不行????????
我想把主程式建個捷徑,放到啟動中,讓使用
者能開機時執行程式........
不想用登錄register的方式,想自行寫檔,不知
行不行????????
有誰英文好可以告訴我 ?(編號：854)
Question is :
70-100的考古題:
Which role in the team model is responsible for the smooth rollout of the product ?
A.User education
B.Development
C.Deployment
D.Logistics
我猜A,但正確答案是D,我查字典Logistics意思是後勤,後勤學
請問是這樣嗎 ? 還有為什麼是D ?
V_V(苦惱...)
70-100的考古題:
Which role in the team model is responsible for the smooth rollout of the product ?
A.User education
B.Development
C.Deployment
D.Logistics
我猜A,但正確答案是D,我查字典Logistics意思是後勤,後勤學
請問是這樣嗎 ? 還有為什麼是D ?
V_V(苦惱...)
救命!Error: Physical database not found (Crystal Smart Viewe(編號：853)
本人現裝了SP3 和Crystal Report 7, 在自己機可以Run,
但在第二部機就出以上Error.
Title: Crystal Smart Viewer
Physical database not found
請問怎樣解決,謝謝!
但在第二部機就出以上Error.
Title: Crystal Smart Viewer
Physical database not found
請問怎樣解決,謝謝!
如何製作Update磁片(編號：852)
我曾製作一個Vb的程式給他人使用，也使用安裝和佈署精靈製成安裝磁片給他人。但現在要改版此VB的程式，請問應如製作成Update版的磁片給他人來使用。或者是有其他方法。
亦可以用E_Mail給我。
謝謝!!!
Rock@Careernet.com.tw
亦可以用E_Mail給我。
謝謝!!!
Rock@Careernet.com.tw
有關BitBlt。(編號：851)
我初用BitBlt WinApi。
程式碼如下:
Private Declare Sub BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long)
Private Sub Command1_Click()
BitBlt Picture2.hDC , 0, 0, 100, 100, Picture1.hDC, 0, 0, &HCC0020
End Sub
我已直接從Sample中直抄，但為何不能將Picture1的image copy到Picture2中?
程式碼如下:
Private Declare Sub BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long)
Private Sub Command1_Click()
BitBlt Picture2.hDC , 0, 0, 100, 100, Picture1.hDC, 0, 0, &HCC0020
End Sub
我已直接從Sample中直抄，但為何不能將Picture1的image copy到Picture2中?
Error:ADO could not find the specified driver(編號：849)
本人現在用OLEDB 3.51 去Connect Access Database,
在自己部機Run,無問題,但是Compile 之後,在第二部機Run,
就出現以上Error
請問怎樣解決,謝謝!
在自己部機Run,無問題,但是Compile 之後,在第二部機Run,
就出現以上Error
請問怎樣解決,謝謝!
另一個不大不小的問題...不過很重要！！！(編號：848)
我想一個檔案...不過ＶＢ卻說找不到檔案...
是什麼原因呢？？？
我的程式碼
Kill "PublicSys.MDB"
我連路徑都加...它也是會說找不到檔案!!!
Kill App.Path + "PublicSys.LDB"
是什麼問題呢???
可以幫我解決嗎???
謝謝!!!
是什麼原因呢？？？
我的程式碼
Kill "PublicSys.MDB"
我連路徑都加...它也是會說找不到檔案!!!
Kill App.Path + "PublicSys.LDB"
是什麼問題呢???
可以幫我解決嗎???
謝謝!!!
how to put any one of 0~255 digit num into a string(1 by(編號：843)
Here is my question as follow and I'll be much appricated if anyone could help me solve the problem.
我試著將 0 ~255 數字(integer) 存入一 string, 每個數字佔一個 byte 的長度; 程式片段如下:
For i = 0 To (compLen -1) ' 迴圈執行 次。
CompStr = CompStr & Chr$(bytearray(i))
Next i
0~ 128 皆 OK!, 但 129 ~254 則不 WORK
/* Notes: compStr is a string, bytearray is a array of Byte */
測試方法如下:
Function result
---------------------------------------------------
Asc(Chr(0)) ----＞ 0
Asc(Chr(1)) ----＞ 1
...
Asc(Chr(128)) ----＞ 128
/* not working begin */
Asc(Chr(129)) ----＞ 0 /* not working */
...
Asc(Chr(254)) ----＞ 0/* not working */
/* not working end */
Asc(Chr(255)) ----＞ 255/* working */
請問: How to solve the problem or somthing wrong with the program code ?
我試著將 0 ~255 數字(integer) 存入一 string, 每個數字佔一個 byte 的長度; 程式片段如下:
For i = 0 To (compLen -1) ' 迴圈執行 次。
CompStr = CompStr & Chr$(bytearray(i))
Next i
0~ 128 皆 OK!, 但 129 ~254 則不 WORK
/* Notes: compStr is a string, bytearray is a array of Byte */
測試方法如下:
Function result
---------------------------------------------------
Asc(Chr(0)) ----＞ 0
Asc(Chr(1)) ----＞ 1
...
Asc(Chr(128)) ----＞ 128
/* not working begin */
Asc(Chr(129)) ----＞ 0 /* not working */
...
Asc(Chr(254)) ----＞ 0/* not working */
/* not working end */
Asc(Chr(255)) ----＞ 255/* working */
請問: How to solve the problem or somthing wrong with the program code ?
給Chris Juang 6-GlobalMultiUse(編號：842)
-我懂了 , 我誤會原意了
-原意為 : 當開啟此物件後 , 則此物件的所有 Method/Function 都被為此專案內附 (即可直接使用 , 不需加上物件的引用)
-例如 :
-set x as new project1.class1
-那麼
-text1.text = x.say
-可取代為
-text1.text = say
************
我的意思是不用
dim x as project1.class1
不需要做任何的宣告就直接給它用下去
text1.text=class1.say
-原意為 : 當開啟此物件後 , 則此物件的所有 Method/Function 都被為此專案內附 (即可直接使用 , 不需加上物件的引用)
-例如 :
-set x as new project1.class1
-那麼
-text1.text = x.say
-可取代為
-text1.text = say
************
我的意思是不用
dim x as project1.class1
不需要做任何的宣告就直接給它用下去
text1.text=class1.say
Access File Share 的問題(編號：835)
小弟是一個新手，想請教諸位前輩：
在NT 網路上寫大家會同時存取Access檔案的VB程式，當要Update 某個Table 裡的某一個Record時，要如何檢測這筆Record 是否能被Read 或更新而不會被Access拒絕或出現Error Message？如果可用類似Lock的方式的話，請問Lock, Unlock, 以及 Check Lock 的語法是什麼？
拜託，謝謝！
在NT 網路上寫大家會同時存取Access檔案的VB程式，當要Update 某個Table 裡的某一個Record時，要如何檢測這筆Record 是否能被Read 或更新而不會被Access拒絕或出現Error Message？如果可用類似Lock的方式的話，請問Lock, Unlock, 以及 Check Lock 的語法是什麼？
拜託，謝謝！
有關API的一個問題!!!(編號：831)
高手好!!!
請問剪下和複製所要用到的API是不是這個呢??
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
另外...我要如何把它們呼叫出來???
還有貼上的API又是那一個呢??
希望可以有解答!!!
請問剪下和複製所要用到的API是不是這個呢??
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
另外...我要如何把它們呼叫出來???
還有貼上的API又是那一個呢??
希望可以有解答!!!
有關ActiveForm的一個大問題!!!(編號：829)
我遇到了一個大問題~~~
我想要用同一個視窗來完成不同視窗所須要的同一件事~~~
比如FRMZIP是可以讓使用者點選郵遞區號...
我的FORM1和FORM2都可以把它呼叫出來...
Screen.ActiveForm.LblZip.caption
^^^^^^
這個部份我該改成什麼呢???
謝謝
我想要用同一個視窗來完成不同視窗所須要的同一件事~~~
比如FRMZIP是可以讓使用者點選郵遞區號...
我的FORM1和FORM2都可以把它呼叫出來...
Screen.ActiveForm.LblZip.caption
^^^^^^
這個部份我該改成什麼呢???
謝謝
找到另一個方法,Chris Juang 請進(編號：828)
偶在一本參考書上覓得一段程序,是用隱藏的"方法",如下:
'隱藏訂單號碼欄
grdDataGrid.Columns("訂單號碼").Visible = False
執行後確實不見了,但不知會不會有Bug,例如資料庫存檔後會不會亂掉?
Sorry,＜前輩＞並非是說人老,只因自己太＜幼齒＞吧!
'隱藏訂單號碼欄
grdDataGrid.Columns("訂單號碼").Visible = False
執行後確實不見了,但不知會不會有Bug,例如資料庫存檔後會不會亂掉?
Sorry,＜前輩＞並非是說人老,只因自己太＜幼齒＞吧!
8051 和visual basic 的問題(編號：817)
我在做一個 8051 的 security system, 把它連接到電腦的com port, 請問如何令vb 收到的某個指令後自動打電話,再播一個 wav file,而不需要任何人手控制或按任何command botton?另外, 哪裡有ms comm相關的資料?我是超級新手,請回答詳細一點 ^-^ thank you thank you
how to share the Array at other form ?(編號：814)
i defind array x in form A
but i need access array in form B
hot ot do it ?
plase help me !
but i need access array in form B
hot ot do it ?
plase help me !
救命,還是不行...(編號：813)
兩個table或兩個DataGrid仍需要有一對相同的資料錄才能聯動
如何讓這個相同的資料錄,不在明細資料出現,而又能讓兩個資料表聯動?多謝Chris Juang與各位前輩的指教
如何讓這個相同的資料錄,不在明細資料出現,而又能讓兩個資料表聯動?多謝Chris Juang與各位前輩的指教
日期型態與 Null(編號：812)
我在 Access 資料庫中,定義了日期/時間型態的欄位,
作為員工主檔的到職日及離職日期欄位,一般情況下(新增或修改)時離職日的值多是空的,除非他離職了,否則該欄永遠是空的.
在 Form 上我佈置了 MaskEdBox 使之與 recordset 相連.
"新增" 時我要用 Cdate() 來轉換 MaskEdBox 使存入檔案中的到職日(不管離職日--＞使離職日的值變成 Null).
"修改" 時就有可能是該員工要離職了, 必須將資料庫的內容放到畫面上供使用者編輯了, 問題是===＞ 如何將 Null 值放入 MaskEdBox
中呢 ?
謝謝 !!
作為員工主檔的到職日及離職日期欄位,一般情況下(新增或修改)時離職日的值多是空的,除非他離職了,否則該欄永遠是空的.
在 Form 上我佈置了 MaskEdBox 使之與 recordset 相連.
"新增" 時我要用 Cdate() 來轉換 MaskEdBox 使存入檔案中的到職日(不管離職日--＞使離職日的值變成 Null).
"修改" 時就有可能是該員工要離職了, 必須將資料庫的內容放到畫面上供使用者編輯了, 問題是===＞ 如何將 Null 值放入 MaskEdBox
中呢 ?
謝謝 !!
讀取字串的問題.....(編號：810)
請問各位網友:
小弟我有一筆字串要讀取(如:aaa\bbb\ccc類似此格式),各字之間是用"\"分隔,請問我要讀取到第一個"\"就停止(如:aaa),此程式要如何撰寫??
謝謝.......
小弟我有一筆字串要讀取(如:aaa\bbb\ccc類似此格式),各字之間是用"\"分隔,請問我要讀取到第一個"\"就停止(如:aaa),此程式要如何撰寫??
謝謝.......
如何啟動一個應用程式, 但是不要讓他顯示出來?(編號：803)
請問一下要如何撰寫這個程式:
啟動一個應用程式, 但是此應用程式所開啟的表單都會被隱藏起來, 就像是執行在 NT 的 Service 一樣...
Shell 指令可以讓程式以最小化載入, 但是如果載入的程式不允許最小化或者是再開另外一個表單, 就沒有用了...
啟動一個應用程式, 但是此應用程式所開啟的表單都會被隱藏起來, 就像是執行在 NT 的 Service 一樣...
Shell 指令可以讓程式以最小化載入, 但是如果載入的程式不允許最小化或者是再開另外一個表單, 就沒有用了...
請問如何自製元件(編號：802)
請問各位高手,資料元件中的datasource的屬性如何做
也就是說像grid 或list...的datasource
只要再表單上新增一個databound
然後datasource就可以下拉選出該databound
煩請各位高手不吝指點
謝謝
也就是說像grid 或list...的datasource
只要再表單上新增一個databound
然後datasource就可以下拉選出該databound
煩請各位高手不吝指點
謝謝
畫面放不下了(編號：800)
我的程式運作如下：
1.由使用者輸入一些數據
2.將這些數據轉成簡單圖形,用line控制項秀在 form上
3.但圖形太寬了form 放不下,以致圖也無法在印表機完全印出
我的問題是:
form 的 width 只能設到12000,有沒有辦法加大
1.由使用者輸入一些數據
2.將這些數據轉成簡單圖形,用line控制項秀在 form上
3.但圖形太寬了form 放不下,以致圖也無法在印表機完全印出
我的問題是:
form 的 width 只能設到12000,有沒有辦法加大
請教 SQL 指令(編號：797)
我在 Access 資料庫中定義一個 日期/時間 型態的欄位, 在畫面上放了一個 maskedit 元件及兩個 TEXTBOX ,
我寫了一個 SQL 指令 SQL_STR = "INSERT INTO TABLE VALUES('" & TEXT1 &"','" & TEXT2 & "',#" & MASKEDIT & "# )"
請教上述指令那裡錯了,為何會一在出現 SQL 指令錯誤的訊息
謝謝 !!
我寫了一個 SQL 指令 SQL_STR = "INSERT INTO TABLE VALUES('" & TEXT1 &"','" & TEXT2 & "',#" & MASKEDIT & "# )"
請教上述指令那裡錯了,為何會一在出現 SQL 指令錯誤的訊息
謝謝 !!
What's the T C O(編號：792)
請看MCSD考題
Which is not a goal of the TCO manage phase ?
A.Monitor , track and adjust affected projects.
B.Establish an improvement cycle.
C.Re-establish the baseline.
D.Create What-if scenarios to simulate the costs and benefits of improvement projects.
Answer is : D
所以請問 TCO 是什麼的縮寫 ?
Which is not a goal of the TCO manage phase ?
A.Monitor , track and adjust affected projects.
B.Establish an improvement cycle.
C.Re-establish the baseline.
D.Create What-if scenarios to simulate the costs and benefits of improvement projects.
Answer is : D
所以請問 TCO 是什麼的縮寫 ?
DAO350.dll無法被載入(編號：779)
拜託幫忙解答一下:
我使用VB5.0
但office 97已被我升級成office 2000
在c:\program files\common files\microsoft shareddao\dao350.dll 無法被載入
只剩dao360.dll 該怎麼辦??
我使用VB5.0
但office 97已被我升級成office 2000
在c:\program files\common files\microsoft shareddao\dao350.dll 無法被載入
只剩dao360.dll 該怎麼辦??
請幫我看看這一個程式那兒錯了(條碼檢核碼的計算)(編號：774)
小弟最近想練習一個小程式用來計算條碼的最後一碼檢核碼其規則如下:
1.將條碼前12碼之偶數位的數值相加乘3
2.奇位數的數值相加
3.把上面的1.和2.的數值相加
4.以10減去3.的總和之個位數字所得之數字即為檢核碼
EX:
條碼4710176011064來作例子,先把最後一碼4去掉共12碼
偶位數為7+0+7+0+1+6=21
21*3=63
奇位數為4+1+1+6+1+0=13
63+13=76
10-6=4故檢核碼為4
我的程式碼如下:
Dim Dsum As Integer '偶數和
Dim Ssum As Integer '奇數和
Dim k As String
Dim i As Integer
Dim Csum As Integer '檢核碼
Dsum = 0
Ssum = 0
For i = 1 To 12
k = Mid(Str(txtCodeStr.Text), i, 1)
If i Mod 2 ＜＞ 0 Then
Ssum = Ssum + Val(k)
Else
Dsum = Dsum + Val(k)
End If
Next
Csum = 10 - Right(((Dsum * 3) + Ssum), 1)
txtCheckSum.Text = Csum
但是執行之後結果都不對各位先進麻煩指導一下吧滿足我初學者的學習心Thanks^Q^
1.將條碼前12碼之偶數位的數值相加乘3
2.奇位數的數值相加
3.把上面的1.和2.的數值相加
4.以10減去3.的總和之個位數字所得之數字即為檢核碼
EX:
條碼4710176011064來作例子,先把最後一碼4去掉共12碼
偶位數為7+0+7+0+1+6=21
21*3=63
奇位數為4+1+1+6+1+0=13
63+13=76
10-6=4故檢核碼為4
我的程式碼如下:
Dim Dsum As Integer '偶數和
Dim Ssum As Integer '奇數和
Dim k As String
Dim i As Integer
Dim Csum As Integer '檢核碼
Dsum = 0
Ssum = 0
For i = 1 To 12
k = Mid(Str(txtCodeStr.Text), i, 1)
If i Mod 2 ＜＞ 0 Then
Ssum = Ssum + Val(k)
Else
Dsum = Dsum + Val(k)
End If
Next
Csum = 10 - Right(((Dsum * 3) + Ssum), 1)
txtCheckSum.Text = Csum
但是執行之後結果都不對各位先進麻煩指導一下吧滿足我初學者的學習心Thanks^Q^
想請教大家 , 文字檔 txt 資料存檔 問題! 希望副程式說明(編號：773)
對於文字檔 txt 資料存檔 , 若使用 Append模式 資料存檔時
若不要在輸出
1.結果前後多雙引號號 如 "測試test1" 要如何解決?
2.希望輸出如 測試test1
目前片段程式如下;
Dim Tmp As String
F = FreeFile
Tmp ="蠟筆小新"
MyFile = App.Path + "\" + "test.rec"
Open MyFile For Append As #F
Write #1, Tmp
Close #F
Thanks ^_^ ...
若不要在輸出
1.結果前後多雙引號號 如 "測試test1" 要如何解決?
2.希望輸出如 測試test1
目前片段程式如下;
Dim Tmp As String
F = FreeFile
Tmp ="蠟筆小新"
MyFile = App.Path + "\" + "test.rec"
Open MyFile For Append As #F
Write #1, Tmp
Close #F
Thanks ^_^ ...
隨能幫我解答.......嗚嗚~~(編號：771)
For i = 0 To 3
For j = 2 To 4
DataGrid1.Row = i
Text2.Text = DataGrid1.Columns(j)
If Text2.Text ＜＞ "" Then
temp(counter) = Text2.Text
End If
Next
Next
For member = 0 To counter
For i = 0 To 3
For j = 2 To 4
DataGrid1.Row = i
DataGrid1.Columns(j) = temp(member)
Next
Next
Next
上面的程式要把datagrid的值傳到一個陣列.....空白就跳過
再重新一個一個排進datagrid....
但是為何我執行完後變成全部欄位都是最後一個值了...
希望大家幫我看看哪裡錯了!! 謝謝~~~~~~
For j = 2 To 4
DataGrid1.Row = i
Text2.Text = DataGrid1.Columns(j)
If Text2.Text ＜＞ "" Then
temp(counter) = Text2.Text
End If
Next
Next
For member = 0 To counter
For i = 0 To 3
For j = 2 To 4
DataGrid1.Row = i
DataGrid1.Columns(j) = temp(member)
Next
Next
Next
上面的程式要把datagrid的值傳到一個陣列.....空白就跳過
再重新一個一個排進datagrid....
但是為何我執行完後變成全部欄位都是最後一個值了...
希望大家幫我看看哪裡錯了!! 謝謝~~~~~~
請教各路高手，如何利用ADO把Recordset資料匯出成Excel?(編號：769)
請教各路高手，如何利用ADO把Recordset資料匯出成Excel?
我的方法是先將Recordset資料，匯出成.txt檔，然後呼叫
Excel object，匯入.txt檔，再成存檔．但是這樣
Performance不好，不知有沒有較快速的方法呢?
我的方法是先將Recordset資料，匯出成.txt檔，然後呼叫
Excel object，匯入.txt檔，再成存檔．但是這樣
Performance不好，不知有沒有較快速的方法呢?
請問錄音問題 MCI or API(編號：768)
請問各位高手,煩請指教如何在VB下錄音用 MCI or API,下面是我在一些BBS上發表的問題文章,想必很多人都看過了...但是我這問題一直沒有被解決,覺得蠻痛苦的,希望在這發表能得到VB界的高手指教!謝謝...
-----------------------------------------------------------
我是確定我的麥克風可以正常運作,因為我去"音量控制"選項把麥克風打開~並且敲一敲可以聽到喇叭把麥克風的訊號放出,所以Microphone是沒問題的~
可是我用Record時無論Mic打開與否都沒差~~
就算把Line in與Mic設備都打靜音的勾勾~還是可以錄到聲音...
我的問題:
1) 如何設定從MIC孔截取聲波
2) 如何把取樣頻率拉高至 22K
以下是我隨便寫的一段 VB 小程式[with MCI],請各方高手幫我看看!
1.按下command1錄音~~放開結束錄音!
2.按下command2撥放
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single
MMControl1.Command = "Close"
MMControl1.Command = "Open"
MMControl1.Command = "Record"
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single,
MMControl1.Command = "Stop"
MMControl1.Command = "Save"
End Sub
Private Sub Command2_Click()
MMControl1.Command = "Prev"
MMControl1.Command = "Play"
End Sub
Private Sub Form_Load()
MMControl1.Notify = False
MMControl1.Wait = False
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = "C:\WINDOWS\Desktop\test.wav"
'開啟 MCI WaveAudio 週邊設備。
End Sub
------------------------------------------------------------
問題討論:
1. 結果聲音輸入必需是Line in 孔,用Mic孔錄不到!(音量控制裡面Mic與Line都打勾"靜音",或者都打開(非靜音))效裹都是一樣,可以錄,但是是從Line in.想要換成Mic in卻不知道怎麼下參數!
2. 取樣MCI內定為 mono,8 bit,11K , 想要提高取樣率卻不知怎下參數!
3. 本程式是使用MCI控制項!
------------------------------------------------------------
以上這幾點是我在BBS上跟各位高手問的問題,璉璉大哥有對MIC孔的問題作過討論,可是MIC孔的設定一切都正常...
看樣子...要指定錄音裝置及取樣....得要依賴API了...只是...MSDN看了好久,還是不得其門而入...可以指教一下嗎?...謝謝!
-----------------------------------------------------------
我是確定我的麥克風可以正常運作,因為我去"音量控制"選項把麥克風打開~並且敲一敲可以聽到喇叭把麥克風的訊號放出,所以Microphone是沒問題的~
可是我用Record時無論Mic打開與否都沒差~~
就算把Line in與Mic設備都打靜音的勾勾~還是可以錄到聲音...
我的問題:
1) 如何設定從MIC孔截取聲波
2) 如何把取樣頻率拉高至 22K
以下是我隨便寫的一段 VB 小程式[with MCI],請各方高手幫我看看!
1.按下command1錄音~~放開結束錄音!
2.按下command2撥放
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single
MMControl1.Command = "Close"
MMControl1.Command = "Open"
MMControl1.Command = "Record"
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single,
MMControl1.Command = "Stop"
MMControl1.Command = "Save"
End Sub
Private Sub Command2_Click()
MMControl1.Command = "Prev"
MMControl1.Command = "Play"
End Sub
Private Sub Form_Load()
MMControl1.Notify = False
MMControl1.Wait = False
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = "C:\WINDOWS\Desktop\test.wav"
'開啟 MCI WaveAudio 週邊設備。
End Sub
------------------------------------------------------------
問題討論:
1. 結果聲音輸入必需是Line in 孔,用Mic孔錄不到!(音量控制裡面Mic與Line都打勾"靜音",或者都打開(非靜音))效裹都是一樣,可以錄,但是是從Line in.想要換成Mic in卻不知道怎麼下參數!
2. 取樣MCI內定為 mono,8 bit,11K , 想要提高取樣率卻不知怎下參數!
3. 本程式是使用MCI控制項!
------------------------------------------------------------
以上這幾點是我在BBS上跟各位高手問的問題,璉璉大哥有對MIC孔的問題作過討論,可是MIC孔的設定一切都正常...
看樣子...要指定錄音裝置及取樣....得要依賴API了...只是...MSDN看了好久,還是不得其門而入...可以指教一下嗎?...謝謝!
請問怎樣用Keyboard模擬Mouse Click?(編號：767)
在DataGrid中,每Tab一下,去到下一個field,但卻選了全部,
若想改裹面的內容,就要用Mouse Click, 請問怎樣用Keyboard
模擬Mouse Click? Thank you very much!!!
若想改裹面的內容,就要用Mouse Click, 請問怎樣用Keyboard
模擬Mouse Click? Thank you very much!!!
當COM 新手遇到DCOM時(編號：761)
小弟是 COM 新手... 正在用VB ActiveX DLL 發展COM, 來作學校裡Project Work的一部份
現在小弟能夠很簡單地用這個COM在User Interface(VB designed) 檢視及更改 SQL server 7 資料,
眼看是很正常的運作, 不知當中會藏著什麼危機?
請高手們提點發展 COM 時候要注意到的東西...
另外, 這個COM只限與User Interface 及 SQL Server在同一部電腦中運作(Local),
但現在想運用多台電腦在網絡中與一個Server (NT)傳送資料到同一個Database (SQL Server),
小弟有一個念頭是... 運用 Winsock 傳送資料到Server, 然後在Server 中運作這個COM,
這樣便能夠比較輕易的完成我想得到的效果~
但據我所知, 如果運用DCOM也不難發展這個Project, 宜且會比較更好, 更完美...
可惜小弟愚笨, 翻閱多次書籍也不清楚怎樣建立這個DCOM,
請各位高手能否描述應該怎樣運用我所建立的COM 發展成 DCOM.
能夠的話, 可否運用一些簡單的例子來作參詳~?
小弟萬分感謝 = )
現在小弟能夠很簡單地用這個COM在User Interface(VB designed) 檢視及更改 SQL server 7 資料,
眼看是很正常的運作, 不知當中會藏著什麼危機?
請高手們提點發展 COM 時候要注意到的東西...
另外, 這個COM只限與User Interface 及 SQL Server在同一部電腦中運作(Local),
但現在想運用多台電腦在網絡中與一個Server (NT)傳送資料到同一個Database (SQL Server),
小弟有一個念頭是... 運用 Winsock 傳送資料到Server, 然後在Server 中運作這個COM,
這樣便能夠比較輕易的完成我想得到的效果~
但據我所知, 如果運用DCOM也不難發展這個Project, 宜且會比較更好, 更完美...
可惜小弟愚笨, 翻閱多次書籍也不清楚怎樣建立這個DCOM,
請各位高手能否描述應該怎樣運用我所建立的COM 發展成 DCOM.
能夠的話, 可否運用一些簡單的例子來作參詳~?
小弟萬分感謝 = )
vb寫Game妥當乎?(編號：758)
我是位vb愛好者,長久以來一直想與朋友合力寫個Game來自娛
正當我要動手之際我心中不免出現一個疑問...
用vb寫大型的RPG遊戲真的可以嗎?
聽說vb的程式碼不可以超過一定的行數...是怎麼一回事ㄋ?
正當我要動手之際我心中不免出現一個疑問...
用vb寫大型的RPG遊戲真的可以嗎?
聽說vb的程式碼不可以超過一定的行數...是怎麼一回事ㄋ?
請問先進如何控制com1接收 條碼機 傳入的資料(編號：757)
我想要在控制com1接收條碼機傳入的資料
先前的GWBASIC 可用
open "com1:9600, E, 7, 2, RS, CS, DS, CD" for input as #1
line input #1,A$
print A$
在DOS下執行 條碼機 沒有問題,
可是這一套搬到VB中就不管用了,說是找不到檔案..
請問高手我該如何呢.
先前的GWBASIC 可用
open "com1:9600, E, 7, 2, RS, CS, DS, CD" for input as #1
line input #1,A$
print A$
在DOS下執行 條碼機 沒有問題,
可是這一套搬到VB中就不管用了,說是找不到檔案..
請問高手我該如何呢.
如何把一個數字字串的奇位數的數字相加來(編號：756)
各位先進們
我想寫一個檢查條碼的程式檢查的規則如下
條碼一共有13碼最後一碼為檢核碼
1.扣除檢核碼將這12碼先把其偶位數的數值相加乘3
2.奇位數數值相加
3.把1.和2.的數值相加
4.以10減去3.的總和之個位數即檢核碼
那我要如何把這一串數字的奇位和偶位數字分別加起來呢
謝謝各位的解答囉
我想寫一個檢查條碼的程式檢查的規則如下
條碼一共有13碼最後一碼為檢核碼
1.扣除檢核碼將這12碼先把其偶位數的數值相加乘3
2.奇位數數值相加
3.把1.和2.的數值相加
4.以10減去3.的總和之個位數即檢核碼
那我要如何把這一串數字的奇位和偶位數字分別加起來呢
謝謝各位的解答囉
ListBox控制項是否可用DataSource這個屬性呢????(編號：748)
我將ListBox控制項的屬性中DataSource設為Data控制項，
並且將DataField選定了某個欄位，但為何執行程式
ListBox控制項中卻是一片空白，沒有任何資料。
用Help查看ListBox控項的說明主題，其中屬性部份中並沒
有提到DataSource，是否ListBox不能用DataSource呢？
請各位高手幫幫忙，解我的疑惑?？？謝謝......
並且將DataField選定了某個欄位，但為何執行程式
ListBox控制項中卻是一片空白，沒有任何資料。
用Help查看ListBox控項的說明主題，其中屬性部份中並沒
有提到DataSource，是否ListBox不能用DataSource呢？
請各位高手幫幫忙，解我的疑惑?？？謝謝......
僅允許數目字的輸入-- 修改自璉璉的 code(編號：746)
Private Sub txtTimes_KeyPress(KeyAscii As Integer)
KeyAscii = KeyOnlyNumber(KeyAscii)
End Sub
' 撰寫人：Devil(璉璉) E-Mail: qvb3377@ms5.hinet.net 僅供學術測試使用，引用請註明原出處
' 修改人：Edward 2000/01/12，僅允許數目字，方向鍵與倒退鍵
'--------------------------------------------------------------------------------------
Public Function KeyOnlyNumber(ByVal KeyAscii As Integer) As Integer
Select Case KeyAscii
Case 48 To 57 ' 0~9
Case Is = 8, 13 ' 不變
Case Else
KeyAscii = 0
End Select
KeyOnlyNumber = KeyAscii
End Function
KeyAscii = KeyOnlyNumber(KeyAscii)
End Sub
' 撰寫人：Devil(璉璉) E-Mail: qvb3377@ms5.hinet.net 僅供學術測試使用，引用請註明原出處
' 修改人：Edward 2000/01/12，僅允許數目字，方向鍵與倒退鍵
'--------------------------------------------------------------------------------------
Public Function KeyOnlyNumber(ByVal KeyAscii As Integer) As Integer
Select Case KeyAscii
Case 48 To 57 ' 0~9
Case Is = 8, 13 ' 不變
Case Else
KeyAscii = 0
End Select
KeyOnlyNumber = KeyAscii
End Function
三維陣列的問題!!!(編號：744)
我用三維陣列時...
要如何把資料存入第二層和第三層丫???
例：
Dim B(2,2,2) as integer
b(0,0,0)=1 ==＞第一層
b(1,0,0)=2 ==＞第一層
b(2,0,0)=3 ==＞第一層
b(0,0,0)=4 ==＞這時要在第二層...不過b(0,0,0)中
已有資料了如果我這麼寫的話...它
就會把原資料蓋過去了
b(0,1,0)=5 ==＞第二層...這兒就沒事了
b(0,2,0)=6 ==＞第二層...這兒就沒事了
b(0,0,0)=7 ==＞和第二層開頭的問題一樣...不過
b(0,0,0)中已有資料了如果我這麼
寫的話...它就會把原資料蓋過去了
b(0,0,1)=8 ==＞第三層...這兒就沒事了
b(0,0,2)=9 ==＞第三層...這兒就沒事了
請問高手們...這個問題該如何解決呢???
PS. 我要寫的東西...是無法用迴圈存入資料的...
若有更好的寫法...也請賜教!!!!
謝謝!!!
要如何把資料存入第二層和第三層丫???
例：
Dim B(2,2,2) as integer
b(0,0,0)=1 ==＞第一層
b(1,0,0)=2 ==＞第一層
b(2,0,0)=3 ==＞第一層
b(0,0,0)=4 ==＞這時要在第二層...不過b(0,0,0)中
已有資料了如果我這麼寫的話...它
就會把原資料蓋過去了
b(0,1,0)=5 ==＞第二層...這兒就沒事了
b(0,2,0)=6 ==＞第二層...這兒就沒事了
b(0,0,0)=7 ==＞和第二層開頭的問題一樣...不過
b(0,0,0)中已有資料了如果我這麼
寫的話...它就會把原資料蓋過去了
b(0,0,1)=8 ==＞第三層...這兒就沒事了
b(0,0,2)=9 ==＞第三層...這兒就沒事了
請問高手們...這個問題該如何解決呢???
PS. 我要寫的東西...是無法用迴圈存入資料的...
若有更好的寫法...也請賜教!!!!
謝謝!!!
VB的觀念問題...高手請幫一下忙...(編號：742)
在VB的運作中...
是先把模組一次全載入後...再一一對所須要的FORM作載入動作嗎???
還是別種方式呢???
請為我解惑...
謝謝~~~
PS. 因為我想用兩個或兩個以上的模組...
一個專作全域變數的宣告...
另外其於作為程序的撰寫...
想了解它的載入方式...
以免我寫太多的模組...反而把系統的效率拉下...
是先把模組一次全載入後...再一一對所須要的FORM作載入動作嗎???
還是別種方式呢???
請為我解惑...
謝謝~~~
PS. 因為我想用兩個或兩個以上的模組...
一個專作全域變數的宣告...
另外其於作為程序的撰寫...
想了解它的載入方式...
以免我寫太多的模組...反而把系統的效率拉下...
Crystal Report 的問題(編號：741)
各位好:
想請教以下問題:
1.用Access97為資料庫並加密碼
2.用Crystal Report製作一報表檔
3.利用Crystal Report控制項及以下指令
crystalreport1.ReportFileName=ReportName
crystalreport1.datafiles(0)="AccessDB.mdb"
crystalreport1.RetriveDataFiles
crystalreport1.PrintReport
我的問題是執行時需要輸入密碼
是否可於程式中設定不需要輸入密碼?
謝謝!
Tom 1/11
想請教以下問題:
1.用Access97為資料庫並加密碼
2.用Crystal Report製作一報表檔
3.利用Crystal Report控制項及以下指令
crystalreport1.ReportFileName=ReportName
crystalreport1.datafiles(0)="AccessDB.mdb"
crystalreport1.RetriveDataFiles
crystalreport1.PrintReport
我的問題是執行時需要輸入密碼
是否可於程式中設定不需要輸入密碼?
謝謝!
Tom 1/11
在VB5中有關Access的問題...請高手能為我解答!!!(編號：734)
我想在程式中加入建立新資料庫的功能~~
並且把原資料庫改名...
請問該如何才可以先把原資料庫改名，然後再建立一個一模一樣的新資料庫呢？
先謝過了!!!
我的專題作業...沒答案就死人了...＞_＜
並且把原資料庫改名...
請問該如何才可以先把原資料庫改名，然後再建立一個一模一樣的新資料庫呢？
先謝過了!!!
我的專題作業...沒答案就死人了...＞_＜
請各位幫忙(MSFLexGride)..t.k.s.(編號：732)
如使用 MSFLexGrid ...在新增資料時如何可按 ENTER 跳至下一隔
或向上..向下鍵...而不用皆須用MOUSE來一格一格輸入...
TTT.KKKK.SSSS..
或向上..向下鍵...而不用皆須用MOUSE來一格一格輸入...
TTT.KKKK.SSSS..
FromB呼叫FormA的副程式是方法？(編號：731)
FormA之副程式為：
Sub DoThis(Index) 和 Sub DoThat()
在FromB寫呼叫程式碼時顯示FormA.DoThis(Index)或FormA.DoThat()是方法，是否寫了某個Form的副程式就是為Form該建立一種方法？又
在FromB呼叫時指定Index，FormA.DoThis(2)和Call FormA.DoThis(2)都可正確執行，好像沒在FormA.DoThis(2)前面加Call會產生錯誤嗎？
Sub DoThis(Index) 和 Sub DoThat()
在FromB寫呼叫程式碼時顯示FormA.DoThis(Index)或FormA.DoThat()是方法，是否寫了某個Form的副程式就是為Form該建立一種方法？又
在FromB呼叫時指定Index，FormA.DoThis(2)和Call FormA.DoThis(2)都可正確執行，好像沒在FormA.DoThis(2)前面加Call會產生錯誤嗎？
關於Right()函數???(編號：729)
請問小吳及其他高手:
為何在我的機器上可以使用right, mid, left函數,
而在別台機器上卻無法使用, 回應找不到函式庫.
請問我該如何解決呢?
謝謝 !
KevinW
為何在我的機器上可以使用right, mid, left函數,
而在別台機器上卻無法使用, 回應找不到函式庫.
請問我該如何解決呢?
謝謝 !
KevinW
自行開發的OCX物件的控制(編號：728)
我程式中包含了很多自行開發的OCX及DLL。
當我某個OCX內顯示MsgBox時（使用者尚未將其
關閉時），我的主程式就收不到其他OCX或DLL發出
的Event。要如何解決？
p.s.問過開發該OCX的同事，他說一定要顯示MsgBox才可以。
請幫我想想辦法！謝謝！！！
當我某個OCX內顯示MsgBox時（使用者尚未將其
關閉時），我的主程式就收不到其他OCX或DLL發出
的Event。要如何解決？
p.s.問過開發該OCX的同事，他說一定要顯示MsgBox才可以。
請幫我想想辦法！謝謝！！！
請問璉璉 !(編號：727)
謝謝妳回答我之前關於Text File 的問題 !
現在我又有問題想請教一下,
我想將以下的資料寫在Text File 的同一行內,
Ex:
字串1佔10個位, 數值1佔10個位, 字串2佔10個位; ...
字串1: ABCDEFG
數值1:12345
字串2:XYZ
理想結果:
ABCDEFG 12345XYZ
妳明白我的意思嗎, 其實我想將字串靠左排, 數值靠右排,
希望指點一下;
再次謝過了!
現在我又有問題想請教一下,
我想將以下的資料寫在Text File 的同一行內,
Ex:
字串1佔10個位, 數值1佔10個位, 字串2佔10個位; ...
字串1: ABCDEFG
數值1:12345
字串2:XYZ
理想結果:
ABCDEFG 12345XYZ
妳明白我的意思嗎, 其實我想將字串靠左排, 數值靠右排,
希望指點一下;
再次謝過了!
RDO(編號：723)
這是MCSD 70-175的考題
它的意思是指說
如果你不希望建立TEMP TABLE的話,應該設定成什麼?
1.rdUseIfNeeded
2.rdUseOdbc
3.rdUseServer
4.rdUseClientBatch
它的意思是指說
如果你不希望建立TEMP TABLE的話,應該設定成什麼?
1.rdUseIfNeeded
2.rdUseOdbc
3.rdUseServer
4.rdUseClientBatch
有沒有人會寫--改變在檔案總管中按下滑鼠的下拉功能表的項目!!(編號：719)
Hi!!
小弟在此徵求會寫下列程式功能的VB CODE:
1.可以改變使用者在IE5中按下MOUSE右鈕的下拉功能表的項目內容
2.................WORD2000...............................
3.................EXCEL2000...............................
4.................檔案總管................................
小弟將視程式的完整性給予5000-50000元的報酬
誰說程式不值錢!!請先留下資料或EMAIL給我您能做到的功能,小弟再給您報價!!
小吳大哥!!對不住啦!!
其實您可再網站中再增加一個留言板,供欲附費找解答的網友一個管道!!您再從中抽取一定的比例做為網站的運作費用!!
您可能不知道,貴站所潛在的商業價值(有多少的入門/進階/高手在這裡來來去去!!)
也許,在收費的機制及價格的認同上會有困難!!但只要解決它,自然就可以了!!
小弟在此徵求會寫下列程式功能的VB CODE:
1.可以改變使用者在IE5中按下MOUSE右鈕的下拉功能表的項目內容
2.................WORD2000...............................
3.................EXCEL2000...............................
4.................檔案總管................................
小弟將視程式的完整性給予5000-50000元的報酬
誰說程式不值錢!!請先留下資料或EMAIL給我您能做到的功能,小弟再給您報價!!
小吳大哥!!對不住啦!!
其實您可再網站中再增加一個留言板,供欲附費找解答的網友一個管道!!您再從中抽取一定的比例做為網站的運作費用!!
您可能不知道,貴站所潛在的商業價值(有多少的入門/進階/高手在這裡來來去去!!)
也許,在收費的機制及價格的認同上會有困難!!但只要解決它,自然就可以了!!
如何使用ADO開啟設有密碼的*.mdb ?(編號：717)
用DAO開啟設有密碼的*.mdb，相同*.mdb資料庫，我用ADO的Connection第三個參數設Password，但是會出現「工作群組的資料檔案不見了或被另一個使用者以獨佔方式開啟」的錯誤訊息，請指教我是那裡錯了？謝謝。
各位高手你們好! 因為我是vb的初學者下面我有第三個題目是否可以(編號：716)
1.請輸入十個數字，將其由小到大排序後，列印出來。此十個數字在執行階段隨意輸入。可使用任何可以接受輸入的形式，列印亦同。
2.寫一程式，輸入二個數M，N，並求其最大公因數及最小公倍數。
3.設計一問卷設計表單，輸入使用者姓名、姓別、出生年月日、學歷、興趣及專長等。輸入完畢後，請將使用者輸入呈現出來。輸出時請將姓名與姓別結合，譬如：如果姓名為 "張三"，姓別為 "男"，輸出為張三先生；年齡請由出生年換算得知。請儘可能使用不同物件。
2.寫一程式，輸入二個數M，N，並求其最大公因數及最小公倍數。
3.設計一問卷設計表單，輸入使用者姓名、姓別、出生年月日、學歷、興趣及專長等。輸入完畢後，請將使用者輸入呈現出來。輸出時請將姓名與姓別結合，譬如：如果姓名為 "張三"，姓別為 "男"，輸出為張三先生；年齡請由出生年換算得知。請儘可能使用不同物件。
怎麼編寫壓縮或加密解密的程式ㄚ？【指導一下概念就好，不過有範(編號：713)
常常看到許多加密解密，壓縮解壓縮的程式
那種常見的格式，自然要破解或是解壓縮都非常容易
怎麼才能自訂一種格式呢？
附註：還有啊，ActiveX DLL我不太會，小阿哥，教一下囉~~~~~
那種常見的格式，自然要破解或是解壓縮都非常容易
怎麼才能自訂一種格式呢？
附註：還有啊，ActiveX DLL我不太會，小阿哥，教一下囉~~~~~
在form_load時開data物件會出現''沒有設定物件變數或 With 區塊(編號：712)
請問大家
在form_load時開data物件會出現''沒有設定物件變數或 With 區塊變數''
Private Sub Form_Load()
If Data1.Recordset.EOF Or Data1.Recordset.BOF Then
~~~~~~~~~~
但加入Data1.Refresh
Private Sub Form_Load()
Data1.Refresh
If Data1.Recordset.EOF Or Data1.Recordset.BOF Then
~~~~~~~~~~~~
就好了請問是何原因?
在form_load時開data物件會出現''沒有設定物件變數或 With 區塊變數''
Private Sub Form_Load()
If Data1.Recordset.EOF Or Data1.Recordset.BOF Then
~~~~~~~~~~
但加入Data1.Refresh
Private Sub Form_Load()
Data1.Refresh
If Data1.Recordset.EOF Or Data1.Recordset.BOF Then
~~~~~~~~~~~~
就好了請問是何原因?
正確存取存取循序檔的方法？(編號：710)
請問大家..
正確存取存取循序檔的方法？
1.我依照下面的方法卻有必須為陳述式結尾的情況：
type REC
dim id as byte*10
^^^^^^^出現：必須是陳述式的結尾
dim name as byte*7
^^^^^^^出現：必須是陳述式的結尾
dim num as byte*10
^^^^^^^出現：必須是陳述式的結尾
endtype
2. 循序檔能否依照我定義的那樣取出所需的BYTE呢？
因為以前的ETBASIC可以做到，VB應該也可以阿？
正確存取存取循序檔的方法？
1.我依照下面的方法卻有必須為陳述式結尾的情況：
type REC
dim id as byte*10
^^^^^^^出現：必須是陳述式的結尾
dim name as byte*7
^^^^^^^出現：必須是陳述式的結尾
dim num as byte*10
^^^^^^^出現：必須是陳述式的結尾
endtype
2. 循序檔能否依照我定義的那樣取出所需的BYTE呢？
因為以前的ETBASIC可以做到，VB應該也可以阿？
如何取得login user(編號：709)
請問一下
我在Nt Server 下要如何取得登入這部電腦的所有 user name ??
以及何時登入的??
And 是否可以強制某一個user 登出!!
Tks
我在Nt Server 下要如何取得登入這部電腦的所有 user name ??
以及何時登入的??
And 是否可以強制某一個user 登出!!
Tks
一個資料量粉大的問題(編號：705)
請問,我每一次要開啟的資料量很大,主檔部份約3萬筆,然後在每一次的異動時必須去Requery,因為怕有其它的人已有最新的異動,但是這一Requery後的結果,很費時,有沒有可以只讀取異動的部份的方式,謝謝!
執行時出現" 找不到可安裝的ISAM"............幫忙一下吧(編號：704)
Dim adoConn As ADODB.Connection
Dim adoRS As ADODB.Recordset
Set adoConn = New ADODB.Connection
adoConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;DataSource=F:\river30.mdb"
adoConn.Open.........停在這一行出現錯誤訊息
SQL = "select * from company where id=" & text1.text
Set adoRS = adoConn.Execute(SQL)
If adoRS.EOF Then
MsgBox "沒有此股票", vbOKOnly, "錯誤訊息"
End If
Dim adoRS As ADODB.Recordset
Set adoConn = New ADODB.Connection
adoConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;DataSource=F:\river30.mdb"
adoConn.Open.........停在這一行出現錯誤訊息
SQL = "select * from company where id=" & text1.text
Set adoRS = adoConn.Execute(SQL)
If adoRS.EOF Then
MsgBox "沒有此股票", vbOKOnly, "錯誤訊息"
End If
Datagrid 中刪除資料後會產生 "所給的HROW為硬式或軟式刪除列", (編號：703)
Datagrid 中刪除資料後會產生 "所給的HROW為硬式或軟式刪除列", 該如何解決?所使用的環境為 ADO
關於addnew(編號：702)
我有一個用access建立的資料庫,
裡面的大概有17000筆資料,
但當我利用addnew的方式做新增的動作時,
不論是怎麼新增, 記錄數目是有增加, 但是卻一直在350筆的地方新增,
addnew..不是會自動在所有記錄的最後加一筆資料嗎??
為什麼會加在記錄筆數的中間, 我的寫法是..
with data1.recordset
.addnew
!g_name=txtname
!g_tel=txttel
.update
end with
裡面的大概有17000筆資料,
但當我利用addnew的方式做新增的動作時,
不論是怎麼新增, 記錄數目是有增加, 但是卻一直在350筆的地方新增,
addnew..不是會自動在所有記錄的最後加一筆資料嗎??
為什麼會加在記錄筆數的中間, 我的寫法是..
with data1.recordset
.addnew
!g_name=txtname
!g_tel=txttel
.update
end with
請問高手???????(編號：690)
df(),L(),leng(),num 皆為共用的矩陣或變數
別的程序中
u=1
v=0
num=1
node=4
call art(u,v)
小弟自建一個函數如下:
Public Function art(ByVal u, ByVal v)
df(u) = num
L(u) = num
num = num + 1
For w = 1 To node
If leng(u, w) = 1 Then
If df(w) = 0 Then
Call art(w, u) Q?????!:執行完此列,不會執行下一列
If L(u) ＞ L(w) Then ＜======即是此列
L(u) = L(w)
End If
Else
If w ＜＞ v Then
If L(u) ＞ df(w) Then
L(u) = df(w)
End If
End If
End If
End If
Next w
End Function
Q???:我在函數中,呼叫自己,無法返回自己,執行下一行,但是卻
能返回最初呼叫的程序,小弟非常愚昧,希望高手能夠給我
解答.謝謝!!!!
別的程序中
u=1
v=0
num=1
node=4
call art(u,v)
小弟自建一個函數如下:
Public Function art(ByVal u, ByVal v)
df(u) = num
L(u) = num
num = num + 1
For w = 1 To node
If leng(u, w) = 1 Then
If df(w) = 0 Then
Call art(w, u) Q?????!:執行完此列,不會執行下一列
If L(u) ＞ L(w) Then ＜======即是此列
L(u) = L(w)
End If
Else
If w ＜＞ v Then
If L(u) ＞ df(w) Then
L(u) = df(w)
End If
End If
End If
End If
Next w
End Function
Q???:我在函數中,呼叫自己,無法返回自己,執行下一行,但是卻
能返回最初呼叫的程序,小弟非常愚昧,希望高手能夠給我
解答.謝謝!!!!
請問vb秀出某網址圖片的寫法(編號：686)
我想要做一個股票線圖介面...用vb寫
想要設計成按某個按鍵
就直接抓取奇摩網站的線圖並秀出
在vb中要用哪一個物件可以"即時"連上這網址並秀出這圖
如http://p6.kimo.com.tw/t/d/k_1102.gif
或是有什麼方法可以做到
想要設計成按某個按鍵
就直接抓取奇摩網站的線圖並秀出
在vb中要用哪一個物件可以"即時"連上這網址並秀出這圖
如http://p6.kimo.com.tw/t/d/k_1102.gif
或是有什麼方法可以做到
使用.dsn File 做ODBC連線(編號：680)
如果我們使用使用.dsn File 做ODBC連線時，
其ConnectionString該如何 寫，以便reference該.dsn 檔呢？
謝謝
其ConnectionString該如何 寫，以便reference該.dsn 檔呢？
謝謝
關於Text File !(編號：679)
我想將字串寫進 Text File (test.txt) 內,
ex:
dim var1 as string
dim var2 as string
var1="abc"
var2="123"
我用的方法是
open "test.txt" for output as #1
write #1,var1 & var2
close #1
我翻查 test.txt 內容的時候, 如下:
"abc123"
問題是:
有沒有方法省出前後的雙引號; 令內容變成
abc123
請各位大哥幫幫忙好嗎!
謝謝!
ex:
dim var1 as string
dim var2 as string
var1="abc"
var2="123"
我用的方法是
open "test.txt" for output as #1
write #1,var1 & var2
close #1
我翻查 test.txt 內容的時候, 如下:
"abc123"
問題是:
有沒有方法省出前後的雙引號; 令內容變成
abc123
請各位大哥幫幫忙好嗎!
謝謝!
為何使用 SQL 做日期搜尋命令, 於 DBF 資料庫中會出現問題 ?(編號：675)
本人曾試用 MDB 之資料檔便能順利執行, 為何使用 DBF 資料庫會出現問題 ?
(在 DBF 檔中對文字及數字搜尋均能正常)
Adodc1.RecordSource = "Select * From 員工資料 Where 生日 ＞ #1999/10/10#"
訊息框標題 : Adodc1
訊息框內容 : [Micorosoft][ODBC Visual Foxpro river] Missing operand
是否 VB6 中無支援或有何另外的方法, 請高手指點!! 感謝高手.
(在 DBF 檔中對文字及數字搜尋均能正常)
Adodc1.RecordSource = "Select * From 員工資料 Where 生日 ＞ #1999/10/10#"
訊息框標題 : Adodc1
訊息框內容 : [Micorosoft][ODBC Visual Foxpro river] Missing operand
是否 VB6 中無支援或有何另外的方法, 請高手指點!! 感謝高手.
請問 Vb Asp 問題(編號：670)
請幫幫忙
Asp 上程式碼
＜% Email = Request.Form("Email")
Pwd = Request.Form("Pwd")
set myObject = Server.CreateObject("會員管理Object.會員")
myObject.Load Email,Pwd
Response.Write myObject.Member %＞
VB 上程式碼
Public Property Get Member() As String
Member = "00001"
End Property
結果出現
Microsoft VBScript 執行階段錯誤 錯誤 '800a01b6'
物件不支援此屬性或方法: 'myObject.Member'
/WebApp/Travel/Member/會員登錄.asp, 列12
Asp 上程式碼
＜% Email = Request.Form("Email")
Pwd = Request.Form("Pwd")
set myObject = Server.CreateObject("會員管理Object.會員")
myObject.Load Email,Pwd
Response.Write myObject.Member %＞
VB 上程式碼
Public Property Get Member() As String
Member = "00001"
End Property
結果出現
Microsoft VBScript 執行階段錯誤 錯誤 '800a01b6'
物件不支援此屬性或方法: 'myObject.Member'
/WebApp/Travel/Member/會員登錄.asp, 列12
請問如何得知cd rom的door是open or closed ?(編號：669)
本人現正練習寫一cd player，播放功能控制項皆自定，雖可控制cd rom 的door開啟或關閉，但無法判斷door的開啟或關閉是由軟體或由人工從面板動作，故退出鈕有時需按兩次才能達到目的，致使程式有一小缺點存在，本人很想修正此一缺點，故
請問如何用程式偵測得知cd rom的door現在是open or closed ?
謝謝大家。
請問如何用程式偵測得知cd rom的door現在是open or closed ?
謝謝大家。
反安裝時移除Registry之資料(編號：668)
執行反安裝時無法移除程式執行後產生之Registry資料夾，請問移除程式碼要寫在setup1的哪裡才能在安裝後把這些還未產生的Registry資料夾記錄在St5unst.log？或是自行修改St5unst.log？
DCOM能否在非internet 狀態運作(編號：667)
本身係server己經用vb build 了COM objects
如果只係intranet 而且係用 vb 0既 form 係 client 上面運作可唔可以用到DCOM呢個方法???
小弟對DCOM 不是十分熟識... DCOM 係咪一定經proxy 運作? 用不用經ip? 怎樣傳遞?
如果只係intranet 而且係用 vb 0既 form 係 client 上面運作可唔可以用到DCOM呢個方法???
小弟對DCOM 不是十分熟識... DCOM 係咪一定經proxy 運作? 用不用經ip? 怎樣傳遞?
Keep cursor in text box(編號：666)
The form contains a textbox, a label. When a user types, I want the text to be displayed
in the label and nothing sent to the textbox ( which can be acheived by set Form.KeyPreview = True),
but the textbox should always have the cursor in where it is. How to do it?
Another question is, when inserting text (not typing directly in the textbox) to the textbox in the cursor position
how to avoid flash in textbox? If code as: text1= sTextbeforcusor & sAppendText & sTextAfterCursor
will cause such problem.
Thanks.
in the label and nothing sent to the textbox ( which can be acheived by set Form.KeyPreview = True),
but the textbox should always have the cursor in where it is. How to do it?
Another question is, when inserting text (not typing directly in the textbox) to the textbox in the cursor position
how to avoid flash in textbox? If code as: text1= sTextbeforcusor & sAppendText & sTextAfterCursor
will cause such problem.
Thanks.
我想請故教一些有關文字檔的問題。(編號：663)
我有兩個問題:
1.有沒有方法可以把一些Text(如"Text1.text")寫到指定文字檔的最後一行?
2.有沒有方法可以Del文字檔中指定一行?
我自己想到解決方法，不過要用一堆程式碼，所以自己做了個Class Module，方便日後要用。
但有沒有用一兩個指領就可以做到?(我想用更方便的方法)
1.有沒有方法可以把一些Text(如"Text1.text")寫到指定文字檔的最後一行?
2.有沒有方法可以Del文字檔中指定一行?
我自己想到解決方法，不過要用一堆程式碼，所以自己做了個Class Module，方便日後要用。
但有沒有用一兩個指領就可以做到?(我想用更方便的方法)
如何正確讀取隨機檔?(編號：658)
請問大家..我有資料在隨機檔如下:
A B C
10BYTE 7BYTE 4BYTE
請問
若我要正確讀寫該檔的資料該如何寫?
我用了VBHELP跟瓜瓜兄的寫法都不行..
(瓜瓜兄的用法 vb跟我說必須是陳述式結尾
我的用法也是如此,如下:
type mydata
dim aa as byte*10
dim bb as byte *4
dim cc as byte*
end type
private sub ccmdaa_click()
i=1
dim mytype as mydata
open d:\test.dat for random as #1
do while not eof(1)
strkk= get #1,i, lenb(mytype)
list1.additem strkk
i=i+1
loop
end sub
A B C
10BYTE 7BYTE 4BYTE
請問
若我要正確讀寫該檔的資料該如何寫?
我用了VBHELP跟瓜瓜兄的寫法都不行..
(瓜瓜兄的用法 vb跟我說必須是陳述式結尾
我的用法也是如此,如下:
type mydata
dim aa as byte*10
dim bb as byte *4
dim cc as byte*
end type
private sub ccmdaa_click()
i=1
dim mytype as mydata
open d:\test.dat for random as #1
do while not eof(1)
strkk= get #1,i, lenb(mytype)
list1.additem strkk
i=i+1
loop
end sub
DLL檔的使用...(編號：657)
如果我的程式內有使用某DLL,如何在程式Runtime的load程序時,事前得知此dll檔版本及有無損壞或遺失,而用程式加以修復,防止後面程序呼叫執行錯誤,用dir()檢查好像也不對,因某些dll檔沒有註冊在windows/system/內
請問 MSFlexGrid 的欄位如何 autosize ??(編號：649)
請問各位高手
我如何將 table 的資料秀在 MSFlexGrid , 且會自動按照欄位大小來自動 autosize ???
謝謝!!..........
我如何將 table 的資料秀在 MSFlexGrid , 且會自動按照欄位大小來自動 autosize ???
謝謝!!..........
攔截鍵盤(編號：643)
form中有picture & text 物件
想直接使用up &down arrow控制picture object 上下捲動
left & right arrow 控制text object 左右捲動
如不使用api如何撰寫??
thanks
想直接使用up &down arrow控制picture object 上下捲動
left & right arrow 控制text object 左右捲動
如不使用api如何撰寫??
thanks
[急]CreateProcess error(); error code:0x000000c1h(編號：641)
小吳及各位大家好:
不好意思我又post一次,我目前更新vb6為sp3版本...但問題依然是一樣... 在用封裝部屬精靈做好安裝檔後...將setup.exe, setup.lst, project.cab
拿到別台機器去執行setup.exe, 但第一步:copy files, please stand by... 接著copy完4~6個檔案後... 根據我測試兩台電腦,有兩種情況發生.
1.createprocess() error: return error code :0x000000c1h,無法啟動主安裝程式,接著只能按確定跳出.
2.說妳的系統有些檔案不是最新版, 會問你要不要update系統檔案.
我選yes.但重開機後依然會跟妳說同樣的話... 好像他根本沒有update一樣.
我弄這個弄了好久了... :~蠻急的... 希望可以幫我一下...
謝謝... by nslin
不好意思我又post一次,我目前更新vb6為sp3版本...但問題依然是一樣... 在用封裝部屬精靈做好安裝檔後...將setup.exe, setup.lst, project.cab
拿到別台機器去執行setup.exe, 但第一步:copy files, please stand by... 接著copy完4~6個檔案後... 根據我測試兩台電腦,有兩種情況發生.
1.createprocess() error: return error code :0x000000c1h,無法啟動主安裝程式,接著只能按確定跳出.
2.說妳的系統有些檔案不是最新版, 會問你要不要update系統檔案.
我選yes.但重開機後依然會跟妳說同樣的話... 好像他根本沒有update一樣.
我弄這個弄了好久了... :~蠻急的... 希望可以幫我一下...
謝謝... by nslin
重要的VB5 Bug~~(編號：639)
請問要怎麼樣寫一個程式刪除登錄檔的這個機碼下的全部數值呢??
HKEY_USERS\.DEFAULT\Software\Microsoft\Visual Basic\5.0\RecentFiles
因為VB5如果開啟某些檔名的專案檔後會產生錯誤導致無法開啟的錯誤,但只要將上述機碼內之字串值也就是開啟記錄刪除後即可~!~謝謝!!!
HKEY_USERS\.DEFAULT\Software\Microsoft\Visual Basic\5.0\RecentFiles
因為VB5如果開啟某些檔名的專案檔後會產生錯誤導致無法開啟的錯誤,但只要將上述機碼內之字串值也就是開啟記錄刪除後即可~!~謝謝!!!
VB5 如何得知 UPS 的訊息 (系統發出)(編號：638)
大家好:
如果 PC 有接 UPS, 在 UPS 即將斷電時,
系統會得知並且秀出 Message, 那麼在程式中如何得知
此訊息以便儲存資料 ?
Thanks
如果 PC 有接 UPS, 在 UPS 即將斷電時,
系統會得知並且秀出 Message, 那麼在程式中如何得知
此訊息以便儲存資料 ?
Thanks
VB5 如何列印 "非列印字元" 及送出控制字元給印表機(編號：637)
大家好:
VB5 如何列印 "非列印字元" ?
我用 pinter.print chr(&h1a) & chr(&h2a) ===＞ (--＞,*)
無法列印出我想要的字元, 該如何做 ?
再則 VB 如何送出控制字元給印表機 (chr(&h1b)) ?
Thanks
VB5 如何列印 "非列印字元" ?
我用 pinter.print chr(&h1a) & chr(&h2a) ===＞ (--＞,*)
無法列印出我想要的字元, 該如何做 ?
再則 VB 如何送出控制字元給印表機 (chr(&h1b)) ?
Thanks
一個 WINAPI 的問題(編號：635)
問題的內容是：
我知道 visual basic 裡頭有一個指令叫 pset ，但是我覺得那個指令很慢很慢
...
而我使用的又是畫數學函式的圖，因此座標軸需要正負號，就是四個象限的意思
在 VB 裡頭，我可以很輕易的使用 Scale(-100,100,100,-100)的指令來設定座標軸
當然也可以使用 line 的方法，或是 pset 的方法來畫圖。
後來我發現可以使用 setpixel 來畫，因此想用 API 的 setpixel 來做...但是遇
到了一個問題：
1.由於 hdc 的畫布的原點(0,0)是在左上角，我如何把整個座標軸重新 Scale ，不然
我畫的點的位置都不對
也就是把 hdc 的原點搬到正中央。請問我該怎麼做呢？
我知道 visual basic 裡頭有一個指令叫 pset ，但是我覺得那個指令很慢很慢
...
而我使用的又是畫數學函式的圖，因此座標軸需要正負號，就是四個象限的意思
在 VB 裡頭，我可以很輕易的使用 Scale(-100,100,100,-100)的指令來設定座標軸
當然也可以使用 line 的方法，或是 pset 的方法來畫圖。
後來我發現可以使用 setpixel 來畫，因此想用 API 的 setpixel 來做...但是遇
到了一個問題：
1.由於 hdc 的畫布的原點(0,0)是在左上角，我如何把整個座標軸重新 Scale ，不然
我畫的點的位置都不對
也就是把 hdc 的原點搬到正中央。請問我該怎麼做呢？
不用開啟文件和附屬程式就能列印(編號：630)
人家想利用VB做一個com，不曉的可以達到不用開啟文件和附屬程式就能列印的能力？而且是不管什麼檔案格式喔......
人家為這件事搞的很煩.......希望你們能提供一些建議。謝啦!
人家為這件事搞的很煩.......希望你們能提供一些建議。謝啦!
請問sql(編號：625)
請問sql字串中若含有單引號(')時，可能是不成對的，
請問我可以用其他字元來替代嗎？
例如：
TEXT1.TEXT = "''DFS'"
SQL = "SELECT * FROM TEST WHERE NO = '" & TEXT1.TEXT & "'"
請問我可以用其他字元來替代嗎？
例如：
TEXT1.TEXT = "''DFS'"
SQL = "SELECT * FROM TEST WHERE NO = '" & TEXT1.TEXT & "'"
如何使用ADO取得每個Tables,View的名稱(編號：619)
我使用以下程式碼,想要取得每個Table,View的名稱
Dim adoConn As New ADODB.Connection
Dim strConn, strSQL As String
Dim cat As New ADOX.Catalog
Dim tbl As New Table
Dim qef As ADOX.View
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ChangeMan.mdb;Persist Security Info=False"
adoConn.Open strConn
Set cat.ActiveConnection = adoConn
For Each tbl In cat.Tables
MsgBox tbl.Name
Next
但結果會連同系統Table,view都列出,請問如何只取得自建的Table及view
Dim adoConn As New ADODB.Connection
Dim strConn, strSQL As String
Dim cat As New ADOX.Catalog
Dim tbl As New Table
Dim qef As ADOX.View
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ChangeMan.mdb;Persist Security Info=False"
adoConn.Open strConn
Set cat.ActiveConnection = adoConn
For Each tbl In cat.Tables
MsgBox tbl.Name
Next
但結果會連同系統Table,view都列出,請問如何只取得自建的Table及view
[急]CreateProcess error(); error code:0x000000c1h(編號：616)
對不起...
請各位幫幫忙...
我用封裝部屬精靈作出來的setup.exe
完全無法安裝在別的電腦上...
總是說CreateProcess error.請問一下可有解決方法??
請各位幫幫忙...
我用封裝部屬精靈作出來的setup.exe
完全無法安裝在別的電腦上...
總是說CreateProcess error.請問一下可有解決方法??
用vb輸入excel的sheet內容值,why error?(編號：614)
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
'在表格的第一個儲存格中寫些文字
ExcelSheet.Cells(1, 1).Value = "This is column A, row 1"
'將該表格儲存到 C:\test.doc 目錄
ExcelSheet.SaveAs "C:\ TEST.DOC"
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
'在表格的第一個儲存格中寫些文字
ExcelSheet.Cells(1, 1).Value = "This is column A, row 1"
'將該表格儲存到 C:\test.doc 目錄
ExcelSheet.SaveAs "C:\ TEST.DOC"
請問 sql 的 stored procedures 中table name 能用變數帶嗎?(編號：608)
請問前輩們..
在sql 的 stored procedures中
select * from ...
from 後面的 table 或 view 可不可以用變數來代替
例如.. a = 'AcMain'
select * from a 能夠等於 select * from AcMain
可能做得到嗎?
在sql 的 stored procedures中
select * from ...
from 後面的 table 或 view 可不可以用變數來代替
例如.. a = 'AcMain'
select * from a 能夠等於 select * from AcMain
可能做得到嗎?
請教 Thousand 兄一個問題(編號：606)
您好 :
您在之前有回覆小弟一個問題 , 您提到若每個 Connection 使用的 Account 都一樣的話 , MTS 會共用一個 Connection , 小弟現在用以下例子測試:
1.新增一個Active Dll Project1, 新增二個 ClassModule(設為MTS Object), class1 , class2 分別有一個 Connnection object , account 名稱一樣 ( conn.open "Provider = SQLOLEDB ; Data Source = 210.68.97.3 ; Initial Catalog = sal","sal_sa","sal")
2.製成 DLL , 並加入 MTS Package
3.另新增一執行檔, 引用Project1 , 新增二個物件 rs1,rs2 , 分別引用class1 , class2 執行程式後 , 觀察 MTS Windows 可看到 class1 class2 分別有一個啟動物件.
5.觀察 SQL Enterprise Windows 的 Process Info , 發覺有二個 spid 被建立 , 請問這樣是否為共用一個 Connection ? 如何觀察尚請不吝告知
謝謝
您在之前有回覆小弟一個問題 , 您提到若每個 Connection 使用的 Account 都一樣的話 , MTS 會共用一個 Connection , 小弟現在用以下例子測試:
1.新增一個Active Dll Project1, 新增二個 ClassModule(設為MTS Object), class1 , class2 分別有一個 Connnection object , account 名稱一樣 ( conn.open "Provider = SQLOLEDB ; Data Source = 210.68.97.3 ; Initial Catalog = sal","sal_sa","sal")
2.製成 DLL , 並加入 MTS Package
3.另新增一執行檔, 引用Project1 , 新增二個物件 rs1,rs2 , 分別引用class1 , class2 執行程式後 , 觀察 MTS Windows 可看到 class1 class2 分別有一個啟動物件.
5.觀察 SQL Enterprise Windows 的 Process Info , 發覺有二個 spid 被建立 , 請問這樣是否為共用一個 Connection ? 如何觀察尚請不吝告知
謝謝
小吳，請問:如何在vb中下 NET TIME的命令？(編號：605)
小吳還記得您教過小弟 NET TIME這個命令嗎？
最近比交迫切的需要這個指令，不過經自行測試的結果，實在不知該如何？因此想請教您:
由於 NET TIME這個命令必須要輸入 Y (小弟是使用 SHELL 且使用 ＜ YES.TXT 而YES.TXT僅有 Y及一個ENTER)，可是出現了命令無效的訊息。(用同樣的方式用在 FORMAT時，又可以)
不知該如何解決，請您指導一下小弟，謝謝，不勝感激！！
最近比交迫切的需要這個指令，不過經自行測試的結果，實在不知該如何？因此想請教您:
由於 NET TIME這個命令必須要輸入 Y (小弟是使用 SHELL 且使用 ＜ YES.TXT 而YES.TXT僅有 Y及一個ENTER)，可是出現了命令無效的訊息。(用同樣的方式用在 FORMAT時，又可以)
不知該如何解決，請您指導一下小弟，謝謝，不勝感激！！
如何使透明的FORM上的LABEL也透明?(編號：603)
我想做一個螢幕上字串跑來跑去的程式
利用LABEL的CAPTION來顯示文字
開一個大的FORM，使之透明
利用LABEL的移動來達到文字移動的效果
form透明是用"SetWindowLongA" 的方法
label透明用 label.backcolor=0
可是
跑出來卻是黑壓壓的一片..我該怎麼做才好呢 ？
利用LABEL的CAPTION來顯示文字
開一個大的FORM，使之透明
利用LABEL的移動來達到文字移動的效果
form透明是用"SetWindowLongA" 的方法
label透明用 label.backcolor=0
可是
跑出來卻是黑壓壓的一片..我該怎麼做才好呢 ？
請問紀文和先生有問datareport直橫印的問題(編號：601)
您好:
我在貴站download ,Datareport直橫印的解決模組,
ChngPrinterOrientationPortrait Me
這一段,我放在call datareport的form裡面
怎麼還是不會改成直印的呢??
是我那裡做錯了,謝謝您!!
熱心的網友若知道,也不妨告知,謝謝!!
我在貴站download ,Datareport直橫印的解決模組,
ChngPrinterOrientationPortrait Me
這一段,我放在call datareport的form裡面
怎麼還是不會改成直印的呢??
是我那裡做錯了,謝謝您!!
熱心的網友若知道,也不妨告知,謝謝!!
有關Database(編號：600)
VB如果要用Access的Database，是否一定要先用Access開一個空的Database，寸可給VB讀并加入新Record?
可否用VB開一個空的Access Database?
可否用VB開一個空的Access Database?
ODBC,多人使用同一個sa帳號??(編號：599)
我有5個Client,在每個Client的ODBC都設成sa的身份去存取
如sa,sa,sa,sa,sa
如今我改成
如a1,a2,a3,a4,a5
各個不同的帳戶名去存取資料庫,
為避免所有人都用同一個帳戶名而變慢.
改這樣會不會比較快一些??
不知道您看懂沒有??
先謝謝您的回答!!
如sa,sa,sa,sa,sa
如今我改成
如a1,a2,a3,a4,a5
各個不同的帳戶名去存取資料庫,
為避免所有人都用同一個帳戶名而變慢.
改這樣會不會比較快一些??
不知道您看懂沒有??
先謝謝您的回答!!
VB該如何下手(編號：597)
我們老師出了一個作業如下:
假設我們有一個類似電子字典的機器,包含ＬＣＤ螢幕,與鍵盤！請製作一個考試機,使得使用者可以在搭車,等朋友時在機器上做考試練習,或是做復習功課的工作！
您需要假設考試機螢幕的大小,與鍵盤的按鍵！考題可以由ＲＯＭ或是插卡或是下載的方式存在機器中！您要設計機器的驅動程式,能剖析解讀考題,也可以將考題適當的呈現在機器上供使用者做答！機器的畫面與趣味性與使用方便性由您自定！
考題至少要包含下列考題兩種以上！
(１)選擇題 ＜ss＞ 題目 ＜c1＞選擇一＜/c1＞ ＜c2＞選擇二＜/c2＞ ＜a＞1＜/a＞ ＜/ss＞
如： ＜ss＞今天天氣是 ＜c1＞晴＜/c1＞ ＜c2＞很爛＜/c2＞ ＜c3＞情時多雲偶陣與＜/c3＞＜c4＞一斤兩塊半＜/c4＞ ＜a＞3＜/a＞ ＜/ss＞
(２)打地鼠題 ＜hh＞ 題目 ＜c1＞選擇一＜/c1＞ ＜c2＞選擇二＜/c2＞ ＜a＞1＜/a＞ ＜/ss＞
如： ＜hh＞Apple 是 ＜c1＞電腦＜/c1＞ ＜c2＞猴子＜/c2＞ ＜c3＞火車＜/c3＞ ＜c4＞蘋果＜/c4＞＜c5＞黑白＜/c5＞ ＜c6＞教授＜/c6＞ ＜c7＞食物＜/c7＞ ＜a＞4,7＜/a＞ ＜/hh＞
我的VB尚在基礎階段..像這種題目..我應該先從哪下手做呢??
假設我們有一個類似電子字典的機器,包含ＬＣＤ螢幕,與鍵盤！請製作一個考試機,使得使用者可以在搭車,等朋友時在機器上做考試練習,或是做復習功課的工作！
您需要假設考試機螢幕的大小,與鍵盤的按鍵！考題可以由ＲＯＭ或是插卡或是下載的方式存在機器中！您要設計機器的驅動程式,能剖析解讀考題,也可以將考題適當的呈現在機器上供使用者做答！機器的畫面與趣味性與使用方便性由您自定！
考題至少要包含下列考題兩種以上！
(１)選擇題 ＜ss＞ 題目 ＜c1＞選擇一＜/c1＞ ＜c2＞選擇二＜/c2＞ ＜a＞1＜/a＞ ＜/ss＞
如： ＜ss＞今天天氣是 ＜c1＞晴＜/c1＞ ＜c2＞很爛＜/c2＞ ＜c3＞情時多雲偶陣與＜/c3＞＜c4＞一斤兩塊半＜/c4＞ ＜a＞3＜/a＞ ＜/ss＞
(２)打地鼠題 ＜hh＞ 題目 ＜c1＞選擇一＜/c1＞ ＜c2＞選擇二＜/c2＞ ＜a＞1＜/a＞ ＜/ss＞
如： ＜hh＞Apple 是 ＜c1＞電腦＜/c1＞ ＜c2＞猴子＜/c2＞ ＜c3＞火車＜/c3＞ ＜c4＞蘋果＜/c4＞＜c5＞黑白＜/c5＞ ＜c6＞教授＜/c6＞ ＜c7＞食物＜/c7＞ ＜a＞4,7＜/a＞ ＜/hh＞
我的VB尚在基礎階段..像這種題目..我應該先從哪下手做呢??
VB4的問題(編號：596)
小弟的VB4在(design)的狀態下,
開啟某舊檔xxx.vbp,一會兒卻出現
"c:\windows\system\crystl32.ocx"
could not be loaded...
以至於該檔(xxx)無法使用列印功能,
是否有前輩可以指導小弟解開癥結?
開啟某舊檔xxx.vbp,一會兒卻出現
"c:\windows\system\crystl32.ocx"
could not be loaded...
以至於該檔(xxx)無法使用列印功能,
是否有前輩可以指導小弟解開癥結?
請問一下datagrid....(編號：595)
我利用sql找出顯示欄位後....
ex: 序號 pic1 pic2 pic3
1 01 02 03
2 04
3 05 06 07
如何再加一個command讓 datagrid成為
序號 pic1 pic2 pic3
1 01 02 03
2 04 05 06
3 07
謝謝指教.......
ex: 序號 pic1 pic2 pic3
1 01 02 03
2 04
3 05 06 07
如何再加一個command讓 datagrid成為
序號 pic1 pic2 pic3
1 01 02 03
2 04 05 06
3 07
謝謝指教.......
ActiveX EXE 傳回的 ADODB.Connection 無法當成 .ActiveConnecti(編號：594)
如題, 會發生 3001 號錯誤.
但是如果我們直接用傳回的 Connection Object 來 .Execute 則可以成功開啟 Recordset 或執行 Action Query 等指令.
請問各位前輩知道要怎麼解決嗎?
但是如果我們直接用傳回的 Connection Object 來 .Execute 則可以成功開啟 Recordset 或執行 Action Query 等指令.
請問各位前輩知道要怎麼解決嗎?
[MSysAccounts] ERROR MESSAGE!(編號：588)
這是完成資料庫程式製作安裝所發生的問題:
以 VB6 的 SetupWizard 製作完安裝程式後執行發生以下錯誤 -
執行錯誤 "3713" 無法開啟工作群組資訊檔案中的 [MSysAccounts] 資料表
直接執行已經安裝好的 EXE 檔也無法解決, 後來將安裝程式製作出來的 ShortCut 中的
工作目錄 "C:\Program Files\MyApp\" 改為 "" 即解決, 但此程式要封裝給別人用, 總不
能請別人安裝後手動改 ShortCut 吧??
想改 Setup1.EXE , 但光看程式, 沒有辦法知道如何改安裝時所建立 ShortCut 的程式碼
應該如何改 (好像一定會設在 $APPPATH...)..
請各位提供任一解決方法:
1. 解決 MSysAccounts 問題之方法
2. 如何修正 Setup Wizard 的 ShortCut Create 程式.. 使其為 Start Up Path ""
PS. 找 MSDN 都是講 Access Security 關於 SYSTEM.MDA 之類的. 沒人碰過相同問題嗎? 真奇怪..
謝謝大家了!!
以 VB6 的 SetupWizard 製作完安裝程式後執行發生以下錯誤 -
執行錯誤 "3713" 無法開啟工作群組資訊檔案中的 [MSysAccounts] 資料表
直接執行已經安裝好的 EXE 檔也無法解決, 後來將安裝程式製作出來的 ShortCut 中的
工作目錄 "C:\Program Files\MyApp\" 改為 "" 即解決, 但此程式要封裝給別人用, 總不
能請別人安裝後手動改 ShortCut 吧??
想改 Setup1.EXE , 但光看程式, 沒有辦法知道如何改安裝時所建立 ShortCut 的程式碼
應該如何改 (好像一定會設在 $APPPATH...)..
請各位提供任一解決方法:
1. 解決 MSysAccounts 問題之方法
2. 如何修正 Setup Wizard 的 ShortCut Create 程式.. 使其為 Start Up Path ""
PS. 找 MSDN 都是講 Access Security 關於 SYSTEM.MDA 之類的. 沒人碰過相同問題嗎? 真奇怪..
謝謝大家了!!
我才剛學vb,對這段程式的前面不太了解, 可以告訴我這段程式是做(編號：587)
這段程式是我在看利用printer物件做報表列印時, 程式的前面,
是什麼意思??為什麼不能執行??是不是需要做什麼設定??
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsDrvPrinter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
是什麼意思??為什麼不能執行??是不是需要做什麼設定??
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsDrvPrinter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
如何製作參數化的彈出式功能表(POPUP MENU)(編號：585)
各位先進好!!
請教一下,該如何使用VB6中的MENU物件來產生類似TREEVIEW結構的功能表!!
因為我想用滑鼠的右鈕來使用這些參數化的功能表(當然,直掛在抬頭上亦可!!)
謝謝!!
請教一下,該如何使用VB6中的MENU物件來產生類似TREEVIEW結構的功能表!!
因為我想用滑鼠的右鈕來使用這些參數化的功能表(當然,直掛在抬頭上亦可!!)
謝謝!!
有沒有人能告訴我(編號：581)
是不是在專案中有引用ado物件
都要用vb的封裝暨部署精靈來作安裝程式呢
如果可以用像Install shield之類的程式來
作安裝程式
需要將哪些ado的東東加進去呢
因為我不太想用封裝暨部署精靈來作安裝程式說
都要用vb的封裝暨部署精靈來作安裝程式呢
如果可以用像Install shield之類的程式來
作安裝程式
需要將哪些ado的東東加進去呢
因為我不太想用封裝暨部署精靈來作安裝程式說
不知如何使用控制項(編號：580)
hi~您好..
我是剛學VB 遇到了一個問想請問一下...
是否可以幫我解答....
我有兩個表單,一個是MDI 另一個就是子表單...
我在MDI表單中使用了一個狀態列控制項(statusBar1),但是我想讓子表單也能使用這一個控制項...不知該如何做...
謝謝~
小涂筆~
我是剛學VB 遇到了一個問想請問一下...
是否可以幫我解答....
我有兩個表單,一個是MDI 另一個就是子表單...
我在MDI表單中使用了一個狀態列控制項(statusBar1),但是我想讓子表單也能使用這一個控制項...不知該如何做...
謝謝~
小涂筆~
該如何下手(編號：579)
我們老師出了一個作業如下:
假設我們有一個類似電子字典的機器,包含ＬＣＤ螢幕,與鍵盤！請製作一個考試機,使得使用者可以在搭車,等朋友時在機器上做考試練習,或是做復習功課的工作！
您需要假設考試機螢幕的大小,與鍵盤的按鍵！考題可以由ＲＯＭ或是插卡或是下載的方式存在機器中！您要設計機器的驅動程式,能剖析解讀考題,也可以將考題適當的呈現在機器上供使用者做答！機器的畫面與趣味性與使用方便性由您自定！
考題至少要包含下列考題兩種以上！
(１)選擇題 ＜ss＞ 題目 ＜c1＞選擇一＜/c1＞ ＜c2＞選擇二＜/c2＞ ＜a＞1＜/a＞ ＜/ss＞
如： ＜ss＞今天天氣是 ＜c1＞晴＜/c1＞ ＜c2＞很爛＜/c2＞ ＜c3＞情時多雲偶陣與＜/c3＞＜c4＞一斤兩塊半＜/c4＞ ＜a＞3＜/a＞ ＜/ss＞
(２)打地鼠題 ＜hh＞ 題目 ＜c1＞選擇一＜/c1＞ ＜c2＞選擇二＜/c2＞ ＜a＞1＜/a＞ ＜/ss＞
如： ＜hh＞Apple 是 ＜c1＞電腦＜/c1＞ ＜c2＞猴子＜/c2＞ ＜c3＞火車＜/c3＞ ＜c4＞蘋果＜/c4＞＜c5＞黑白＜/c5＞ ＜c6＞教授＜/c6＞ ＜c7＞食物＜/c7＞ ＜a＞4,7＜/a＞ ＜/hh＞
我的VB尚在基礎階段..像這種題目..我應該先從哪下手做呢??
假設我們有一個類似電子字典的機器,包含ＬＣＤ螢幕,與鍵盤！請製作一個考試機,使得使用者可以在搭車,等朋友時在機器上做考試練習,或是做復習功課的工作！
您需要假設考試機螢幕的大小,與鍵盤的按鍵！考題可以由ＲＯＭ或是插卡或是下載的方式存在機器中！您要設計機器的驅動程式,能剖析解讀考題,也可以將考題適當的呈現在機器上供使用者做答！機器的畫面與趣味性與使用方便性由您自定！
考題至少要包含下列考題兩種以上！
(１)選擇題 ＜ss＞ 題目 ＜c1＞選擇一＜/c1＞ ＜c2＞選擇二＜/c2＞ ＜a＞1＜/a＞ ＜/ss＞
如： ＜ss＞今天天氣是 ＜c1＞晴＜/c1＞ ＜c2＞很爛＜/c2＞ ＜c3＞情時多雲偶陣與＜/c3＞＜c4＞一斤兩塊半＜/c4＞ ＜a＞3＜/a＞ ＜/ss＞
(２)打地鼠題 ＜hh＞ 題目 ＜c1＞選擇一＜/c1＞ ＜c2＞選擇二＜/c2＞ ＜a＞1＜/a＞ ＜/ss＞
如： ＜hh＞Apple 是 ＜c1＞電腦＜/c1＞ ＜c2＞猴子＜/c2＞ ＜c3＞火車＜/c3＞ ＜c4＞蘋果＜/c4＞＜c5＞黑白＜/c5＞ ＜c6＞教授＜/c6＞ ＜c7＞食物＜/c7＞ ＜a＞4,7＜/a＞ ＜/hh＞
我的VB尚在基礎階段..像這種題目..我應該先從哪下手做呢??
SQL 指令的問題(編號：577)
我有一個人事基本檔,其中有個 "學歷" 欄位, 它是參考另一個學歷
對照檔,另一個欄位 "部門" , 它是參考部門對照檔,
我想寫一個 SQL 指令將人事檔的資料 show 在 DataGrid 上,且
部門及學歷兩欄不 show 代號, 要 Show 部門說明,及學歷說明.
請教各位 SQL 指令要如何撰寫.
謝謝.
對照檔,另一個欄位 "部門" , 它是參考部門對照檔,
我想寫一個 SQL 指令將人事檔的資料 show 在 DataGrid 上,且
部門及學歷兩欄不 show 代號, 要 Show 部門說明,及學歷說明.
請教各位 SQL 指令要如何撰寫.
謝謝.
如可使用Web Browser做Post動作??(編號：575)
例如:http://www.asd.com/login.cgi?name=asd&pass=asd
上例為CGI中的Get方法(沒錯吧)
但要如何做出Post方法來送資料呢??
上例為CGI中的Get方法(沒錯吧)
但要如何做出Post方法來送資料呢??
ActiveX Control 問題, 重新發問...(編號：574)
璉璉所舉的方法,在屬性視窗選擇屬性時,的確是以ComboBox的形態選擇.但那不是動態的.(用Enum去定義列舉,這方法不是動態的)
我的問題是設計OCX時,不用PropertyPage的方法.而讓設計出的OCX,可以在Design Time的時候,動態產生可選擇的某些屬性.
例:在屬性視窗要設定myProperty這個屬性時,右邊會有個下拉的小箭頭,拉下後可在這個ComboBox看到有 "ABC","PQR","XYZ"三個選項.而這三個選項是要動態產生的.
另一例子是,我若僅在Form上拉一個TextBox,此時Text1.DataSource沒有任何選項可供選擇.但若我再增加一個Data(Control),此時我在Text1.DataSource就有"Data1"可以讓我選擇.而這類的控制項在Form上愈多時,能選擇的愈多.這就是我所說的"動態".但我不是要用在這種DB所用的Control上.
希望這次小弟的表達比較清楚.... Thanks..
我的問題是設計OCX時,不用PropertyPage的方法.而讓設計出的OCX,可以在Design Time的時候,動態產生可選擇的某些屬性.
例:在屬性視窗要設定myProperty這個屬性時,右邊會有個下拉的小箭頭,拉下後可在這個ComboBox看到有 "ABC","PQR","XYZ"三個選項.而這三個選項是要動態產生的.
另一例子是,我若僅在Form上拉一個TextBox,此時Text1.DataSource沒有任何選項可供選擇.但若我再增加一個Data(Control),此時我在Text1.DataSource就有"Data1"可以讓我選擇.而這類的控制項在Form上愈多時,能選擇的愈多.這就是我所說的"動態".但我不是要用在這種DB所用的Control上.
希望這次小弟的表達比較清楚.... Thanks..
combo選單，只載入字型true type(編號：573)
以下這段程式，如何只載入TRUETYPE字型呢？
With Combo1 '載入字型
For intcount = 0 To Screen.FontCount - 1
.AddItem Screen.Fonts(intcount)
Next
End With
With Combo1 '載入字型
For intcount = 0 To Screen.FontCount - 1
.AddItem Screen.Fonts(intcount)
Next
End With
關聯式資料庫by dataenvironment(編號：572)
設有A,B,C三資料表,A為B之父資料表,B為C之父資料表,
故A,B,C為上下關聯之資料表,即 A-＞B-＞C
該如何在 DATAENVIRONMENT 設定其關聯性,
並以3個Datagrid顯示在Form上,使得B資料表會因A資料表變動而變動,
且C資料表會因B資料表之變動而變動.
故A,B,C為上下關聯之資料表,即 A-＞B-＞C
該如何在 DATAENVIRONMENT 設定其關聯性,
並以3個Datagrid顯示在Form上,使得B資料表會因A資料表變動而變動,
且C資料表會因B資料表之變動而變動.
訂閱：
文章 (Atom)