我想知那裏有"大量"免費ocx download?
提供小吳 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 .
請問如何將.txt檔匯入資料庫......(編號：3573)
我有一個.txt檔，沒有任何分隔符號，請問如何分割資料
並匯入Access資料庫中，請大家不吝指教，謝謝
.txt檔如下：
qqqqwwwweeeeeeerrrrrrrr
qqqqwwwweeeeeeerrrrrrrr
qqqqwwwweeeeeeerrrrrrrr
我想將這些資料放入資料表中，成為：
欄位1 欄位2 欄位3 欄位4
qqqq wwww eeeeeee rrrrrrr
qqqq wwww eeeeeee rrrrrrr
qqqq wwww eeeeeee rrrrrrr
並匯入Access資料庫中，請大家不吝指教，謝謝
.txt檔如下：
qqqqwwwweeeeeeerrrrrrrr
qqqqwwwweeeeeeerrrrrrrr
qqqqwwwweeeeeeerrrrrrrr
我想將這些資料放入資料表中，成為：
欄位1 欄位2 欄位3 欄位4
qqqq wwww eeeeeee rrrrrrr
qqqq wwww eeeeeee rrrrrrr
qqqq wwww eeeeeee rrrrrrr
SQL SERVER 對於大的資料量的效能問題??(編號：3571)
我要vb 做一個案子，其中資料庫的資料量超過五百萬筆，若使用Sql Server 在效能上(大量筆數下)是否會比較差，請大家建議一下!!
S.O.S請問應用程式發生錯誤如何解決????(編號：3566)
請善心人事幫忙一下,感激不盡!
我用 Ineternet Transfer 到網路上下載檔案(使用Http),但是當檔案下載完成後(資料是正確的),就會出現
" 應用程式發生錯誤,已計錄此應用程式,"
"vb6.exe"
"意外狀況:存取違規(0xc0000005),位址:0x7020e8fa
可以請問以下該如何解決ㄋ????
我用 Ineternet Transfer 到網路上下載檔案(使用Http),但是當檔案下載完成後(資料是正確的),就會出現
" 應用程式發生錯誤,已計錄此應用程式,"
"vb6.exe"
"意外狀況:存取違規(0xc0000005),位址:0x7020e8fa
可以請問以下該如何解決ㄋ????
Printer與PictureBox的FontSize值偏差(編號：3565)
Printer.FontName = "細明體"
Picture1.FontName = "細明體"
Printer.FontSize = 14
Picture1.FontSize = 14
MsgBox Printer.FontSize
MsgBox Picture1.FontSize
顯示出來結果分別是 14.04 及 14.25 為什麼會這樣呢?
因為這樣導致我在PictureBox內預覽的結果和印出來的結果有一點偏差!!例: 有時預覽時只有一頁, 但是由印表機印出來卻變成二頁(第一頁的最後一列因為印不下而跑到第二頁去了)!!
該如何解決這個偏差呢? 謝謝!
(版本VB5+SP3)
Picture1.FontName = "細明體"
Printer.FontSize = 14
Picture1.FontSize = 14
MsgBox Printer.FontSize
MsgBox Picture1.FontSize
顯示出來結果分別是 14.04 及 14.25 為什麼會這樣呢?
因為這樣導致我在PictureBox內預覽的結果和印出來的結果有一點偏差!!例: 有時預覽時只有一頁, 但是由印表機印出來卻變成二頁(第一頁的最後一列因為印不下而跑到第二頁去了)!!
該如何解決這個偏差呢? 謝謝!
(版本VB5+SP3)
請問 recordset(編號：3564)
若某個 Recordset 有 n 筆
請問
1. 可以一次讓這個Recordset.RecordCount 變成 0 嗎 ?
不要一筆一筆Delete , 也不要 Close Recordset
2. 有沒有什麼事件是發生在 RecordCount 改變的時候
也就是希望畫面中可以隨時反應目前的資料筆數
我在 Adodc1_MoveComplete(..) 中判斷
結果 Adodc1.Recordset.AbsolutePosition =1
Adodc1.Recordset.RecordCount =1
都不會變
End Sub
請問
1. 可以一次讓這個Recordset.RecordCount 變成 0 嗎 ?
不要一筆一筆Delete , 也不要 Close Recordset
2. 有沒有什麼事件是發生在 RecordCount 改變的時候
也就是希望畫面中可以隨時反應目前的資料筆數
我在 Adodc1_MoveComplete(..) 中判斷
結果 Adodc1.Recordset.AbsolutePosition =1
Adodc1.Recordset.RecordCount =1
都不會變
End Sub
出現應用程式錯誤 or 堆疊空間不足 when unload form(編號：3562)
各位高手想請教一個問題:
我使用VB6,在一個form上面擺了二十個左右的label及兩個CrystalReoprt物件(Ver4.62),我用Class Module以Recordset當做參數,取回所要的資料,再Insert To MDB,給Crystal Report當作資料來源,當連續送出兩個報表後再離開這個form時,每當Run到Unload時VB便會當掉,出現應用程式錯誤 or 堆疊空間不足,可是如果我只送出一張報表就沒事,why????
之前我有用過同樣的方式,而且還連續送出五張報表也都沒事,
Help me !!!! Please !
我使用VB6,在一個form上面擺了二十個左右的label及兩個CrystalReoprt物件(Ver4.62),我用Class Module以Recordset當做參數,取回所要的資料,再Insert To MDB,給Crystal Report當作資料來源,當連續送出兩個報表後再離開這個form時,每當Run到Unload時VB便會當掉,出現應用程式錯誤 or 堆疊空間不足,可是如果我只送出一張報表就沒事,why????
之前我有用過同樣的方式,而且還連續送出五張報表也都沒事,
Help me !!!! Please !
VB可以讀出*.dat資料檔嗎(編號：3561)
因為我們公司向外包廠商買資料,他的資料格式是*.dat檔
,他不是播放檔,請問VB可以將他讀出轉入sql sever上嗎
如果不行請問有什麼工具可以他讀出轉入sql sever上
,他不是播放檔,請問VB可以將他讀出轉入sql sever上嗎
如果不行請問有什麼工具可以他讀出轉入sql sever上
如何在 VB 程式中改變 Windows NT 的預設印表機(編號：3560)
大家好:
我用 VB寫了一支程式它可能被安裝在 Win98 及 WinNT 上,
我想在程式中改變系統的預設印表機,
win98 的部份已經決解了, WinNT 的部份聽說要去改變
WinNT 的機碼(Registor),請教各位應該 call 那些函數及如何設定
謝謝 !!
我用 VB寫了一支程式它可能被安裝在 Win98 及 WinNT 上,
我想在程式中改變系統的預設印表機,
win98 的部份已經決解了, WinNT 的部份聽說要去改變
WinNT 的機碼(Registor),請教各位應該 call 那些函數及如何設定
謝謝 !!
Re:使用Cancel Update 無效的問題 !! 還沒解決(編號：3559)
感謝 Andy Lin 提供答案~~謝謝 !!
但我程式中並沒有move 的動作
adodc控制項的屬性
1.使用連線字串 有選但是空白
2.資料庫來源 中 命令類型 =＞ 8.adCmdUnKnow
strPdir = App.Path + "\Main.mdb"
strPcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &strPdir _
& ";Persist Security Info=False"
Adodc1.ConnectionString = strPcon
Adodc1.RecordSource = "select * from [訂購客戶檔]"
Adodc1.Refresh
Adodc1.Recordset.AddNew
但我程式中並沒有move 的動作
adodc控制項的屬性
1.使用連線字串 有選但是空白
2.資料庫來源 中 命令類型 =＞ 8.adCmdUnKnow
strPdir = App.Path + "\Main.mdb"
strPcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &strPdir _
& ";Persist Security Info=False"
Adodc1.ConnectionString = strPcon
Adodc1.RecordSource = "select * from [訂購客戶檔]"
Adodc1.Refresh
Adodc1.Recordset.AddNew
如何在整個局域網內發送和接收消息？(編號：3557)
我看到很多軟體都有這樣的功能：可以向整個局域網發送消息並接收它，也就是BroadCast。有沒有大俠知道這是怎麼實現的？(環境：Win9x、WinNt4.x)
一個做法(about Recordset)(編號：3555)
VB6 + Access97
提供兩個將資料暫存於RecordSet的應用,
Form上佈置Adodc1及DataGrid1,
Adodc1的ConnectionString請先行設定,
adodc1.Recordset("addField") 是自行加入的欄位,不是實際table的field
一:為記錄加上流水號
Private Sub Form_Activate()
Adodc1.CommandType = adCmdText
Adodc1.CursorLocation = adUseClient
Adodc1.RecordSource = "select *,0 as addField from geb30 order by sup_code"
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
Set Adodc1.Recordset.ActiveConnection = Nothing
If Adodc1.Recordset.RecordCount ＞ 0 Then
Adodc1.Recordset.MoveFirst '這行不加會使第一筆資料無法寫入流水號,原因不詳
While Not Adodc1.Recordset.EOF
Adodc1.Recordset("addField") = Adodc1.Recordset.AbsolutePosition
Adodc1.Recordset.MoveNext
Wend
Adodc1.Recordset.MoveFirst
End If
End Sub
二:做某個欄位的累加(這裡累加Adodc1.Recordset("now_qty")欄位)
Private Sub Form_Activate()
Dim cTotal As Long '記錄累加值
Adodc1.CommandType = adCmdText
Adodc1.CursorLocation = adUseClient
Adodc1.RecordSource = "select *,0 as addField from geb10 order by pro_code"
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
Set Adodc1.Recordset.ActiveConnection = Nothing
cTotal = 0
If Adodc1.Recordset.RecordCount ＞ 0 Then
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
cTotal = cTotal + Adodc1.Recordset("now_qty")
Adodc1.Recordset("addField") = cTotal
Adodc1.Recordset.MoveNext
Wend
Adodc1.Recordset.MoveFirst
End If
End Sub
1.由於我異動資料都是下SQL直接做,所以DataGrid中的資料是否
可修改就沒試過了
2.DataEnvironment也可用相同方式,若你需結合DataReport使用
,可於show DataReport前先open DataEnvironment.rsCommand
,做完流水號or欄位累加的部分再show DataReport,這個方式
可增加DataReport的實用性
3.若你用於DataEnvironment中,建議你測試一下:
重覆開啟rsCommand是否會當出,因為我有時會遇到一些錯誤訊
息,但是完全相同的程式碼於其他的專案中卻不一定遇到
4.Set Adodc1.Recordset.ActiveConnection = Nothing
這行指令不是必要的,我記得於cww的VB心得筆記中有相關文章
做法供大家參考指教
提供兩個將資料暫存於RecordSet的應用,
Form上佈置Adodc1及DataGrid1,
Adodc1的ConnectionString請先行設定,
adodc1.Recordset("addField") 是自行加入的欄位,不是實際table的field
一:為記錄加上流水號
Private Sub Form_Activate()
Adodc1.CommandType = adCmdText
Adodc1.CursorLocation = adUseClient
Adodc1.RecordSource = "select *,0 as addField from geb30 order by sup_code"
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
Set Adodc1.Recordset.ActiveConnection = Nothing
If Adodc1.Recordset.RecordCount ＞ 0 Then
Adodc1.Recordset.MoveFirst '這行不加會使第一筆資料無法寫入流水號,原因不詳
While Not Adodc1.Recordset.EOF
Adodc1.Recordset("addField") = Adodc1.Recordset.AbsolutePosition
Adodc1.Recordset.MoveNext
Wend
Adodc1.Recordset.MoveFirst
End If
End Sub
二:做某個欄位的累加(這裡累加Adodc1.Recordset("now_qty")欄位)
Private Sub Form_Activate()
Dim cTotal As Long '記錄累加值
Adodc1.CommandType = adCmdText
Adodc1.CursorLocation = adUseClient
Adodc1.RecordSource = "select *,0 as addField from geb10 order by pro_code"
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
Set Adodc1.Recordset.ActiveConnection = Nothing
cTotal = 0
If Adodc1.Recordset.RecordCount ＞ 0 Then
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
cTotal = cTotal + Adodc1.Recordset("now_qty")
Adodc1.Recordset("addField") = cTotal
Adodc1.Recordset.MoveNext
Wend
Adodc1.Recordset.MoveFirst
End If
End Sub
1.由於我異動資料都是下SQL直接做,所以DataGrid中的資料是否
可修改就沒試過了
2.DataEnvironment也可用相同方式,若你需結合DataReport使用
,可於show DataReport前先open DataEnvironment.rsCommand
,做完流水號or欄位累加的部分再show DataReport,這個方式
可增加DataReport的實用性
3.若你用於DataEnvironment中,建議你測試一下:
重覆開啟rsCommand是否會當出,因為我有時會遇到一些錯誤訊
息,但是完全相同的程式碼於其他的專案中卻不一定遇到
4.Set Adodc1.Recordset.ActiveConnection = Nothing
這行指令不是必要的,我記得於cww的VB心得筆記中有相關文章
做法供大家參考指教
VScroll1.Max 是有極限 ??(編號：3552)
小弟有一個會動態增加 button 的表單, 當太多button 時, 就會在表單之外. 由於小弟是用Button(array) ,
所以button 的數目很大. 故小弟用VScroll 來 向下移. 但當VScroll1.Max 大過32600 時, 就會溢位.
請問各位高手如何能加大此數??
所以button 的數目很大. 故小弟用VScroll 來 向下移. 但當VScroll1.Max 大過32600 時, 就會溢位.
請問各位高手如何能加大此數??
我朋友寄了一個 .EXE 給我........(編號：3549)
我朋友寄了一個 .EXE 給我但是都關不掉他而且一直在最上面
請問有沒有辦法寫一程式將他壓在最下面呢...
因為那程式蠻有用的,不太想關掉他
請問有沒有辦法寫一程式將他壓在最下面呢...
因為那程式蠻有用的,不太想關掉他
如何建立一個Access資料庫......(編號：3545)
1.請問如何建立一個Access資料庫在特定的路徑上
2.如何建立一個資料表並且指定欄位的屬性(如：string...)
請大家不吝指教，謝謝！
2.如何建立一個資料表並且指定欄位的屬性(如：string...)
請大家不吝指教，謝謝！
使用Cancel Update 無效的問題 !!(編號：3542)
在VB6.0 SP3 在同一個程式
使用 ADODC 控制項和 DataGrid控制項
必搭配 SQL 語法
如何在按"新增"之後 再按"取消"按鈕 就可復原??
無法取消 資料庫就是新增一筆 !! 按取消 新增一筆的動作還在!!
可是我試了就是不行~~
是不是因為同時有 DatatGrid 控制項的關係嗎??
PS.DataGrid 控制項 連接 ADODC 資料!!
DataGrid.DataSource=
Adodc1.ConnectionString = 資料表位置
Adodc1.RecordSource = "select * from [客戶主檔]"
Adodc1.Refresh
Private Sub Command2_Click() '新增按鈕
Adodc1.Recordset.AddNew
End Sub
Private Sub Command2_Click() '取消按鈕
adodc1.Recordset.CancelUpdate
End Sub
使用 ADODC 控制項和 DataGrid控制項
必搭配 SQL 語法
如何在按"新增"之後 再按"取消"按鈕 就可復原??
無法取消 資料庫就是新增一筆 !! 按取消 新增一筆的動作還在!!
可是我試了就是不行~~
是不是因為同時有 DatatGrid 控制項的關係嗎??
PS.DataGrid 控制項 連接 ADODC 資料!!
DataGrid.DataSource=
Adodc1.ConnectionString = 資料表位置
Adodc1.RecordSource = "select * from [客戶主檔]"
Adodc1.Refresh
Private Sub Command2_Click() '新增按鈕
Adodc1.Recordset.AddNew
End Sub
Private Sub Command2_Click() '取消按鈕
adodc1.Recordset.CancelUpdate
End Sub
能夠在RichTextBox中設定背景圖嗎？而文字也能正常輸入？(編號：3538)
能夠在RichTextBox中設定背景圖嗎？
而文字也能正常輸入，不會蓋掉背景圖？
煩請解之，或提供相關資料，萬分感謝！！
而文字也能正常輸入，不會蓋掉背景圖？
煩請解之，或提供相關資料，萬分感謝！！
Runtime error : ADO無法找到提供者(編號：3535)
各位前輩:
小弟我利用ADO去存取MDB檔,我將程式製成安裝程式,
安裝至乾淨的環境,結果一Run就發生Run Time Error:
ADO無法找到提供者
我有特地將ADO的dll include進我的安裝程式內,可是還是不行,,,
後來我就安裝vb6,結果就可以了...
我想我是漏掉某些元件,但是vb6的封裝部署精靈為何沒有自動include?
請問各位,我是漏掉哪些元件呢?
或者有更好的解決方法...謝謝~
VB6+sp3
ps:我沒有使用ADODC control
小弟我利用ADO去存取MDB檔,我將程式製成安裝程式,
安裝至乾淨的環境,結果一Run就發生Run Time Error:
ADO無法找到提供者
我有特地將ADO的dll include進我的安裝程式內,可是還是不行,,,
後來我就安裝vb6,結果就可以了...
我想我是漏掉某些元件,但是vb6的封裝部署精靈為何沒有自動include?
請問各位,我是漏掉哪些元件呢?
或者有更好的解決方法...謝謝~
VB6+sp3
ps:我沒有使用ADODC control
如何計算label被經過幾次(編號：3533)
我己經用了控制項陣列寫出迷宮,也已經可以行走了,但如何設定走過的道路即不能再行走,也不能再回頭,否則就結束本遊戲,當做輸了.(我是以label做控制項陣列,上面是picture在走)
MaskedEDIT 與 ACCESS(編號：3530)
我有一個問題:
當我用 maskededit 作日期格式輸入 mask=9999/99/99 時
執行 ADODC.Recordset.Update 時 出現錯誤 -2147217887 (80040e21) , 顯然是長度不合
我去檢查 ACCESS的檔案格式, 該欄位為日期格式 8碼.
為何會錯誤呢 ?
我試著把 maskededit的屬性 最大長度改為10或8 都沒有用
我是那裡弄錯了呢 ? 謝謝 !
當我用 maskededit 作日期格式輸入 mask=9999/99/99 時
執行 ADODC.Recordset.Update 時 出現錯誤 -2147217887 (80040e21) , 顯然是長度不合
我去檢查 ACCESS的檔案格式, 該欄位為日期格式 8碼.
為何會錯誤呢 ?
我試著把 maskededit的屬性 最大長度改為10或8 都沒有用
我是那裡弄錯了呢 ? 謝謝 !
vb的BUG ... ?(編號：3529)
我在模組 (function.bas)中將兩個變數 FromHex,ToHex
傳入另一模組
假設是 : abc(fromHex,Tohex)
當這個函式執行完後不管原來FromHex是多少都會變成FromHex = ""
P.S:abc中並沒有用到FromHex....
傳入另一模組
假設是 : abc(fromHex,Tohex)
當這個函式執行完後不管原來FromHex是多少都會變成FromHex = ""
P.S:abc中並沒有用到FromHex....
請教一個DB的問題(編號：3528)
在資料表中有34萬多筆,
已用SQL語法Where條件過濾出只剩10几筆(過程粉慢)(有Primary key)
產生recordset Show在DataGrid中.
異動時是使用SQL語法去Insert ,Update, Delete
在異動之後,我必須下recordset.requery的指令,
Datagrid才會更新
而且指標必須指停留在異動完的那一筆或下一筆.
其requery的過程十分慢,requery完之後又要指到某筆,不勝其煩.
(兩個Table的Recordset,所以不能直接使用 rs.update的指令.)
請問前輩們是如何更新資料的.除了requery之外還有其它的選擇嗎?
VB6 + ADODB
已用SQL語法Where條件過濾出只剩10几筆(過程粉慢)(有Primary key)
產生recordset Show在DataGrid中.
異動時是使用SQL語法去Insert ,Update, Delete
在異動之後,我必須下recordset.requery的指令,
Datagrid才會更新
而且指標必須指停留在異動完的那一筆或下一筆.
其requery的過程十分慢,requery完之後又要指到某筆,不勝其煩.
(兩個Table的Recordset,所以不能直接使用 rs.update的指令.)
請問前輩們是如何更新資料的.除了requery之外還有其它的選擇嗎?
VB6 + ADODB
如何於vb中以程式碼修改crystal report7.0之papersize(自訂)(編號：3526)
如何利用vb程式碼去修改利用crystal report所建立之報表papersize(自行設定其長，高)，
。crystal report 本身所附之程式碼(crystalreport1.papersize = ?)，只能以其內定之size，無法自訂其size，而vb之程式碼(printer.papersize=vbprpuser， printer.width，printer.height)可以自定其大小，但去修改crystal report之報表，列印出來卻無動於衷，請問有其它方法嗎??(crystal report 7.0 &&& vb6.0) 謝謝
。crystal report 本身所附之程式碼(crystalreport1.papersize = ?)，只能以其內定之size，無法自訂其size，而vb之程式碼(printer.papersize=vbprpuser， printer.width，printer.height)可以自定其大小，但去修改crystal report之報表，列印出來卻無動於衷，請問有其它方法嗎??(crystal report 7.0 &&& vb6.0) 謝謝
請問 VB6 可以攔截 IE 目前要瀏覽的網址嗎?(編號：3525)
您好:
請問 VB6 可以攔截 IE 目前要瀏覽的網址嗎?
也就是說在 IE 還沒連到該網址前，我的VB6程式可以取得網址嗎?
請問是不是要與 IE 做溝通或者還有其他的方法嗎?
謝謝!!
請問 VB6 可以攔截 IE 目前要瀏覽的網址嗎?
也就是說在 IE 還沒連到該網址前，我的VB6程式可以取得網址嗎?
請問是不是要與 IE 做溝通或者還有其他的方法嗎?
謝謝!!
如何在 Stored Procedure 中尋找record?(編號：3522)
如何有效地在 stored procedure 中尋找想要的record,而這個stored procedure 卻沒有設定可以傳入parameter.
註:用ADODB connect server!
謝謝!
註:用ADODB connect server!
謝謝!
Tab 與 Enter(編號：3521)
以下是取錄 CWW 的程式我在使用時發現其 Focus(駐點) 無法進入Frame 中的 TextBox 與 MaskedBox 且只
能用在只能在 From , 不知哪位高手能幫小弟解決之...... 謝謝
Private Declare Function GetNextDlgTabItem Lib "user32" (ByVal hDlg As Long, _
ByVal hCtl As Long, ByVal bPrevious As Long) As Long
Private Declare Function SetDlgFocus Lib "user32" Alias "SetFocus" _
(ByVal hwnd As Long) As Long
'移到下一個可Focus的Control
Private Sub NextDlg()
Dim hwnd5 As Long
hwnd5 = GetNextDlgTabItem(Me.hwnd, Screen.ActiveControl.hwnd, 1)
Call SetDlgFocus(hwnd5)
End Sub
'移到上一個可Focus的Control
Private Sub PrevDlg()
Dim hwnd5 As Long
hwnd5 = GetNextDlgTabItem(Me.hwnd, Screen.ActiveControl.hwnd, 0)
Call SetDlgFocus(hwnd5)
End Sub
能用在只能在 From , 不知哪位高手能幫小弟解決之...... 謝謝
Private Declare Function GetNextDlgTabItem Lib "user32" (ByVal hDlg As Long, _
ByVal hCtl As Long, ByVal bPrevious As Long) As Long
Private Declare Function SetDlgFocus Lib "user32" Alias "SetFocus" _
(ByVal hwnd As Long) As Long
'移到下一個可Focus的Control
Private Sub NextDlg()
Dim hwnd5 As Long
hwnd5 = GetNextDlgTabItem(Me.hwnd, Screen.ActiveControl.hwnd, 1)
Call SetDlgFocus(hwnd5)
End Sub
'移到上一個可Focus的Control
Private Sub PrevDlg()
Dim hwnd5 As Long
hwnd5 = GetNextDlgTabItem(Me.hwnd, Screen.ActiveControl.hwnd, 0)
Call SetDlgFocus(hwnd5)
End Sub
crystal Report 的日期型態(編號：3519)
crystal report的日期型態有何不同嗎
因為產生的日期怎麼都不是民國也不是西元
或是您知道日期函數Day() or Moth() or Date()等如何用
'灰'常感謝
因為產生的日期怎麼都不是民國也不是西元
或是您知道日期函數Day() or Moth() or Date()等如何用
'灰'常感謝
請問這該怎麼辦(編號：3518)
我使用的是vb5.0 在要使用progressbar 元件時卻出現此訊息.....找不到此元件註冊中相關的資訊。在設計階段中，您沒有使用權可使用項功能。（錯誤代碼 429）....請問這該如何做呢
誰熟C語言或QB.VB(編號：3517)
如題、誰熟C語言或QB.VB
用其中一種程式，寫一套交插演算程式
對己編排的資料檔作篩選排序列表
有自信的朋友，請與我連絡，費用可議
如果能用另外的語言，寫出相同的功能也可
用其中一種程式，寫一套交插演算程式
對己編排的資料檔作篩選排序列表
有自信的朋友，請與我連絡，費用可議
如果能用另外的語言，寫出相同的功能也可
時間計算問題(編號：3515)
各位高手,請問下例如何計算耗用的總時間(00:50~01:55)呢?在Excel中可將01:55-00:50即可完成,於VB中如何作到呢?
開始時間 結束時間
-------- --------
00:50 01:26
01:28 01:55
開始時間 結束時間
-------- --------
00:50 01:26
01:28 01:55
ACCESS如何設計一個累計功能(編號：3514)
DEAR SIR,
如何用ACCESS於FORM中針對某一欄位(數值)逐筆做一累計之功能
例:ITEM_NO QTY. 累計
001 10 10
002 5 15
003 8 23
. . .
. . .
. . .
如何用ACCESS於FORM中針對某一欄位(數值)逐筆做一累計之功能
例:ITEM_NO QTY. 累計
001 10 10
002 5 15
003 8 23
. . .
. . .
. . .
請問如取得.dll或.exe檔里的Icon?其然后設定給Image或PictureBox(編號：3513)
其然后設定給Image或PictureBox?比如在注冊檔里的DefaultIcon的Icon路徑:
C:\WINDOWS\SYSTEM\shell32.dll,8
C:\WINDOWS\cdplayer.exe,1
謝謝!!
C:\WINDOWS\SYSTEM\shell32.dll,8
C:\WINDOWS\cdplayer.exe,1
謝謝!!
再談DLL 編譯時出現授權問題(編號：3511)
製作供 ASP 使用的 ACTIVE X 時，因為需要重覆修改，註冊是個問題，在 VB 的環境下，可以重覆使用及翻譯。
但一經 ASP 呼叫過就麻煩了，因為得重新開機。
不知道是否用同好能提供好的經驗，我的方法是在VB的環境自己寫 BROWSE及WEBSITE，因為都在VB的環環下，實驗自己寫的ACTIVE X 不會鎖住。實在是很拙。
如果它是被鎖住，如果才能不被鎖住，除了重開機別無它法嗎？我記得有TOOL可以這樣做，但不知道在那兒？
但一經 ASP 呼叫過就麻煩了，因為得重新開機。
不知道是否用同好能提供好的經驗，我的方法是在VB的環境自己寫 BROWSE及WEBSITE，因為都在VB的環環下，實驗自己寫的ACTIVE X 不會鎖住。實在是很拙。
如果它是被鎖住，如果才能不被鎖住，除了重開機別無它法嗎？我記得有TOOL可以這樣做，但不知道在那兒？
有關 VB6.0 SP3 執行時出現 Binding Collection Error(編號：3507)
請教高手：
我是在輸入text控制項的時候出現錯誤
出現以下錯誤訊息視窗，內容如下:
視窗標題 Binding collection Error
內容: Field not updatable,Bound Property Name:Text,Field
Name : 姓名
請問這是什麼問題呢 ?? 請各位救救我吧!! 謝謝
事前都有設定好了!!
我是在輸入text控制項的時候出現錯誤
出現以下錯誤訊息視窗，內容如下:
視窗標題 Binding collection Error
內容: Field not updatable,Bound Property Name:Text,Field
Name : 姓名
請問這是什麼問題呢 ?? 請各位救救我吧!! 謝謝
事前都有設定好了!!
如何讀資料最快? 如何找資料最快?(編號：3506)
不好意思又提出兩個問題:
1.如何讀資料最快? 且資料可更新.
目前我是用 .CursorLocation = adUseServer, .Mode = adModeReadWrite 開啟 Connection,
且 Recordset 用 adOpenDynamic, adLockBatchOptimistic 的方式
2.如何找資料最快? 且資料可以定位.
1.如何讀資料最快? 且資料可更新.
目前我是用 .CursorLocation = adUseServer, .Mode = adModeReadWrite 開啟 Connection,
且 Recordset 用 adOpenDynamic, adLockBatchOptimistic 的方式
2.如何找資料最快? 且資料可以定位.
我該如何撰寫一個轉檔程式(編號：3504)
hi..你好
以下有一些問題想請你指教........謝謝
我想寫一個轉檔的程式不知道vb6有沒有這個功能
我要如何寫呢....
例如 我有一個pipe.dbf的檔，裡面有pipe_id、form_bore、to_bore、dpeth_max、deth_min、pipe_wide、pipe_heigh、pipe_len
slope、type、material、manage_org、road_name、con_code等這些欄位，而我想寫一個轉檔程式，將這些欄位跟資料轉成文字檔
我該如何撰寫呢..而我只需要其中pipe_id、dpeth_max、deth_min、pipe_wide、pipe_heigh、pipe_len、material、manage_org、con_code
這些欄位跟資料。
流程=====＞將pipe.dbf轉成pipe.apt的轉檔程式.......kao.exe
.................................................謝謝你的指教 我的e-mail：freeing@mail.sgrc.ncku.edu.tw
以下有一些問題想請你指教........謝謝
我想寫一個轉檔的程式不知道vb6有沒有這個功能
我要如何寫呢....
例如 我有一個pipe.dbf的檔，裡面有pipe_id、form_bore、to_bore、dpeth_max、deth_min、pipe_wide、pipe_heigh、pipe_len
slope、type、material、manage_org、road_name、con_code等這些欄位，而我想寫一個轉檔程式，將這些欄位跟資料轉成文字檔
我該如何撰寫呢..而我只需要其中pipe_id、dpeth_max、deth_min、pipe_wide、pipe_heigh、pipe_len、material、manage_org、con_code
這些欄位跟資料。
流程=====＞將pipe.dbf轉成pipe.apt的轉檔程式.......kao.exe
.................................................謝謝你的指教 我的e-mail：freeing@mail.sgrc.ncku.edu.tw
扢离晇伎睿煦梁薹(編號：3503)
扂鎗賸珨掛卼弊迡腔▲VB 6.0 API 諒最◎ㄛ爵醱腔珨跺瞰最岆扢离煦梁薹腔ㄛ筍硐夔扢离煦梁薹ㄛ祥夔肮奀扢离晇伎睿煦梁薹ㄛ猁砑砩扢离煦梁薹睿晇伎ㄛ扂茼蜆崋繫酕儸ˋ
WebBrowser OCX(編號：3501)
請問一下, 秀在瀏覽器中文件收納器的名稱為何?
或是可否將WebBrowser當收納器使用?
我想將OCX中的文件製程Active-X 文件 DLL, 但是不知如何將原本秀在from文件收納器中的物件, 秀在瀏覽器(製作成dll後)?
或是可否將WebBrowser當收納器使用?
我想將OCX中的文件製程Active-X 文件 DLL, 但是不知如何將原本秀在from文件收納器中的物件, 秀在瀏覽器(製作成dll後)?
取得WEB的資料(編號：3498)
假設我在www.data.com.tw中放了一個檔案：data.txt，我要怎麼用vb把他給下載回來讀取呢??(www.data.com.tw是自己掰的...)
像是裡面有一些文字："TEST"
下載後，再由程式讀取...總之就是下載檔案啦...
還有上傳檔案要怎麼寫??主要問這些，好像在問怎麼做FTP程式的樣子...先謝謝各位大哥~~!!
註：VB5+SP0(沒有SP...)
像是裡面有一些文字："TEST"
下載後，再由程式讀取...總之就是下載檔案啦...
還有上傳檔案要怎麼寫??主要問這些，好像在問怎麼做FTP程式的樣子...先謝謝各位大哥~~!!
註：VB5+SP0(沒有SP...)
mciSendString進階應用--2(編號：3497)
一次問清好了...
上次不是問
1.要怎麼偵測出某一MIDI是否己撥放完畢??
2.相當於MCI CONTROL的FROM、TO屬性呢??
3.如果發生錯誤要怎麼偵測??
a.關於第一點，除了play和stop這兩種狀態，還有其他的要怎麼辦??像是pause...
b.FROM、TO屬性，上次那位大歌只給了怎麼設定(其實是自己沒有寫明白...)，不知道要怎麼把目前的值傳回來...還有整個MIDI的長度...
c.mciGetErrorString要怎麼使用??
d.如要連續的PLAY MIDI怎麼寫??
e.如果答案太長請E-Mail給我： jiggly@pchome.com.tw
謝謝!!也要謝謝上次那兩位大哥~~^^
上次不是問
1.要怎麼偵測出某一MIDI是否己撥放完畢??
2.相當於MCI CONTROL的FROM、TO屬性呢??
3.如果發生錯誤要怎麼偵測??
a.關於第一點，除了play和stop這兩種狀態，還有其他的要怎麼辦??像是pause...
b.FROM、TO屬性，上次那位大歌只給了怎麼設定(其實是自己沒有寫明白...)，不知道要怎麼把目前的值傳回來...還有整個MIDI的長度...
c.mciGetErrorString要怎麼使用??
d.如要連續的PLAY MIDI怎麼寫??
e.如果答案太長請E-Mail給我： jiggly@pchome.com.tw
謝謝!!也要謝謝上次那兩位大哥~~^^
FileList之問題(編號：3496)
Private Sub FileList_MouseDown(Button As Integer,
Shift As Integer, X As Single, Y As Single)
Dim DY As Integer
DY = TextHeight("A")
DragLabel.Move FileList.Left, FileList.Top _
+ Y - DY / 2, FileList.Width, DY
DragLabel.Drag
End Sub
其中的TextHeight("A")代表甚麼呢?
又可將括號裡的"A"換成別的嗎?
為甚麼呢?
Shift As Integer, X As Single, Y As Single)
Dim DY As Integer
DY = TextHeight("A")
DragLabel.Move FileList.Left, FileList.Top _
+ Y - DY / 2, FileList.Width, DY
DragLabel.Drag
End Sub
其中的TextHeight("A")代表甚麼呢?
又可將括號裡的"A"換成別的嗎?
為甚麼呢?
DragOver的問題~~~(編號：3495)
Private Sub Drive1_DragOver(Source As Control,X As Single,
Y As Single, State As Integer)
If State = 0 Then Source.MousePointer = 12
If State = 1 Then Source.MousePointer = 0
End Sub
If State = 0 Then Source.MousePinter = 12
是在作甚麼用的呢?
Y As Single, State As Integer)
If State = 0 Then Source.MousePointer = 12
If State = 1 Then Source.MousePointer = 0
End Sub
If State = 0 Then Source.MousePinter = 12
是在作甚麼用的呢?
如何做有效率的資料更新?(編號：3493)
若我們新增一筆資料時, 畫面上的欄位不輸入任何資料, 便按存檔.
此時我們不希望存入一筆 NULL 資料, 有沒有除了用迴圈及 flag 就可以判斷的方法?
若 RecordCount=0 時, 判斷式可能是這樣:
If oRs.RecordCount = 0 Then oRs.AddNew
... 判斷資料是否空白
是: 檢查下一個欄位
否: 設定欄位值, 可以下 oRs.Update
... 若檢查結果為 false, 表示要 CancelUpdate
有沒有更好的方法呢? 請指導一下
此時我們不希望存入一筆 NULL 資料, 有沒有除了用迴圈及 flag 就可以判斷的方法?
若 RecordCount=0 時, 判斷式可能是這樣:
If oRs.RecordCount = 0 Then oRs.AddNew
... 判斷資料是否空白
是: 檢查下一個欄位
否: 設定欄位值, 可以下 oRs.Update
... 若檢查結果為 false, 表示要 CancelUpdate
有沒有更好的方法呢? 請指導一下
有關 NETAPI32.dll 一問?(編號：3492)
各位好:
請教各高手,NETAPI32.dll內的API Function有那些?
NT與WIN95/98 的NETAPI32.dll是否相同?可共用?
Thanks
Tom
請教各高手,NETAPI32.dll內的API Function有那些?
NT與WIN95/98 的NETAPI32.dll是否相同?可共用?
Thanks
Tom
請教如何製作一計數器每秒更新一次(編號：3491)
請教如何製作一計數器每秒更新一次
小弟想做一紅綠燈的控制,如計數器為5時為紅燈;10時為黃燈;
15時為綠燈.
現階段卡在不知如何制作讓計數器每秒更新.
謝謝
小弟想做一紅綠燈的控制,如計數器為5時為紅燈;10時為黃燈;
15時為綠燈.
現階段卡在不知如何制作讓計數器每秒更新.
謝謝
Adodc stored procedure 問題!!(編號：3489)
以下的code 會出現run-time error當行到"rs.find.." 時.
run-time error:The rowset cannot scroll backwards"
Set cn = New ADODB.Connection
cn.Open Connstr
Set rs = New ADODB.Recordset
rs.Open "get_details", cn, adOpenDynamic, adLockOptimistic
rs.Find ("code=' " & Text4.Text & " ' ")
註:"get_details" is a stored procedure
Thanks!
run-time error:The rowset cannot scroll backwards"
Set cn = New ADODB.Connection
cn.Open Connstr
Set rs = New ADODB.Recordset
rs.Open "get_details", cn, adOpenDynamic, adLockOptimistic
rs.Find ("code=' " & Text4.Text & " ' ")
註:"get_details" is a stored procedure
Thanks!
使用Imgscan掃瞄的圖像應用在Picture上,我的經驗與大家分享(編號：3486)
聽這個標題似乎很簡單，但是卻花了我不少精神才解決這個問題，
而且方法有點低級，我題供給各位參考，如果有高手有更好的方法
也請不吝告知。
form內放上imgscan 和 imgedit,imgscan的目標影像控制指定到imgedit
'這一行是KODAK建議加上
ImgScan.FileType = BMP '3
ImgScan1.ShowSelectScanner
ImgScan1.StartScan
ImgEdit1.SaveAs App.Path & "Hello.bmp", 1
Hello.bmp要應用至picture或image時就會發生錯誤，不管是在設計時加入
或是用loadpicture，我的解決方式是copy到剪貼簿後再貼到Picture上
ImgScan.FileType = BMP '3
ImgScan1.ShowSelectScanner
ImgScan1.StartScan
ImgEdit1.Display
'copy到剪貼簿
ImgEdit1.ClipboardCopy 0, 0, ImgEdit1.ImageWidth, ImgEdit1.ImageHeight
ImgEdit1.ClearDisplay
'從剪貼簿貼上
Picture1.Picture = Clipboard.GetData(bmp)
'清除剪貼簿內容
Clipboard.Clear
SavePicture Picture1.Picture, App.Path & "Hello.bmp"
這個方法的缺點是無法處理太大的圖形，速度會變很慢。
提供給大家分享
而且方法有點低級，我題供給各位參考，如果有高手有更好的方法
也請不吝告知。
form內放上imgscan 和 imgedit,imgscan的目標影像控制指定到imgedit
'這一行是KODAK建議加上
ImgScan.FileType = BMP '3
ImgScan1.ShowSelectScanner
ImgScan1.StartScan
ImgEdit1.SaveAs App.Path & "Hello.bmp", 1
Hello.bmp要應用至picture或image時就會發生錯誤，不管是在設計時加入
或是用loadpicture，我的解決方式是copy到剪貼簿後再貼到Picture上
ImgScan.FileType = BMP '3
ImgScan1.ShowSelectScanner
ImgScan1.StartScan
ImgEdit1.Display
'copy到剪貼簿
ImgEdit1.ClipboardCopy 0, 0, ImgEdit1.ImageWidth, ImgEdit1.ImageHeight
ImgEdit1.ClearDisplay
'從剪貼簿貼上
Picture1.Picture = Clipboard.GetData(bmp)
'清除剪貼簿內容
Clipboard.Clear
SavePicture Picture1.Picture, App.Path & "Hello.bmp"
這個方法的缺點是無法處理太大的圖形，速度會變很慢。
提供給大家分享
Crystal Report如何動態指定印列印表机??(編號：3485)
我在程式中加了
Public Sub PutPrinter()
Dim x As Printer
For Each x In Printers
Combo1.AddItem x.DeviceName
Next
Combo1.ListIndex = 0
End Sub
Private Sub Combo1_Click()
Set Printer = Printers(Combo1.ListIndex)
End Sub
當我選完combo1的印表机時,可是列印報表時還是指定原來預設的印表机.
請高手救救我.謝謝!!
Public Sub PutPrinter()
Dim x As Printer
For Each x In Printers
Combo1.AddItem x.DeviceName
Next
Combo1.ListIndex = 0
End Sub
Private Sub Combo1_Click()
Set Printer = Printers(Combo1.ListIndex)
End Sub
當我選完combo1的印表机時,可是列印報表時還是指定原來預設的印表机.
請高手救救我.謝謝!!
急件~請問一下~~如何在timer1下使用floodfill的指令(編號：3484)
你好~~
我現在要做一個會隨時間已一定點旋轉的三角形,內塗有顏色,故我使用Private Declare Function FloodFill& Lib(不過不太會用)若在Private Sub Form_Load()下寫執行碼,執行便可產生三角形內塗有顏色,但是 Private Sub Timer1_Timer()下就不行,會讓顏色塗滿整個表單背景~~請問有沒有方法能在Timer1_Time()下執行其圖~~粉謝謝呦~~ :＞
pipi
我現在要做一個會隨時間已一定點旋轉的三角形,內塗有顏色,故我使用Private Declare Function FloodFill& Lib(不過不太會用)若在Private Sub Form_Load()下寫執行碼,執行便可產生三角形內塗有顏色,但是 Private Sub Timer1_Timer()下就不行,會讓顏色塗滿整個表單背景~~請問有沒有方法能在Timer1_Time()下執行其圖~~粉謝謝呦~~ :＞
pipi
如何找出最大日期??(編號：3481)
我要如何寫出一段sql語法找出Table中的最大日期呢??例如現有一問題:我在SQL 7.0 某個Table有一欄位到職日期(comedate) 格式為(datatime),我該如何才能找出最大日期記錄,因為我用Select max(comedate) as comedate from .....,發生錯誤.請諸位先進能夠指點一下
表單之間是否可以使用class傳遞資料？(編號：3478)
請教高手下列程式是否有誤，或者作法有誤。
in class1
'
Private mstrField50 As String
Public Property Get Field50() As Variant
Field50 = mstrField50
End Property
'
Public Property Let Field50(ByVal strChinese As Variant)
mstrField50 = strChinese
End Property
'
'
in form1
'
Private Sub Command5_Click()
Dim objClass As New Class1
objClass.Field50 = txtField(0)
Set objClass = Nothing
End Sub
'
'
in form2
'
'
Private Sub Command3_Click()
Dim objClass As New Class1
Me.txtField(0).Text = objClass.Field50
Debug.Print objClass.Field50 ＜================無法得到任到資料
End Sub
'
'
think you
in class1
'
Private mstrField50 As String
Public Property Get Field50() As Variant
Field50 = mstrField50
End Property
'
Public Property Let Field50(ByVal strChinese As Variant)
mstrField50 = strChinese
End Property
'
'
in form1
'
Private Sub Command5_Click()
Dim objClass As New Class1
objClass.Field50 = txtField(0)
Set objClass = Nothing
End Sub
'
'
in form2
'
'
Private Sub Command3_Click()
Dim objClass As New Class1
Me.txtField(0).Text = objClass.Field50
Debug.Print objClass.Field50 ＜================無法得到任到資料
End Sub
'
'
think you
vb sp3 使用 dao 發生物件類別沒有註冊(編號：3477)
我是使用 vb 6.0 +sp3 中使用 dao 元件引用 microsoft dao 3.6 object 經封裝後在其他電腦(win98 se)安裝完成,執行時發生錯誤訊息;物件類別沒有註冊
尋找具有下列 CLSID 的物件:{00000010-0000-0010-8000-00AA006D2EA4}
請問是哪裡出錯,但在不安裝 SP3 的情形下卻沒有錯誤!
尋找具有下列 CLSID 的物件:{00000010-0000-0010-8000-00AA006D2EA4}
請問是哪裡出錯,但在不安裝 SP3 的情形下卻沒有錯誤!
如何可以同時播放wav檔案?(編號：3474)
如何可以同時播放wav檔案? 我正在寫一個根據按下的鍵而發出不同聲音的程式(如打鼓機) , 但不能做到兩個wav檔案同時播放, 只能先播第一個, 到它完了後才播第二個.
有關排列的問題(編號：3473)
我們老師出了一題我不會寫,想請教一下
首先輸入兩個數x ,y 然後會在 list 上排列出這樣的形式
假設 x=5 ,y=3
1 2 3
1 2 4
1 2 5
2 3 4
2 3 5
3 4 5
而且有一個規定,就是要用一個無窮call副程式,然後設定它跳出來的條件,如:
Private Sub Form_Activate()
Dim x As Integer, y As Integer
x = InputBox("輸入x", "輸入x")
y = InputBox("輸入y", "輸入y")
Call sum(x, y)
End Sub
----------------------------------------------------------
Sub sum(ByVal x, ByVal y)
If x = 1 Then
List1.AddItem x
Else
Call sum(x - 1, y)
List1.AddItem x
End If
End Sub
現在我的問題是要怎麼讓它每行排y個數,而且會用上面那種排法ㄋ
ps(上面的範例就是我目前寫的進度,只能排一行)
首先輸入兩個數x ,y 然後會在 list 上排列出這樣的形式
假設 x=5 ,y=3
1 2 3
1 2 4
1 2 5
2 3 4
2 3 5
3 4 5
而且有一個規定,就是要用一個無窮call副程式,然後設定它跳出來的條件,如:
Private Sub Form_Activate()
Dim x As Integer, y As Integer
x = InputBox("輸入x", "輸入x")
y = InputBox("輸入y", "輸入y")
Call sum(x, y)
End Sub
----------------------------------------------------------
Sub sum(ByVal x, ByVal y)
If x = 1 Then
List1.AddItem x
Else
Call sum(x - 1, y)
List1.AddItem x
End If
End Sub
現在我的問題是要怎麼讓它每行排y個數,而且會用上面那種排法ㄋ
ps(上面的範例就是我目前寫的進度,只能排一行)
請問在ASP中如何知道Client是從哪兒連進來的呢?(編號：3472)
請問在ASP中如何知道Client是從哪兒連進來的呢?
就是從哪裡按連結進來的~
例如: 從www.vbqa.com.tw連到我的那個ASP網頁..
就是要如何取得 www.vbqa.com.tw 這一串...
我記得是可以耶..
就是從哪裡按連結進來的~
例如: 從www.vbqa.com.tw連到我的那個ASP網頁..
就是要如何取得 www.vbqa.com.tw 這一串...
我記得是可以耶..
可以請璉璉開放赫密斯的完整原始碼嗎??(編號：3471)
可以請璉璉開放赫密斯的完整原始碼嗎??
這個程式有很多值得學習的技術
自由軟體之父Richard Stalleman也曾經說過一句話
著作權的保護阻斷了軟體的快速發展..
開放原始碼可以讓更多人學習到更多的技術
況且台灣的軟體業才剛起步~更須要這樣做
這個程式有很多值得學習的技術
自由軟體之父Richard Stalleman也曾經說過一句話
著作權的保護阻斷了軟體的快速發展..
開放原始碼可以讓更多人學習到更多的技術
況且台灣的軟體業才剛起步~更須要這樣做
PasswordChar有奇怪的問題(編號：3470)
理論上TextBox應該可以打中文,可是如果我做了PasswordChar="*"
然後又將PasswordChar=""(還原)卻無法輸入中文...??
P.s:http://home.pchome.com.tw/soho/vbnow/Beta.exe
程式沒有任何功能..但是有上列的問題.....
然後又將PasswordChar=""(還原)卻無法輸入中文...??
P.s:http://home.pchome.com.tw/soho/vbnow/Beta.exe
程式沒有任何功能..但是有上列的問題.....
急!!! Win98封裝的程式,不能在Win2000安裝耶~~為什麼??(編號：3467)
Win98封裝的程式,不能在Win2000安裝耶~~為什麼??
那要如何能設計出能安裝在Win2000的程式呢??
Win2000為多使用者環境,安裝路徑好像不一定是在
Program Files目錄下,是不是呢???
我的程式急需在Win2000下執行,麻煩大家解答之.
萬分感謝!!
那要如何能設計出能安裝在Win2000的程式呢??
Win2000為多使用者環境,安裝路徑好像不一定是在
Program Files目錄下,是不是呢???
我的程式急需在Win2000下執行,麻煩大家解答之.
萬分感謝!!
難.....(編號：3466)
請問各位大哥大姊們:
1.按刪除鍵時出現"更新或重整所需欄位不足"
2.如何才能讓使用者輸入文字與數字 例如:[111],[sdds],[gbrd454234]
3.如何才能讓未知錯誤在使用者輸入資料寫入後才顯示
4.如何寫程序來偵測未知錯誤
謝謝
1.按刪除鍵時出現"更新或重整所需欄位不足"
2.如何才能讓使用者輸入文字與數字 例如:[111],[sdds],[gbrd454234]
3.如何才能讓未知錯誤在使用者輸入資料寫入後才顯示
4.如何寫程序來偵測未知錯誤
謝謝
可以選擇字形的 ComboBox 或 ListBox(編號：3465)
我現在正在做一個關於 DataBase 的程式
其中有個部份我想設計一個 Preferences Form
來設定我資料內容顯示時的字型、大小、顏色、樣式...
但我使用 Common Dialog 中的 ShowFont 方法時
它居然說我的 system 沒有 Fonts
So 我只好自己把 Screen.Font 的字型載入 ListBox 或 ComboBox
但它居然要1~2秒的時間才能完全載入
而 MS 的記事本、WordPad、Word 卻可以用不及一秒的時間載入字型 ....finally
1.請問有什麼最快的方法可以將字型載入 ListBox 或 ComboBox 中
2.是不是有特別的物件可以做 Font 的選單
3.有沒有什麼方法快速地 Coly 一個 ListBox 的內容到另一個
其中有個部份我想設計一個 Preferences Form
來設定我資料內容顯示時的字型、大小、顏色、樣式...
但我使用 Common Dialog 中的 ShowFont 方法時
它居然說我的 system 沒有 Fonts
So 我只好自己把 Screen.Font 的字型載入 ListBox 或 ComboBox
但它居然要1~2秒的時間才能完全載入
而 MS 的記事本、WordPad、Word 卻可以用不及一秒的時間載入字型 ....finally
1.請問有什麼最快的方法可以將字型載入 ListBox 或 ComboBox 中
2.是不是有特別的物件可以做 Font 的選單
3.有沒有什麼方法快速地 Coly 一個 ListBox 的內容到另一個
滑鼠定位與延遲Click(編號：3464)
小弟想請問一個問題，還請各位高手們指點小弟一點迷津，謝謝^_^
問題就是，如果當我要鎖定我的滑鼠在X240,Y120的那個點，
然後Click滑鼠之後他會一直連續Click，而不用我的手一直點，
每一下與每一下之間要延遲(Delay)0.5秒，然後如果要取消，
則是按Ctrl+F12，那此程式應該要如何來撰寫呢?
希望大家能教我一下，感激不盡...謝謝大家
問題就是，如果當我要鎖定我的滑鼠在X240,Y120的那個點，
然後Click滑鼠之後他會一直連續Click，而不用我的手一直點，
每一下與每一下之間要延遲(Delay)0.5秒，然後如果要取消，
則是按Ctrl+F12，那此程式應該要如何來撰寫呢?
希望大家能教我一下，感激不盡...謝謝大家
怎麼查詢已存在C:下的檔案 , 是否符合條件限制?(編號：3463)
Question:
1.使用者可以分別依"性別"(於Fream中設2個OptionButton-男,女)
"年齡"(設3個-opt20,opt2040,opt40)
"身高"(設3個-opt170,opt170180,opt180)
的條件限制來查詢已建於C:下之會員資料.
2.按"查詢結果"鈕,若符合條件,則輸出所有符合結果於TextBox,
若沒有符合條件的會員資料,則輸出"查無資料"
我是一個統計系的學生,只有上過簡單的VB,
而老師這次的作業我想破頭了,還是不知道要怎麼做...O_o
以上是我就自己不知道怎麼做的地方將之提出,主要是想問Q2.
請各位幫幫忙吧...
以下是我們老師所給的一段讀取資料的程式,
只是我不知道怎麼用....!_!
'從c:\windows\desktop\people.DAT中讀取資料
Dim o_output(100)
file_num = FreeFile
Open "c:\windows\desktop\people.DAT" For Input As #file_num
i = 1
While Not EOF(file_num)
Input #file_num, s_output
o_output(i) = s_output
i = i + 1
Wend
Close #file_num
txtResult.Text = "c:\windows\desktop\people.DAT"
For j = 1 To i = 1
txtResult.Text = txtResult.Text + o_output(j)
Next j
1.使用者可以分別依"性別"(於Fream中設2個OptionButton-男,女)
"年齡"(設3個-opt20,opt2040,opt40)
"身高"(設3個-opt170,opt170180,opt180)
的條件限制來查詢已建於C:下之會員資料.
2.按"查詢結果"鈕,若符合條件,則輸出所有符合結果於TextBox,
若沒有符合條件的會員資料,則輸出"查無資料"
我是一個統計系的學生,只有上過簡單的VB,
而老師這次的作業我想破頭了,還是不知道要怎麼做...O_o
以上是我就自己不知道怎麼做的地方將之提出,主要是想問Q2.
請各位幫幫忙吧...
以下是我們老師所給的一段讀取資料的程式,
只是我不知道怎麼用....!_!
'從c:\windows\desktop\people.DAT中讀取資料
Dim o_output(100)
file_num = FreeFile
Open "c:\windows\desktop\people.DAT" For Input As #file_num
i = 1
While Not EOF(file_num)
Input #file_num, s_output
o_output(i) = s_output
i = i + 1
Wend
Close #file_num
txtResult.Text = "c:\windows\desktop\people.DAT"
For j = 1 To i = 1
txtResult.Text = txtResult.Text + o_output(j)
Next j
vb的問題(編號：3462)
Private Sub Form_Load()
=====＞ DragLabel.Visible = 0 這行是甚麼意思呢?
End Sub
還有這一行 ChDrive Drive1.Drive
關於Clipboard物件的資料要去查詢哪一類的書籍呢?
=====＞ DragLabel.Visible = 0 這行是甚麼意思呢?
End Sub
還有這一行 ChDrive Drive1.Drive
關於Clipboard物件的資料要去查詢哪一類的書籍呢?
如何讀取機器上不同位址的數據顯示在表單上？(編號：3461)
請教先進～我想將 MSComm 作成控制項，但是‧‧‧
我的做法是將公用副程式寫於 Module1 上，在 Form1 上呼叫顯示於 Label1～Label10，這個做法是可行的，但因做法是循環處理的方式， Label 越多則速度越慢，程式也會越複雜難以管理。
今我想作成控制項，由控制項的屬性指定其位址‧‧‧
失敗１：MSComm 在控制項中，只要有其中一個已完成通訊協定，則不能再開啟另一個
失敗２：MSComm 在公用表單中，並負責完成通訊協定，開啟與關閉，由控制項的屬性指定其通訊物件及位址
，則表單上所有的 Label 皆會亂跳，即該顯示於 Label1 上的數據，卻顯示於其中之一的 Label 上
這應該類似於瀏覽器控制項，可以使多執行諸同時動作
請教我的觀念是否有錯，有方法可以解決嗎？謝謝！
我的做法是將公用副程式寫於 Module1 上，在 Form1 上呼叫顯示於 Label1～Label10，這個做法是可行的，但因做法是循環處理的方式， Label 越多則速度越慢，程式也會越複雜難以管理。
今我想作成控制項，由控制項的屬性指定其位址‧‧‧
失敗１：MSComm 在控制項中，只要有其中一個已完成通訊協定，則不能再開啟另一個
失敗２：MSComm 在公用表單中，並負責完成通訊協定，開啟與關閉，由控制項的屬性指定其通訊物件及位址
，則表單上所有的 Label 皆會亂跳，即該顯示於 Label1 上的數據，卻顯示於其中之一的 Label 上
這應該類似於瀏覽器控制項，可以使多執行諸同時動作
請教我的觀念是否有錯，有方法可以解決嗎？謝謝！
mciSendString進階應用(對我而言)(編號：3459)
mciSendString的問題~
1.要怎麼偵測出某一MIDI是否己撥放完畢??
2.相當於MCI CONTROL的FROM、TO屬性呢??
3.如果發生錯誤要怎麼偵測??
就是這些了，希望各位高手能為我解答，THANKS!!
註：我使用VB5，mciSendString知道怎麼宣告。
1.要怎麼偵測出某一MIDI是否己撥放完畢??
2.相當於MCI CONTROL的FROM、TO屬性呢??
3.如果發生錯誤要怎麼偵測??
就是這些了，希望各位高手能為我解答，THANKS!!
註：我使用VB5，mciSendString知道怎麼宣告。
SPENCER YANG我上傳了(編號：3456)
原始程式碼 :http://home.pchome.com.tw/soho/vbnow/code.zip
http://home.pchome.com.tw/soho/vbnow/Snp.zip ＜-沒有vb的人 (1483K)
http://home.pchome.com.tw/soho/vbnow/Snp.exe ＜-有vb的人(51k)
http://home.pchome.com.tw/soho/vbnow/Readme.txt ＜-說明書
.....原理 :依密碼製造一檔案對照表...然後就..對照
http://home.pchome.com.tw/soho/vbnow/Snp.zip ＜-沒有vb的人 (1483K)
http://home.pchome.com.tw/soho/vbnow/Snp.exe ＜-有vb的人(51k)
http://home.pchome.com.tw/soho/vbnow/Readme.txt ＜-說明書
.....原理 :依密碼製造一檔案對照表...然後就..對照
關於顯示字串於 picturebox 問題(編號：3455)
請教一下, 我的 picturebox 可以在程式執行中調整大小, 當 pictuerbox 的寬只有 200 時, 正好我顯示的字串超過此寬度, 當我把寬加寬時(程式執行中), 超過原本寬度的字會不見, 要怎麼才能夠讓它保留呢??
Crystal Report內插入一圖片....(編號：3453)
請教各位先進:
問題1
如何在Crystal Report內插入一圖片，
而讓vb指定圖檔的路徑(或Crystal Report指定),而列印出不同的內容?
問題2
報表內可否有像MSFlexGrid一樣有Merge
的功能(不用Group因會差一行)
我用Crystal Report7
Thanks..
問題1
如何在Crystal Report內插入一圖片，
而讓vb指定圖檔的路徑(或Crystal Report指定),而列印出不同的內容?
問題2
報表內可否有像MSFlexGrid一樣有Merge
的功能(不用Group因會差一行)
我用Crystal Report7
Thanks..
一些VB的問題和概念(編號：3449)
請問E是啥意思 (像4.54535644645457E + 16)
請問16進位怎麼表示負數(表示的方法 ?)
例 : EFFF = -4097 , FFFF = -1 ?
請問16進位怎麼表示負數(表示的方法 ?)
例 : EFFF = -4097 , FFFF = -1 ?
一萬筆的資料庫轉成txt檔遇到困難(編號：3446)
請教高手
新手的我在處理一萬筆的資料庫轉成txt檔
利用richtxt來savefile
但卻出現空空的
是否內容太大造成呢....需要援手
或其他方法可以達成....^^"
新手的我在處理一萬筆的資料庫轉成txt檔
利用richtxt來savefile
但卻出現空空的
是否內容太大造成呢....需要援手
或其他方法可以達成....^^"
為何打開dbase 的***.dbf檔案會產生index not found 的問題(編號：3444)
為何打開dbase 的***.dbf檔案會產生index not found 本人 source
code 如下
Dim db1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
db1.CursorLocation = adUseClient
db1.Open "PROVIDER=MSDASQL;dsn=dbf;uid=;pwd=;"
sql = "select * from pabdb02m"
rs1.Open sql, db1, adOpenKeyset, adLockOptimistic
跑到最後一行時會產生index not found
code 如下
Dim db1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
db1.CursorLocation = adUseClient
db1.Open "PROVIDER=MSDASQL;dsn=dbf;uid=;pwd=;"
sql = "select * from pabdb02m"
rs1.Open sql, db1, adOpenKeyset, adLockOptimistic
跑到最後一行時會產生index not found
資料庫合併整理....(編號：3442)
小弟寫了一個可以輸入的資料庫
並放置於兩三台電腦上面..
以求增加輸入速度....當全部輸入完後
請問用哪種方式來把這些資料做整理比較好..容易整理
是用access就可以了嗎!?
還是以VB來做會更方便些
多謝指教
並放置於兩三台電腦上面..
以求增加輸入速度....當全部輸入完後
請問用哪種方式來把這些資料做整理比較好..容易整理
是用access就可以了嗎!?
還是以VB來做會更方便些
多謝指教
FileSystemObject 如何引用 ?(編號：3441)
想要用 FileSystemObject 物件,參考王國榮先生的範例,是引用 Microsoft Scripting Runtime
但找半天也無此元件,後來找 c:\windows\system 下所有檔案中,有 FileSystemObject 字眼
僅有 SCRRUN.DLL 有(也就是Microsoft Scripting Runtime) ,但按確定引用時,確出現"無法
載入 C:\WINDOWS\SYSTEM\SCRRUN.DLL" 的訊息,請問有人用過 FileSystemObj 嗎?
如何引用物件 ?
謝謝 !
但找半天也無此元件,後來找 c:\windows\system 下所有檔案中,有 FileSystemObject 字眼
僅有 SCRRUN.DLL 有(也就是Microsoft Scripting Runtime) ,但按確定引用時,確出現"無法
載入 C:\WINDOWS\SYSTEM\SCRRUN.DLL" 的訊息,請問有人用過 FileSystemObj 嗎?
如何引用物件 ?
謝謝 !
Form(編號：3440)
設定Form1為登錄畫面
當使用者輸入代號及密碼後，程式即將使用者的權限讀取
而進入Form2畫面
但要如何將Form1所讀取的值傳到Form2
(Form1的值有數值、日期、字串、布林代數...等30多個值要傳給Form2)
當使用者輸入代號及密碼後，程式即將使用者的權限讀取
而進入Form2畫面
但要如何將Form1所讀取的值傳到Form2
(Form1的值有數值、日期、字串、布林代數...等30多個值要傳給Form2)
datagrid轉換*.txt(編號：3438)
大家好...
自己使用datagrid選擇出自己所需要的欄位之後,想要把這些欄位的東西,全部寫入*.txt裡...
VB元件中似乎沒有這個元件...
可以做得到嬤.??
自己使用datagrid選擇出自己所需要的欄位之後,想要把這些欄位的東西,全部寫入*.txt裡...
VB元件中似乎沒有這個元件...
可以做得到嬤.??
請問vb5--- DBGrid 的問題(編號：3433)
請問vb5--- DBGrid 要怎麼做才能夠移動到一筆記錄的時候...而讓該筆資料呈現反白的狀態.............請問這方法該怎麼做呢....想了好久也試了好久都用不出來....請會的人教一下吧............謝謝了..............
列印問題(編號：3432)
請問一下這樣的Printer.print rich1(0).text,rich1(1).text,rich1(2).text,rich1(3).text為什麼不能同時把richtextbox的內容印出"四行"呢?我該如何寫才對呢?賜教一下!
請問一下DataReport，可不可以使用vb計算之變數或是連結控制項呢?如何寫呢?
謝謝大家!!!
請問一下DataReport，可不可以使用vb計算之變數或是連結控制項呢?如何寫呢?
謝謝大家!!!
如何取得MDI子表單所有的Caption??(編號：3431)
小弟想在父表單載入時,在功能表列出所有的子表單caption,不論表單是否己載入,但是用forms(i).caption 只能列出己載入之表單caption,請問各路高手,該如何解決這個問題,謝謝!!
e-mail程式夾帶附件...(編號：3430)
如何在不用mapi方式下, 寫出email程式並有attach file的功能?
我試過些sample code, 夾帶txt都沒問題, bin就會有問題, 請高手解答, 謝謝!
sample code :
http://www.freevbcode.com/ShowCode.Asp?ID=109
我試過些sample code, 夾帶txt都沒問題, bin就會有問題, 請高手解答, 謝謝!
sample code :
http://www.freevbcode.com/ShowCode.Asp?ID=109
請教 高手 有關 DataGrid 問題!!(編號：3428)
請教各位高手 ，
小弟有個困擾就是 如何在 DataGrid 控制項中
在第一欄資料打完 按 [ENTER]鍵後跳下一欄繼續輸入資料!!
謝謝 !!
小弟有個困擾就是 如何在 DataGrid 控制項中
在第一欄資料打完 按 [ENTER]鍵後跳下一欄繼續輸入資料!!
謝謝 !!
drive ? help....help....help(編號：3427)
欲刪除一個access之檔案，再重新create一次
但無法刪除原mdb?
請問題否為所引用項目之drive有問題?如果是請問是那一個?
但無法刪除原mdb?
請問題否為所引用項目之drive有問題?如果是請問是那一個?
FileCopy後檢查檔案是否存在之反向。(編號：3426)
用dir可檢查是否Copy成功，反過來不知是否有方法知道是哪一個檔案被Copy了？被Copy之檔案是否有任何Return Value可讀取?。
如何改變data Report內的field內容(編號：3416)
1.當有一個field內記錄"1"與"0",
但是要在data report印出時當"1"要印出"男","0"要印出"女"
此時要如何做呢?
thanks..
但是要在data report印出時當"1"要印出"男","0"要印出"女"
此時要如何做呢?
thanks..
PictureBox的問題(編號：3412)
5月23日那天提出了一個PictureBox的問題,謝謝紀先生的解答,但可能是我的題意不清,我的意思是,寫了一個程式,求得1-100(或200,....)中的質數,共有N個,設定Picture1.print i,把結果秀在PictureBox上,因為我求得的結果是一變數,而且每次只得到一個數,所以可能無法以您的方法做,最後顯示出來就是一直行,很不好看,有沒有辦法做到每5個數字顯示在同一列,然後自動換到下一列?謝謝!
討厭的笨笨的 DATAGrid(編號：3411)
今天不得已要用 .txt 檔當我 datagrid 的資料來源
可是這份資料原本就沒有 FIELD NAME ，我要如何避免
第一筆資料被當作 FIELDNAME 而跑到 HEADLIND 去，
使得資料區無法編輯到第一筆資料？
各位大內高手請快救救我吧！
--------------------------------------------------------------------------------
可是這份資料原本就沒有 FIELD NAME ，我要如何避免
第一筆資料被當作 FIELDNAME 而跑到 HEADLIND 去，
使得資料區無法編輯到第一筆資料？
各位大內高手請快救救我吧！
--------------------------------------------------------------------------------
找出IE目前所瀏覽網頁的URL(深究)(編號：3408)
我曾經用GetForegroundWindow,及FindDesktopWindows,GetWindow,
GetWindowText等API,取得目前獲得佇點Window的Title,再用FindFirstUrlCacheEntry等API取得目前電腦Cache內的File URL,再檢查檔案內的Title,但是缺點是遇到相同Title或沒有Title的網頁便會有問題,且也無法獲得很精準的URL(如連結到子頁或Frame業內),不知要如何才能正確的獲得History中的'Title'與'URL',
FindFirstUrlCacheEntry是可以找出History但無法Get'Title'????
或者有其他的方法,可以找到IE目前所瀏覽網頁的URL,如shdocvw.dll,等等...
望高人指點,在此先行答謝....
GetWindowText等API,取得目前獲得佇點Window的Title,再用FindFirstUrlCacheEntry等API取得目前電腦Cache內的File URL,再檢查檔案內的Title,但是缺點是遇到相同Title或沒有Title的網頁便會有問題,且也無法獲得很精準的URL(如連結到子頁或Frame業內),不知要如何才能正確的獲得History中的'Title'與'URL',
FindFirstUrlCacheEntry是可以找出History但無法Get'Title'????
或者有其他的方法,可以找到IE目前所瀏覽網頁的URL,如shdocvw.dll,等等...
望高人指點,在此先行答謝....
找出IE目前所瀏覽網頁的URL(深究)(編號：3407)
我曾經用GetForegroundWindow,及FindDesktopWindows,GetWindow,
GetWindowText等API,取得目前獲得佇點Window的Title,再用FindFirstUrlCacheEntry等API取得目前電腦Cache內的File URL,在檢查檔案內的Title,但是缺點是遇到相同
GetWindowText等API,取得目前獲得佇點Window的Title,再用FindFirstUrlCacheEntry等API取得目前電腦Cache內的File URL,在檢查檔案內的Title,但是缺點是遇到相同
怎樣可以設定表單的 "最少高和闊"呢(編號：3405)
怎樣可以設定表單的 "最少高和闊"呢
我很早就在 Form_Resize 事件程序做了表單大小的程式碼, 但是效果不滿意, 我知道是有需要有API的, 但我不太熟練, 有沒有例子呢???
幫幫我好嗎?
我很早就在 Form_Resize 事件程序做了表單大小的程式碼, 但是效果不滿意, 我知道是有需要有API的, 但我不太熟練, 有沒有例子呢???
幫幫我好嗎?
VB掛一半(編號：3404)
VB在引用控制項時,ERROR ClassID找不到0002E005-0000-0000-C000-000000000046無法起始,重裝VB還是一樣,安裝過程RASMAN.dll動態連結程式庫無法起始,mscal.ocx error,有辦法救嗎?我準備重新安裝 NT 了,只是不清楚為什麼會這樣.
如何在VB6.0中使用Gsview??(編號：3403)
version:VB6.0 Service pack3;
我要寫一個用Gsview來開啟.ps and .pdf的程式,請問各路高手,各位英雄好漢有誰知道如何寫,或是如何加入該Gsview物件,亦或是可告訴我該上那兒去找相關資料??謝謝!!感激不盡!!.....
我要寫一個用Gsview來開啟.ps and .pdf的程式,請問各路高手,各位英雄好漢有誰知道如何寫,或是如何加入該Gsview物件,亦或是可告訴我該上那兒去找相關資料??謝謝!!感激不盡!!.....
mciSendCommand用法...(編號：3402)
請問一下各位網友, 好像大部分人都喜好使用mciSendString這一個API,那請問一下mciSendCommand這個API該如何使用呢??
又這兩個API除了下指令的方式不同之外, 是否有何不同之處呢? 如功能上是否有差異?
又這兩個API除了下指令的方式不同之外, 是否有何不同之處呢? 如功能上是否有差異?
無法從MsFlxGrd.ocx 載入控製項'Msflexdrid' ?(編號：3401)
請問:
為何我在開啟vb6時會出現
無法從MsFlxGrd.ocx 載入控製項'Msflexdrid'
MsFlxGrd.ocx 的版本可能過舊....
但是我想從 /common/tools/vb/cabnets/msflxgrd.zip
複製到 c:\windows\system 解開覆蓋掉原ocx卻不允許
(亦不能將它刪除或更名),請問諸位先進該如何解決呢??
Thanks!!
為何我在開啟vb6時會出現
無法從MsFlxGrd.ocx 載入控製項'Msflexdrid'
MsFlxGrd.ocx 的版本可能過舊....
但是我想從 /common/tools/vb/cabnets/msflxgrd.zip
複製到 c:\windows\system 解開覆蓋掉原ocx卻不允許
(亦不能將它刪除或更名),請問諸位先進該如何解決呢??
Thanks!!
help ...how to use(編號：3399)
I WANT KNOW ONE COMMUND CAN YOU HELP Me
I NEET GET DATE AT SOME ADDRESS
FOR EG. IN QBASIC:
PRINT PEEK(&H3F) REM CAN PRINT OUT DATA AT ADDRESS &h3F
POKE &H1FFF,255 REM CAN PUT 255 AT ADDRESS 1FFFF
A%=INP(68) CAN READ ONE DATA AT ADDRESS 68
OUT &H68.128 CAN OUTPUT 128 FROM PROT &H68
I WANT KNOW HOW TO TYPE AT VB
PEEK POKE INP OUT
MY NAME IS PATTON LUI
MY E-MAIL : tokey@netvigator.com
thank you
I NEET GET DATE AT SOME ADDRESS
FOR EG. IN QBASIC:
PRINT PEEK(&H3F) REM CAN PRINT OUT DATA AT ADDRESS &h3F
POKE &H1FFF,255 REM CAN PUT 255 AT ADDRESS 1FFFF
A%=INP(68) CAN READ ONE DATA AT ADDRESS 68
OUT &H68.128 CAN OUTPUT 128 FROM PROT &H68
I WANT KNOW HOW TO TYPE AT VB
PEEK POKE INP OUT
MY NAME IS PATTON LUI
MY E-MAIL : tokey@netvigator.com
thank you
關於Form 的問題!(編號：3398)
請問一下!!
我有一個程式，我想要讓他一執行時就佔住螢幕左邊(or 右邊)，若有蓋到其他AP的Form 時就將他往內推使其不被遮蓋，就像 ICQ 一樣!!
我的環境是 win 98 使用vb 5.0
我有一個程式，我想要讓他一執行時就佔住螢幕左邊(or 右邊)，若有蓋到其他AP的Form 時就將他往內推使其不被遮蓋，就像 ICQ 一樣!!
我的環境是 win 98 使用vb 5.0
請問高手們，幫我解決問題(編號：3397)
一、我是個程式皆沒摸過的人，現想學VB程式設計，若自己自修
(會不會困難，還是要去補習班上課)，自己自修半年時間夠嗎？
然後下面題目自修半年時間會寫嗎？
二、請幫我解決這題題目，謝謝各位！(這題是屬初階或高階題目)
題目大約是這樣子，不是很記得。
◎題目：八十八年所得稅
所得總額 Z,ZZZ,ZZ9 元
繳稅稅率 XX %
稅 金 Z,ZZZ,ZZ9 元
------------------------------------------
折 扣 額 Z,ZZZ,ZZ9 元
應繳稅額 Z,ZZZ,ZZ9 元
條件：總收入 0~39000，稅率0%，折扣額0
39001~55000，稅率6%，折扣額10000
55001~80000，稅率8%，折扣額20000
80001~100000，稅率12%，折扣額35000
100001~200000，稅率16%，折扣額46000
輸入一所得總額後，算出上表。
------------------------------------------------------------
測驗題：(以填充方式考出)
1.Sub____________
2.__________=InputBox (“輸入年收入：”)
3.Select case___________
4._____________
5. _____________
6. _____________
7. _____________
8. _____________
9. _____________
10. _____________
11. _____________
12. _____________
13. _____________
14. _____________
END Select
15.__________ = 18
16.PRINT____________
17. __________ = 12
18.PRINT____________
19.PRINT____________
20.PRINT____________
END Sub
(會不會困難，還是要去補習班上課)，自己自修半年時間夠嗎？
然後下面題目自修半年時間會寫嗎？
二、請幫我解決這題題目，謝謝各位！(這題是屬初階或高階題目)
題目大約是這樣子，不是很記得。
◎題目：八十八年所得稅
所得總額 Z,ZZZ,ZZ9 元
繳稅稅率 XX %
稅 金 Z,ZZZ,ZZ9 元
------------------------------------------
折 扣 額 Z,ZZZ,ZZ9 元
應繳稅額 Z,ZZZ,ZZ9 元
條件：總收入 0~39000，稅率0%，折扣額0
39001~55000，稅率6%，折扣額10000
55001~80000，稅率8%，折扣額20000
80001~100000，稅率12%，折扣額35000
100001~200000，稅率16%，折扣額46000
輸入一所得總額後，算出上表。
------------------------------------------------------------
測驗題：(以填充方式考出)
1.Sub____________
2.__________=InputBox (“輸入年收入：”)
3.Select case___________
4._____________
5. _____________
6. _____________
7. _____________
8. _____________
9. _____________
10. _____________
11. _____________
12. _____________
13. _____________
14. _____________
END Select
15.__________ = 18
16.PRINT____________
17. __________ = 12
18.PRINT____________
19.PRINT____________
20.PRINT____________
END Sub
容納另外一隻程式？(編號：3396)
各位好:
假設程式中的每個menu都代表各個不同的程式時，例如: mnuWorker_click() 按下此menu時，就要執行另一隻程式，請問我要如何傳遞一些資訊給另外一隻也是VB寫的程式呢？
謝謝您！
假設程式中的每個menu都代表各個不同的程式時，例如: mnuWorker_click() 按下此menu時，就要執行另一隻程式，請問我要如何傳遞一些資訊給另外一隻也是VB寫的程式呢？
謝謝您！
用vb啟動outlook(發信軟體)要如何做收件者才能直接看到指定的網(編號：3395)
目前收件者只能看到我傳過去的Hyper LinkExp:Http://a2134:1234@aaa.bbb.com 要點一下才連得到,而且Hyper Link有密碼,要如何才能直接秀出網頁呢??這樣密碼才比較安全.阿哩阿豆!!
如何取得指定字串後方的字串內容?(編號：3394)
請問;
如果以整個字串為"fuips$: 125%"為例
以InStr()比較出"不會變動長度及內容"的指定字串 "fuips$:"之後
如何取得後面"會變動長度及內容"的字串 " 125%" 呢?
謝謝!!
如果以整個字串為"fuips$: 125%"為例
以InStr()比較出"不會變動長度及內容"的指定字串 "fuips$:"之後
如何取得後面"會變動長度及內容"的字串 " 125%" 呢?
謝謝!!
我有一個不是程式設計裡的問題......(編號：3392)
我照著我自己的構想寫了一個程式出來
但是我卻不敢將我的程式跟大家分享
不是怕自己寫得太爛(其實也是啦)而是怕我的構想被他人抄襲
更嚴重的是，我還希望我可以申請專利說...
我在這個討論區看來看去，各位大哥們的功力幾乎都在我之上
不知道各位大哥們對自己寫的程式會不會很保密啊?
我的想法會不會太自私了呢?各位會不會想為自己的程式申請專利呢?
但是我卻不敢將我的程式跟大家分享
不是怕自己寫得太爛(其實也是啦)而是怕我的構想被他人抄襲
更嚴重的是，我還希望我可以申請專利說...
我在這個討論區看來看去，各位大哥們的功力幾乎都在我之上
不知道各位大哥們對自己寫的程式會不會很保密啊?
我的想法會不會太自私了呢?各位會不會想為自己的程式申請專利呢?
MultiMediaControl的控制方法(編號：3391)
請問各位大哥
我在播放程式FORM_LOAD時執行了MutilMediaControl.command = "open"
之後光碟機就一直呈現讀取狀態
直到我束程式才會停止
那如果換成MCI指令的話會不會有這種問題呢?
為什麼WINDOWS的CD播放程式不會有此問題?難道它不是用MutilMediaControl寫的嗎?
我在播放程式FORM_LOAD時執行了MutilMediaControl.command = "open"
之後光碟機就一直呈現讀取狀態
直到我束程式才會停止
那如果換成MCI指令的話會不會有這種問題呢?
為什麼WINDOWS的CD播放程式不會有此問題?難道它不是用MutilMediaControl寫的嗎?
移動圖片會閃爍,該怎麼辦?(編號：3390)
我寫了一個程式,以一點為中心,畫一個圓,使用Image 載入圖片,
每秒移動圖片一次,讓圖片繞著中心點轉,像地球繞著太陽轉一樣,
如果縮短Timer的時間,則圖片會閃爍,我在迴圈中加入了DoEvents,
可是沒有多大的效用,請問有其它辦法改善嗎?
Const m = 360 屬性視窗:Form1.WindowsState=2最大化
Dim i As Integer Image1.Stretch=Ture
Dim x(m) As Integer
Dim y(m) As Integer
Private Sub Form_Load()
For i = 0 To m - 1
x(i) = 6000 + 4000 * Cos(360 / m * i * 3.14 / 180)
y(i) = 4200 + 4000 * Sin(360 / m * i * 3.14 / 180)
Next i
i = 0
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
Image1.Top = y(i)
Image1.Left = x(i)
DoEvents
If i = m - 1 Then
i = 0
Else
i = i + 1
End If
End Sub
我在網路看過一些程式,是用Direct寫的,寫的好多,全看不懂,
我的書上都沒介紹這個,該參考那一本書呀,這個可以改善我上面那個問題嗎?謝謝!!!(Win98,VB5.0企業版,DirectX7.0a)
每秒移動圖片一次,讓圖片繞著中心點轉,像地球繞著太陽轉一樣,
如果縮短Timer的時間,則圖片會閃爍,我在迴圈中加入了DoEvents,
可是沒有多大的效用,請問有其它辦法改善嗎?
Const m = 360 屬性視窗:Form1.WindowsState=2最大化
Dim i As Integer Image1.Stretch=Ture
Dim x(m) As Integer
Dim y(m) As Integer
Private Sub Form_Load()
For i = 0 To m - 1
x(i) = 6000 + 4000 * Cos(360 / m * i * 3.14 / 180)
y(i) = 4200 + 4000 * Sin(360 / m * i * 3.14 / 180)
Next i
i = 0
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
Image1.Top = y(i)
Image1.Left = x(i)
DoEvents
If i = m - 1 Then
i = 0
Else
i = i + 1
End If
End Sub
我在網路看過一些程式,是用Direct寫的,寫的好多,全看不懂,
我的書上都沒介紹這個,該參考那一本書呀,這個可以改善我上面那個問題嗎?謝謝!!!(Win98,VB5.0企業版,DirectX7.0a)
請教有關Crystal Report插入圖片與Merge的功能的問題(編號：3389)
請教各位先進:
問題1
如何在Crystal Report內插入一圖片，
而讓vb指定圖檔的路徑,而列印出不同的內容?
問題2
報表內可否有像MSFlexGrid一樣有Merge
的功能(不用Group因會差一行)
Thanks..
問題1
如何在Crystal Report內插入一圖片，
而讓vb指定圖檔的路徑,而列印出不同的內容?
問題2
報表內可否有像MSFlexGrid一樣有Merge
的功能(不用Group因會差一行)
Thanks..
Adodc與DataGrid(編號：3387)
當DataGrid的DataSource為Adodc時
如果AddNew時未輸入資料然後再cancelUpdate
會出現不能插入一空列的錯誤
要如何解決,謝謝
如果AddNew時未輸入資料然後再cancelUpdate
會出現不能插入一空列的錯誤
要如何解決,謝謝
address of(編號：3385)
address of 可傳回sub或function的位址，但如果在ActiveX dll中使用，可得到實際位置嗎？
我目前測試結果，ActiveX exe可以，但是dll目前並不行？
我目前測試結果，ActiveX exe可以，但是dll目前並不行？
能否建立捲動的表單?(編號：3378)
有部份控制項設在表單之範圍外, 故希望制作有scroll bar 的 表單, 就如IE, Netscape等, 當內容太多時,
會有Scroll bar... 請高手們指點!
會有Scroll bar... 請高手們指點!
ADO data control DataGrid(編號：3376)
我現在要在程式執行時由使用者輸入SQL,
然後, 我要把重新Query的結果放在DataGrid上。
我用Adodc和DataGrid要怎麼做呢? 謝謝。
然後, 我要把重新Query的結果放在DataGrid上。
我用Adodc和DataGrid要怎麼做呢? 謝謝。
通用型對話方塊無法使用(編號：3375)
為什麼我已在"設定使用元件"的控制項"中, 點選了Microsoft Common Dialog Control 6.0 的元件, 且有出現該元件, 可是我郤無法使用, 會出現"找不到此元件的使用權資訊, 你無法在設計環境中使用這項功能", 為什麼會這樣
請教關於ODBC(編號：3373)
請問大家
外部機器上NT(有合法IP)的ODBC如何透過PROXY SERVER
直接讀取內部機器SQL SERVER7(內部假IP)上的資料
SQL SERVER ODBC PORT走1433
PROXY SERVER的PORT怎麼修改?
或WinSock Proxy 怎麼改?
或有其他解決方法?
ps.SQL Server機器上已裝Proxy Client,且可以telnet出去
外部機器上NT(有合法IP)的ODBC如何透過PROXY SERVER
直接讀取內部機器SQL SERVER7(內部假IP)上的資料
SQL SERVER ODBC PORT走1433
PROXY SERVER的PORT怎麼修改?
或WinSock Proxy 怎麼改?
或有其他解決方法?
ps.SQL Server機器上已裝Proxy Client,且可以telnet出去
由Grid中取得亂數資料(編號：3371)
各位好，請問一下，我該如何用Grid來讀取我所取得的亂數資料呢（比如說：我產生了三筆亂數之後，Grid就直接讀取），可以這樣嗎，若行，請告訴我該如何做！！！謝謝各位！！！
ADO的recordcount要如何取得???(編號：3370)
用ADO讀取sql7.0的資料其取出的recordcount是-1(有資料時)
除了要再用select count(*)取出筆數,還有其他較好的方法嗎?
因為我是查詢程式,讀出的資料要放到flexgrid中,所以
要先定義其總筆數rows有多少!!
有先進可解答嗎?
除了要再用select count(*)取出筆數,還有其他較好的方法嗎?
因為我是查詢程式,讀出的資料要放到flexgrid中,所以
要先定義其總筆數rows有多少!!
有先進可解答嗎?
請教各位先進關於DataGrid 和 Adodc的問題(編號：3365)
請教各位先進
我在一個Form1放了DataGrid1和一些Text1連結到Adodc1做連動視窗
而Adodc1有幾萬筆資料
當Form1.Show時
發現需要超過30秒
如何讓DataGrid1不用一次載入全部資料
比如只載入20筆
當我按方向鍵或PageDown移動指標時，在讀取接續下去的資料
我在一個Form1放了DataGrid1和一些Text1連結到Adodc1做連動視窗
而Adodc1有幾萬筆資料
當Form1.Show時
發現需要超過30秒
如何讓DataGrid1不用一次載入全部資料
比如只載入20筆
當我按方向鍵或PageDown移動指標時，在讀取接續下去的資料
ADODB refresh?(編號：3364)
甚樣可以refresh record in ADODB recordset?
若果只想refresh 一個從table 找出來的record,而不是refresh所有records(因為record太多) 例如:
rs.Find ("Code='" & text1.text & "'")
應甚樣寫?
Thank you!
若果只想refresh 一個從table 找出來的record,而不是refresh所有records(因為record太多) 例如:
rs.Find ("Code='" & text1.text & "'")
應甚樣寫?
Thank you!
FileCopy問題一問(編號：3363)
我要將網路磁碟機的資料copy到硬碟c:\上
我用win95上的檔案總管複製及貼上copy檔案都沒有問題，
但是用FileCopy確有執行錯誤 "錯誤碼70 沒有檔案存取權限的問題"
FileCopy "k:\fxp\data\copmd.dbf", "c:\k\copmd.dbf"
我用win95上的檔案總管複製及貼上copy檔案都沒有問題，
但是用FileCopy確有執行錯誤 "錯誤碼70 沒有檔案存取權限的問題"
FileCopy "k:\fxp\data\copmd.dbf", "c:\k\copmd.dbf"
RS232 及 MODEM 控制(編號：3361)
如果不用 MSCOMM 這個物件, 想要控制 RS232 及 MODEM ,來進行撥號 資料傳輸, 應該如何進行?? 這個問題困擾很久了, 也找不出比較好的解決之道, 誠心請教大家, 請有寫過這方面程式先進指導, 謝謝!!
VB6+NTS4+SP3
VB6+NTS4+SP3
請問dbgrid顯示"時間"欄位問題？(編號：3358)
我在程式中使用"hh:mm:ss"格式寫入到MDB中，而用dbgrid顯示資料庫內容時，這個欄位顯示成 PM hh:mm 請問如何在dbgrid中設定"時間"的顯示格式
我使用的版本是VB 5.0
謝謝
我使用的版本是VB 5.0
謝謝
如何動態新增commandbutton的array ?? (急!!!!)(編號：3357)
我 在 使 用 vb6提 供 的 方 法 遇 到 加 入 控 件 數 組 的 問 題 ， 我 發 現 無 法 進 行 如 下 定 義 ：
dim WithEvents mybutton(1 to 10) as commandbutton
定 義 單 個 的 控 件 則 可 以 。 不 用 WithEvents當 然 可 以 ， 但 是 就 無 法 使 用 相 應 的 事 件 了 。
用 了 很 多 方 法 也 不 成 功... 如:
For i=1 To 10
cc = "ctlCommand" & i
Dim WithEvents cc As VB.CommandButton
Next i
如 何 解 決 呢 ？
dim WithEvents mybutton(1 to 10) as commandbutton
定 義 單 個 的 控 件 則 可 以 。 不 用 WithEvents當 然 可 以 ， 但 是 就 無 法 使 用 相 應 的 事 件 了 。
用 了 很 多 方 法 也 不 成 功... 如:
For i=1 To 10
cc = "ctlCommand" & i
Dim WithEvents cc As VB.CommandButton
Next i
如 何 解 決 呢 ？
如何顯示下載網頁的進度和下載程式的進度(編號：3356)
如何顯示下載網頁的進度和下載程式的進度
如何將Windows95/98之[虛擬記憶體]以 按鈕 關閉 及 開啟 .
(就是在 "我的電腦" 的圖示上按右鍵選擇 效能/虛擬記憶體/我自己設定虛擬記憶體 )
原因:
我是要備份 Windows資料夾所以必須知道
謝謝....拜託啦
如何將Windows95/98之[虛擬記憶體]以 按鈕 關閉 及 開啟 .
(就是在 "我的電腦" 的圖示上按右鍵選擇 效能/虛擬記憶體/我自己設定虛擬記憶體 )
原因:
我是要備份 Windows資料夾所以必須知道
謝謝....拜託啦
當程式被移動時, 部份界面出了螢幕, 如何避免?(編號：3354)
當程式被移動至螢幕的邊,
有部份地方看不到了。
有甚麼辦法可以:
當使用者把程式移到一方, 並有部份不能顯示,
如果能令程式全部份自動返回螢幕內?
有部份地方看不到了。
有甚麼辦法可以:
當使用者把程式移到一方, 並有部份不能顯示,
如果能令程式全部份自動返回螢幕內?
如何列舉不同網域的同名群組其包含的電腦名稱？很急..(編號：3353)
各位先進：
1.我在寫複製檔案至網路上所有電腦的程式(98環境)..但是在我尋找電腦時卻只會尋找最後登入的那一個群組名稱上的電腦而已。但是網路芳鄰上兩個網域都看得到，MSDN中的範例也只能列舉出一個網域..請問正確的處理方法？以下是我的開發環境：WIN98+vb6sp3,此軟體完成後，在98系統跑.
2.同上，還是需搬到NT才有可能做到呢？
1.我在寫複製檔案至網路上所有電腦的程式(98環境)..但是在我尋找電腦時卻只會尋找最後登入的那一個群組名稱上的電腦而已。但是網路芳鄰上兩個網域都看得到，MSDN中的範例也只能列舉出一個網域..請問正確的處理方法？以下是我的開發環境：WIN98+vb6sp3,此軟體完成後，在98系統跑.
2.同上，還是需搬到NT才有可能做到呢？
在pictureBox中如何設定文字顯示在同一列?(編號：3352)
我在經過數值運算後,得到若干個數字,我想把這些數字秀在PictureBox上,但結果變成一直行,請問要如何設定成一列可以顯示數個數字,然後可以自動換行呢?謝謝!!
急救!!!!!!!!!!!!!(編號：3349)
如果我要的數超過Currency,和 Decimal 我想要表示一整數
其最少要20Byte來表示
請問要怎麼辦 ?
Ps:問一下 所謂單精,雙精 "E"是什麼意思
是10的10次方嗎?
其最少要20Byte來表示
請問要怎麼辦 ?
Ps:問一下 所謂單精,雙精 "E"是什麼意思
是10的10次方嗎?
ftp vs VB....!!(編號：3348)
各位先進大家好...
小弟不才...
想問問看如果我自己要做利用VB建立一個上傳檔案到ftp的功能要怎麼做呢.???
或者有哪些資源可以參考呢.??
謝謝....
小弟不才...
想問問看如果我自己要做利用VB建立一個上傳檔案到ftp的功能要怎麼做呢.???
或者有哪些資源可以參考呢.??
謝謝....
為什麼大家都喜歡用MCI來播放媒體，而很少看到有關MultiMediaCon(編號：3343)
為什麼大家都喜歡用MCI來播放媒體，而很少看到有關MultiMediaControl的控制方法呢?是MCI比較好嗎?
如何在VB 中呼叫 RAS 之API (RASDIAL) ?(編號：3340)
各位高手大家好:
小弟想在VB中呼叫 RASAPI32.DLL 中之API(RASDIAL),此API最主要可提供Programmer設定網路撥接時,所需之entryname , phonenumber, userid, password.但是當我呼叫此API後,此API會傳回Errorcode,此ErrorCode所代表之errorstring是"架構大小不正確",請問各位高手可否指點迷津? 謝謝!
小弟想在VB中呼叫 RASAPI32.DLL 中之API(RASDIAL),此API最主要可提供Programmer設定網路撥接時,所需之entryname , phonenumber, userid, password.但是當我呼叫此API後,此API會傳回Errorcode,此ErrorCode所代表之errorstring是"架構大小不正確",請問各位高手可否指點迷津? 謝謝!
如何在程式中改變預設的印表機 ?(編號：3338)
請教各位:
我使用 DataReport 輸出報表, 希望在報表產生前改變系統預設的的 printer 到特定的 device , 因為報表產生時DataReport 會以預設印表機的紙張來產生報表,而非我想要的報表紙 Size.這樣會造成輸出的結果失去控制.請教各位在 VB 中要如何設定呢 ?
謝謝 !!
我使用 DataReport 輸出報表, 希望在報表產生前改變系統預設的的 printer 到特定的 device , 因為報表產生時DataReport 會以預設印表機的紙張來產生報表,而非我想要的報表紙 Size.這樣會造成輸出的結果失去控制.請教各位在 VB 中要如何設定呢 ?
謝謝 !!
ADO 2.5 Recordset.Seek 要如何使用?(編號：3337)
MSDN April, 2000 裡面有這個 sample, 結果試了一下不能 run. 又被微軟"而女"了... 有哪位大哥會用的請指導一下.
-----------------------------------------------------------
Public Sub Main()
SeekX
End Sub
Public Sub SeekX()
Dim rst As ADODB.Recordset
Dim strID As String
Dim strPrompt As String
strPrompt = "Enter an EmployeeID (e.g., 1 to 9)"
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseServer
rst.Open "employees", _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\temp\northwind.mdb;" & _
"user id=admin;password=;", _
adOpenKeyset, adLockReadOnly, adCmdTableDirect
' Does this provider support Seek and Index?
If rst.Supports(adIndex) And rst.Supports(adSeek) Then
rst.Index = "EmployeeId"
' Display all the employees.
rst.MoveFirst
Do While rst.EOF = False
Debug.Print rst!EmployeeID; ": "; rst!firstname; " "; _
rst!LastName
rst.MoveNext
Loop
' Prompt the user for an EmployeeID between 1 and 9.
rst.MoveFirst
Do
strID = LCase(Trim(InputBox(strPrompt, "Seek Example")))
' Quit if strID is a zero-length string (CANCEL, null, etc.)
If Len(strID) = 0 Then Exit Do
If Len(strID) = 1 And strID ＞= "1" And strID ＜= "9" Then
rst.Seek Array(strID), adSeekAfterEQ
If rst.EOF Then
Debug.Print "Employee not found."
Else
Debug.Print strID; ": Employee='"; rst!firstname; " "; _
rst!LastName; "'"
End If
End If
Loop
End If
rst.Close
End Sub
-----------------------------------------------------------
Public Sub Main()
SeekX
End Sub
Public Sub SeekX()
Dim rst As ADODB.Recordset
Dim strID As String
Dim strPrompt As String
strPrompt = "Enter an EmployeeID (e.g., 1 to 9)"
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseServer
rst.Open "employees", _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\temp\northwind.mdb;" & _
"user id=admin;password=;", _
adOpenKeyset, adLockReadOnly, adCmdTableDirect
' Does this provider support Seek and Index?
If rst.Supports(adIndex) And rst.Supports(adSeek) Then
rst.Index = "EmployeeId"
' Display all the employees.
rst.MoveFirst
Do While rst.EOF = False
Debug.Print rst!EmployeeID; ": "; rst!firstname; " "; _
rst!LastName
rst.MoveNext
Loop
' Prompt the user for an EmployeeID between 1 and 9.
rst.MoveFirst
Do
strID = LCase(Trim(InputBox(strPrompt, "Seek Example")))
' Quit if strID is a zero-length string (CANCEL, null, etc.)
If Len(strID) = 0 Then Exit Do
If Len(strID) = 1 And strID ＞= "1" And strID ＜= "9" Then
rst.Seek Array(strID), adSeekAfterEQ
If rst.EOF Then
Debug.Print "Employee not found."
Else
Debug.Print strID; ": Employee='"; rst!firstname; " "; _
rst!LastName; "'"
End If
End If
Loop
End If
rst.Close
End Sub
UserControl 的ToolTip(編號：3336)
我製作了一個UserControl,內含一個label. 我在form上放了這一個UserControl 並設定其ToolTipText. 當執行時,mouse移到label的位置時,ToolTip無法出現. mouse移到label以外的區域則ToolTip會出現.要如何讓ToolTip在UserControl的每一個區域都能出現?
尋找有箭頭符號的控制項(編號：3335)
請教各位網友:
不知何處可download有箭頭符號的line,此種控制項......???
急需....希望網友不吝提供,謝謝........
若為需附費的控制項也可.....................
不知何處可download有箭頭符號的line,此種控制項......???
急需....希望網友不吝提供,謝謝........
若為需附費的控制項也可.....................
如何在asp 網頁中使用 combox.additem ?(編號：3329)
雖然可用 asp 內建的 select 物件 動態加入新的選項,如
for i = 1 to 5
response.write "＜td＞＜Select name = " &sel(i)& "size=1＞"
response.write "＜option＞"& i& "＜/option＞"
response.write "＜option＞"& i+1 &" ＜/option＞＜/select＞＜/td＞"
next
在已引用 combox 物件的情況下,想利用 combox 的 additem 在網頁中加入新的選項
會出現 Microsoft VBScript 執行階段錯誤 error '800a01a8'
此處需要物件 的錯誤訊息,程式如下
＜OBJECT ID="cmbVendor" WIDTH=96 HEIGHT=24
CLASSID="CLSID:8BD21D30-EC42-11CE-9E0D-00AA006002F3"＞
..... 略 ......
＜/OBJECT＞
＜%
cmbVendor.ADDITEM FIRST
cmbVendor.ADDITEM SECOND
%＞
pls tell me why?
for i = 1 to 5
response.write "＜td＞＜Select name = " &sel(i)& "size=1＞"
response.write "＜option＞"& i& "＜/option＞"
response.write "＜option＞"& i+1 &" ＜/option＞＜/select＞＜/td＞"
next
在已引用 combox 物件的情況下,想利用 combox 的 additem 在網頁中加入新的選項
會出現 Microsoft VBScript 執行階段錯誤 error '800a01a8'
此處需要物件 的錯誤訊息,程式如下
＜OBJECT ID="cmbVendor" WIDTH=96 HEIGHT=24
CLASSID="CLSID:8BD21D30-EC42-11CE-9E0D-00AA006002F3"＞
..... 略 ......
＜/OBJECT＞
＜%
cmbVendor.ADDITEM FIRST
cmbVendor.ADDITEM SECOND
%＞
pls tell me why?
data report的問題(編號：3328)
當我將報表的預覽出來後,並列印~可是又在列印新的資料時卻還是上一筆的資料!不知道如何清除上一筆資料~謝謝!(access的資料庫,用data environment連結)
當 ADO 不敷使用時...(編號：3326)
常常在本版會看到問一些 ADO 不支援的問題, 建議不妨先看看 ADOX 物件! ADOX 對資料庫有較完整的支援, 算是 ADO 的擴展版!
如何取的 ADOX ? 我也不知道 Microsoft 在第幾版把 ADOX 放入, 不過我知道 MDAC 2.5 包含最新的 ADO 及 ADOX ! 若需要最新的 ADO 請至微軟下載中心抓 MDAC_typ.exe 約 7 ~ 8 MB! 裝完後你的電腦幾乎所有的 dBase Driver 都被更新成最新版!
關於 ADOX 的詳情請參考:
MSDN
-Platform SDK
--Data Access Serives
---Microsoft ActiveX Data Objects (ADO)
----Microsoft ADOX Programmer's Referance
裡頭範例滿多的!
如何取的 ADOX ? 我也不知道 Microsoft 在第幾版把 ADOX 放入, 不過我知道 MDAC 2.5 包含最新的 ADO 及 ADOX ! 若需要最新的 ADO 請至微軟下載中心抓 MDAC_typ.exe 約 7 ~ 8 MB! 裝完後你的電腦幾乎所有的 dBase Driver 都被更新成最新版!
關於 ADOX 的詳情請參考:
MSDN
-Platform SDK
--Data Access Serives
---Microsoft ActiveX Data Objects (ADO)
----Microsoft ADOX Programmer's Referance
裡頭範例滿多的!
請教DataEnvironment的用法(編號：3324)
DataEnvironment移動指令資料錄為以下寫法
DataEnvironment1.rs父指令.MoveNext
若只想對
DataEnvironment1.rs父指令 之下的子指令做動作
能做得到嗎?應該如何撰寫呢?
DataEnvironment1.rs父指令.MoveNext
若只想對
DataEnvironment1.rs父指令 之下的子指令做動作
能做得到嗎?應該如何撰寫呢?
How to read the information inside DSN?(編號：3323)
Given a DSN, how to read the server, database,uid,pwd,etc. informations?
如果讓Timer 更準確和不受外來影響???????????(編號：3322)
小弟想做一個小鬧鐘, 用timer 寫以下的程式:
timer 的interval 是1000 (即一秒)
Private Sub Timer1_Timer()
Label1.Caption = cc
Label1.Refresh
cc = cc + 1
End Sub
但當小弟看著它運行時, 發現它的時間跟正常慢, 是否應該用更小的 interval ??
如何能計算出每秒所慢了的percentage?
更大的問題是:
當張form被 滑鼠按下不放時, Label1 便停了, timer 也沒有動, 直至mouse 放開才繼續...
想問問有沒有不被干擾的辦法?? 用thread ?? vb 有沒有thread 的?? 請高手們教教我. 謝謝!
timer 的interval 是1000 (即一秒)
Private Sub Timer1_Timer()
Label1.Caption = cc
Label1.Refresh
cc = cc + 1
End Sub
但當小弟看著它運行時, 發現它的時間跟正常慢, 是否應該用更小的 interval ??
如何能計算出每秒所慢了的percentage?
更大的問題是:
當張form被 滑鼠按下不放時, Label1 便停了, timer 也沒有動, 直至mouse 放開才繼續...
想問問有沒有不被干擾的辦法?? 用thread ?? vb 有沒有thread 的?? 請高手們教教我. 謝謝!
如何傳遞參數值給vb程式?(編號：3319)
大家好:
我用vb寫一個簡單程式(show.exe)以Sub Main()開始執行,但有兩個Form,Form A 及 From B ,我希望在程式指令後下 A 或 B 參數後,程式依A or B 來顯示不同的Form.
例:c:\show.exe A
則顯示FormA
c:\show.exe B
則顯示FromB
請高手示教!
Tom
我用vb寫一個簡單程式(show.exe)以Sub Main()開始執行,但有兩個Form,Form A 及 From B ,我希望在程式指令後下 A 或 B 參數後,程式依A or B 來顯示不同的Form.
例:c:\show.exe A
則顯示FormA
c:\show.exe B
則顯示FromB
請高手示教!
Tom
16個FF(編號：3318)
我想要一個變數,可以放最少 16^20次方之間的正整數 ,請問要怎麼設他的型態
P.s:本人寫的程式....做一下小小的宣傳
http://home.pchome.com.tw/soho/vbnow/Snp.zip ＜-沒有vb的人 (1483K)
http://home.pchome.com.tw/soho/vbnow/Snp.exe ＜-有vb的人(51k)
http://home.pchome.com.tw/soho/vbnow/Readme.txt ＜-說明書
P.s:本人寫的程式....做一下小小的宣傳
http://home.pchome.com.tw/soho/vbnow/Snp.zip ＜-沒有vb的人 (1483K)
http://home.pchome.com.tw/soho/vbnow/Snp.exe ＜-有vb的人(51k)
http://home.pchome.com.tw/soho/vbnow/Readme.txt ＜-說明書
一個小問題~~[VB](編號：3317)
Private Sub EditCopy_Click()
Clipboard.SetText Editor.SelText
End Sub
其中Editor是TextBox的Name
然而Clipboard是甚麼呢?
Clipboard.SetText Editor.SelText
End Sub
其中Editor是TextBox的Name
然而Clipboard是甚麼呢?
請問如何以VB寫一個網路通訊監督程式?(編號：3314)
前提:以IE5等之browser在windows98用撥接上線執行流覽
工作需求:以VB5.0撰寫一程式,另開一小視窗用來監督browser收到及傳送之資料內容.
問題:目前已可由winsock的ocx和dll寫程式取代browser工作,但無法做到工作需求之監督browser傳收功能.
請各位先進指教,謝謝.
工作需求:以VB5.0撰寫一程式,另開一小視窗用來監督browser收到及傳送之資料內容.
問題:目前已可由winsock的ocx和dll寫程式取代browser工作,但無法做到工作需求之監督browser傳收功能.
請各位先進指教,謝謝.
要在那裡加才行(編號：3312)
請問此段程式中要加入msgbox要加在那裡呢
While Not (Data2.Recordset("商品編號") = Text2.Text) Or Data2.Recordset.EOF
Data2.Recordset.MoveNext
Wend
While Not (Data2.Recordset("商品編號") = Text2.Text) Or Data2.Recordset.EOF
Data2.Recordset.MoveNext
Wend
如何在程式中將(資料壓縮)下傳至Browser後自行解壓縮??(編號：3310)
因為檔案太大造成Internet 傳輸太慢, 不知是否有人試過 : 1. 將檔案事先作壓縮, 傳入Browser後除了自行解壓縮, 再讀入Browser 中使用. 2. 再請教, 若不使用檔案壓縮的方式, 而是直接傳送壓縮後的資料碼至Browser, 也用程式解壓縮, 完全不經過檔案存取的方式. 是否可以作得到呢? 拜託各位幫幫忙, 拜託 ~ 拜託 ~
有關以 Windows MCI API控制光碟機...(編號：3309)
請問各位網友, 小弟在撰寫VB時以mciSendString控制光碟機的動作.
由於需要考慮系統上可能會有兩台光碟機的可能性, 因此需要能夠控制第二台的光碟機? 請問我該如何撰寫程式呢?
由於需要考慮系統上可能會有兩台光碟機的可能性, 因此需要能夠控制第二台的光碟機? 請問我該如何撰寫程式呢?
為什麼連續在 Form 上 Click 時, 得到的回應都會少一次?(編號：3306)
如題, 好像只有 CommandButton_Click() 反應比較"正常", PictureBox 也是一樣慢慢的...
於是就不信邪, 拿一個 Form 來 subclassing, 結果也是一樣; 還是覺得很奇怪, 又用 C++ 做了一個 Form, 結果一樣...
有沒有哪位高手知道原因呢?
於是就不信邪, 拿一個 Form 來 subclassing, 結果也是一樣; 還是覺得很奇怪, 又用 C++ 做了一個 Form, 結果一樣...
有沒有哪位高手知道原因呢?
使用ODBC連遠端資料庫, 如何得知連線是否已中斷?(編號：3305)
請教各位高手
使用ODBC連遠端資料庫(like Oracle), 如何得知連線是否已中斷?
有時候因為網路的問題, 連線會斷掉,
要如何得知目前連線的狀態呢?
使用ODBC連遠端資料庫(like Oracle), 如何得知連線是否已中斷?
有時候因為網路的問題, 連線會斷掉,
要如何得知目前連線的狀態呢?
請問各位高手，以下SQL敘述？(編號：3302)
Table AAA:
No Name
1 A
2 B
.
.
.
Table BBB
No_1 No2 Description
1 2 1 & 2
2 3 3 & 3
我想select 成：
No_1, Name, No_2, Name, Description
若單純 select 其中一 No. 可以
Select No1, Name, Description
from AAA inner join BBB on AAA.No1 = BBB.No
請問如何將兩個NO，放進去，分別對應個別NAME？
這問題一時想不通，請各位高手幫忙，謝謝。
No Name
1 A
2 B
.
.
.
Table BBB
No_1 No2 Description
1 2 1 & 2
2 3 3 & 3
我想select 成：
No_1, Name, No_2, Name, Description
若單純 select 其中一 No. 可以
Select No1, Name, Description
from AAA inner join BBB on AAA.No1 = BBB.No
請問如何將兩個NO，放進去，分別對應個別NAME？
這問題一時想不通，請各位高手幫忙，謝謝。
如何控制他台電腦在自己的電腦上執行某個程式(編號：3301)
各位大大...
小弟想寫個程式，管理區域網路內的電腦，讓其他台電腦可以執行某個程式....也就是說要在3號電腦上命令1號電腦執行某個程式(由一號電腦本身來執行).....
但卻不知如何著手......
希望大家能幫幫我.....
謝謝!!
小弟想寫個程式，管理區域網路內的電腦，讓其他台電腦可以執行某個程式....也就是說要在3號電腦上命令1號電腦執行某個程式(由一號電腦本身來執行).....
但卻不知如何著手......
希望大家能幫幫我.....
謝謝!!
磁碟已滿的錯誤訊息怎麼不見?(編號：3300)
我將硬碟中的*.mdb的檔案(共9個)copy到磁碟片中,結果檔案太大,磁碟片上只copy了一個,但為什麼vb連錯誤訊息都沒有給我呢?我使用的是copyfile的指令.
請問如何保護由vb所寫好的程式(編號：3299)
我用vb寫了一個程式
但我害怕它會讓別人使用
類似pctools的工具修改其程式內容.
當我把這個程式編譯成可執行.exe檔後
我該如何保護它不讓其它有心人士修改呢?
請解答我的問題,謝謝,謝謝!!
但我害怕它會讓別人使用
類似pctools的工具修改其程式內容.
當我把這個程式編譯成可執行.exe檔後
我該如何保護它不讓其它有心人士修改呢?
請解答我的問題,謝謝,謝謝!!
使用FileCopy在不同電腦之間複製檔案(編號：3296)
請問filecopy這個指令可以用在網路對拷上嗎？
也就是透過網路將檔案從A電腦copy到B電腦。
我曾經試過感覺怪怪的，有些電腦能夠copy，
有些電腦就是不行。
如果不行的話有其他的指令或是API能夠用嗎？
也就是透過網路將檔案從A電腦copy到B電腦。
我曾經試過感覺怪怪的，有些電腦能夠copy，
有些電腦就是不行。
如果不行的話有其他的指令或是API能夠用嗎？
請問一個關於改檔案的問題..(編號：3294)
請問如果更改一個Binary格式的檔案內容呢??
就像用 UltraEDIT 開啟EXE檔看到的16進位..
例如要將 : Sample.exe 內的 5D.6F,3A,40,18改成3A,4B,5C,6F,7B
最好能用搜尋的方式...
拜託各位VB同好幫幫小弟的忙 ^_^
就像用 UltraEDIT 開啟EXE檔看到的16進位..
例如要將 : Sample.exe 內的 5D.6F,3A,40,18改成3A,4B,5C,6F,7B
最好能用搜尋的方式...
拜託各位VB同好幫幫小弟的忙 ^_^
小弟找了14本書都找不到該如何解決 鍵盤動作(編號：3293)
小弟在此向各位高手求教
如何寫出類是keytext的程式
類是模擬鍵盤
在別的程式中如ie 或是word 中等等的程式
用來模擬鍵盤的輸入 或是滑鼠的動作
比如按ctrl+f 連續按10下...等動作
因為有一大堆 相同的程序
所以想要寫一個程式
謝謝
小弟找了10幾本書 都找不到該如何解決
問了一位碩士朋友
他說這是很低階的動作
他叫我用c 去寫
我的天 還要重頭開始學
如何寫出類是keytext的程式
類是模擬鍵盤
在別的程式中如ie 或是word 中等等的程式
用來模擬鍵盤的輸入 或是滑鼠的動作
比如按ctrl+f 連續按10下...等動作
因為有一大堆 相同的程序
所以想要寫一個程式
謝謝
小弟找了10幾本書 都找不到該如何解決
問了一位碩士朋友
他說這是很低階的動作
他叫我用c 去寫
我的天 還要重頭開始學
請問怎樣令到程式在任何時候都是最上層?不會給其他程式蓋著?(編號：3285)
請問怎樣令到程式在任何時候都是最上層?不會給其他程式蓋著?
或是有沒有其他方法能令程式甚麼時候也能給使用者看到?????
像是那些廣告公司的View bar吧!
或是有沒有其他方法能令程式甚麼時候也能給使用者看到?????
像是那些廣告公司的View bar吧!
惱人的問題 : VB RS232 的應用(編號：3281)
我使用 VB 寫一個程式, 它主要是透過 RS232 download data
到我公司的一台機器上, 然後那機器收到了會回 message 給我.
可是問題來了, 我的 utility 會連同我之前送的 data 都收到,
真的是相當奇怪的問題, 我已確定那台機器是對的,它送出的 message 並沒有包含我的 data, 所以問題出在我的 program .
實例 :
utility send : #232 & vbcr
machine response : #START OK#
and then
utility receive : #232 #START OK#
懇請幫忙 ! 謝謝 !!
到我公司的一台機器上, 然後那機器收到了會回 message 給我.
可是問題來了, 我的 utility 會連同我之前送的 data 都收到,
真的是相當奇怪的問題, 我已確定那台機器是對的,它送出的 message 並沒有包含我的 data, 所以問題出在我的 program .
實例 :
utility send : #232 & vbcr
machine response : #START OK#
and then
utility receive : #232 #START OK#
懇請幫忙 ! 謝謝 !!
資料庫與資料表之配置???(編號：3280)
請問
1.是一資料庫多資料表好呢??還是多資料庫，而每一資料庫皆一資料表好???(在這些資料是同時供許多人使用的情況下)
2.是多人可使用同一資料庫一資料表，但不能同時使用一筆資料，還是多人可以使用同一資料庫，但不能同時使用一資料表????
謝謝
1.是一資料庫多資料表好呢??還是多資料庫，而每一資料庫皆一資料表好???(在這些資料是同時供許多人使用的情況下)
2.是多人可使用同一資料庫一資料表，但不能同時使用一筆資料，還是多人可以使用同一資料庫，但不能同時使用一資料表????
謝謝
dbgrid兩個小問題(編號：3279)
1.當我點選dbgrid的某一Colums的HeAdColum時dbgrid會把某一
Colum 全部 mark起來不知有何方法，取消Colum全部
mark起來的動做
2.dbgrid的Splits分割群組屬性如何使用
我要在程式中做分割群組,分割群組用vb程式去作分組控制
Colum 全部 mark起來不知有何方法，取消Colum全部
mark起來的動做
2.dbgrid的Splits分割群組屬性如何使用
我要在程式中做分割群組,分割群組用vb程式去作分組控制
如何將recordset的資料show到DataGrid(編號：3277)
我把資料庫的資料用SQL的方式選取出來,再作成recordset,現在要把recordset的資料show到DataGrid,該怎麼做?另外可否提供有關DataGrid的網站?Thanks a lot.
請教二個簡單問題?(編號：3276)
1.如何利用copy file 指令與process bar 之間連繫.
即當在copyfile時出現"%".
2.若有多筆的資料放在msflexgrid內,但如何讓畫面中grid顯示找到的資料,我試過找到資料時只會反白,但不會顯示在grid上,即必須用scroll bar移動才會看到.
即當在copyfile時出現"%".
2.若有多筆的資料放在msflexgrid內,但如何讓畫面中grid顯示找到的資料,我試過找到資料時只會反白,但不會顯示在grid上,即必須用scroll bar移動才會看到.
Help Lucy(編號：3273)
Hi there
Could anibody help me out.
1. My program need to know if the user pressed the Ctrl+Alt+Delete.
2. In windows Explorer, when you right-mouse click any file, explorer will pop up a Menu.My question is how to add some item into this Menu. Such like WinZip, when you install Winzip, the Menu will add two item - "Add to Zip" and "Add to *****.Zip" when you right-mouse click any file. How can it do that? I look for solution from registry, I found it do it by a DLL "Wzshlext.dll" and I found it has two function "DllCanUnloadNow" and "DllGetClassObject". But I don't know how to do that. could you tell me?
Could anibody help me out.
1. My program need to know if the user pressed the Ctrl+Alt+Delete.
2. In windows Explorer, when you right-mouse click any file, explorer will pop up a Menu.My question is how to add some item into this Menu. Such like WinZip, when you install Winzip, the Menu will add two item - "Add to Zip" and "Add to *****.Zip" when you right-mouse click any file. How can it do that? I look for solution from registry, I found it do it by a DLL "Wzshlext.dll" and I found it has two function "DllCanUnloadNow" and "DllGetClassObject". But I don't know how to do that. could you tell me?
一元二次方程式(編號：3271)
這是我做習題時遇到的:
1. Ax^2 + Bx + C = 0
2. x = 2A分之 -B 加減根號 B^2 - 4AC
已知ABC三數(任填) 求 x = ?(兩個答案)
可能是因為我數學不好... 完全不知道規則:
我該用一般式求 x 還是用有開根號的那個算式求 x ?
為什麼 x 答案有兩個
為什麼 x 有時會無解
為什麼 x 有時會無線多解
為什麼我以前不認真一點讀書
1. Ax^2 + Bx + C = 0
2. x = 2A分之 -B 加減根號 B^2 - 4AC
已知ABC三數(任填) 求 x = ?(兩個答案)
可能是因為我數學不好... 完全不知道規則:
我該用一般式求 x 還是用有開根號的那個算式求 x ?
為什麼 x 答案有兩個
為什麼 x 有時會無解
為什麼 x 有時會無線多解
為什麼我以前不認真一點讀書
我想要考財團法人技能基金會的VB認證,好不好考呢?(編號：3269)
我有去補習班學VB,我想去考認證,術科我看過以後,我覺得好多又好難,我又無法知道解答,我的觀念又不是很好,有沒有人可以幫我,如果我有不懂的地方,可不可以幫我解答.就是說我e-mail給你請你幫我指點迷津.感激不盡.
猜數字遊戲的相反版(編號：3268)
我是一個專科生，日前因為參加學校的程式比賽，遇到一個難題，
那就是本來猜數字是由人猜電腦產生的亂數，but比賽的題目卻是由電腦猜我們所想的數字，執行程式後，電腦先猜任一數字，由人告知是幾A幾B，我想了好久，覺得很難，因為題目說越少次數猜出越好，是否有那位高手可以告訴我是不是有什麼特別的運算式，或者可以告訴我該如何寫啊!拜託啊!
那就是本來猜數字是由人猜電腦產生的亂數，but比賽的題目卻是由電腦猜我們所想的數字，執行程式後，電腦先猜任一數字，由人告知是幾A幾B，我想了好久，覺得很難，因為題目說越少次數猜出越好，是否有那位高手可以告訴我是不是有什麼特別的運算式，或者可以告訴我該如何寫啊!拜託啊!
ㄚ.....好煩ㄚ(編號：3267)
喔.....媽媽咪ㄚ
新手小弟我在此向各位VB前輩們求救
原因:
1.當我執行並下載時出現,沒有物件,字樣
2.如何使ProgressBar再下載檔案十顯示進度
謝謝
--------------------------------------
form1:
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "請輸入網址(URL),並以 [http:\\] 開頭"
End If
If Len(Text2.Text) = 0 Then
MsgBox "請輸入檔名"
End If
If ((Len(Text1.Text) ＞ 0) And (Len(Text2.Text) ＞ 0)) Then
Ipic1.AsyncRead Text1.Text, vbAsyncTypeFile, Text1.Text
ProgressBar1.Value = AsncProp.Value
End If
End Sub
-------------------------------
UserControl
name: Ipic1
'事件宣告:
Event AsyncReadComplete(AsyncProp As AsyncProperty) 'MappingInfo=UserControl,UserControl,-1,AsyncReadComplete
'MappingInfo=UserControl,UserControl,-1,CancelAsyncRead
Public Sub CancelAsyncRead(Optional Property As Variant)
UserControl.CancelAsyncRead Property
End Sub
Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty)
RaiseEvent AsyncReadComplete(AsyncProp)
End Sub
'MappingInfo=UserControl,UserControl,-1,AsyncRead
Public Sub AsyncRead(Target As String, AsyncType As Long, Optional PropertyName As Variant)
UserControl.AsyncRead Target, AsyncType, PropertyName
End Sub
新手小弟我在此向各位VB前輩們求救
原因:
1.當我執行並下載時出現,沒有物件,字樣
2.如何使ProgressBar再下載檔案十顯示進度
謝謝
--------------------------------------
form1:
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "請輸入網址(URL),並以 [http:\\] 開頭"
End If
If Len(Text2.Text) = 0 Then
MsgBox "請輸入檔名"
End If
If ((Len(Text1.Text) ＞ 0) And (Len(Text2.Text) ＞ 0)) Then
Ipic1.AsyncRead Text1.Text, vbAsyncTypeFile, Text1.Text
ProgressBar1.Value = AsncProp.Value
End If
End Sub
-------------------------------
UserControl
name: Ipic1
'事件宣告:
Event AsyncReadComplete(AsyncProp As AsyncProperty) 'MappingInfo=UserControl,UserControl,-1,AsyncReadComplete
'MappingInfo=UserControl,UserControl,-1,CancelAsyncRead
Public Sub CancelAsyncRead(Optional Property As Variant)
UserControl.CancelAsyncRead Property
End Sub
Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty)
RaiseEvent AsyncReadComplete(AsyncProp)
End Sub
'MappingInfo=UserControl,UserControl,-1,AsyncRead
Public Sub AsyncRead(Target As String, AsyncType As Long, Optional PropertyName As Variant)
UserControl.AsyncRead Target, AsyncType, PropertyName
End Sub
我沒有惡意(編號：3266)
如何將Windows95/98之[虛擬記憶體]以 按鈕 關閉 及 開啟 .
(就是在 "我的電腦" 的圖示上按右鍵選擇 效能/虛擬記憶體/我自己設定虛擬記憶體 )
原因:
我是要備份 Windows資料夾所以必須知道
謝謝....拜託啦
(就是在 "我的電腦" 的圖示上按右鍵選擇 效能/虛擬記憶體/我自己設定虛擬記憶體 )
原因:
我是要備份 Windows資料夾所以必須知道
謝謝....拜託啦
如何寫出類是keytext的程式 類是模擬鍵盤(編號：3263)
小弟在此向各位高手求教
如何寫出類是keytext的程式
類是模擬鍵盤
在別的程式中如ie 或是word 中等等的程式
用來模擬鍵盤的輸入 或是滑鼠的動作
因為有一大堆 相同的程序
所以想要寫一個程式
謝謝
如何寫出類是keytext的程式
類是模擬鍵盤
在別的程式中如ie 或是word 中等等的程式
用來模擬鍵盤的輸入 或是滑鼠的動作
因為有一大堆 相同的程序
所以想要寫一個程式
謝謝
How to use "Join" command in SQL(編號：3261)
How can I use the "Join" command? Inside the select statement or join the two tables first? I wanna to access 2 tables a field in table A and b field in table B. Then how can I write this?
Please give an example to me. Thanks.
Please give an example to me. Thanks.
請問一下!!(編號：3259)
請問一下!!
我有一個程式，我想要讓他一執行時就佔住螢幕左邊(or 右邊)，若有蓋到其他AP的Form 時就將他往內推使其不被遮蓋，就像 ICQ 一樣!!
我的環境是 win 98 使用vb 5.0
我有一個程式，我想要讓他一執行時就佔住螢幕左邊(or 右邊)，若有蓋到其他AP的Form 時就將他往內推使其不被遮蓋，就像 ICQ 一樣!!
我的環境是 win 98 使用vb 5.0
DataGrid~~~問題????(編號：3256)
如何才能不用資料感知而做到用mouse點DataGrid時DataGrid移到那一筆TextBox就出現該筆資料~~~
之前有用過DataGrid1_RowColChange事件可是發現mouse在點選DataGrid的最下面一筆(通常格子都只有一半的那一筆)時,並不會引發此事件,請問有沒有別的方法呢??
我之前是在DataGrid1_RowColChange事件中將rs.field("欄位名稱")丟給TextBox~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~謝謝
之前有用過DataGrid1_RowColChange事件可是發現mouse在點選DataGrid的最下面一筆(通常格子都只有一半的那一筆)時,並不會引發此事件,請問有沒有別的方法呢??
我之前是在DataGrid1_RowColChange事件中將rs.field("欄位名稱")丟給TextBox~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~謝謝
資料庫的問題(編號：3254)
我用2個RecordSet分別(rs1,rs2)開起同一個資料表當rs1新增or修改後馬上執行rs2.requery再去瀏覽rs2的資料,為什麼rs2都資料還是沒有改變呢~~~要等數秒後再執行rs2.requery,rs2的資料才會更新~~~~~~~~請問有辨法可以解決這個問題嗎(使其能即時就更新)~~~~~~~~~~謝謝~~~~~
如何判斷物件是否為Nothing??????(編號：3251)
Dim Try As Application
上列宣告Try為一個Application後，
預設此Try的值為Nothing
我要如何去判斷此Try是否Nothing或是被改變了????
我去找了VB的輔助設明，有個IsObject()的函數中寫道....
「....你可以使用 IsNothing 函數去確定一個物件引用是否被設定為 Nothing。」
但是為何執行程式後，會說沒有IsNothing()這個函數?????
請問一下有人知道IsNothing()這個函數跑那去了？或是有人知道該如何判斷是否為Nothing??????煩請告知一下.....謝謝！
上列宣告Try為一個Application後，
預設此Try的值為Nothing
我要如何去判斷此Try是否Nothing或是被改變了????
我去找了VB的輔助設明，有個IsObject()的函數中寫道....
「....你可以使用 IsNothing 函數去確定一個物件引用是否被設定為 Nothing。」
但是為何執行程式後，會說沒有IsNothing()這個函數?????
請問一下有人知道IsNothing()這個函數跑那去了？或是有人知道該如何判斷是否為Nothing??????煩請告知一下.....謝謝！
類似vfp的巨集執行(編號：3249)
如果我有一個字串變數內容如下
string1="string2=100"
我如何在vb下利用string1建立一個string2的變數且值為100?
PS:在vfp為
&string1.
即可
string1="string2=100"
我如何在vb下利用string1建立一個string2的變數且值為100?
PS:在vfp為
&string1.
即可
請教如何用vb啟動outlook(發信軟體)(編號：3248)
請教
如何用vb啟動outlook(發信軟體)
且將指定的檔案附加上去
可以行的通嗎...目前需要這樣的功能
就像網頁中的mailto 指令
請大家給予技術上的指導...謝謝 ^^*
如何用vb啟動outlook(發信軟體)
且將指定的檔案附加上去
可以行的通嗎...目前需要這樣的功能
就像網頁中的mailto 指令
請大家給予技術上的指導...謝謝 ^^*
Active X 下載後.....(編號：3246)
請問一下
我寫了一個 ocx 後放到網站上
然後從不同的電腦上網
用 95 上網 IE 下載元件後會要求重新開機
用 NT 上網 IE 下載元件後不會要求重新開機
請問是否在封裝時没注意到什麼
因為上了網站還要別人的電腦重開機
簡直是.....
謝謝
我寫了一個 ocx 後放到網站上
然後從不同的電腦上網
用 95 上網 IE 下載元件後會要求重新開機
用 NT 上網 IE 下載元件後不會要求重新開機
請問是否在封裝時没注意到什麼
因為上了網站還要別人的電腦重開機
簡直是.....
謝謝
mt,小吳:請問sub 或是Function的命名！(編號：3245)
Mt,小吳兄:
上回諸位回答小弟是以 xxxxSub來命名以區別是全域或是form級使用的
不知是否可以回答的再詳細一些！麻煩兩位，謝謝！
上回諸位回答小弟是以 xxxxSub來命名以區別是全域或是form級使用的
不知是否可以回答的再詳細一些！麻煩兩位，謝謝！
請問vb5報表設計問題(編號：3244)
請問在vb5中除了使用crystal reports 設外報表外...是否還有其他方法來設計報...而是否可依自己所下的條件來列印報表呢...也就是說.....在一個資料庫裡...做完查詢功能之後...將查詢得到的資料印出來...請問這樣子該怎麼去做呢...謝謝
Query on multi tables by using SQL(編號：3241)
I wanna to access 2 tables in the same database. Just say a field in table A and b field in table B. Then how can I write this?
請問大家三個問題!!(編號：3238)
1. 請問 " WIN98 和 WIN2000 " 裡面的 " 錄音程式 " 是如何「即時的顯示出」由麥克風所輸入的聲音的 " 波形 " ??
2. 請問要如何自定所要錄音的 " 聲音品質、是否為立體聲、...... 等等 " ??
3. 請問要如何知道某一個 " .wav 的檔案 " 它的 " 聲音品質、是否為立體聲、...... 等等 " ??
( 我自己有設計一個 " 錄音程式 "，雖然它的基本功能都正常，但是我已經研究了一個月以上了，到現在我還是不知道要怎麼加入上面的那三個功能，所以要是有人知道的話，那就拜託請您一定要告訴我，拜託!!拜託!! ...... 謝謝!! )
謝謝!!
2. 請問要如何自定所要錄音的 " 聲音品質、是否為立體聲、...... 等等 " ??
3. 請問要如何知道某一個 " .wav 的檔案 " 它的 " 聲音品質、是否為立體聲、...... 等等 " ??
( 我自己有設計一個 " 錄音程式 "，雖然它的基本功能都正常，但是我已經研究了一個月以上了，到現在我還是不知道要怎麼加入上面的那三個功能，所以要是有人知道的話，那就拜託請您一定要告訴我，拜託!!拜託!! ...... 謝謝!! )
謝謝!!
這些問題讓我的頭快炸掉了..._(編號：3237)
請問各位高手：
問題一：要如何讓PictureBox能透空呢???
問題二：要如何讓FrameBox能透空呢???
問題三：在MouseMove的動作下...若要移動ImageBox，該如何讓它不會閃動呢???
請幫一下忙好嗎??
謝謝~~
問題一：要如何讓PictureBox能透空呢???
問題二：要如何讓FrameBox能透空呢???
問題三：在MouseMove的動作下...若要移動ImageBox，該如何讓它不會閃動呢???
請幫一下忙好嗎??
謝謝~~
有關SQL後刪除,新增資料的問題,請幫忙(編號：3228)
我使用VB6(SP3)板本,當我用SQL篩選出同一ID的資料,然後ADDNEW,然後UPDATE再ADDNEW時出現,"無法更新,最後的值已改變" runtime error -2147217842(80040e4e)
對於有同樣內容的資料(全部欄位)一刪除就有"欄位資料不足或不正確,太多列被更新所影響"的錯誤,這有辦法解決嗎?
對於有同樣內容的資料(全部欄位)一刪除就有"欄位資料不足或不正確,太多列被更新所影響"的錯誤,這有辦法解決嗎?
vb設定的疑問(編號：3227)
各位好：
不好意思，有一個問題想請教各位，就是我使用的系統是NT4（SP4），VB6企業版，當我要"設定使用元件"時，系統就會出現"系統錯誤＆H80004002（-2147467262）。未支援此種介面"這個對話盒，我也是過重灌，但也沒辦法解決，各位是否可以幫助我解決這個問題呢！！！！ 謝謝各位！！！！
不好意思，有一個問題想請教各位，就是我使用的系統是NT4（SP4），VB6企業版，當我要"設定使用元件"時，系統就會出現"系統錯誤＆H80004002（-2147467262）。未支援此種介面"這個對話盒，我也是過重灌，但也沒辦法解決，各位是否可以幫助我解決這個問題呢！！！！ 謝謝各位！！！！
璉璉 我想續問問題......(編號：3226)
璉璉:
之前您建議我用 "Instr()"來找字串我試過之後覺得它比較適合找"Record"不適合我想的到尋找的檔案型態,後來我試過 dos command
"find"覺得效果不錯,能不能教我如何以vb的物件來處理下列指令呢?
C:\＞find /option "搜尋字串" FilePath&FileName ＜＜ 下Dos指令
C:\＞---------- FilePath&FileName:XX ＜＜ Response
如何取回"XX"的數字回vb來用??
謝謝!!
Housan
之前您建議我用 "Instr()"來找字串我試過之後覺得它比較適合找"Record"不適合我想的到尋找的檔案型態,後來我試過 dos command
"find"覺得效果不錯,能不能教我如何以vb的物件來處理下列指令呢?
C:\＞find /option "搜尋字串" FilePath&FileName ＜＜ 下Dos指令
C:\＞---------- FilePath&FileName:XX ＜＜ Response
如何取回"XX"的數字回vb來用??
謝謝!!
Housan
Dbgrid簡單問題一問(編號：3220)
當我點選dbgrid的某一Colums的HeAdColum時dbgrid會把某一Colum全部 mark起來
不知有何方法，取消Colum全部 mark起來的動做
環境：
win95+Access 97 +vb5.0+sp3
不知有何方法，取消Colum全部 mark起來的動做
環境：
win95+Access 97 +vb5.0+sp3
為何執行reprot為有 run time error(編號：3218)
寫了一個程式,裏面有幾個report ( crystal report 7.0)
在自己電腦沒什麼錯誤, 因為自己電腦是開發環境
但是包成安裝程式後,在乾淨的電腦安裝,
執行正常
但是要執行報表時,就會出現:
Run time error '713'
Application-defined or object-defined error
之後結束.
請問這是什麼原因??
謝謝
在自己電腦沒什麼錯誤, 因為自己電腦是開發環境
但是包成安裝程式後,在乾淨的電腦安裝,
執行正常
但是要執行報表時,就會出現:
Run time error '713'
Application-defined or object-defined error
之後結束.
請問這是什麼原因??
謝謝
顯示資料庫及資料表名稱(編號：3217)
請問，利用ADO連接一個資料庫，要如何將資料庫內之所有資料表(TABLE)名稱顯示出來呢？
另一個問題是，利用ODBC做資料庫連結，是否有函數或指令可將ODBC內所設定的DSN名稱顯示出來呢？
另一個問題是，利用ODBC做資料庫連結，是否有函數或指令可將ODBC內所設定的DSN名稱顯示出來呢？
關於 Winsock 控制項 的使用 ??(編號：3216)
請問 :
如何使用 Winsock 控制項 ?? 當我將 Winsock 控制項 的Protocol設定為TCP , port number 設定為 37 然後 connect 時 , 如果 Sever 是 Unix 都可以 connect , 但如果是 NT Sever 便無法 connect . 難道 Microsoft 自己的 Winsock 控制項 反而 無法 connect 自己的 作業平台
如何使用 Winsock 控制項 ?? 當我將 Winsock 控制項 的Protocol設定為TCP , port number 設定為 37 然後 connect 時 , 如果 Sever 是 Unix 都可以 connect , 但如果是 NT Sever 便無法 connect . 難道 Microsoft 自己的 Winsock 控制項 反而 無法 connect 自己的 作業平台
請問一個資料庫刪除資料的問題(編號：3213)
請問各位一個資料庫刪除資料的問題...我使用的是vb5...使用access的資料庫...請問在刪除資料這動作時可否做成勾選的方式來刪除資料...也就是說要刪除資料時可以對該筆資料做勾選的動作....然後再將所勾選的資料做一併刪除...請問大家這種功能該如何做呢???
VB元件如何在網頁上安裝(編號：3212)
我有用到Date and Time Picker 在 html 上，卻無法將此元件
讓使用者線上安裝，怎麼辦？
我用 mscomct2.cab 在 CODEBASE下也是沒有用，WHY ?
我用 regsvr32.exe 在user 電腦上註冊此元件，網頁上還是無法載入此元件。
讓使用者線上安裝，怎麼辦？
我用 mscomct2.cab 在 CODEBASE下也是沒有用，WHY ?
我用 regsvr32.exe 在user 電腦上註冊此元件，網頁上還是無法載入此元件。
這要如何做?(編號：3208)
請問;
寫好的VB程式會使用到指定目錄下指定檔案的內容,一旦封裝完成後,安裝到其他的電腦執行時呼叫檔案時會發生error(檔案不存在),要如何在封裝時把這個檔案包進去呢?
還是在程式設計時就有辦法包這個檔案進去呢?
寫好的VB程式會使用到指定目錄下指定檔案的內容,一旦封裝完成後,安裝到其他的電腦執行時呼叫檔案時會發生error(檔案不存在),要如何在封裝時把這個檔案包進去呢?
還是在程式設計時就有辦法包這個檔案進去呢?
search text1.text 中的資料??(編號：3205)
弟欲寫一個搜尋文章的程式.
但是發現 text 只能用 32k 記憶體, 而 richtextbox 則可以裝下
超過 32k 的空間.
只是, 問題來了.
就是, 在搜尋字串時, 小於 10k 的空間時, 不會出現搜尋位移,
但是大於 10k 後, 就會像後偏個幾個位置, 愈到後面喻嚴重.
請問, 可有解決之道 or 替代的工具??
但是發現 text 只能用 32k 記憶體, 而 richtextbox 則可以裝下
超過 32k 的空間.
只是, 問題來了.
就是, 在搜尋字串時, 小於 10k 的空間時, 不會出現搜尋位移,
但是大於 10k 後, 就會像後偏個幾個位置, 愈到後面喻嚴重.
請問, 可有解決之道 or 替代的工具??
dump全部資料到 textbox or richtextbox 中...??(編號：3204)
as title.
如何將 combo or list 工具內的所有資料一次全部丟入
textbox or richtextbox 中??
PS. 因為用 for i=0 to xx 的方式實再是太慢了.
有無更快的方法??
如何將 combo or list 工具內的所有資料一次全部丟入
textbox or richtextbox 中??
PS. 因為用 for i=0 to xx 的方式實再是太慢了.
有無更快的方法??
請問眾高手,如何在Multiselect時,如何正確的RemoveItem??(編號：3200)
請問在VB6.0中,ListBox的Multiselect=simple,在多樣選擇之後,如何用removeitem一次delete所有圈選的項目??謝謝!!
Index Server的問題(編號：3195)
NT Server 4 + Index Server 2.0
Index Server內建有兩個Catalog(Web, Test),如果我要同時查詢這兩個Catalog時要怎麼做?
如果Index Server上有未知數目的Catalog時,又要怎麼做才可以查詢所有的Catalog?
PS:我是利用ADO查詢Index Server.
Index Server內建有兩個Catalog(Web, Test),如果我要同時查詢這兩個Catalog時要怎麼做?
如果Index Server上有未知數目的Catalog時,又要怎麼做才可以查詢所有的Catalog?
PS:我是利用ADO查詢Index Server.
請問一下如何限定使用者一定要輸入足夠的字元才能夠移到別的欄位(編號：3194)
請問一下如何限定使用者一定要輸入足夠的字元才能夠移到別的欄位,例如輸入身份證字號時一定要輸入十碼......如果沒有輸入十碼則跳出錯誤訊息....請問該如何做呢
如何儲存/顯示 Image data into SQL Server via VB.(編號：3193)
整理原則如下所示 :
儲存 :
[1] 將 image file 利用 Open file_name Binary, 將內
容讀取出來
[2] 利用 field.AppendChunk (data)將資料逐一累加到
欄位值內
讀取並顯示 :
[1] 利用 field.GetChunk (data)將資料逐一讀取出來
[2] 開啟一個暫存檔儲存步驟 [1] 讀出來的Binary資料
[3] Issue LoadPicture(暫存檔), 並將 Picture object
assign 給 Picture box/image 物件
以上內容整理自search.support.microsoft.com 之
Article ID : Q1949 文件
儲存 :
[1] 將 image file 利用 Open file_name Binary, 將內
容讀取出來
[2] 利用 field.AppendChunk (data)將資料逐一累加到
欄位值內
讀取並顯示 :
[1] 利用 field.GetChunk (data)將資料逐一讀取出來
[2] 開啟一個暫存檔儲存步驟 [1] 讀出來的Binary資料
[3] Issue LoadPicture(暫存檔), 並將 Picture object
assign 給 Picture box/image 物件
以上內容整理自search.support.microsoft.com 之
Article ID : Q1949 文件
請教 Oracle SQL-NET 是何物 ?(編號：3191)
在討論區中常看到大家談起VB連接Oracle最簡單的選擇就是SQL-NET,
這到底是什麼東東 ?
它在NT與Unix不同的主機之間是否在Client端會有不同的版本 ?
這到底是什麼東東 ?
它在NT與Unix不同的主機之間是否在Client端會有不同的版本 ?
安裝時,物件無法註冊的錯誤(編號：3190)
我的作業環境是win98程式是vb6
我用Kodak影像管理物件...
setup在win98的機器都很正常..
可是遇到win95的機器...則會發生物件無法註冊..
所以..我想用Kodak物件外掛在win95的方法...
請教vb高手,不知要如何做??
Tks!
我用Kodak影像管理物件...
setup在win98的機器都很正常..
可是遇到win95的機器...則會發生物件無法註冊..
所以..我想用Kodak物件外掛在win95的方法...
請教vb高手,不知要如何做??
Tks!
自製 DataControl 如何連結 DataEnvironment 並產生作用?(編號：3189)
請教大家一個自製 DataControl 的問題:
自製 DataControl 可以連結至 DataEnvironment, 而這個 DataControl 同時也可以讓 TextBox 連結...
好像沒事找事做, 讓 TextBox 連結到 DataEnvironment 不就好了? 是有個偷懶的想法: 希望讓 DataEnvironment 幫我產生資料連結的架構!
我做到一半就做不下去了:
因為 DataSource 是由 DataEnvironment 而來, 不是由 RocordSource 產生, 所以 GetDataMember() 不知道要怎麼寫呢...
自製 DataControl 可以連結至 DataEnvironment, 而這個 DataControl 同時也可以讓 TextBox 連結...
好像沒事找事做, 讓 TextBox 連結到 DataEnvironment 不就好了? 是有個偷懶的想法: 希望讓 DataEnvironment 幫我產生資料連結的架構!
我做到一半就做不下去了:
因為 DataSource 是由 DataEnvironment 而來, 不是由 RocordSource 產生, 所以 GetDataMember() 不知道要怎麼寫呢...
DataReport 的問題(編號：3186)
各位先進:
我的電腦中設定了兩台印表機分別為 AAA及BBB
AAA 是預設印表機它安裝 A4 的報表紙.
BBB 的Paper Size 是 Letter.
我在 Form_Load 時將系統的印表機設為 BBB
Dim X As Printer
For Each X In Printers
If X.DeviceName = "BBB" Then
' 設定為系統預設印表機。
Set Printer = X
' 終止尋找印表機。
Exit For
End If
Next
問題是 DataReport 仍會以 AAA 的預設PaperSize 來產生報表內容
請問該如何來改變呢 ?
我的電腦中設定了兩台印表機分別為 AAA及BBB
AAA 是預設印表機它安裝 A4 的報表紙.
BBB 的Paper Size 是 Letter.
我在 Form_Load 時將系統的印表機設為 BBB
Dim X As Printer
For Each X In Printers
If X.DeviceName = "BBB" Then
' 設定為系統預設印表機。
Set Printer = X
' 終止尋找印表機。
Exit For
End If
Next
問題是 DataReport 仍會以 AAA 的預設PaperSize 來產生報表內容
請問該如何來改變呢 ?
如何使資料立刻變更(編號：3185)
請問：
我設計2個Form：Form1、Form2
Form1：有ADODC1和TEXT1、TEXT2和Command1、Command2。Text1表書名的欄位，TEXT2表數量欄位，Command1表存檔，Command2表關閉Form1。而Command1_click內容是Adodc1.MoveNext。Command2_click內容是 Unload form1。
Form2：有ADODC2和DataGrid2和Command3。Command3表示關閉Form2。Command3_click的內容是Unload form2。
我進行下面的步驟：
a：在某一筆記錄中，更改數量欄位，原10改成15(*此筆記錄非最後一筆)，按下Command1後，再觀看該筆記錄，資料已變更，再按下Command2，關閉Form1。
B：關閉Form1後再打開Form2，卻發現在DataGrid2中所顯示該筆記錄數量欄位所顯示是10。再按下Command3，關閉Form2。
C：再進行a步驟(同一筆記錄)，將15更改成20，再按Command1後，再看一次，資料也已更改成20，再關閉Form1。
d：再開Fomr2，此時DataGrid2中該筆記錄的數量欄位顯示是15。
問題：請問或是否有函數、方法，可以解決上述的問題，而達到資料可以立刻變更呢？
謝謝各位的指教。
亦可以利用E_mail寄給我。
E_mail：L7376975@ms23.hinet.net
再次感謝各位。
我設計2個Form：Form1、Form2
Form1：有ADODC1和TEXT1、TEXT2和Command1、Command2。Text1表書名的欄位，TEXT2表數量欄位，Command1表存檔，Command2表關閉Form1。而Command1_click內容是Adodc1.MoveNext。Command2_click內容是 Unload form1。
Form2：有ADODC2和DataGrid2和Command3。Command3表示關閉Form2。Command3_click的內容是Unload form2。
我進行下面的步驟：
a：在某一筆記錄中，更改數量欄位，原10改成15(*此筆記錄非最後一筆)，按下Command1後，再觀看該筆記錄，資料已變更，再按下Command2，關閉Form1。
B：關閉Form1後再打開Form2，卻發現在DataGrid2中所顯示該筆記錄數量欄位所顯示是10。再按下Command3，關閉Form2。
C：再進行a步驟(同一筆記錄)，將15更改成20，再按Command1後，再看一次，資料也已更改成20，再關閉Form1。
d：再開Fomr2，此時DataGrid2中該筆記錄的數量欄位顯示是15。
問題：請問或是否有函數、方法，可以解決上述的問題，而達到資料可以立刻變更呢？
謝謝各位的指教。
亦可以利用E_mail寄給我。
E_mail：L7376975@ms23.hinet.net
再次感謝各位。
列印問題(編號：3183)
請問：
我使用ADODC和DataGrid來顯示資料，現若想將資料印成報表，但不想使用DataEnvironment，來將資料放入DataReport之中後再印出來。意即直接利用ADODC和DataGrid將資料放入DataReport中，再印成報表。
請問是否可以，或是否有函數、方法，可以達成上述的要求呢？
謝謝各位的指教。
亦可以利用E_mail寄給我。
E_mail：L7376975@ms23.hinet.net
再次感謝各位。
我使用ADODC和DataGrid來顯示資料，現若想將資料印成報表，但不想使用DataEnvironment，來將資料放入DataReport之中後再印出來。意即直接利用ADODC和DataGrid將資料放入DataReport中，再印成報表。
請問是否可以，或是否有函數、方法，可以達成上述的要求呢？
謝謝各位的指教。
亦可以利用E_mail寄給我。
E_mail：L7376975@ms23.hinet.net
再次感謝各位。
setting of ADODC(編號：3182)
set Adodc 內的connectionstring, 除了可在porperties window內set,可不可在program 內表達.....???
例如我想連接ODBC 內的projectwork
但Adodc1.ConnectionString = DSN = ProjectWork 有error....
請問錯在那裡..........???
例如我想連接ODBC 內的projectwork
但Adodc1.ConnectionString = DSN = ProjectWork 有error....
請問錯在那裡..........???
關於setting of ADODC(編號：3180)
我本想set adodc1 的connectionstring = ODBC 內的一個datasource, 但想hard code 在program code 內, 而不想在porperties window內set, 我可以怎樣做........
即
Adodc1.ConnectionString = DSN = ProjectWork
請問錯在那裡..........???
即
Adodc1.ConnectionString = DSN = ProjectWork
請問錯在那裡..........???
好難喔........(編號：3173)
各位大哥大姊們........小弟有幾個VB的問題請教
(假如有不可能做到的事那小弟我在此向各位說聲抱歉)
1.如何將登錄檔 HKEY_LOCAL_MACHINE/SOFTWARE/MICROSOFT/WINDOWS/CURRENTVERSION
右邊 PRODUCTKEY 的值顯示在Msgbox上.
2.如何取消及開啟光碟機自動執行的功能.
3.如何將Windows95/98之[虛擬記憶體]以 按鈕 關閉 及 開啟 .
(就是在 "我的電腦" 的圖示上按右鍵選擇 效能/虛擬記憶體/我自己設定虛擬記憶體 )
4.如何以按鈕強制重新啟動 Windows95/98.
5.如何在Windows95/98內下達 DOS-指令
例如: 按下按鈕後即開啟 MS-DOS視窗 並下達指令,結束後自動關閉視窗.
(假如有不可能做到的事那小弟我在此向各位說聲抱歉)
1.如何將登錄檔 HKEY_LOCAL_MACHINE/SOFTWARE/MICROSOFT/WINDOWS/CURRENTVERSION
右邊 PRODUCTKEY 的值顯示在Msgbox上.
2.如何取消及開啟光碟機自動執行的功能.
3.如何將Windows95/98之[虛擬記憶體]以 按鈕 關閉 及 開啟 .
(就是在 "我的電腦" 的圖示上按右鍵選擇 效能/虛擬記憶體/我自己設定虛擬記憶體 )
4.如何以按鈕強制重新啟動 Windows95/98.
5.如何在Windows95/98內下達 DOS-指令
例如: 按下按鈕後即開啟 MS-DOS視窗 並下達指令,結束後自動關閉視窗.
請教各位一個 庫存異動 的方法(編號：3168)
進貨單
========================
水果 數量
---------+-----
蘋果 5
西瓜 6
哈密瓜 10
檸檬 8
=========================
當新增的進貨單輸入完
除了將進入單存檔，也去更改庫存量
將庫存量依進貨單上的數量增加
但是如果後來使用者發覺,當時在輸入時,
誤將柳丁輸入成檸檬
那要如何同時更改進貨單,
也把檸檬庫存量減8個回來,柳丁庫存量加8個上去
如果我把這張單子叫出來改，改完之後存檔，
如果進貨單改的只有數量，那我可以根據水果項目加淢數量回來，
但如果進貨單更改的是水果項目，那要如何處理？
========================
水果 數量
---------+-----
蘋果 5
西瓜 6
哈密瓜 10
檸檬 8
=========================
當新增的進貨單輸入完
除了將進入單存檔，也去更改庫存量
將庫存量依進貨單上的數量增加
但是如果後來使用者發覺,當時在輸入時,
誤將柳丁輸入成檸檬
那要如何同時更改進貨單,
也把檸檬庫存量減8個回來,柳丁庫存量加8個上去
如果我把這張單子叫出來改，改完之後存檔，
如果進貨單改的只有數量，那我可以根據水果項目加淢數量回來，
但如果進貨單更改的是水果項目，那要如何處理？
用shell來執行DOS指令時.....(編號：3167)
前輩們;
我想用shell來執行呼叫dos command＞ 在dos下的grep指令如下
＞grep -c "(%%[ Page:" c:\temp\1.ps ＜---含有""及option
＞245 ＜---run出來的結果
但是要如何套用到shell內來run呢?
還是有比Shell更適合的指令呢?
我想用shell來執行呼叫dos command＞ 在dos下的grep指令如下
＞grep -c "(%%[ Page:" c:\temp\1.ps ＜---含有""及option
＞245 ＜---run出來的結果
但是要如何套用到shell內來run呢?
還是有比Shell更適合的指令呢?
為何一再出現 執行時期錯誤3447？(編號：3164)
諸位好:
小弟曾按照 MS所公佈的將一些DLL檔給更新或替換版本。替換了之後
果然順利能夠開啟資料庫，但使用過幾天後竟又出現了，然後重新開機後就又可以了，但是有時候重新開機也不行，小弟實在不知該如何處理？
不管是在NT 及98上都一樣。而且更奇怪的是據MS公司表示出現此原因的可能性是因為 原本是使用vb5然後使用vb6之故，可是小弟是從新install自己的機器而且是使用 VB6，實在不知這個問題如何產生。
不知諸位是否有此經驗呢？
小弟曾按照 MS所公佈的將一些DLL檔給更新或替換版本。替換了之後
果然順利能夠開啟資料庫，但使用過幾天後竟又出現了，然後重新開機後就又可以了，但是有時候重新開機也不行，小弟實在不知該如何處理？
不管是在NT 及98上都一樣。而且更奇怪的是據MS公司表示出現此原因的可能性是因為 原本是使用vb5然後使用vb6之故，可是小弟是從新install自己的機器而且是使用 VB6，實在不知這個問題如何產生。
不知諸位是否有此經驗呢？
請問cww有關 SetOrientation這個module(編號：3161)
cww兄您好:
最近由於印表機的問題，因此上了您的站使用了 更改紙張列印方向的module 但是在使用時發生錯誤訊息--索引陣列超出範圍，經查之後發現是以下這句有問題:
pFullDevMode = pi2_buffer(7) '取得Printer_Info_2.pDevMode的指標
不知該如何解決呢？
還請解惑！
謝謝
最近由於印表機的問題，因此上了您的站使用了 更改紙張列印方向的module 但是在使用時發生錯誤訊息--索引陣列超出範圍，經查之後發現是以下這句有問題:
pFullDevMode = pi2_buffer(7) '取得Printer_Info_2.pDevMode的指標
不知該如何解決呢？
還請解惑！
謝謝
請問如在resize時讓picture也跟著resize(編號：3157)
請問如何在form_resize時
讓除了picturebox控制項resize外
也讓其中顯示的picture也跟著resize
讓除了picturebox控制項resize外
也讓其中顯示的picture也跟著resize
使用shell配合傳統dos指令來執行winrar所遇到的問題?(編號：3156)
shell"c:\program files\Winrar\winrar.exe(空格)a(空格)c:\a\word_doc(空格)c:\a\word.doc"
這個指令會把 c:\a\word.doc 這個檔案 add 到 c:\a\word_doc.rar裡.
dos指令是用空格來區分其變數,如果把上面sell指令中word.doc這個檔案的路徑改為"c:\My(空格)Documents\word.doc",那麼所執行的shell指令便會發生錯誤,因為空格變多了,除非把路徑改為"c:\MyDocu~1\word.doc"就不會有錯,有沒有辦法讓我所抓到這個word.doc檔案的路徑為"c:\MyDocu~1\word.doc"而不是"c:\My(空格)Documents\word.doc"呢?
或者是有更好的解決方法?希望各位高手可以幫幫我.
感激各位!
這個指令會把 c:\a\word.doc 這個檔案 add 到 c:\a\word_doc.rar裡.
dos指令是用空格來區分其變數,如果把上面sell指令中word.doc這個檔案的路徑改為"c:\My(空格)Documents\word.doc",那麼所執行的shell指令便會發生錯誤,因為空格變多了,除非把路徑改為"c:\MyDocu~1\word.doc"就不會有錯,有沒有辦法讓我所抓到這個word.doc檔案的路徑為"c:\MyDocu~1\word.doc"而不是"c:\My(空格)Documents\word.doc"呢?
或者是有更好的解決方法?希望各位高手可以幫幫我.
感激各位!
run time error '91' object variable or with block variable n(編號：3155)
run time error '91' object variable or with block variable not set
請問何解???
請問何解???
about秀資料(編號：3148)
請教高手
我有一個欄位數量不算少的mdb.
我要將搜尋到的Recordset資料show出...but
dbgrid ----＞
欄位1 欄位2 欄位3 欄位4
10.1 13.3 11.00 15.22
請教輸出成---＞(有格線的喔)
欄位1 10.1
欄位2 13.3
欄位3 11.00
欄位4 15.22
可以如何達到呢?
我有一個欄位數量不算少的mdb.
我要將搜尋到的Recordset資料show出...but
dbgrid ----＞
欄位1 欄位2 欄位3 欄位4
10.1 13.3 11.00 15.22
請教輸出成---＞(有格線的喔)
欄位1 10.1
欄位2 13.3
欄位3 11.00
欄位4 15.22
可以如何達到呢?
com 高手請進(編號：3147)
小弟寫了一個 ActiveX dll 在設計時期引入另一執行專案, 測試可正常執行, 編譯過卻發生 error 432 : file name or class name not found during automation operation! 該 dll 其他之 Class Modules均可正常 work, 唯獨這個不行, why ? 有人遇過嗎? 請高手們指導. 我玩一整天了,蟲抓不出來,幫幫忙好嗎? 謝謝..vb6+nts4+sp4
請問如何透過VB 關閉 Crystal Reports(編號：3146)
我在VB中寫入
Private Sub Command1_Click(Index As Integer)
CrystalReport1.Action = 1
End Sub
問題????當使用者按下重複按下Command1而且又沒有將原本CrystalReport1關閉,將產生CrystalReport1被重複開啟
,如何避免出現此現象.....
Private Sub Command1_Click(Index As Integer)
CrystalReport1.Action = 1
End Sub
問題????當使用者按下重複按下Command1而且又沒有將原本CrystalReport1關閉,將產生CrystalReport1被重複開啟
,如何避免出現此現象.....
MS-SQL Server 7.0 "Import" Access2000的資料發生錯誤?(編號：3145)
MS-SQL Server 7.0 "Import" Access2000的資料發生錯誤? 請賜教謝謝!
如何讓datagrid1.row=0 呢(編號：3144)
如果datagrid為空的話 則datagrid1.row=-1 但如何改變它的值 讓它可以指定成datagrid1.row=0 呢 我只接這樣下參數 不行耶 怎麼辦呢
有誰可以幫幫我呢 因為我要填資料到datagrid1裡面 但如果他為空的話 無論我怎麼處理都沒有用 有誰可以交教我呢 謝謝大家幫忙
if datagrid1.approxcount=0 then datagrid1.row=0
就會有錯 謝謝大家啦 請幫忙囉
有誰可以幫幫我呢 因為我要填資料到datagrid1裡面 但如果他為空的話 無論我怎麼處理都沒有用 有誰可以交教我呢 謝謝大家幫忙
if datagrid1.approxcount=0 then datagrid1.row=0
就會有錯 謝謝大家啦 請幫忙囉
有疑難.............請幫幫手!!!(編號：3143)
本人用 Text Box 去表示某一 Table 內的 Date Field e.g.Employee's Join Date. 當我 Input 此欄日期依次為03/01/2000(3Jan2000),但當我 Update / Save 或 Loss focus時, 此欄位卻改成 01/03/2000(1March2000).
Database: Access 7.0
Connection : ADO Object
請Help!!!!!
Database: Access 7.0
Connection : ADO Object
請Help!!!!!
插入一個item到ListBox的中....(編號：3141)
listbox.additem可以加上一個item
但是好像沒有如listbox.InsrtItem的功能嗎?
如果要保留已經listed的item,且從中插入新的item原來的要向下移時要如何寫?
抱歉!問得太淺了..多包含vb的初學者...
但是好像沒有如listbox.InsrtItem的功能嗎?
如果要保留已經listed的item,且從中插入新的item原來的要向下移時要如何寫?
抱歉!問得太淺了..多包含vb的初學者...
IIS應用程式中用TagPrefix與ProcessTag的問題(編號：3140)
當用了上述屬性與事件插入一段html的內容時,自插入位置起,插入的內容與原文的總長度似乎會有限制,檢視原始碼時發現後面的部份被切掉了,是設定的問題嗎?VB所附的WCDemo範例也有相同情況,我用Windows98+PWS+VB6SP3環境,該如何調整?
艱題!!!!!! vb6 vs orcale(編號：3139)
小弟我正在寫一系統!!!
後端是用 orcale 8i
本想用 oo4o 但因時間較緊...so 用 ado
但現在的 vb6 連資料庫之方式其多!!
ex adodc,ado,dataenviroment,oo4o....
不之誰效率較好??
ps:使用人次約 20-40 人
後端是用 orcale 8i
本想用 oo4o 但因時間較緊...so 用 ado
但現在的 vb6 連資料庫之方式其多!!
ex adodc,ado,dataenviroment,oo4o....
不之誰效率較好??
ps:使用人次約 20-40 人
真的難倒眾VB高手了嗎?(編號：3136)
各位VB高手,難道無法用VB寫一個預覽程式
在不用開啟EXCEL,WORD的狀態,直接預覽XLS & DOC 檔
(國外不少VIEW文件的軟體,均有此功能)
小弟實在想不透,他們是怎麼完成的
真的難倒眾VB高手了嗎?還是Microsoft另有開發元件未公開給國內?
在不用開啟EXCEL,WORD的狀態,直接預覽XLS & DOC 檔
(國外不少VIEW文件的軟體,均有此功能)
小弟實在想不透,他們是怎麼完成的
真的難倒眾VB高手了嗎?還是Microsoft另有開發元件未公開給國內?
dll編譯無法執行(編號：3135)
在設計時期測試可正常執行,編譯過卻發生 error 432:file name or class name not found during automation operation! dll其他之class均可正常work,唯獨這個不行,why?有人遇過嗎?請高手們指導.謝謝..vb6+nts4+sp4
徵求 VB 高手(編號：3134)
永碕電腦公司徵求 VB 高手,熟VB,MS-SQL Server,有寫作 Class
及資料庫實務經驗,正職或兼職皆可 ,詳情另談,歡迎與本人連絡
PS. 本公司在台北木柵線科技大樓站旁
及資料庫實務經驗,正職或兼職皆可 ,詳情另談,歡迎與本人連絡
PS. 本公司在台北木柵線科技大樓站旁
誰能控制excel的送紙距離的(編號：3133)
我把資料已經丟到excel去了 但是要列印的尺寸是letter size的一半
請問有誰知道哪一個紙張設定 剛好可以送出只有letter size一半的
紙呢 有誰可以幫幫我呢 為何word有自訂紙張大小 可是excel沒有
還是誰可以跟我說excel哪裡可以設定紙張大小 讓他送出的紙是我想要的呢 謝謝大家幫忙 謝謝
請問有誰知道哪一個紙張設定 剛好可以送出只有letter size一半的
紙呢 有誰可以幫幫我呢 為何word有自訂紙張大小 可是excel沒有
還是誰可以跟我說excel哪裡可以設定紙張大小 讓他送出的紙是我想要的呢 謝謝大家幫忙 謝謝
請問眾高手,有沒有不用 DataReport 及 CrystalReport 做出群組報(編號：3131)
請問眾高手,有沒有不用 DataReport 及 CrystalReport 做出群組報表的方法?
因為聽說以上兩者,對於資料庫系統而言較不穩定,而且效果並不是讓人很滿意,而CrystalReport7.0 沒用過也沒錢買....
我個人查書得之可使用Printer物件撰寫報表,但由於書上大多並沒有詳細的說明,所以想請教大家有無別的方式製作報表,或有無相關好書及資訊推薦一下給小弟參考....
謝謝大家!!
因為聽說以上兩者,對於資料庫系統而言較不穩定,而且效果並不是讓人很滿意,而CrystalReport7.0 沒用過也沒錢買....
我個人查書得之可使用Printer物件撰寫報表,但由於書上大多並沒有詳細的說明,所以想請教大家有無別的方式製作報表,或有無相關好書及資訊推薦一下給小弟參考....
謝謝大家!!
已達極限: 已無法再在表單上建立任何控制項(編號：3129)
目前我正在做一個資料庫, 為了好看與方便我在一個表單內放置一個sstab, 並在每一個tab上都放置了很多command, textbox, combobox, label and datagrid, 但到最後竟出現 "已達極限:已無法再在表單上建立任何控制項" 的告示, 可否有解決之道, 可改變限制放置控制項數量的設定嗎??????
無法連結到資料欄或 DataMember: 'date'(編號：3128)
將資料庫date欄位的屬性與格式都設定正確, 表單內放置一個DTPicker並將data source, data field, data format都設定並連結到資料庫正確, 但執行程式時會先顯示 "無法連結到資料欄或 DataMember: 'date'" 的訊息, 按確定之後還是可以繼續執行程式, 但是在 DTPicker 和 datagrid "date"欄位並不相連結, 請問這是什麼原因, 要如何解決呢?????
資料庫連結問題(編號：3127)
I've used the ADODC control to link with ACCESS 97 database.
Then how can I setup the connecting string to make sure there's no error even
the path of the database is moved?
(P.S. Like { data1.databasename = app.path & "\abc.mdb" } this kind of string. )
Then how can I setup the connecting string to make sure there's no error even
the path of the database is moved?
(P.S. Like { data1.databasename = app.path & "\abc.mdb" } this kind of string. )
Question in printing record in Crystal report(編號：3126)
As title, I want to Print only the first ten record in crystal report. How can I do?
keybd_event 的問題(編號：3125)
我會用 keybd_event 送出數字及小寫英文，但是卻不能送出逗點、分號等符號，為什麼呢？我是用下面的方式，是否哪個參數錯了
keybd_event 59, 0, 1, 0
keybd_event 59, 0, 1, 0
Adodc recordsource 的SQL問題(編號：3124)
請問我想表達
adodc1.recordsource = "select * from member where memberID = text1.text"
但有錯誤......
請幫忙除錯.........
adodc1.recordsource = "select * from member where memberID = text1.text"
但有錯誤......
請幫忙除錯.........
怎樣把textbox 內的文字以e-mail send 給其他人(編號：3122)
我想把textbox 內的文字以 e-mail send 給其他人, 當中, 我連怎樣用VB去send e-mail 的程式也不懂.......希望大家可以幫忙...
請問各位前輩關於richtextboxㄉloadfile問題(編號：3121)
我使用richtextboxㄉloadfile來讀取一個有圖片及文字的rtf檔案
在硬碟時可以正確ㄉ讀取但燒錄成光碟時就無法讀取會出現error75
ㄉ問題 請問各位前輩該如何修正與解決呢??煩請幫忙解答
thank all
在硬碟時可以正確ㄉ讀取但燒錄成光碟時就無法讀取會出現error75
ㄉ問題 請問各位前輩該如何修正與解決呢??煩請幫忙解答
thank all
請問 asp 如何以 excel 當作資料庫(編號：3119)
一般書上都是用access作為資料庫
但如何以excel作為資料庫
假設第一頁我設計一些text作為輸入資料用,text的name為t1,t2,t3
接下來第2頁程式碼如下
＜%
A1 = request("T1")
A2 = request("T2")
A3 = request("T3")
Set Conn=Server.CreateObject("Adodb.Connection")
Conn.open "driver={Microsoft Excel Driver (*.xls)};dbq=" & Server.MapPath("book1.xls")
table = "INSERT INTO [sheet1$]?????
set rs = conn.execute(table)
%＞
請問如何在sheet1中的儲存格中填入資料
例如我要在sheet中的range("B2")中填入a1的值
請大家幫幫忙 謝謝
但如何以excel作為資料庫
假設第一頁我設計一些text作為輸入資料用,text的name為t1,t2,t3
接下來第2頁程式碼如下
＜%
A1 = request("T1")
A2 = request("T2")
A3 = request("T3")
Set Conn=Server.CreateObject("Adodb.Connection")
Conn.open "driver={Microsoft Excel Driver (*.xls)};dbq=" & Server.MapPath("book1.xls")
table = "INSERT INTO [sheet1$]?????
set rs = conn.execute(table)
%＞
請問如何在sheet1中的儲存格中填入資料
例如我要在sheet中的range("B2")中填入a1的值
請大家幫幫忙 謝謝
Command Buttin 按下 KeyDown 所會觸發的事件?????(編號：3114)
請問大家
當我從一個Command Button-1 按下向下鍵移至下一個Command Button-2 時,會觸發哪些事件???,為什麼好像所有事件都不會被觸發一樣
當我從一個Command Button-1 按下向下鍵移至下一個Command Button-2 時,會觸發哪些事件???,為什麼好像所有事件都不會被觸發一樣
如何使自製圖形命令鈕有快速鍵功能(編號：3113)
大家好
在王國榮老師的vb6與winapi講座一書中第12章有提到,圖形命令鈕功能,但所製作出來的命令鈕,卻不能有像標準command button 一樣可以用 在 caption 中以 &X 方式設定快速鍵,請問各位有何辦法可以讓這種命令鈕有可以有快速鍵功能
在王國榮老師的vb6與winapi講座一書中第12章有提到,圖形命令鈕功能,但所製作出來的命令鈕,卻不能有像標準command button 一樣可以用 在 caption 中以 &X 方式設定快速鍵,請問各位有何辦法可以讓這種命令鈕有可以有快速鍵功能
怎樣把顏色convert 成16進制的碼....(編號：3110)
例如:
form1.backcolor 是黑色...
Text1.Text = form1.BackColor
Text1出現 "0"
我text1出現的是16進制的碼 - "000000"
怎麼辦......
form1.backcolor 是黑色...
Text1.Text = form1.BackColor
Text1出現 "0"
我text1出現的是16進制的碼 - "000000"
怎麼辦......
幫個忙吧~~ 偶快瘋了~用vb寫一個計算機~(編號：3109)
好心的人，快來救我吧，我寫了半天就是不成功，誰來替我修正一下
。如果可以傳一個正確的檔案給我好嗎？thank's
以下是我的程式部份:
Dim value1, value2 As Double
Dim c$, op$
'
'10個數字的程式內容，index從0到9
'
Private Sub Command1_Click(Index As Integer)
w$ = Right$(Str$(Index), 1)
If c$ ＜＞ "0" Then
c$ = c$ + w$
Else
c$ = w$
End If
Label1.Caption = c$
End Sub
Private Sub Command2_Click(Index As Integer)
value1 = Val(Label1.coption)
Select Case Index
Case 0
op$ = "+"
Case 1
op$ = "-"
Case 2
op$ = "*"
Case 3 = "/"
End Select
c$ = "0"
End Sub
Private Sub Command3_Click()
c$ = c$ + "."
Label1.Caption = c$
End Sub
Private Sub Command4_Click()
Call do_calc
c$ = "0"
op = ""
End Sub
Private Sub do_calc()
value2 = Val(Label1.Caption)
Select Case op$
Case "+"
value1 = value1 + value2
Case "-"
value1 = value1 - value2
Case "*"
value1 = value1 * value2
Case "/"
value1 = value2
End Select
v$ = Str$(value1)
Label1.Caption = v$
End Sub
Private Sub Command6_Click()
b$ = Label1.Caption
n = Len(b$)
c$ = Left(b$, n - 1)
Label1.Caption = c$
End Sub
Private Sub form_load()
value1 = 0
c$ = "0"
Label1.Caption = c$
op$ = ""
End Sub
。如果可以傳一個正確的檔案給我好嗎？thank's
以下是我的程式部份:
Dim value1, value2 As Double
Dim c$, op$
'
'10個數字的程式內容，index從0到9
'
Private Sub Command1_Click(Index As Integer)
w$ = Right$(Str$(Index), 1)
If c$ ＜＞ "0" Then
c$ = c$ + w$
Else
c$ = w$
End If
Label1.Caption = c$
End Sub
Private Sub Command2_Click(Index As Integer)
value1 = Val(Label1.coption)
Select Case Index
Case 0
op$ = "+"
Case 1
op$ = "-"
Case 2
op$ = "*"
Case 3 = "/"
End Select
c$ = "0"
End Sub
Private Sub Command3_Click()
c$ = c$ + "."
Label1.Caption = c$
End Sub
Private Sub Command4_Click()
Call do_calc
c$ = "0"
op = ""
End Sub
Private Sub do_calc()
value2 = Val(Label1.Caption)
Select Case op$
Case "+"
value1 = value1 + value2
Case "-"
value1 = value1 - value2
Case "*"
value1 = value1 * value2
Case "/"
value1 = value2
End Select
v$ = Str$(value1)
Label1.Caption = v$
End Sub
Private Sub Command6_Click()
b$ = Label1.Caption
n = Len(b$)
c$ = Left(b$, n - 1)
Label1.Caption = c$
End Sub
Private Sub form_load()
value1 = 0
c$ = "0"
Label1.Caption = c$
op$ = ""
End Sub
MSComm(編號：3106)
怎樣才能從com1接收8bit的資料呢？
MSComm屬性裡的RThreshold和SThreshold應該設為多少
才能正確收到8bit的資料？
怎麼我如何從外面送資料就是不能產生OnComm的事件呢？
但用其他別人寫好的程式，就能正確的接收到資料
若單單要將接收到的8bit資料顯示在Text1裡
最最簡單的程式要怎麼寫呢？還有屬性哪裡需要注意的？
謝謝各位高手...
MSComm屬性裡的RThreshold和SThreshold應該設為多少
才能正確收到8bit的資料？
怎麼我如何從外面送資料就是不能產生OnComm的事件呢？
但用其他別人寫好的程式，就能正確的接收到資料
若單單要將接收到的8bit資料顯示在Text1裡
最最簡單的程式要怎麼寫呢？還有屬性哪裡需要注意的？
謝謝各位高手...
季兄之[如何從 Internet 上抓回某一個網頁的內容](編號：3105)
若隨便抓一個檔案如abc.txt，但這檔案並不存在，可是連線後打開自己硬碟不但有這一檔案，內容還是用Html寫的如這檔案不存在等等的訊息。是否應該網站上沒有abc.txt就不會抓回abc.txt存在自己硬碟中才對？
資料庫 update 錯誤,請高手解惑??(編號：3103)
為何此 WStage.mdb 在做連續性更新資料內容時會出現以下錯誤:
用檔案修復或在 Access 中重新儲存亦無效.
(1) 執行階段錯誤 '-2147467259 (80004005)':
鍵欄位資訊不足或不正確；太多列被更新所影響。
(2) 鍵欄位資訊不足或不正確；太多列被更新所影響。
例 :
DO While Not Adodc1.Recordset.EOF
Adodc1.Recordset("T工程比率") = 100
Adodc1.Recordset.Update
Adodc1.Recordset.Movenext
Loop
但同樣內容 OK_WStage.mdb 則無此問題. 請高手解惑??
用檔案修復或在 Access 中重新儲存亦無效.
(1) 執行階段錯誤 '-2147467259 (80004005)':
鍵欄位資訊不足或不正確；太多列被更新所影響。
(2) 鍵欄位資訊不足或不正確；太多列被更新所影響。
例 :
DO While Not Adodc1.Recordset.EOF
Adodc1.Recordset("T工程比率") = 100
Adodc1.Recordset.Update
Adodc1.Recordset.Movenext
Loop
但同樣內容 OK_WStage.mdb 則無此問題. 請高手解惑??
陳氏國際之謎(編號：3102)
各位大哥大,大姊大,
小弟已確定資料庫中有 CHEN'S INT'L (陳氏國際公司) 之紀綠 (用ACCESS看過了!), 可是在VB中還是找不出來. 用strSearch="CHEN''S INT''L", 不成啊! 找到了EOF!
但是 PANDA INT'L 卻可以 (用 "PANDA INT''L").... :-!
你們看我做到這時還末去睡就知我有多急......
先謝...!
小弟已確定資料庫中有 CHEN'S INT'L (陳氏國際公司) 之紀綠 (用ACCESS看過了!), 可是在VB中還是找不出來. 用strSearch="CHEN''S INT''L", 不成啊! 找到了EOF!
但是 PANDA INT'L 卻可以 (用 "PANDA INT''L").... :-!
你們看我做到這時還末去睡就知我有多急......
先謝...!
條碼器如何配合資料庫使用?(編號：3100)
有誰可以告訴我條碼器如何配合資料庫使用?
我想寫一個資料庫程式可以使用條碼器,它配合資料庫的使用方法是
怎樣的呢?好比說的駐點是在Text1(文書盒)我只要一按條碼器,條碼器就會把條碼下的那一段數字輸入,是這樣的嗎?
資料庫要不要寫一段程式的配會條碼器的驅動,還是只要把條碼器的
驅動程式安裝上去就可以了?
條碼器的市價大概多少?
我想寫一個資料庫程式可以使用條碼器,它配合資料庫的使用方法是
怎樣的呢?好比說的駐點是在Text1(文書盒)我只要一按條碼器,條碼器就會把條碼下的那一段數字輸入,是這樣的嗎?
資料庫要不要寫一段程式的配會條碼器的驅動,還是只要把條碼器的
驅動程式安裝上去就可以了?
條碼器的市價大概多少?
DataGrid runtime 設定 DataSource 和 Columns ???(編號：3097)
我想從 設定檔中讀出 DataGrid 的設定 - DataSource 和 Columns 設定,但在網路上都找不到這樣的
範例,以下是個人測試,不知方法是否正確,現問題如下
1. 不要用 adodc ,用 adodb 當 DataGrid 的 DataSource ==＞ 找不到 samples,不知這樣是否正確
2. Set oGrid.DataSource = oRS1 後,DataGrid.Columns 似乎會自動根據 Recordset 建好,
Column 順序,Field 內容,Columns 的數目是由設定檔讀出,和 Recordset Field 順序不一定一樣
請問要如何設定 DataGrid.Columns 的內容?? 請各位高手指導,謝謝
Dim oConn As ADODB.Connection
Dim oRS1 As ADODB.Recordset
Dim oRS2 As ADODB.Recordset
Private Sub Command1_Click()
'Create a new Recordset
Set oRS2 = New ADODB.Recordset
oRS2.CursorLocation = adUseClient
oRS2.Open "Artists", oConn, adOpenKeyset, adLockPessimistic ', adCmdTableDirect
Set oGrid.DataSource = oRS2
oGrid.Refresh
End Sub
Private Sub Form_Load()
Set oConn = New ADODB.Connection
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\VBTEST\DATA02\APP.MDB;"
'Create a new Recordset
Set oRS1 = New ADODB.Recordset
oRS1.CursorLocation = adUseClient
oRS1.Open "Titles", oConn, adOpenKeyset, adLockPessimistic ', adCmdTableDirect
Set oGrid.DataSource = oRS1
oGrid.Columns(0).Caption = "序"
oGrid.Columns(0).DataField = "Titles" ==＞ 此行似無作用,改成別的 field name,資料行是
Recordset 的第一個 Field 的內容
oGrid.Columns(1).Caption = "書名"
oGrid.Columns(1).DataField = "Artist_ID" ==＞ 同上,無作用
End Sub
Private Sub Form_Terminate()
oConn.Close
Set oConn = Nothing
End Sub
範例,以下是個人測試,不知方法是否正確,現問題如下
1. 不要用 adodc ,用 adodb 當 DataGrid 的 DataSource ==＞ 找不到 samples,不知這樣是否正確
2. Set oGrid.DataSource = oRS1 後,DataGrid.Columns 似乎會自動根據 Recordset 建好,
Column 順序,Field 內容,Columns 的數目是由設定檔讀出,和 Recordset Field 順序不一定一樣
請問要如何設定 DataGrid.Columns 的內容?? 請各位高手指導,謝謝
Dim oConn As ADODB.Connection
Dim oRS1 As ADODB.Recordset
Dim oRS2 As ADODB.Recordset
Private Sub Command1_Click()
'Create a new Recordset
Set oRS2 = New ADODB.Recordset
oRS2.CursorLocation = adUseClient
oRS2.Open "Artists", oConn, adOpenKeyset, adLockPessimistic ', adCmdTableDirect
Set oGrid.DataSource = oRS2
oGrid.Refresh
End Sub
Private Sub Form_Load()
Set oConn = New ADODB.Connection
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\VBTEST\DATA02\APP.MDB;"
'Create a new Recordset
Set oRS1 = New ADODB.Recordset
oRS1.CursorLocation = adUseClient
oRS1.Open "Titles", oConn, adOpenKeyset, adLockPessimistic ', adCmdTableDirect
Set oGrid.DataSource = oRS1
oGrid.Columns(0).Caption = "序"
oGrid.Columns(0).DataField = "Titles" ==＞ 此行似無作用,改成別的 field name,資料行是
Recordset 的第一個 Field 的內容
oGrid.Columns(1).Caption = "書名"
oGrid.Columns(1).DataField = "Artist_ID" ==＞ 同上,無作用
End Sub
Private Sub Form_Terminate()
oConn.Close
Set oConn = Nothing
End Sub
一問(編號：3094)
假如說我有個 Form 有載入到 Tray 中的小圖示
通常點兩下那個小圖示後就呼叫 Form.SetFocus
但是如果這個 Form 因為某個事件呼叫了一個 MsgBox
而這時如果去點選那個 Tray 的小圖示即會發生錯誤, 因為目前的 Target 是 MsgBox
要如何解決這個問題呢??????
通常點兩下那個小圖示後就呼叫 Form.SetFocus
但是如果這個 Form 因為某個事件呼叫了一個 MsgBox
而這時如果去點選那個 Tray 的小圖示即會發生錯誤, 因為目前的 Target 是 MsgBox
要如何解決這個問題呢??????
如何動態產生picture.label物件陣列(編號：3093)
請問
如何動態產生picture.label物件陣列
分別要show不同的圖
模組要宣告嗎
可不可以教授技巧........
肉腳的我正遇到這個問題.....
請高手指教
如何動態產生picture.label物件陣列
分別要show不同的圖
模組要宣告嗎
可不可以教授技巧........
肉腳的我正遇到這個問題.....
請高手指教
怎麼控制execl的送紙距離(編號：3092)
我把資料已經丟到excel去了 但是要列印的尺寸是letter size的一半
請問有誰知道哪一個紙張設定 剛好可以送出只有letter size一半的
紙呢 有誰可以幫幫我呢 為何word有自訂紙張大小 可是excel沒有
還是誰可以跟我說excel哪裡可以設定紙張大小 讓他送出的紙是我想要的呢 謝謝大家幫忙 謝謝
請問有誰知道哪一個紙張設定 剛好可以送出只有letter size一半的
紙呢 有誰可以幫幫我呢 為何word有自訂紙張大小 可是excel沒有
還是誰可以跟我說excel哪裡可以設定紙張大小 讓他送出的紙是我想要的呢 謝謝大家幫忙 謝謝
如何將重複出現的字串陣列只取一次(編號：3091)
A000001 220
A000002 221
A000003 222
A000001 220
A000001 200
A000008 256
A000002 221
.
.
.
我要如何做才能將以上的字串資料挑選出來列示於List上，且不會有重複出現的現象。
A000002 221
A000003 222
A000001 220
A000001 200
A000008 256
A000002 221
.
.
.
我要如何做才能將以上的字串資料挑選出來列示於List上，且不會有重複出現的現象。
使用 ROUND 函數的問題(編號：3090)
我使用 vb6, 在程式裡使用 ROUND 作整數四捨五入時,
ROUND(1.5)的值為2, 這是正確的,但是 ROUND(2.5)
時, 值卻還是 2, 好像都是在個位數為偶數時有這樣的
情況, 請問大家也會這樣嗎? 謝謝!
ROUND(1.5)的值為2, 這是正確的,但是 ROUND(2.5)
時, 值卻還是 2, 好像都是在個位數為偶數時有這樣的
情況, 請問大家也會這樣嗎? 謝謝!
請問函數的命名規則！(編號：3089)
在vb的MSDN中有說明變數、常數、物件的命名規則，那SUB、FUNCTION呢？有沒有什麼通用的方式可以一下就看出這個SUB是全域或是只在某個FORM中、以及這個SUB、FUNCTION有哪些會呼叫到 等相關
不知是否可以指導一下小弟！謝謝！
不知是否可以指導一下小弟！謝謝！
Memory Leak(編號：3087)
在 VB 中,若一object 最後不用時,未 set vObj = nothing, 會造成一些 memory leak,在 News 上也
常看到有人說 run VB 寫的 程式, run 久了,會造成 95 memory 不足的問題,
請問在 Windows 98+ VB 的環境下,要如何去監測 Memory 的狀況(使用情形),或在 VB 中有
提供任何 function 來 Show 出 memory 的使用情形,以方便知道自己所寫的程式是否有造成此問
題,謝謝!
常看到有人說 run VB 寫的 程式, run 久了,會造成 95 memory 不足的問題,
請問在 Windows 98+ VB 的環境下,要如何去監測 Memory 的狀況(使用情形),或在 VB 中有
提供任何 function 來 Show 出 memory 的使用情形,以方便知道自己所寫的程式是否有造成此問
題,謝謝!
請問CWW如何計設計journalplaybackproc 中的功能(編號：3085)
您好:
請問如何將定義為
type eventmsg
message as long
paqraml as long
paramh as long
time as long
hwnd as long
end type
public msg as eventmsg
的 msg (我先前將它存在檔案中,現在將其由檔案讀出), 想在hw_journalplayback=1 的 hookproc 中'將其寫回 system queue 中
程式碼該如何寫? 先前用hw_journalrecord=0 的 hookproc 記錄 有 每個msg 的 code,wparam,lparam 也寫在檔案中每個
msg的前面.
此問題一直困住我,也很緊急,謝謝!!
請問如何將定義為
type eventmsg
message as long
paqraml as long
paramh as long
time as long
hwnd as long
end type
public msg as eventmsg
的 msg (我先前將它存在檔案中,現在將其由檔案讀出), 想在hw_journalplayback=1 的 hookproc 中'將其寫回 system queue 中
程式碼該如何寫? 先前用hw_journalrecord=0 的 hookproc 記錄 有 每個msg 的 code,wparam,lparam 也寫在檔案中每個
msg的前面.
此問題一直困住我,也很緊急,謝謝!!
請問 CWW 更改印表機設定(編號：3084)
CWW兄你好:
小弟在引用您的更改印表機設定的那個 BAS時，會在下列那行告訴我 索引陣列超出範圍的錯誤訊息，請問是何故呢？
pFullDevMode = pi2_buffer(7) '取得Printer_Info_2.pDevMode的指標
謝謝您！
小弟在引用您的更改印表機設定的那個 BAS時，會在下列那行告訴我 索引陣列超出範圍的錯誤訊息，請問是何故呢？
pFullDevMode = pi2_buffer(7) '取得Printer_Info_2.pDevMode的指標
謝謝您！
How can I Print some of the record in crystal report(編號：3083)
As title, I want to Print only the first ten record in crystal report. How can I do?
二進制的運算問題,請各位高手幫忙!! (urgent)(編號：3082)
有一個十進制的數字(輸入1至255),當輸入1轉二進制時只會得到的結果是1,我想將1變八個位(00000001),應該怎樣寫會補7個0?
輸入3,二進制是(00000011),而結果不是(11)呢?
另兩個二進制And是怎樣寫?
如 11000100
00100100 (And)
-----------------
00000100
輸入3,二進制是(00000011),而結果不是(11)呢?
另兩個二進制And是怎樣寫?
如 11000100
00100100 (And)
-----------------
00000100
急問:為何出現 3447錯誤???( vbajet32.dll 無法初始化)(編號：3080)
我用VB6.0 做了一個資料庫(採用 DAO方式)
做好安裝檔, 拿到一台完全沒安裝過VB及Access,SQL 的電腦上安裝,
安裝完一執行, 卻出現錯誤訊息 3447:無法初始化 VBAJET32.dll,
WHY?????
請好心人士救救我, 一個星期了,我已想破頭, 快崩潰了
做好安裝檔, 拿到一台完全沒安裝過VB及Access,SQL 的電腦上安裝,
安裝完一執行, 卻出現錯誤訊息 3447:無法初始化 VBAJET32.dll,
WHY?????
請好心人士救救我, 一個星期了,我已想破頭, 快崩潰了
About "data" control(編號：3079)
I heard from someone that if more than one "Data" control
used to access the "ACCESS" database, it will cause the error. Is that true? If I really want to do so, how can I do?
used to access the "ACCESS" database, it will cause the error. Is that true? If I really want to do so, how can I do?
VB安裝問題(編號：3077)
以封裝部署精靈完成後, run 產生的 Setup.exe
出現訊息 ==＞"無法啟動主安裝程式!(CreateProcess()傳回錯誤代碼0X000000C1H)"
請大家指點.
出現訊息 ==＞"無法啟動主安裝程式!(CreateProcess()傳回錯誤代碼0X000000C1H)"
請大家指點.
如何設定crystal report的印表機及紙張大小及指定印表機(編號：3076)
諸位好:
小弟最近遇到了一個問題:user要能夠選定某一台的印表機，而這張報表是 B4且橫印的，那小弟要如何做才能夠達到這樣的功能呢？
msdn 上說要設成預設印表機才能 寫入printer物件中，但小弟在改變了預設印表機後，回到控制台看，使用msdn上的方法並沒有更改預設印表機啊！
再者crystal report在製作時是否也要指定其紙張大小及列印方向呢？如果僅靠程式碼的更改不行嗎？因為小弟現在試的結果是不論crystal report有無設定，都無法？
不知諸位有無解決方死，不勝感激！
小弟最近遇到了一個問題:user要能夠選定某一台的印表機，而這張報表是 B4且橫印的，那小弟要如何做才能夠達到這樣的功能呢？
msdn 上說要設成預設印表機才能 寫入printer物件中，但小弟在改變了預設印表機後，回到控制台看，使用msdn上的方法並沒有更改預設印表機啊！
再者crystal report在製作時是否也要指定其紙張大小及列印方向呢？如果僅靠程式碼的更改不行嗎？因為小弟現在試的結果是不論crystal report有無設定，都無法？
不知諸位有無解決方死，不勝感激！
關於.ocx元件的圖示?(編號：3074)
我建立了一個.ocx元件, 並且做了一個16X15的圖示, 當做它的ToolboxBitmap, 可是為什麼圖示看起來很小(32X32的圖也試過了), 不像VB的圖示那麼大? 另外當圖示出現在工具列時, 它的底色會自動變成灰色, 不管我在製做這個圖示時用了透明或不透明的方式都沒有用, 請指教, 謝謝!
winsock元件一問(vb6,sp3)(編號：3073)
我client端的程式用winsock元件可以連上server, senddata也無題,但接收資料時不會引發 DataArrival 事件, 請問各位前輩可能是發生甚麼問題??謝謝..
那裡有在教水晶報表的書???(編號：3069)
1.請問在市面上有那一本書是教水晶報表比較詳盡的書???
2.vb6.0的環境設計師+報表設計師可以一開始不給予條件式(sql)，直到我們給予他條件式(sql)之後才開始動作嗎??而水晶報表是否也可以如此??我使用報表設計師實在很鱉手，想改用水晶報表.....
3.何謂預存程序???
謝謝......
2.vb6.0的環境設計師+報表設計師可以一開始不給予條件式(sql)，直到我們給予他條件式(sql)之後才開始動作嗎??而水晶報表是否也可以如此??我使用報表設計師實在很鱉手，想改用水晶報表.....
3.何謂預存程序???
謝謝......
要如何將一般的form變可mdi form(編號：3067)
如果我有一個form，本來是普通的一個form，我想要把它變mdi
form ，可以嗎？
還有如果我想要將一個menu複製到另一個form中，可以嗎？
我該怎麼做呢？
form ，可以嗎？
還有如果我想要將一個menu複製到另一個form中，可以嗎？
我該怎麼做呢？
TextBox連ADO的問題(編號：3066)
我用TextBox輸入ADO資料,但如果資料庫該欄不是文字的話(如日期),當將原資料Del掉,卻沒法更新資料庫,(我想可能是形態問題),當然我試過判別Text=""時將Files填入Null值,為是可行的,但我因其他因素不想用此方法,不知有其他方法可解決
訂閱：
文章 (Atom)