我想知道
現在播到的時間的屬性 和 總長度的屬性.....thanks
提供小吳 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 .
請問老師為何抓不到錯誤呢?t.k.s.(編號：2823)
請問老師以下如無此 c:\test 子目錄
為何系統抓不到錯誤呢? (不會停至 test11)
若 改為 On Error Resume Next亦不會跳脫錯誤...
t.k.s.t.k.s.
On Error GoTo et
mypath = "c:\test\*.mdb"
If Dir(mypath) ＜＞ "" Then
Kill mypath
End If
.
.
exit sub
et:
為何系統抓不到錯誤呢? (不會停至 test11)
若 改為 On Error Resume Next亦不會跳脫錯誤...
t.k.s.t.k.s.
On Error GoTo et
mypath = "c:\test\*.mdb"
If Dir(mypath) ＜＞ "" Then
Kill mypath
End If
.
.
exit sub
et:
如何用遮罩的方式在FORM上面做不規則的表單呢?(編號：2822)
我想做不規則的表單,要用遮罩的方法,看王國榮先生的AIP講座有說到MASK的方法,但都是用在FORM內的物件,要如而直接用在FORM上面,做而不規則的表單呢?
ADO方法的AddNew不能用?救命!!!(編號：2821)
1.我在表單上放置了一個ADO控制項
2.有一個資料庫名為temp.mdb,用Access 2000建立
裡面有一個表格table1
共有下列欄位:
UIN 型態是自動編號
nickname 型態是文字
3.下列是程式:
Dim DBfile As New ADODB.Connection '資料庫
Dim DBtable As New ADODB.Recordset '表格
Dim UIN As Long
DBfile.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\temp.mdb"
DBtable.Open "table1", DBfile, adOpenDynamic
If DBtable.RecordCount ＞= 1 Then DBtable.MoveLast
DBtable.AddNew ＜---錯誤訊息:提供者不提供應用程式要求的動作
With DBtable
.Fields("nickname").Value = "John"
End With
UIN = DBtable.Fields("UIN").Value '＜---這樣可以取得嗎?
DBtable.Update
對於這個程式?請問我該怎麼辦?
謝謝!
2.有一個資料庫名為temp.mdb,用Access 2000建立
裡面有一個表格table1
共有下列欄位:
UIN 型態是自動編號
nickname 型態是文字
3.下列是程式:
Dim DBfile As New ADODB.Connection '資料庫
Dim DBtable As New ADODB.Recordset '表格
Dim UIN As Long
DBfile.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\temp.mdb"
DBtable.Open "table1", DBfile, adOpenDynamic
If DBtable.RecordCount ＞= 1 Then DBtable.MoveLast
DBtable.AddNew ＜---錯誤訊息:提供者不提供應用程式要求的動作
With DBtable
.Fields("nickname").Value = "John"
End With
UIN = DBtable.Fields("UIN").Value '＜---這樣可以取得嗎?
DBtable.Update
對於這個程式?請問我該怎麼辦?
謝謝!
MediaPlayer播放的選取(編號：2820)
不好意思又有問題要問各位高手... ^.^
Private Sub tmrNext_Timer()
'播下一首歌
If mpVideoMagic.CurrentPosition = mpVideoMagic.Volume Then
mpVideoMagic.Stop
mpVideoMagic.Close
mpVideoMagic.FileName = "f:\" + Form2.List1.List(0)
+ "mpg"
mpVideoMagic.Open
mpVideoMagic.Play
Form2.List1.RemoveItem (0)
End If
End Sub
Private Sub trmContrast_Timer()
'比較
If Form2.List1.List(0) = "" Then
tmrNext.Enabled = False
Else
tmrNext.Enabled = True
End If
End Sub
對不起喔,小弟我對 MediaPlayer的屬性都不知道,所以以上的屬性
也不知道對不對.....如有錯誤請指導一下...thank
Private Sub tmrNext_Timer()
'播下一首歌
If mpVideoMagic.CurrentPosition = mpVideoMagic.Volume Then
mpVideoMagic.Stop
mpVideoMagic.Close
mpVideoMagic.FileName = "f:\" + Form2.List1.List(0)
+ "mpg"
mpVideoMagic.Open
mpVideoMagic.Play
Form2.List1.RemoveItem (0)
End If
End Sub
Private Sub trmContrast_Timer()
'比較
If Form2.List1.List(0) = "" Then
tmrNext.Enabled = False
Else
tmrNext.Enabled = True
End If
End Sub
對不起喔,小弟我對 MediaPlayer的屬性都不知道,所以以上的屬性
也不知道對不對.....如有錯誤請指導一下...thank
有關findwindow的問題(編號：2818)
請問如果我只知道window的一部份標題，可以用findwindow函數找出window的handle嗎？好像在以前的vb版本中有一個叫findwindowlike的函數，但在VB6.0中卻消失了？！有沒有其他的代替品呀？
請問DATAREPORT？(編號：2814)
請問VB中的DATAREPORT
假如在設計版面的時候
可以設定成橫印的A4 嗎？
因為假如把寬度拉大一點
在預覽時會出現'報表寬度大於紙張寬度'的錯誤
可以為我解答嗎？謝謝！
假如在設計版面的時候
可以設定成橫印的A4 嗎？
因為假如把寬度拉大一點
在預覽時會出現'報表寬度大於紙張寬度'的錯誤
可以為我解答嗎？謝謝！
屬性問題(編號：2812)
請問MSHFlexGrid的.ColIsVisible屬性
是唯讀的嗎?
為何我看MSDN裡的說明好像可以設定說...
如果是唯讀的話,那我要如何將一欄
設為不可見(invisible)的呢?
是唯讀的嗎?
為何我看MSDN裡的說明好像可以設定說...
如果是唯讀的話,那我要如何將一欄
設為不可見(invisible)的呢?
Label不見了!(編號：2811)
我在一個user control上 加了一個label, label的字體是藍色,另外label 及 user control 都設定為 透明 (i.e. label1.backstyle=0 , usercontrol1.backstyle=0). 當我把這個user control 貼在 一張 form 表面時, 竟發現 user control 上的那個label的字也不見了, 但那個 label 佢然存在. 為什麼? 請各位高手賜教. 謝謝!
請問各位高手......怎麼用....謝謝.....(編號：2809)
在TextBox裡輸入關鍵字...按command後可以去查詢mdb裡的4個表格.
可否使用 select...from..等語法...但它會顯示"必須是case"訊息
是否有別的方式可以解決....
若找到資料後...如何將資料顯示出來.......
謝謝...謝謝...謝謝....謝謝....謝謝......
可否使用 select...from..等語法...但它會顯示"必須是case"訊息
是否有別的方式可以解決....
若找到資料後...如何將資料顯示出來.......
謝謝...謝謝...謝謝....謝謝....謝謝......
請問一下VB6(sp3)與Access2000(編號：2807)
請問一下為什麼工具列中的DATA，其屬性中Connect為Access，DatabaseName指定為Access2000的檔案，但當我RecordSource要指定時，卻出現“無法辨識資料庫格式“。可否請知道的人告訴我，謝謝！
請教 ADO 的問題 ?(編號：2804)
我寫了一個程式在VB的環境RUN,沒有問題.
可是將它封裝在另一台無 VB的PC RUN,出現
ADO 找不到提供者的錯誤訊息.請問是發生了什麼問題 ?
ps.
程式有使用 ADO 物件
可是將它封裝在另一台無 VB的PC RUN,出現
ADO 找不到提供者的錯誤訊息.請問是發生了什麼問題 ?
ps.
程式有使用 ADO 物件
DataReport設定列印顏色？同理，DataGrid？(編號：2803)
請教各位高手：
1.在DataReport中，如何根據Detail區段中TextBox連結資料庫資料欄的值，來決定這一筆資料印出時的顏色？
例如：當數量欄位＜100時，這一筆就以紅色印出，其他數量欄位＞=100的則維持印黑色？DataReport做得到嗎？
2.同理，相同的條件在DataGrid也是一整筆資料﹝也許有10個欄位﹞都變成紅色顯示，可以嗎？因為自己所找到的資料中，似乎只有MSHFlexGrid能做到這樣，但是卻很浪費系統資源，因為資料至少要2千多筆以上。
感激不盡！
1.在DataReport中，如何根據Detail區段中TextBox連結資料庫資料欄的值，來決定這一筆資料印出時的顏色？
例如：當數量欄位＜100時，這一筆就以紅色印出，其他數量欄位＞=100的則維持印黑色？DataReport做得到嗎？
2.同理，相同的條件在DataGrid也是一整筆資料﹝也許有10個欄位﹞都變成紅色顯示，可以嗎？因為自己所找到的資料中，似乎只有MSHFlexGrid能做到這樣，但是卻很浪費系統資源，因為資料至少要2千多筆以上。
感激不盡！
如何讓List清單多重點選的資料刪除?(編號：2801)
Private Sub comDel_Click()
'刪除所點選的資料
listbox裡的MultiSelect的屬性我選2-進階多重選取
If List1.ListIndex ＞= 0 Then
List1.RemoveItem List1.ListIndex
End If
End Sub
如果這樣寫只能單一個選取刪除,如何讓我多重選取刪除.....
各位高手請幫幫新手小弟
'刪除所點選的資料
listbox裡的MultiSelect的屬性我選2-進階多重選取
If List1.ListIndex ＞= 0 Then
List1.RemoveItem List1.ListIndex
End If
End Sub
如果這樣寫只能單一個選取刪除,如何讓我多重選取刪除.....
各位高手請幫幫新手小弟
How to run applications as Services in w2k(編號：2800)
how to Running vb Applications as Services in windows 2000
請問如何建立一個mdb檔並建立欄位為OLE型態(編號：2799)
請問如何建立一個mdb檔並建立欄位為OLE型態
這樣的做法好像無法建立OLE的type..
Set objCat = New ADOX.Catalog
Set objconn = objCat.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & CommonDialog4.FileName)
objTbl.name = "Sample"
objTbl.Columns.Append "Picture", adBinary
objCat.Tables.Append objTbl
Set objCat = Nothing
objconn.Close
Set objconn = Nothing
這樣的做法好像無法建立OLE的type..
Set objCat = New ADOX.Catalog
Set objconn = objCat.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & CommonDialog4.FileName)
objTbl.name = "Sample"
objTbl.Columns.Append "Picture", adBinary
objCat.Tables.Append objTbl
Set objCat = Nothing
objconn.Close
Set objconn = Nothing
webbrowser internet transfer control(編號：2797)
想請問一下 inet 這個控制項
假如在網路過慢的時後,會發生一個不正常的中斷, Request Timeout ,會造成程式無法執行,有好的方法可以解決這個不正常中斷嗎??
另外 webbrowser 這個控制項
1.Navigate 跟 Navigate2 這兩個在開啟網頁的時後有什麼不一樣啊???
2.開啟網頁後 網頁的內容(原始檔) 要怎麼用程式去讀取??
假如在網路過慢的時後,會發生一個不正常的中斷, Request Timeout ,會造成程式無法執行,有好的方法可以解決這個不正常中斷嗎??
另外 webbrowser 這個控制項
1.Navigate 跟 Navigate2 這兩個在開啟網頁的時後有什麼不一樣啊???
2.開啟網頁後 網頁的內容(原始檔) 要怎麼用程式去讀取??
如何取得bmp圖檔中像素的R,G,B之值(編號：2796)
小弟最近在寫一個影像的壓縮軟體!
需要讀取bmp圖檔的像素值到陣列中
再經一些處理才會完成....但是遇
到最大的問題就是每個像素的RGB值
各為多少呀???
需要讀取bmp圖檔的像素值到陣列中
再經一些處理才會完成....但是遇
到最大的問題就是每個像素的RGB值
各為多少呀???
VB編譯時找不到DLL檔？？(編號：2794)
請教各位高手,我在宣告裡面寫了如下的東西
Private Declare Function Controller Lib "c:\acslib2w.dll" (ByVal Channel As Integer) As Integer
可是在執行的時候它卻說找不到"c:\acslib2w.dll"
我明明已經把這個檔案放在c:\裡面了啊,它怎麼會找不到呢？
謝謝賜教
Private Declare Function Controller Lib "c:\acslib2w.dll" (ByVal Channel As Integer) As Integer
可是在執行的時候它卻說找不到"c:\acslib2w.dll"
我明明已經把這個檔案放在c:\裡面了啊,它怎麼會找不到呢？
謝謝賜教
改了進貨量 , 如何更新'庫存量'(編號：2792)
我們常會直接在Grid中改變資料,
但是若改變了這筆資料,我們必需去更動資料庫中其它資料
ex: 改了進貨資料的'進貨量' , 必需去更改'庫存量'
這樣子的一個動作,不知該如何設計比較好耶?
因為若在使用者改了資料後
去下一道 sql command , 以改變庫存量,
但是有可能他改了很多筆record之後, 按了undo , 那怎麼辨 ?
那是不是又要去復原庫存量, (那又要復原回多少?)
還有如何記錄他更改前和和更改後差了多少,
ex: 若原先這筆資料他記錄了進貨量=3, 資料庫中總庫存=5
現在把3改成4, 庫存應該變成6,
但3已變成4, 如何知道差1呢,
但是若改變了這筆資料,我們必需去更動資料庫中其它資料
ex: 改了進貨資料的'進貨量' , 必需去更改'庫存量'
這樣子的一個動作,不知該如何設計比較好耶?
因為若在使用者改了資料後
去下一道 sql command , 以改變庫存量,
但是有可能他改了很多筆record之後, 按了undo , 那怎麼辨 ?
那是不是又要去復原庫存量, (那又要復原回多少?)
還有如何記錄他更改前和和更改後差了多少,
ex: 若原先這筆資料他記錄了進貨量=3, 資料庫中總庫存=5
現在把3改成4, 庫存應該變成6,
但3已變成4, 如何知道差1呢,
改了進貨量 , 如何更新'庫存量'(編號：2791)
我們常會直接在Grid中改變資料,
但是若改變了這筆資料,我們必需去更動資料庫中其它資料
ex: 改了進貨資料的'進貨量' , 必需去更改'庫存量'
這樣子的一個動作,不知該如何設計比較好耶?
因為若在使用者改了資料後
去下一道 sql command , 以改變庫存量,
但是有可能他改了很多筆record之後, 按了undo , 那怎麼辨 ?
那是不是又要去復原庫存量, (那又要復原回多少?)
還有如何記錄他更改前和和更改後差了多少,
ex: 若原先這筆資料他記錄了進貨量=3, 資料庫中總庫存=5
現在把3改成4, 庫存應該變成6,
但是若改變了這筆資料,我們必需去更動資料庫中其它資料
ex: 改了進貨資料的'進貨量' , 必需去更改'庫存量'
這樣子的一個動作,不知該如何設計比較好耶?
因為若在使用者改了資料後
去下一道 sql command , 以改變庫存量,
但是有可能他改了很多筆record之後, 按了undo , 那怎麼辨 ?
那是不是又要去復原庫存量, (那又要復原回多少?)
還有如何記錄他更改前和和更改後差了多少,
ex: 若原先這筆資料他記錄了進貨量=3, 資料庫中總庫存=5
現在把3改成4, 庫存應該變成6,
如何使List Box能在加入新的一項時(無排序)，自動捲到最後一項的(編號：2787)
我正利用VB寫一個聊天室，但…用來顯示的ListBox總是
不會在網友鍵入資料後，自動捲到最後一項，使網友都要自己
不斷地以滑鼠來捲動ScrolBar，以看到最新的資料，請問，要
如何使它自動捲動呢？還是網友們有更好的方式來顯示聊天的
內容？？
不會在網友鍵入資料後，自動捲到最後一項，使網友都要自己
不斷地以滑鼠來捲動ScrolBar，以看到最新的資料，請問，要
如何使它自動捲動呢？還是網友們有更好的方式來顯示聊天的
內容？？
如何使我用vb6做出來的密碼保護windows(編號：2786)
如何使我用vb6做出來的密碼保護windows!小弟做出了一個密碼想要保護我的電腦不要被別人用!可是我放在windows中的啟動中它是起動了!但還是可以用別的程式!我想問的就是要如何才能在密碼沒有對之前不能使用進入windows中使用別的程式!也就是說把它鎖住除非密碼正確才可以進入windows中執行其它的程式!!
怎樣修改Data-aware component 的 listbox 所連繫的 database?(編號：2785)
我用Listbox show 一個primiary key 的所有field. 怎樣可修改listbox 內的data, 而連繫的 database 都會被update??
如何使用MSHFlexGrid或DBgrid或datagrid手動增加資料??(編號：2783)
不連結資料的情況下，如何使用MSHFlexGrid或DBgrid或datagrid手動增加資料??
謝謝.....
謝謝.....
有沒有人可以post 一個基本的連線程式的code?(編號：2782)
有沒有人可以post 一個基本的連線程式的code?
(例如: A和B同時執行這連線程式,而程式可以自動detect到他們,並把他們連起來)
(例如: A和B同時執行這連線程式,而程式可以自動detect到他們,並把他們連起來)
如何在vb裡查詢Access資料庫裡的表格的資料....(編號：2778)
在TextBox裡輸入關鍵字...按command後可以去查詢mdb裡的4個表格.
可否使用 select...from..等語法...但它會顯示"必須是case"訊息
是否有別的方式可以解決....
若找到資料後...如何將資料顯示出來.......
謝謝...謝謝...謝謝....謝謝....謝謝......
可否使用 select...from..等語法...但它會顯示"必須是case"訊息
是否有別的方式可以解決....
若找到資料後...如何將資料顯示出來.......
謝謝...謝謝...謝謝....謝謝....謝謝......
怎麼用......(編號：2777)
怎麼使用TextBox去查詢Access的資料庫裡的4個表格
例:鍵入編號或作者可以一次查詢4個表格......是否有符合的資料
可否用 select .... from....where...等語法....
又該如何的讓找到的資料顯示出來....
謝謝...............
例:鍵入編號或作者可以一次查詢4個表格......是否有符合的資料
可否用 select .... from....where...等語法....
又該如何的讓找到的資料顯示出來....
謝謝...............
有沒有重新載入Recordset的方法(編號：2769)
我做階層資料時引用ADO 2.0 ,
資料是以.mdb存取,
在不用DataEnvironment而完全以程式碼控制的前提下,
我做了這些動作.....
1.父資料錄先用程式定義Connection & Recordset(簡稱CN & RS)
2.然後以MYSQL執行Shape Append指令跟子RS結合
(只單純的關聯一個欄位&命名子RS為TTT)
3.父RS.Open MYSQL, 關聯, adOpenStatic, adLockBatchOptimistic
(由於操作需求所以用此LockType)
4.Set 子RS = 父RS.Fields("TTT").Value
以上只列出重點,不管增、刪、改父RS & 子RS都沒問題
而問題如下......
在新增一筆父RS(子RS也要一同新增),
且確定.mdb檔已寫入資料了,
但若沒有退出Form,而接著再刪除父RS子RS,
mdb檔中的父RS已順利刪除了,子RS卻都還保留著,
在執行時子RS都有刪除的動作.
子RS刪除後,
都有做UpdateBatch adAffectAllChapters的動作
因只要重新進入Form,
再次Open資料錄,做刪除時就沒有以上狀況,
所以諸位先進若知道重新載入Recordset的方法,
煩請提供,若有更好的方式也望不吝指教.
資料是以.mdb存取,
在不用DataEnvironment而完全以程式碼控制的前提下,
我做了這些動作.....
1.父資料錄先用程式定義Connection & Recordset(簡稱CN & RS)
2.然後以MYSQL執行Shape Append指令跟子RS結合
(只單純的關聯一個欄位&命名子RS為TTT)
3.父RS.Open MYSQL, 關聯, adOpenStatic, adLockBatchOptimistic
(由於操作需求所以用此LockType)
4.Set 子RS = 父RS.Fields("TTT").Value
以上只列出重點,不管增、刪、改父RS & 子RS都沒問題
而問題如下......
在新增一筆父RS(子RS也要一同新增),
且確定.mdb檔已寫入資料了,
但若沒有退出Form,而接著再刪除父RS子RS,
mdb檔中的父RS已順利刪除了,子RS卻都還保留著,
在執行時子RS都有刪除的動作.
子RS刪除後,
都有做UpdateBatch adAffectAllChapters的動作
因只要重新進入Form,
再次Open資料錄,做刪除時就沒有以上狀況,
所以諸位先進若知道重新載入Recordset的方法,
煩請提供,若有更好的方式也望不吝指教.
如何更新ODBC驅動程式(編號：2765)
Win98的ODBC是3.51版,如果裝了Office2000會更新成4.0版
那如果不要安裝Office或其他軟體,要如何才能更新ODBC的驅動程式
例如我用VB寫一程式是用新的版本的ODBC,可是客戶是用Win95
那程式便無法與資料庫連結
如果在這樣的條件下,我要如何才能更新ODBC的驅動程式
那如果不要安裝Office或其他軟體,要如何才能更新ODBC的驅動程式
例如我用VB寫一程式是用新的版本的ODBC,可是客戶是用Win95
那程式便無法與資料庫連結
如果在這樣的條件下,我要如何才能更新ODBC的驅動程式
誰會把turbo c的程式轉成同樣動作的vb...很急..幫幫忙!!(編號：2764)
char str[]="201",utah[80],rec[80],mid[40],ans[40];
int len,status,i;
thing(str);
void thing(char *str)
{trcpy(utah,str);
len=strlen(utah);
utah[len]=0x0d;
utah[len+1]=0;
utah[len+2]='/0';
i=0;
do{
do{
status=bioscom(3,0,com2);
}while(!(status&0x2000));
bioscom(1,utah[i],com2);
}while(utah[i++]!='\r');
i=0;
do{
do{
status=inportb(0x3fd);
}while(!(status&0x01));
rec[i]=inportb(0x3f8);
i++;
}while(rec[i-1]!='\r');
rec[i]=0;
strrev(rec);
strncpy(mid,rec,8);
strrev(mid);
strncpy(ans,mid,7);
}
int len,status,i;
thing(str);
void thing(char *str)
{trcpy(utah,str);
len=strlen(utah);
utah[len]=0x0d;
utah[len+1]=0;
utah[len+2]='/0';
i=0;
do{
do{
status=bioscom(3,0,com2);
}while(!(status&0x2000));
bioscom(1,utah[i],com2);
}while(utah[i++]!='\r');
i=0;
do{
do{
status=inportb(0x3fd);
}while(!(status&0x01));
rec[i]=inportb(0x3f8);
i++;
}while(rec[i-1]!='\r');
rec[i]=0;
strrev(rec);
strncpy(mid,rec,8);
strrev(mid);
strncpy(ans,mid,7);
}
VB 6.0 中提供之chart元件? 請大家幫忙 謝謝La!(編號：2756)
請教大家有沒有人使用過vb中提供之chart元件如果有的話可否告知使用方法.
我所說的元件分別是 and 我的問題是如何"加入資料".
1.Chart FX 2.0 OLE Custom Control
2.MicroSoft Chart Control 6.0 (OLEDB)
3.Pinnacle-BPS Graph Control
我需要麻煩大家提供方法
比較急的是第一個如何加入資料"屬性,方法",or 片段程式碼也可以.
我所說的元件分別是 and 我的問題是如何"加入資料".
1.Chart FX 2.0 OLE Custom Control
2.MicroSoft Chart Control 6.0 (OLEDB)
3.Pinnacle-BPS Graph Control
我需要麻煩大家提供方法
比較急的是第一個如何加入資料"屬性,方法",or 片段程式碼也可以.
VB form 的觸發事件口訣~(編號：2754)
VB form 的觸發事件口訣~ 就是 一個Form 啟動後
事件發生順序 可參考一下!!
I Like RAP
I--＞Initailize
L--＞Load
R--＞Resize
A--＞Activate
P--＞paint
事件發生順序 可參考一下!!
I Like RAP
I--＞Initailize
L--＞Load
R--＞Resize
A--＞Activate
P--＞paint
MSFlexGrid不同的欄位能連結不同的資料庫嗎??(編號：2753)
想請問一下.....MSFlexGrid有許多"格子"....那麼每個不同的格子
能連結到不同的資料庫嗎???
ps:使用data控制項^^
能連結到不同的資料庫嗎???
ps:使用data控制項^^
SQL 的語法那裡錯了(編號：2751)
adyear1="aaa"
adyear2=70
SQL = "Update communalize Set ad_year='" + adyear1 + "', ad_year1=" + adyear2
在SQL那一段卻出現了型態不符,不曉得為什麼?
adyear2=70
SQL = "Update communalize Set ad_year='" + adyear1 + "', ad_year1=" + adyear2
在SQL那一段卻出現了型態不符,不曉得為什麼?
使用adcdc控制項與使用語法去連結資料庫的差別??(編號：2749)
請問??
使用ADODC控制項可以在同一表單下處理連結不同資料庫的事件，而不用重新宣告，但不使用ADODC而以語法去連結，則不同的事件就須做一次宣告，例如在COMMAND1_CLICK()事件宣告如下:
-----------------------------------------------------
Dim conn3 As New ADODB.Connection
Dim rs3 As New ADODB.Recordset
Dim str3 As String
str3 = "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\foods.mdb;jet oledb:database password=3456"
conn3.Open str3
rs3.CursorLocation = adUseClient
rs3.Open "food", conn3, adOpenKeyset, adLockOptimistic
------------------------------------------------
上面程式我並沒有設定rs3.close及conn3.close，之後在command2()_click想繼續延用rs3卻出現"此處須要物件"的訊息，只好再宣告一次才能解決，請問該如何解決這問題.......
又使用adodc控制項該如何開啟有密碼的資料庫?????
謝謝........
使用ADODC控制項可以在同一表單下處理連結不同資料庫的事件，而不用重新宣告，但不使用ADODC而以語法去連結，則不同的事件就須做一次宣告，例如在COMMAND1_CLICK()事件宣告如下:
-----------------------------------------------------
Dim conn3 As New ADODB.Connection
Dim rs3 As New ADODB.Recordset
Dim str3 As String
str3 = "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\foods.mdb;jet oledb:database password=3456"
conn3.Open str3
rs3.CursorLocation = adUseClient
rs3.Open "food", conn3, adOpenKeyset, adLockOptimistic
------------------------------------------------
上面程式我並沒有設定rs3.close及conn3.close，之後在command2()_click想繼續延用rs3卻出現"此處須要物件"的訊息，只好再宣告一次才能解決，請問該如何解決這問題.......
又使用adodc控制項該如何開啟有密碼的資料庫?????
謝謝........
好多問題ㄚ(編號：2748)
MSComm於Input時要如何指定到某位置抓資料，例如到0x3fd。
當宣告一字串陣列等於某字串，要用何函數取得此陣列之位址。
要如何將資料列印在表單中之text元件中，且要列印的有許多行。
拜託！！誰能將turbo c的指令改成visual basic
char str[]="201",utah[80],rec[80],mid[40],ans[40];
int len,status,i;
thing(str);
void thing(char *str)
{trcpy(utah,str);
len=strlen(utah);
utah[len]=0x0d;
utah[len+1]=0;
utah[len+2]='/0';
i=0;
do{
do{
status=bioscom(3,0,com2);
}while(!(status&0x2000));
bioscom(1,utah[i],com2);
}while(utah[i++]!='\r');
i=0;
do{
do{
status=inportb(0x3fd);
}while(!(status&0x01));
rec[i]=inportb(0x3f8);
i++;
}while(rec[i-1]!='\r');
rec[i]=0;
strrev(rec);
strncpy(mid,rec,8);
strrev(mid);
strncpy(ans,mid,7);
}
當宣告一字串陣列等於某字串，要用何函數取得此陣列之位址。
要如何將資料列印在表單中之text元件中，且要列印的有許多行。
拜託！！誰能將turbo c的指令改成visual basic
char str[]="201",utah[80],rec[80],mid[40],ans[40];
int len,status,i;
thing(str);
void thing(char *str)
{trcpy(utah,str);
len=strlen(utah);
utah[len]=0x0d;
utah[len+1]=0;
utah[len+2]='/0';
i=0;
do{
do{
status=bioscom(3,0,com2);
}while(!(status&0x2000));
bioscom(1,utah[i],com2);
}while(utah[i++]!='\r');
i=0;
do{
do{
status=inportb(0x3fd);
}while(!(status&0x01));
rec[i]=inportb(0x3f8);
i++;
}while(rec[i-1]!='\r');
rec[i]=0;
strrev(rec);
strncpy(mid,rec,8);
strrev(mid);
strncpy(ans,mid,7);
}
Question about "3426 " error(編號：2746)
How can I sovle the problem --- " Error 3426 This action is cancelled by assoicated object."?
(P.S. It's not the pointed to null record. the pointer of data control is pointed between the BOF and EOF)
(P.S. It's not the pointed to null record. the pointer of data control is pointed between the BOF and EOF)
如何使用*.dll(編號：2744)
各位先進，小弟有個用VC寫的DLL檔案，其中提供
int ENSACM408(char *EnFi,char *Enfo)的function
現在我要如何才能將其拿進vb中使用，問題在指標的部分。
謝謝！
int ENSACM408(char *EnFi,char *Enfo)的function
現在我要如何才能將其拿進vb中使用，問題在指標的部分。
謝謝！
如何將表單用MASK方式來做不規則表單(編號：2742)
我想做不規則的表單,要用遮罩的方法,看王國榮先生的AIP講座有說到
MASK的方法,但都是用在FORM內的物件,要如而直接用在FORM上面,做而
不規則的表單呢?
MASK的方法,但都是用在FORM內的物件,要如而直接用在FORM上面,做而
不規則的表單呢?
如何Disable the X (close button) on the title bar for mdichi(編號：2741)
●假設
本人自網站下載下列程式碼，主要使得close button失效
1)windows api 部分略
2)變數宣告部分略
3) '------------------------------------------------
' A1 Disable the X (close button) on the title bar
'------------------------------------------------
hSysMenu = GetSystemMenu(hwnd, False)
If hSysMenu Then
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE
DrawMenuBar hwnd
End If
End If
●問題
上述程式碼在非MDIChild=false的表單有效，但至 MDIChild=True的環境之下失效，請問各位先進是否良好的解決方案。
'
'
謝謝
'
'
--------------
Spencer Yang
本人自網站下載下列程式碼，主要使得close button失效
1)windows api 部分略
2)變數宣告部分略
3) '------------------------------------------------
' A1 Disable the X (close button) on the title bar
'------------------------------------------------
hSysMenu = GetSystemMenu(hwnd, False)
If hSysMenu Then
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE
DrawMenuBar hwnd
End If
End If
●問題
上述程式碼在非MDIChild=false的表單有效，但至 MDIChild=True的環境之下失效，請問各位先進是否良好的解決方案。
'
'
謝謝
'
'
--------------
Spencer Yang
如何讓表單頂端維持同一位置？(編號：2739)
●假設
1)本人在MDI環境之下；
2)有個子表單 Form1。(其MDIChild = true)
Private Sub Form_Load()
'------------------------------------------------
' A0 畫面位置
'------------------------------------------------
Left = (Screen.Width - Width) \ 2
Icon = LoadResPicture(101, vbResIcon)
mstrCaption = "xxxx"
Caption = mstrCaption
...
End Sub
3)Form1上只一個按鈕 cmdCancel，其程式碼如下:
Private Sub cmdCancel_Click()
Unload Me
Set form1= Nothing
End Sub
●問題
本人利用MDIForm的選單，開啟Form1，再關閉，再開啟Form1時，其位置
總是較上一次畫面下降一個標題列(title bar)的高度，請教各位先進
是否有何解決方案，讓表單頂端不論開關幾次都能維持同一位置。
'
'
謝謝！
'
'
-----------------
Spencer Yang
1)本人在MDI環境之下；
2)有個子表單 Form1。(其MDIChild = true)
Private Sub Form_Load()
'------------------------------------------------
' A0 畫面位置
'------------------------------------------------
Left = (Screen.Width - Width) \ 2
Icon = LoadResPicture(101, vbResIcon)
mstrCaption = "xxxx"
Caption = mstrCaption
...
End Sub
3)Form1上只一個按鈕 cmdCancel，其程式碼如下:
Private Sub cmdCancel_Click()
Unload Me
Set form1= Nothing
End Sub
●問題
本人利用MDIForm的選單，開啟Form1，再關閉，再開啟Form1時，其位置
總是較上一次畫面下降一個標題列(title bar)的高度，請教各位先進
是否有何解決方案，讓表單頂端不論開關幾次都能維持同一位置。
'
'
謝謝！
'
'
-----------------
Spencer Yang
Question on crystal report(編號：2737)
I wanna to ask how can I print the report controlled by VB
in using sql statement?
in using sql statement?
檢查陣列元素(編號：2735)
檢查陣列元素的函數是用Ubound，但檢查一個無元素的動態陣列時便會產生Error，雖然可以用On Error來避免，但總覺得這種寫法很笨，有比較漂亮的寫法可以檢查這種情況嗎?
如何用程式控制Modem ??(編號：2734)
想請教一個程式問題，windows 本身有個”電話撥號員”，
我想用數據機來撥號，但卻無法控制，撥號對方電話中、無人接聽
或對方掛電話等等，並顯示訊息給使用者呢？？
我想用數據機來撥號，但卻無法控制，撥號對方電話中、無人接聽
或對方掛電話等等，並顯示訊息給使用者呢？？
"查詢太過複雜"?(編號：2730)
我一共開了大約70個以上的欄位,不知是否會影響?如果會,是否有別的方法可代替?不必把欄位改變.
Private Sub TextToData
'將表格資料寫入資料庫
rs!ad_area = Trim(cmbArea.Text)
rs!ad_no = Trim(txtNo.Text)
rs!ad_name = Trim(txtName.Text)
....
........
End Sub
Private Sub cmdEdit_Click()
'更新
Call TextToData
rs.Update
End Sub
Private Sub Form_Load()
'我使用了兩種方式開啟資料庫
Adodc1.ConnectionString = "DSN=ODBCComm"
Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCmdText
SQL = "Select * From communalize"
Adodc1.RecordSource = SQL
Adodc1.Refresh
conn.Open "DSN=ODBCComm"
rs.CursorLocation = adUseClient
SQL = "select * from communalize"
rs.Open SQL, conn, adOpenKeyset, adLockPessimistic
End Sub
Private Sub TextToData
'將表格資料寫入資料庫
rs!ad_area = Trim(cmbArea.Text)
rs!ad_no = Trim(txtNo.Text)
rs!ad_name = Trim(txtName.Text)
....
........
End Sub
Private Sub cmdEdit_Click()
'更新
Call TextToData
rs.Update
End Sub
Private Sub Form_Load()
'我使用了兩種方式開啟資料庫
Adodc1.ConnectionString = "DSN=ODBCComm"
Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCmdText
SQL = "Select * From communalize"
Adodc1.RecordSource = SQL
Adodc1.Refresh
conn.Open "DSN=ODBCComm"
rs.CursorLocation = adUseClient
SQL = "select * from communalize"
rs.Open SQL, conn, adOpenKeyset, adLockPessimistic
End Sub
請問vb有類似在DOS下執行 COPY file1 + file2 file3 的指令來合(編號：2729)
請問VB有類似在DOS下執行 COPY file1 + file2 file3 的指令或更快速的做法來合併檔案嗎?
開啟一設密碼的資料庫，卻出現錯誤訊息????(編號：2728)
以下是程式碼
______________________________________________________
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
str = "provider=microsoft.jet.oledb.4.0;data source=d:\test\password2.mdb;password=3456"
conn.Open str --------------＞偵錯時駐留在此
rs.CursorLocation = adUseClient
rs.Open "pass", conn, adOpenKeyset, adLockOptimistic
If rs("password") = Text1.Text And rs("username") = Text2.Text Then
Label1.Caption = "密碼正確"
Else
Label1.Caption = "密碼錯誤"
End If
____________________________________________________________
執行時卻出現以下訊息:
"無法啟動你的應用程式，工作群組的資料檔不見了或被另一使用者以獨佔方式開啟"
可是我明明只使用一個程式，access2000且是關閉的??
請問各位先輩，問題出在那裡????
______________________________________________________
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
str = "provider=microsoft.jet.oledb.4.0;data source=d:\test\password2.mdb;password=3456"
conn.Open str --------------＞偵錯時駐留在此
rs.CursorLocation = adUseClient
rs.Open "pass", conn, adOpenKeyset, adLockOptimistic
If rs("password") = Text1.Text And rs("username") = Text2.Text Then
Label1.Caption = "密碼正確"
Else
Label1.Caption = "密碼錯誤"
End If
____________________________________________________________
執行時卻出現以下訊息:
"無法啟動你的應用程式，工作群組的資料檔不見了或被另一使用者以獨佔方式開啟"
可是我明明只使用一個程式，access2000且是關閉的??
請問各位先輩，問題出在那裡????
清單內選項多重選取的刪除(編號：2727)
Dim k As Integer
For k = 0 To 1000
If List1.Selected(k) = True Then----＞不正確的屬性
List1.RemoveItem (k) 陣列索引值
End If
Next
End Sub
For k = 0 To 1000
If List1.Selected(k) = True Then----＞不正確的屬性
List1.RemoveItem (k) 陣列索引值
End If
Next
End Sub
如何用VB去讀取電腦刷卡中的資料(編號：2726)
小弟現在有一台刷卡鐘連結VB的問題。
這台卡鐘使用IC卡刷卡，可利用modem port或printer port和電腦連接。
資料傳輸格式為command(6bytes)及data(32bytes)。
Command:
byte1 byte2 byte3 byte4 byte5 byte6
----------------------------------------------------
SOH ID MSB ID LSB CODE CheckSum CheckSum
Data:
byte1 byte2 byte3 byte4-byte30 byte31 byte32
-----------------------------------------------------------
STX ID MSB ID LSB DATA CheckSumMSB CheckSumLSB
其中byte4-byte30 DATA格式為：
D1-D2 D3-D15 D16-D25 D26 D27
------------------------------------------------
機器編號 IC卡號 日期及時間 功能鍵 序號
請問各位高手高手如何去讀取這些資料來用vb做運算咧算完全沒頭緒......
這台卡鐘使用IC卡刷卡，可利用modem port或printer port和電腦連接。
資料傳輸格式為command(6bytes)及data(32bytes)。
Command:
byte1 byte2 byte3 byte4 byte5 byte6
----------------------------------------------------
SOH ID MSB ID LSB CODE CheckSum CheckSum
Data:
byte1 byte2 byte3 byte4-byte30 byte31 byte32
-----------------------------------------------------------
STX ID MSB ID LSB DATA CheckSumMSB CheckSumLSB
其中byte4-byte30 DATA格式為：
D1-D2 D3-D15 D16-D25 D26 D27
------------------------------------------------
機器編號 IC卡號 日期及時間 功能鍵 序號
請問各位高手高手如何去讀取這些資料來用vb做運算咧算完全沒頭緒......
ADODC commandTimeout and ConnectionTimeout(編號：2723)
I want to know the different of :
1)ADODC commandTimeout/connectiontimeout =0
2)ADODC commandTimeout/connectiontimeout =50
thanks!
1)ADODC commandTimeout/connectiontimeout =0
2)ADODC commandTimeout/connectiontimeout =50
thanks!
Update出現"提供者不支援應用程式所要求的操作",非常急.....(編號：2722)
我使用了下列方法但是還是出現錯誤:(我的欄位大約開了70個以上)
方法一:
rs!ad_area = Trim(cmbArea.Text)
rs!ad_no = Trim(txtNo.Text)
rs!ad_name = Trim(txtName.Text)
......
..........
rs.update
方法二:
rs("ad_area") = Trim(cmbArea.Text)
rs("ad_no") = Trim(txtNo.Text)
rs("ad_name") = Trim(txtName.Text)
.....
..........
rs.update
方法一及二出現:執行階段錯誤'3251':提供者不支援應用程式所要求的操作
方法三:
adodc1.recordset("ad_area") = Trim(cmbArea.Text)
adodc1.recordset("ad_no") = Trim(txtNo.Text)
adodc1.recordset("ad_name") = Trim(txtName.Text)
.....
..........
adodc1.recordset.update
方法四:
fieldname="ad_area"
fieldvalue=cmbarea.text
adodc1.recordset.update fieldname,fieldvalue
........
.....
方法三及四出現：查詢太過複雜的錯誤
救救我，謝謝！！
方法一:
rs!ad_area = Trim(cmbArea.Text)
rs!ad_no = Trim(txtNo.Text)
rs!ad_name = Trim(txtName.Text)
......
..........
rs.update
方法二:
rs("ad_area") = Trim(cmbArea.Text)
rs("ad_no") = Trim(txtNo.Text)
rs("ad_name") = Trim(txtName.Text)
.....
..........
rs.update
方法一及二出現:執行階段錯誤'3251':提供者不支援應用程式所要求的操作
方法三:
adodc1.recordset("ad_area") = Trim(cmbArea.Text)
adodc1.recordset("ad_no") = Trim(txtNo.Text)
adodc1.recordset("ad_name") = Trim(txtName.Text)
.....
..........
adodc1.recordset.update
方法四:
fieldname="ad_area"
fieldvalue=cmbarea.text
adodc1.recordset.update fieldname,fieldvalue
........
.....
方法三及四出現：查詢太過複雜的錯誤
救救我，謝謝！！
如何將搜尋後的欄位填入listbox...(編號：2720)
當我用sql = " select * from 資料庫 where 序號 = text1 "
如何把搜尋後的序號一一加上到listbox..
list1.additem xxxx ＜---試不出來
請各位高手指點
如果有好幾筆的話...
又該如何加程式碼!? 謝謝!!
如何把搜尋後的序號一一加上到listbox..
list1.additem xxxx ＜---試不出來
請各位高手指點
如果有好幾筆的話...
又該如何加程式碼!? 謝謝!!
VB application 的login 問題(編號：2715)
我是剛剛學VB6.0.........我有一些問題想請教一下......
我想寫一個VB application.....但一開始就有問題.....
我有一個access的database......想用Vb 來login......
請問怎樣做.......
我想寫一個VB application.....但一開始就有問題.....
我有一個access的database......想用Vb 來login......
請問怎樣做.......
vb控制8255(編號：2712)
老師給我逼個作業,用VB控制8255來控制家電用品
想來問問要如何控制ㄋ?
能寫個範例MAIL TO ME MA??
MY E-MAIL IS hahaman@pchome.com.tw
還有市面上,這種書好像沒有喔....＞_＜...
想來問問要如何控制ㄋ?
能寫個範例MAIL TO ME MA??
MY E-MAIL IS hahaman@pchome.com.tw
還有市面上,這種書好像沒有喔....＞_＜...
adodc在多個表單下的問題??(編號：2711)
請問....
共有二表單，1.密碼表單 2.主要表單 ，adodc存放密碼表
在密碼表單須輸入密碼，可是adodc控制項是放在主要表單，
且主要表單須在密碼表單通過時才載入，該如何解決。
(我的adodc一定要放在主要表單，請不要叫我改放在密碼表單上)
謝謝........
共有二表單，1.密碼表單 2.主要表單 ，adodc存放密碼表
在密碼表單須輸入密碼，可是adodc控制項是放在主要表單，
且主要表單須在密碼表單通過時才載入，該如何解決。
(我的adodc一定要放在主要表單，請不要叫我改放在密碼表單上)
謝謝........
先進先出法(Firist In First Out Method)(編號：2710)
●假設
交易資料檔部分結構為
1)交易編號、交易日期、證券代碼、買賣數量、沖銷數量...
2)資料如下
__0001,_2000/01/01,_1101,_____1000,______0
__0002,_2000/01/02,_1101,_____1000,______0
__0003,_2000/01/03,_1101,_____1000,______0
__0004,_2000/01/04,_1101,____(3000),_____0
__0005,_2000/01/05,_1101,_____1000,______0
●問題:
在先進先出法之下，在2000/01/04沖銷時，必須分別針對
0001,0002,0003的沖銷數量欄位填入1000，請問各位先進有何較佳的
解決方案
'
'
謝謝
'
'
------------
SPENCER YANG
交易資料檔部分結構為
1)交易編號、交易日期、證券代碼、買賣數量、沖銷數量...
2)資料如下
__0001,_2000/01/01,_1101,_____1000,______0
__0002,_2000/01/02,_1101,_____1000,______0
__0003,_2000/01/03,_1101,_____1000,______0
__0004,_2000/01/04,_1101,____(3000),_____0
__0005,_2000/01/05,_1101,_____1000,______0
●問題:
在先進先出法之下，在2000/01/04沖銷時，必須分別針對
0001,0002,0003的沖銷數量欄位填入1000，請問各位先進有何較佳的
解決方案
'
'
謝謝
'
'
------------
SPENCER YANG
使用元件時如何增加其效能?(編號：2708)
使用VB6寫作元件(此元作主要工作是select database)client端是用asp來接收及處理select的結果，問題是當資料量較多一點時，在ASP那接收會變得很慢，CURSOR都已經設了，還有其他東西要設嗎?(此元件是在NT4的環境下run)
使用 RDO 連 Oracle 的問題(編號：2707)
請問, 我使用 RDO 去連結一個在 Oracle 上而且資料筆數有八千多筆的 table, 但每次 select 出來的 rowcount 都只有 100 筆, 請各位幫幫忙囉!! 謝謝!
P.S. 用 ado 沒有這個問題, 但系統已使用 rdo 設計一段時間了
P.S. 用 ado 沒有這個問題, 但系統已使用 rdo 設計一段時間了
QB的rRS232傳送(編號：2705)
有沒有人知道此qb的語法
open "COM1:9600,E,7,2,CS,DS" FOR OUTPUT AS #1
其中的CS,DS所代表的意思是什麼，還有沒有哪裡可找到的相關資料
open "COM1:9600,E,7,2,CS,DS" FOR OUTPUT AS #1
其中的CS,DS所代表的意思是什麼，還有沒有哪裡可找到的相關資料
ADO的效率比DAO差??????????(編號：2704)
小弟以相同的語法 SELECT DB2 的資料,總共約80000筆,結果 ADO 用了1分47秒,DAO 只用了31秒,怎麼會這樣呢?是不是 ADO 用 ODBC 連結的效率比較差(因為 VB6 未提供 DB2 的 OLE DB Driver,所以用 ODBC).記得小吳好像說過,建議改用 ADO, 比較起來是不是用 DAO 較好呢?????是不是有人可以解說一下,謝謝!
如何在Picture Box 內指定座標印出中英文文字?(編號：2701)
大家好! heee ^^
請教大家如何在Picture Box 內 "指定座標" 印出 "中文" or "英文" 文字?
註明1.不使用Label method
2.And Picture Box 沒有Print 屬性,只有 Form 才有
Output Ex.
ABC測試
A
B
C
測
試
謝謝大家提供意見 ^^
======================================================
請教大家如何在Picture Box 內 "指定座標" 印出 "中文" or "英文" 文字?
註明1.不使用Label method
2.And Picture Box 沒有Print 屬性,只有 Form 才有
Output Ex.
ABC測試
A
B
C
測
試
謝謝大家提供意見 ^^
======================================================
比微軟好用的注音輸入法(編號：2700)
http://www.cititech.com.tw/
花旗中文輸入法的位址，完全免費，而且比微軟的好用，保證你以後輸入的時候一定突飛猛進。你可以直接線上申請序號（免費）。
這一套的特色是這樣的：
當你要打「突飛猛進」時，它會出現：
（■為游標，底線表示它辨認出來的文字）
圖■
圖非■
圖非猛■
突飛猛進■
當你打「為游標」時，可能會有所誤認變成：
為由標■ （因為它以為你要輸入「以…為由」）
此時很簡單，將游標倒退到「由」字上：
為由標
然後按下Tab鍵，你就會發現變成這樣：
為游標
而且下次你又打「為游標」時，他就會記得你最後輸入的習慣，自動看成「為游標」。其實只要學習功能開啟，它會慢慢地辨認你的輸入習慣，自動學習你校正過的字，只是有時候模糊的選擇太多，就會有點short。
另外，如果它無法辨認你要的字，如「他」想換成「它」，只要用游標移位鍵移到「他」字上，按「下」，就會出現同音字，按「上」，就會出現相似音字ㄊㄚ、ㄊㄚˇ、ㄊㄚˋ。
還有就是成語選擇，例如打「移位鍵」，你會發現可能變成這樣：
宜為見■
然後你把游標移到「宜」字身上，按「下」:
宜為見
就會發現他多出像是「一位」、「一味」，讓你選擇，像我因為常輸入電腦說明，所以輸入過「移位」，此時也會出現。如果你發現都不是你想要的，還可以再按一次「下」，選擇你想要的同音字。
當你三個字都校正過以後，就可以把游標移到「鍵」字上：
移位鍵
然後按下Ctrl-3（是鍵盤上方數字的3），它就會問你，是不是要「加詞（移位鍵）」，若要就按Enter，若否則按Esc。如果你到時候想刪除這個成語，可以用相同的方式輸入後，一樣按Ctrl-3，它會問你「刪詞（移位鍵）」，一樣按Enter或Esc。
相信你一定猜到「Ctrl」加上數字多少，就是指幾個字的成語，沒錯，可記1~4個字，Ctrl-1 ~ Ctrl-4。
這一套輸入法想要用得順的話，最主要的訣竅就是，不要一直急著想把它還沒辨認出來的字給修正過來，因為有時候只要你多輸入幾個字，到達可以辨識語意的字量，它就會辨識出來。除非在同一個地方填入兩個以上的文辭也可以通順，它才會呆呆地等你選，不然你真的會很訝異它辨識的品質真的很高。而且就算你費勁手動為它校正，它就會為你記下你的輸入習慣。如果它把不該連在一起的字連住
你也只需用Tab將它們分開，往往它就會弄懂原來應該哪些字連在一起，哪些不必。
對了，忘記說了，如果你要輸入特殊符號，只要按下Ctrl-7，就會出現你常使用的特殊符號，若沒有在裡面找到你要的符號，只要再按一次Ctrl-7即可，如果你發現竟然出現兩個符號選擇（應該不會），那就按一下Esc，就會只出現一個。
平常輸入標點符號也很容易，「，」只要按下「Shift-，」，「。」則是「Shift-.」，「、」則是直接按「”」鍵即可，至於「」與『』本身，則使用[]或者是Shift-[]即可。要輸入全形，只要用「Shift-Space」切換即可。如果中途要輸入英文，只要按Caps Lock或是Shift加上想要輸入的英文字即可。
真的很好用喔，我曾經為了Office-2000會與它作對而摒棄Office-2000，繼續使用Office-97喔。不過它的新版Office-2000也適用。
現在唯一與Office-2000衝突的地方是，如果你使用Outlook-2000，然後用Word 2000當作郵件編輯器，就會發現，在用Word 2000寫信時，一旦將該輸入法關閉，然後再打開，就會它的小視窗被Word蓋住，不過這是小問題，記得將自然輸入法改成「浮動視窗」，或是把Word的視窗拉小一點，將自然輸入法選擇「固定位置」固定在遮不到的地方就好了。
加油，你一定行的。
花旗中文輸入法的位址，完全免費，而且比微軟的好用，保證你以後輸入的時候一定突飛猛進。你可以直接線上申請序號（免費）。
這一套的特色是這樣的：
當你要打「突飛猛進」時，它會出現：
（■為游標，底線表示它辨認出來的文字）
圖■
圖非■
圖非猛■
突飛猛進■
當你打「為游標」時，可能會有所誤認變成：
為由標■ （因為它以為你要輸入「以…為由」）
此時很簡單，將游標倒退到「由」字上：
為由標
然後按下Tab鍵，你就會發現變成這樣：
為游標
而且下次你又打「為游標」時，他就會記得你最後輸入的習慣，自動看成「為游標」。其實只要學習功能開啟，它會慢慢地辨認你的輸入習慣，自動學習你校正過的字，只是有時候模糊的選擇太多，就會有點short。
另外，如果它無法辨認你要的字，如「他」想換成「它」，只要用游標移位鍵移到「他」字上，按「下」，就會出現同音字，按「上」，就會出現相似音字ㄊㄚ、ㄊㄚˇ、ㄊㄚˋ。
還有就是成語選擇，例如打「移位鍵」，你會發現可能變成這樣：
宜為見■
然後你把游標移到「宜」字身上，按「下」:
宜為見
就會發現他多出像是「一位」、「一味」，讓你選擇，像我因為常輸入電腦說明，所以輸入過「移位」，此時也會出現。如果你發現都不是你想要的，還可以再按一次「下」，選擇你想要的同音字。
當你三個字都校正過以後，就可以把游標移到「鍵」字上：
移位鍵
然後按下Ctrl-3（是鍵盤上方數字的3），它就會問你，是不是要「加詞（移位鍵）」，若要就按Enter，若否則按Esc。如果你到時候想刪除這個成語，可以用相同的方式輸入後，一樣按Ctrl-3，它會問你「刪詞（移位鍵）」，一樣按Enter或Esc。
相信你一定猜到「Ctrl」加上數字多少，就是指幾個字的成語，沒錯，可記1~4個字，Ctrl-1 ~ Ctrl-4。
這一套輸入法想要用得順的話，最主要的訣竅就是，不要一直急著想把它還沒辨認出來的字給修正過來，因為有時候只要你多輸入幾個字，到達可以辨識語意的字量，它就會辨識出來。除非在同一個地方填入兩個以上的文辭也可以通順，它才會呆呆地等你選，不然你真的會很訝異它辨識的品質真的很高。而且就算你費勁手動為它校正，它就會為你記下你的輸入習慣。如果它把不該連在一起的字連住
你也只需用Tab將它們分開，往往它就會弄懂原來應該哪些字連在一起，哪些不必。
對了，忘記說了，如果你要輸入特殊符號，只要按下Ctrl-7，就會出現你常使用的特殊符號，若沒有在裡面找到你要的符號，只要再按一次Ctrl-7即可，如果你發現竟然出現兩個符號選擇（應該不會），那就按一下Esc，就會只出現一個。
平常輸入標點符號也很容易，「，」只要按下「Shift-，」，「。」則是「Shift-.」，「、」則是直接按「”」鍵即可，至於「」與『』本身，則使用[]或者是Shift-[]即可。要輸入全形，只要用「Shift-Space」切換即可。如果中途要輸入英文，只要按Caps Lock或是Shift加上想要輸入的英文字即可。
真的很好用喔，我曾經為了Office-2000會與它作對而摒棄Office-2000，繼續使用Office-97喔。不過它的新版Office-2000也適用。
現在唯一與Office-2000衝突的地方是，如果你使用Outlook-2000，然後用Word 2000當作郵件編輯器，就會發現，在用Word 2000寫信時，一旦將該輸入法關閉，然後再打開，就會它的小視窗被Word蓋住，不過這是小問題，記得將自然輸入法改成「浮動視窗」，或是把Word的視窗拉小一點，將自然輸入法選擇「固定位置」固定在遮不到的地方就好了。
加油，你一定行的。
如何動態新增樹狀的menu??(編號：2699)
我想動態新增樹狀的menu， 用load menu(index) 但menu 沒有container 無法把load 出來的 menu指給上層的menu , 且windowlist 屬性是唯讀的也無法指定，大家有沒有好的方法可以解決這問題???
printform要如何印超過螢幕的大小？(編號：2698)
我要列印我查詢的結果
可是因為想要有check（打勾勾的圖）
所以用form來作為列印的來源
可是form的大小好像被螢幕解析度所限制
我印不到一張a4的大小，大概只有2/3
另外，要如何調整form列印時的起始位置
我想下面一點再開始印
麻煩大家了…謝謝
可是因為想要有check（打勾勾的圖）
所以用form來作為列印的來源
可是form的大小好像被螢幕解析度所限制
我印不到一張a4的大小，大概只有2/3
另外，要如何調整form列印時的起始位置
我想下面一點再開始印
麻煩大家了…謝謝
請教一個有關Command的問題...會API的比較了解這個問題的解法!!!(編號：2695)
我想做個圓形的Command扭..好像只能用API才可以做到..
請問要如何才可以用成功呢??
我對API了解不多..所以希望能外加個範例..
謝謝!!
^_^
請問要如何才可以用成功呢??
我對API了解不多..所以希望能外加個範例..
謝謝!!
^_^
VB 的 multipage 怎麼用(編號：2694)
請問各位先進，我在 VB5 內想用 multipage 的功能，
可是在 multipage 內所建立的所有物件，ex textbox, lable
全都沒有 "屬性" 可以定義，
在程式內，也沒有可宣告的地方??
怎麼了，都沒有可以設定的地方耶，
VB 不是物件導向嗎?? 沒有物件怎麼寫程式??
有誰可以告訴我在那裡可以定義它，或是那裡有相關的資料可查，
VB 內也找不到有關 multipage 的 help 說明 (只有簡單的二頁，有說和沒說一樣)
Thank you!!!
可是在 multipage 內所建立的所有物件，ex textbox, lable
全都沒有 "屬性" 可以定義，
在程式內，也沒有可宣告的地方??
怎麼了，都沒有可以設定的地方耶，
VB 不是物件導向嗎?? 沒有物件怎麼寫程式??
有誰可以告訴我在那裡可以定義它，或是那裡有相關的資料可查，
VB 內也找不到有關 multipage 的 help 說明 (只有簡單的二頁，有說和沒說一樣)
Thank you!!!
請教大家關於在 Picture Box中加入文字?(編號：2692)
大家好!
我想請問大家關於在 Picture Box中如加入文字用vb寫.
Ex.1.如果假設目前內容為Picture Box如何輸出以下兩種中英文方式
2.如果需要定座標的話
ABC測試
A
B
C
測
試
請大家幫忙! 謝謝指導!
我想請問大家關於在 Picture Box中如加入文字用vb寫.
Ex.1.如果假設目前內容為Picture Box如何輸出以下兩種中英文方式
2.如果需要定座標的話
ABC測試
A
B
C
測
試
請大家幫忙! 謝謝指導!
How to Merge Cell....??(編號：2691)
我想在MSHFlexGrid或DataGrid中
將名稱相同的Cell合成一個Cell
但不知如何做
應該是.MergeCells這個方法吧
但....不知如何用??
請教各位前輩....謝謝
將名稱相同的Cell合成一個Cell
但不知如何做
應該是.MergeCells這個方法吧
但....不知如何用??
請教各位前輩....謝謝
幾難的問題(.Res檔的解讀)急切(編號：2690)
1. 請問有何高手，懂得解讀(.Res)的格式，來讀取內裏的文字、圖片和Icon，有何API 可以用到，或有何VB己內建的Function呢!
2. 此外，能否把.rc的檔案編繹成.res檔而不透過Rc.exe編繹器
2. 此外，能否把.rc的檔案編繹成.res檔而不透過Rc.exe編繹器
請問.......(編號：2688)
如果要在一個專案中設計三個Text物件讓使用者分別輸入三個整數，
另有二個按鈕，一是"最大的數"、一是"最小的數"，當使用者按任一按鈕時，會在Label物件上顯示三整數中最大(或最小的數)
要怎麼做???
另有二個按鈕，一是"最大的數"、一是"最小的數"，當使用者按任一按鈕時，會在Label物件上顯示三整數中最大(或最小的數)
要怎麼做???
請問sql語法的問題?(編號：2685)
我想用insert into的sql指令去新增一筆資料,但有些欄位不一定有資料,如:insert into 訂單明細(訂單編號,單價,營業稅,金額) values('001',200,,200),若營業稅無資料時,我將此一對應欄位空白但執行時,卻出現了多了","符號的錯誤訊息,請問各位高手這個情況我該如何下sql語法呢?
請問如何把Ascii碼的文字檔轉成Big5格式(編號：2683)
AS title
曾試過使用
dim byteAry() as byte
byteArystrConv("ascii.txt",vbfromunicode)
strConv(byteAry,vbunicode)
的方法去轉，結果卻是不對的，請問有什麼方法呢？
曾試過使用
dim byteAry() as byte
byteArystrConv("ascii.txt",vbfromunicode)
strConv(byteAry,vbunicode)
的方法去轉，結果卻是不對的，請問有什麼方法呢？
如何設計一個 ' alt+tab ' 的按鈕(編號：2682)
Q1.如何設計一個按鈕
按一下按鈕 = 用手按 alt鍵 + tab鍵
Q2.如何模擬按鍵打字
例如按一個鈕 就會先用上面的方法切換到另一個application
在另一個application 游標提示符號後輸入字串(想展示用)
接著按enter鍵
Q3.因為展示用,所以需設wait time
請問如何設計等待時間 例如5sec後 再執行後面的程式,
再同一按鈕內
拜託 拜託 謝謝各位
按一下按鈕 = 用手按 alt鍵 + tab鍵
Q2.如何模擬按鍵打字
例如按一個鈕 就會先用上面的方法切換到另一個application
在另一個application 游標提示符號後輸入字串(想展示用)
接著按enter鍵
Q3.因為展示用,所以需設wait time
請問如何設計等待時間 例如5sec後 再執行後面的程式,
再同一按鈕內
拜託 拜託 謝謝各位
winsock(編號：2680)
請問,我使用winsock在nt4.0及95環境互相透過tcp傳送資料,但未何時有傳送不完整之情形,比如傳送一段字串,篇篇後面一串就是送不到,請問這是何種情形,還有sendkeys "{ENTER}"怎麼沒有作用丫...
如何用sendmessage 送出"滑鼠Click"?(編號：2679)
請問如何用sendmessage 送出"滑鼠Click"至其它應用程式?
或有其它方法送出"滑鼠Move & Click"至其它應用程式?
Tks!
或有其它方法送出"滑鼠Move & Click"至其它應用程式?
Tks!
急問!!!!!! 請問自製控制項的問題(編號：2676)
我做了一個控制項, 利用封裝部屬精靈和另一個執行檔封裝成setup.exe及xx.cab
之後執行setup, 最後出現:
ACTION: DllSelfRegister: "C:\WINNT\system32\abc.ocx"
*** 錯誤: 找不到檔案「C:\TEMP\msftqws.pdw\$(DLLSelfRegisterEx)」，因此無法註冊。
的錯誤, 請問是哪裡出了問題??? ( ps. abc.ocx是我自製的控制項)
之後執行setup, 最後出現:
ACTION: DllSelfRegister: "C:\WINNT\system32\abc.ocx"
*** 錯誤: 找不到檔案「C:\TEMP\msftqws.pdw\$(DLLSelfRegisterEx)」，因此無法註冊。
的錯誤, 請問是哪裡出了問題??? ( ps. abc.ocx是我自製的控制項)
請問如何送字串給非自己開發程式的編輯欄位(超難!!!!!!!!!!!)(編號：2675)
如題, 例如以 IE 連一網站, 此時出現一 DialogBox , 等待輸入使用者帳號, 此時如何
由自己的程式, 將帳號送至此 DialogBox 的使用者帳號欄位!!!
請眾高手幫忙!!!!!!!!
由自己的程式, 將帳號送至此 DialogBox 的使用者帳號欄位!!!
請眾高手幫忙!!!!!!!!
如何使用Winsock 寫連線遊戲? 完全沒有頭緒?!!(編號：2674)
我想寫一個連線遊戲 , 但我不懂如何使用Winsock , 什麼是local port , 什麼是Remote port , 什麼是Remote Host..... 還有, 怎麼可以連接到我指定的IP address呢?
VB6使用Data Environment連結data時奇怪的問題(編號：2673)
VB6使用Data Environment連結data時~~新增資料幾筆後
再刪除~~~~然後往上或下移資料會發生~~"執行階段錯誤'-2147217885'(80040e23):所給的HROW為硬式或軟式刪除列。
"~~~~~~而且並不是每次都發生~~要多直試幾次~~~~~~
這個錯誤跟同一筆資料刪除兩次出現的錯誤一樣~~不知到是
不是vb本身的問題~~~還是有解決的方法。
再刪除~~~~然後往上或下移資料會發生~~"執行階段錯誤'-2147217885'(80040e23):所給的HROW為硬式或軟式刪除列。
"~~~~~~而且並不是每次都發生~~要多直試幾次~~~~~~
這個錯誤跟同一筆資料刪除兩次出現的錯誤一樣~~不知到是
不是vb本身的問題~~~還是有解決的方法。
Crystal Report Access2000(編號：2672)
各位先進：
請問Crystal Report 4.6是否可以"Data File"的方式連結Access
2000的資料庫？因為我嘗試連結時都一直出現要我輸入密碼的對話盒
，而我輸入正確的密碼卻無效(我的.MDB有設定密碼)？如果我用
SQL/ODBC的方式卻又可以連結到該MDB(它可以接受我輸入的正確密
碼)。又，若我用SQL/ODBC的方式連結MDB資料庫並設計好報表，請問
我該如何從VB6裡呼叫該報表？
請問Crystal Report 4.6是否可以"Data File"的方式連結Access
2000的資料庫？因為我嘗試連結時都一直出現要我輸入密碼的對話盒
，而我輸入正確的密碼卻無效(我的.MDB有設定密碼)？如果我用
SQL/ODBC的方式卻又可以連結到該MDB(它可以接受我輸入的正確密
碼)。又，若我用SQL/ODBC的方式連結MDB資料庫並設計好報表，請問
我該如何從VB6裡呼叫該報表？
如何傳參數給crystal report 檔，並列印出參數的值(編號：2668)
請大家高手幫忙
我要列印出某一段日期範圍，並將某一段日期範圍列印在報表上
範例如下：
Text1.txt=89/01/01
Text2.txt=89/02/29
我要將Text1.txt和Text2.txt列印在報表中
且Text1.txt和Text2.tx是動態的，可能是輸入的任意數值
開環境 WIN95 +Access 97 + VB5.0 SP3
麻煩各位高手幫忙感激不盡
我要列印出某一段日期範圍，並將某一段日期範圍列印在報表上
範例如下：
Text1.txt=89/01/01
Text2.txt=89/02/29
我要將Text1.txt和Text2.txt列印在報表中
且Text1.txt和Text2.tx是動態的，可能是輸入的任意數值
開環境 WIN95 +Access 97 + VB5.0 SP3
麻煩各位高手幫忙感激不盡
再請教一次picture box 的內容列印(編號：2667)
請問要如何印出Picutre1的內容.謝謝!!
以下程式有誤...
Printer.PaintPicture Picture1.Picture, Picture1.Left, Picture1.Top
Printer.EndDoc
以下程式有誤...
Printer.PaintPicture Picture1.Picture, Picture1.Left, Picture1.Top
Printer.EndDoc
誰來教我列印啊!(編號：2664)
我需要一個列印資料庫的程式
找了很多書 但不太合用 其中有一個vb內建的Crystal Report Pro 的工具
但我在我的vb中之增益集中找不到
各位高人們教教小弟我吧!
找了很多書 但不太合用 其中有一個vb內建的Crystal Report Pro 的工具
但我在我的vb中之增益集中找不到
各位高人們教教小弟我吧!
update時出現"查詢太過複雜(編號：2661)
Adodc1.Recordset("ad_area") = cmbArea.Text
Adodc1.Recordset("ad_name") = Trim(txtName.Text)
.......
......
Adodc1.Recordset.Update
當程式執行到"Adodc1.Recordset.Update",時出現錯誤如下:
執行階段誤'-21474672539(80004005)':
[Microsoft][ODBC Microsoft Access 97 驅動程式]查詢太過複雜
Adodc1.Recordset("ad_name") = Trim(txtName.Text)
.......
......
Adodc1.Recordset.Update
當程式執行到"Adodc1.Recordset.Update",時出現錯誤如下:
執行階段誤'-21474672539(80004005)':
[Microsoft][ODBC Microsoft Access 97 驅動程式]查詢太過複雜
用 ado select db2 database 發生 "如果物件已關閉,就無法繼續操(編號：2659)
小弟寫一個程式類似 ACCESS 的查詢設計視窗,讓使用者自行挑
選欄位,然後從 IBM DB2 DATABASE 選取符合條件的資料,結果
遇到一個問題,每次只要選擇的欄位多一些,程式跑到 if not
rs.eof then 那行時就出現"如果物件已關閉,就無法繼續操作"
的錯誤,我試著把 Timeout 設長一點就可以了,但是當欄位再多
一些時(十幾個),我把 Timeout 設到 999999999 時也沒用,我
用相同的語法到 access 上跑都沒問題.百思不得其解,不知道
有沒有人有相同的問題,小弟將程式片段列在下面,請大家幫忙
指點,謝謝!
我的系統是 NT service pack 4,VB6(未 run 過 service pack)
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sqlstr as string
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;UID=user;PWD=user;Data Source=DB2DB"
cn.ConnectionTimeout = 999999999
cn.Open
sqlstr="select.........."
Set rs = New ADODB.Recordset
rs.Open SqlStr, cn, adOpenStatic, adLockReadOnly
if not rs.eof then
選欄位,然後從 IBM DB2 DATABASE 選取符合條件的資料,結果
遇到一個問題,每次只要選擇的欄位多一些,程式跑到 if not
rs.eof then 那行時就出現"如果物件已關閉,就無法繼續操作"
的錯誤,我試著把 Timeout 設長一點就可以了,但是當欄位再多
一些時(十幾個),我把 Timeout 設到 999999999 時也沒用,我
用相同的語法到 access 上跑都沒問題.百思不得其解,不知道
有沒有人有相同的問題,小弟將程式片段列在下面,請大家幫忙
指點,謝謝!
我的系統是 NT service pack 4,VB6(未 run 過 service pack)
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sqlstr as string
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;UID=user;PWD=user;Data Source=DB2DB"
cn.ConnectionTimeout = 999999999
cn.Open
sqlstr="select.........."
Set rs = New ADODB.Recordset
rs.Open SqlStr, cn, adOpenStatic, adLockReadOnly
if not rs.eof then
日期時間的問題(編號：2657)
如何使用SQL 語法篩選特定日期時間範圍內的資料
Exp:
篩選 2000/1/1 AM12:00 - 2000/1/2 PM 10:00
(已試過很多方法)
感謝先進們指導
Exp:
篩選 2000/1/1 AM12:00 - 2000/1/2 PM 10:00
(已試過很多方法)
感謝先進們指導
About the ADO and Stored procedure(編號：2656)
Hi.
我想知道,在 stored procedure 中的 return value 如何用
ado 來存取 ??
Recordset ?? 沒有所謂的 filed可供存取
Command ?? create parameters 時如果有多新增一個為 returnvalue 的 parameters , 會出現錯誤訊息.
請各位幫忙.
我想知道,在 stored procedure 中的 return value 如何用
ado 來存取 ??
Recordset ?? 沒有所謂的 filed可供存取
Command ?? create parameters 時如果有多新增一個為 returnvalue 的 parameters , 會出現錯誤訊息.
請各位幫忙.
sql語法 ?(編號：2655)
mSql = "Select * From cet11 " _
& "Where dt1101 like '" & Text1.Text & "'"
adodc1.recordsource=msql
adodc1.refresh
為何用like show不出資料??(adodc+datagrid)
& "Where dt1101 like '" & Text1.Text & "'"
adodc1.recordsource=msql
adodc1.refresh
為何用like show不出資料??(adodc+datagrid)
.Show / .ZOrder(0) ??(編號：2654)
: 在 MDI 中呼叫一個SDI form (mdi child)
以前呼叫一個Form, 都是用 show 這個 method
ex: frmSDIForm.Show
但最近在做MDI
發覺對於一個尚未 Close 的 Form
第二次呼叫 .show , 並不會把它帶到最上層
但是用 frmSDIForm.ZOrder(0)
就不會有問題了. 而且他也做了 .show 的事情
那是不是代表,在開啟一個 MDI Child 時
我們不需要用 frmSDIForm.show
直接用 frmSDIForm.ZOrder(0) 就行了
或者他們兩者還是有不同意義.
以前呼叫一個Form, 都是用 show 這個 method
ex: frmSDIForm.Show
但最近在做MDI
發覺對於一個尚未 Close 的 Form
第二次呼叫 .show , 並不會把它帶到最上層
但是用 frmSDIForm.ZOrder(0)
就不會有問題了. 而且他也做了 .show 的事情
那是不是代表,在開啟一個 MDI Child 時
我們不需要用 frmSDIForm.show
直接用 frmSDIForm.ZOrder(0) 就行了
或者他們兩者還是有不同意義.
請問一個MDI Form的 menu 設計(編號：2650)
在一般MDI的AP中,我們常會開啟許多SDI的Form
每當開啟一個Form,
在 MDI menu 中的 window 這個選單,就會多一個選項,
開掉一個Form, 該選項就會移除
同時若選了其中一個選項, 該選項所代表的Form就會變成Active Window
本來想說看一下VB Wizard 所用的方法, 可是卻看不到這一段Code
請問這功能該如何做.
我的AP是 Standard exe, 其中一個MDI Form, 和多個 SDI Form.
每當開啟一個Form,
在 MDI menu 中的 window 這個選單,就會多一個選項,
開掉一個Form, 該選項就會移除
同時若選了其中一個選項, 該選項所代表的Form就會變成Active Window
本來想說看一下VB Wizard 所用的方法, 可是卻看不到這一段Code
請問這功能該如何做.
我的AP是 Standard exe, 其中一個MDI Form, 和多個 SDI Form.
請問如果我只知道窗口的一部份caption(編號：2647)
如果我只知道窗口的一部份Caption，（如："http://XXXXXXXX - Internet Explorer" 我只知道後面。）可不可以找到完全的caption呢？又可不可以從完整的caption中找到他的classID呢？
請教一個form1.printform的問題(編號：2644)
各位先進，小弟又有問題要請教大家了!!
請問如何在使用form1.printform後要如使印表機不
要立刻捲紙而能在同一張紙上作其它的列印呢??
請問如何在使用form1.printform後要如使印表機不
要立刻捲紙而能在同一張紙上作其它的列印呢??
IIS4.0英文版會把中文欄位名當成亂碼？？？很急...(編號：2643)
請問大家..我在IIS4.0英文版(網際網路上的)上，下SELECT U單位,P職稱,N姓名，為甚麼資料沒有傳回來呢..在PWS2.0中文版是正常的..更奇怪的是，只有SELECT不成功. INSER INTO ，UPDATE，DELETE都是正常的..我叫出原始碼來看..欄位名都成了亂碼了？？..卻又可以
做INSER INTO ，UPDATE，DELETE 動作？？？為甚麼？？
做INSER INTO ，UPDATE，DELETE 動作？？？為甚麼？？
請問要怎麼使用CopyMemory API函數拷貝二維陣列到一維陣列?(編號：2639)
Dim a() As Byte, b() As Byte
ReDim a(1,3)
ReDim b(3)
我要把a(1,0)到a(1,3)的陣列內容拷貝到b陣列, 請問要怎麼做??
ReDim a(1,3)
ReDim b(3)
我要把a(1,0)到a(1,3)的陣列內容拷貝到b陣列, 請問要怎麼做??
如何使自製的activeX中label背景變透明的!!!(編號：2637)
請問大家
如何使自製的activeX中有label元件的地方背景變透明的,我試過將UserControl與Label的backstyle 均設為透明,但所出來的效果會變成label的字型糊糊的根本看不清楚,請問要如何做才好呢
如何使自製的activeX中有label元件的地方背景變透明的,我試過將UserControl與Label的backstyle 均設為透明,但所出來的效果會變成label的字型糊糊的根本看不清楚,請問要如何做才好呢
如何將DataEnvironment Command 物件指給另一個Adodc1.recordset(編號：2636)
如果只要將Command物件所選取的資料錄集合指定給另一個ADODC1.Recordset物件。 Private Sub Form_Load() set adodc2.recordset= nvirotnment2.rscommand1 If Adodc2.Recordset.State = adStateClosed Then
Adodc2.Recordset.Open
End If
End Sub
執行時錯誤.....
Adodc2.Recordset.Open
End If
End Sub
執行時錯誤.....
如何聯結EXCEL的圖形?(編號：2631)
HELP!
請問以下問題該如何解決: 在FORM中輸入資料後,如何將資料傳入一個已存在的EXCEL FILE中,然後畫出圖表,最後會在FORM中顯示此圖表?
請問以下問題該如何解決: 在FORM中輸入資料後,如何將資料傳入一個已存在的EXCEL FILE中,然後畫出圖表,最後會在FORM中顯示此圖表?
Keyboard Scan code(編號：2630)
我想寫一個程式 使F1 成為 Ctrl-C(copy or Ctrl-insert)... 但不知道 Keyboard Scan code... 有人能教我嗎
問一個可能算很難的問題……(編號：2629)
各位先拜：
下在開了三個視窗。它們有一個共通點就是 caption 中都有 "Microsoft Internet Explorer" 等字串，而現今我想利用 VB 寫個程式來控制它們，要求達到的目的如下：
只須利用 "Microsoft Internet Explorer" 這個關鍵字串
就可以尋找到這三個視窗。
幾天前，我曾在某個網站（站名忘了…）上看到一個範例，當然我也就興沖沖的抱回家試了。可惜必須知道 caption 的”全名”才有辦法找到它（注意！是單個它喲！）試問，該如何以 VB 來做到這個要求呢？謝謝大家……
下在開了三個視窗。它們有一個共通點就是 caption 中都有 "Microsoft Internet Explorer" 等字串，而現今我想利用 VB 寫個程式來控制它們，要求達到的目的如下：
只須利用 "Microsoft Internet Explorer" 這個關鍵字串
就可以尋找到這三個視窗。
幾天前，我曾在某個網站（站名忘了…）上看到一個範例，當然我也就興沖沖的抱回家試了。可惜必須知道 caption 的”全名”才有辦法找到它（注意！是單個它喲！）試問，該如何以 VB 來做到這個要求呢？謝謝大家……
請教有關recordsource(編號：2628)
我使用grid去秀我的data,然後用變數和sql去找四個欄位,抓我的第五欄位值,它可以抓到,但每當沒有資料時,grid秀一個空欄出來,我想讓它可以出一個msbox提示這資料,不在我的資料庫中,所以我用if else end 去讓他顯示msbox,可是怎麼設都不行,要不就是明明有data它也出錯誤訊息,要不就是不理會我,仍舊秀它的空欄位出來,我要如果讓vb偵知我的資料中沒有此資料,然後秀一個msbox中的訊息?
謝謝
謝謝
About DBGrid...(編號：2627)
請問...
1＞ 怎樣才可更改DBGrid中顯示出來的data而又不改變Access中的data?
2＞ 又,怎樣才可快速地將DBGrid中部分Column的data輸入到另一table中?
Thank for your help!
1＞ 怎樣才可更改DBGrid中顯示出來的data而又不改變Access中的data?
2＞ 又,怎樣才可快速地將DBGrid中部分Column的data輸入到另一table中?
Thank for your help!
請問同時mail給一人以上時程式寫法(編號：2622)
要怎摸改才對勒??thanks.
with mapimessages
.RecipIndex = 1
.RecipAddress="oskc@ms1.tpts5.com.tw"
.RecipAddress="oskrc@ms33.tpts5.com.tw"
.....
end with
with mapimessages
.RecipIndex = 1
.RecipAddress="oskc@ms1.tpts5.com.tw"
.RecipAddress="oskrc@ms33.tpts5.com.tw"
.....
end with
SQL撞字...(編號：2620)
個SQL的ORDER BY同Access的table name -- ORDER撞o左~~~~~!!＞_＜
eg. "SELECT * FROM ORDER"
佢話我FROM錯.....
佢以為我想"SELECT * FROM table_name ORDER BY field ASC"....
請問有辨法不改table name 而SELECT倒ORDER(＜--table name)嗎?
Thx~~!
eg. "SELECT * FROM ORDER"
佢話我FROM錯.....
佢以為我想"SELECT * FROM table_name ORDER BY field ASC"....
請問有辨法不改table name 而SELECT倒ORDER(＜--table name)嗎?
Thx~~!
DataGrid插入空白列的問題(編號：2619)
當在一個DataGrid上下 Recordset.AddNew 指令時，如果不填入資料﹝
所有欄位皆為空白﹞就下Recordset.CancelUpdate 時就會發生錯誤
請問這個問題要怎麼解決 幫幫我吧 謝謝各位高手
所有欄位皆為空白﹞就下Recordset.CancelUpdate 時就會發生錯誤
請問這個問題要怎麼解決 幫幫我吧 謝謝各位高手
如何stop一正利用ado.recordset讀取資料的程式(編號：2618)
請教一下!
我有一利用ado.recordset讀取資料庫的程式,
總在讀取recordset時出問題,想在程式中稍作修正,
以便stop該程式
我有試過 sendmessage hwnd,wm_close,..及
postmessage hwnd.wm_close,..
但都無效
故請教是否有其它方法控制
我有一利用ado.recordset讀取資料庫的程式,
總在讀取recordset時出問題,想在程式中稍作修正,
以便stop該程式
我有試過 sendmessage hwnd,wm_close,..及
postmessage hwnd.wm_close,..
但都無效
故請教是否有其它方法控制
查詢資料庫中不重覆的資料SQL問題(編號：2617)
各位高手大家好：
我訂單資料中，客戶編號有下列資料
AAA
BBB
AAA
CCC
DDD
AAA
CCC
CCC
共八筆客戶編號資料
現在我只要AAA,BBB,CCC,DDD四筆不重覆的資料
不知名SQL查詢式如何寫
期望各位高手解答感激不盡
訂單資料.客戶編 號為一文字型態資料
環境：WIN95 +ACCESS 97 +VB5.0 SP3
我訂單資料中，客戶編號有下列資料
AAA
BBB
AAA
CCC
DDD
AAA
CCC
CCC
共八筆客戶編號資料
現在我只要AAA,BBB,CCC,DDD四筆不重覆的資料
不知名SQL查詢式如何寫
期望各位高手解答感激不盡
訂單資料.客戶編 號為一文字型態資料
環境：WIN95 +ACCESS 97 +VB5.0 SP3
關於檔案???(編號：2615)
我的循序檔(.txt)是一個足球聯盟的戰績表
想將讀進來的資料利用二維陣列儲存,每逢遇到一個換行,就形成
一個陣列
我是用" Line Input"抓一列列的資料,該如何判斷換行字元?
且將換行字元之前的資料丟入一個二維陣列呢???
＜我是用VB 6.0 專業版＞
想將讀進來的資料利用二維陣列儲存,每逢遇到一個換行,就形成
一個陣列
我是用" Line Input"抓一列列的資料,該如何判斷換行字元?
且將換行字元之前的資料丟入一個二維陣列呢???
＜我是用VB 6.0 專業版＞
請教各方高手一個關於Sendkeys 的問題!!(編號：2613)
本人正在寫一個用Shell呼叫format.com的程式,而且用Sendkeys模擬＜ENTER＞鍵,但畫面只顯示"\",而不是＜ENTER＞鍵,請問應該怎樣寫呢?
請問老師以下語法何處錯呢?t.k.s.(編號：2611)
sql = "insert into [report011] [report011].[工號],[report011].[日期]) select [report01].[工號],[report01].[日期] from (select [report01].[工號],[report01].[日期] from report01 group by [工號],[日期] order by [工號],[日期])"
db.Execute sql
db.Execute sql
SQL problem(編號：2610)
請問在 vb 裏怎樣可以用 sql check 到 database field is empty
example
str = "select no from XX where name=" & " "
data1.recordsource = str
example
str = "select no from XX where name=" & " "
data1.recordsource = str
超難的問題(編號：2608)
●呵呵我又上來殺死大家的腦細胞了
●用WindowFromPoint及GetWindowText可以得到具有hWnd物件內的文字，現在麻煩來了，Label不具hWnd..又想得當Label的Caption(不定表單上的Label)..這有沒有什麼偏方可以解決
●用WindowFromPoint及GetWindowText可以得到具有hWnd物件內的文字，現在麻煩來了，Label不具hWnd..又想得當Label的Caption(不定表單上的Label)..這有沒有什麼偏方可以解決
adodc一問???(編號：2607)
請問各位高手....
一個ADODC控制項可以使用使用二個有關聯的資料表來擷取二個資料表的一些資料嗎???
例如在 RecordSource 使用SQL
謝謝.....
一個ADODC控制項可以使用使用二個有關聯的資料表來擷取二個資料表的一些資料嗎???
例如在 RecordSource 使用SQL
謝謝.....
自製的MyMsgBox到底要如何設定vbYesNo(編號：2606)
請問高手們,在一個自製的MyMsgBox到底要如何才能從新default vbYesNo讓我們自製的MyMsgBox,也能像VB原始功能一樣能分辨Yes button和No button,目前我只知道在Public中寫MyMsgBox([ByVal prompt As String,ByVal title As String,ByVal buttons As ????)尤其是vbYesNo的部分不會規範,懇請前輩高手們幫忙解惑
如何使用command 物件的方法??(編號：2605)
我們在data environment中利用command建立資料表或sql會自動產生一個command物件的方法,但小弟不知這個方法在什麼時候會用到,又該如何使用這個方法呢?
如何讓text顯示資料庫內的資料像list清單一樣可以點選(編號：2604)
以下是我們查詢資料庫內的資料顯示於TextBox上.但我們想點選TextBox內的資料.不知如何操作
Private Sub Cmdsearch_Click()
Sname = "歌曲名稱"
NameInput = InputBox$("請輸入歌曲名稱:", "查詢資料")
Sname = Sname + " Like'*" & NameInput & "*'"
Ccust.Recordset.FindFirst Sname
If NameInput ＜＞ "" Then
If Ccust.Recordset.NoMatch Then
MsgBox "Sorry!查無此資料!", vbOK, "查詢結果"
End If
End If
End Sub
Private Sub Cmdsearch_Click()
Sname = "歌曲名稱"
NameInput = InputBox$("請輸入歌曲名稱:", "查詢資料")
Sname = Sname + " Like'*" & NameInput & "*'"
Ccust.Recordset.FindFirst Sname
If NameInput ＜＞ "" Then
If Ccust.Recordset.NoMatch Then
MsgBox "Sorry!查無此資料!", vbOK, "查詢結果"
End If
End If
End Sub
王國榮的書...?(編號：2603)
為什麼沒有辦法把輸入的數值(減最高分和減最低分再平均呢?)
那裡寫錯了呢?(我是買王國榮新觀念的VB6在259頁的第5題)
請各位老鳥幫忙一下
Dim score(4, 9)
For i = 0 To 4
Sum = 0
For j = 0 To 9
score(i, j) = Val(InputBox("請輸入第" & i + 1 & "位歌者第" & j + 1 & "評審分數"))
Sum = Sum + score(i, j)
Next j
Max = UBound(score, 2) 'ubound不是會把第二維的最高分數給max嗎?
Min = LBound(score, 2) 'lbound不是會把第二維的最低分數給min嗎?
Print "第"; i + 1; "位歌者的分數為"; Sum - Min - Max; "平均分數為"; (Sum - Max - Min) / 10
Next i
那裡寫錯了呢?(我是買王國榮新觀念的VB6在259頁的第5題)
請各位老鳥幫忙一下
Dim score(4, 9)
For i = 0 To 4
Sum = 0
For j = 0 To 9
score(i, j) = Val(InputBox("請輸入第" & i + 1 & "位歌者第" & j + 1 & "評審分數"))
Sum = Sum + score(i, j)
Next j
Max = UBound(score, 2) 'ubound不是會把第二維的最高分數給max嗎?
Min = LBound(score, 2) 'lbound不是會把第二維的最低分數給min嗎?
Print "第"; i + 1; "位歌者的分數為"; Sum - Min - Max; "平均分數為"; (Sum - Max - Min) / 10
Next i
資料轉換的問題!!(編號：2602)
程式如下：
Dim a As Double
Dim b As Double
Dim c As Double
b = 0.93
c = 0.9793
a = b - c
結果 a = -4.92999999999999E-02
為何不是 a = -0.0493
若改變b值有些會正常顯示，有些結果還是錯，請問各位高手，這是什麼
原因造成？謝謝!!
Dim a As Double
Dim b As Double
Dim c As Double
b = 0.93
c = 0.9793
a = b - c
結果 a = -4.92999999999999E-02
為何不是 a = -0.0493
若改變b值有些會正常顯示，有些結果還是錯，請問各位高手，這是什麼
原因造成？謝謝!!
有關Multi Media Control(編號：2599)
如何用MultiMedia Control以轉Sound Track?
如program正在play CD Track 1，我要跳去Track 10，不知怎樣做?
我用以下方法不能...
mci1.Track = 10
mci1.Command = "Play"
請問要怎做?
如program正在play CD Track 1，我要跳去Track 10，不知怎樣做?
我用以下方法不能...
mci1.Track = 10
mci1.Command = "Play"
請問要怎做?
Adodc1.RecordSource為查詢(即關聯了數個資料表)時，如何更新及(編號：2597)
我先是建立了三個資料表："會員基本資料"、"會員交易資料"、"商店資料"等三個資料表，並以此三個資料表建立了一個"會員交易查詢"，作為Adodc1的資料來源，那應該如何更新及刪除Adodc1.RecordSet，來達到更新及刪除三個資料表內容的目的？
製作 ActiveX DLL 需要注意什麼??(編號：2595)
請問
vb6 在製作 AvtiveX DLL 時有沒有需要注意什麼??
因為我的程式在用標準執行檔作模擬時很正常.
可是轉成 AvtiveX DLL 後,用asp呼叫,執行幾次之後iis 4.0 就整個停止回應(當掉了)...,在標準執行檔時不管作幾次都沒事...真不知道問題出在那裡...
我用的是 vb6 在 nt4.0 sp6 iis 4.0
vb6 在製作 AvtiveX DLL 時有沒有需要注意什麼??
因為我的程式在用標準執行檔作模擬時很正常.
可是轉成 AvtiveX DLL 後,用asp呼叫,執行幾次之後iis 4.0 就整個停止回應(當掉了)...,在標準執行檔時不管作幾次都沒事...真不知道問題出在那裡...
我用的是 vb6 在 nt4.0 sp6 iis 4.0
堆疊空間(編號：2593)
請問一下如果一個程式裡面呼叫過多的副程式的話，是不是會引起堆疊空間的不足
如果這是引起堆疊空間的不足，那麼又得呼叫這麼多的副程式程式應如作撰寫及堆疊空間是否可以釋放呢？
例如當我使用完這個副程式時，那麼我就不使用這個副程式時是否就可以釋放這個副程式的堆疊空間
直我再次使用時再將這個副程式的堆疊空間戴入
如果這是引起堆疊空間的不足，那麼又得呼叫這麼多的副程式程式應如作撰寫及堆疊空間是否可以釋放呢？
例如當我使用完這個副程式時，那麼我就不使用這個副程式時是否就可以釋放這個副程式的堆疊空間
直我再次使用時再將這個副程式的堆疊空間戴入
請問有關列印的問題！(急)(編號：2592)
各位高手們好！
我最近作一個報表利用拖曳編輯、預覽及列印的程式！
使其他的應用程式可以利用這個報表程式輕易做到一些特殊報表
一些不容易使用crystal report不易完成的報表…
大致功能已經完成…但實際列印時遇到一個大問題…
就是若在圖片上列印文字時…文字的底會呈現白色(即以白色矩形
蓋住圖形)，在預覽時不會有此情形，文字區域底色會呈現透明…
而列印時就有產生這種情形！
我使用了
API DrawText函數及VB內定的Printer.Print都會有這些情形：
請問各位高手…要如何能使列印的文字底色呈透明…拜託了…
謝謝！
我最近作一個報表利用拖曳編輯、預覽及列印的程式！
使其他的應用程式可以利用這個報表程式輕易做到一些特殊報表
一些不容易使用crystal report不易完成的報表…
大致功能已經完成…但實際列印時遇到一個大問題…
就是若在圖片上列印文字時…文字的底會呈現白色(即以白色矩形
蓋住圖形)，在預覽時不會有此情形，文字區域底色會呈現透明…
而列印時就有產生這種情形！
我使用了
API DrawText函數及VB內定的Printer.Print都會有這些情形：
請問各位高手…要如何能使列印的文字底色呈透明…拜託了…
謝謝！
DBASE 資料庫 如何用 VB 執行 PACK(編號：2590)
我的開發環境是 WIN98+VB6.0
想請教各位先進:
如何用 VB 來 清除 DBASE 資料檔中,已被刪除的記錄 ,
(也就是 xBASE 的 PACK 指令)
謝謝 !!
想請教各位先進:
如何用 VB 來 清除 DBASE 資料檔中,已被刪除的記錄 ,
(也就是 xBASE 的 PACK 指令)
謝謝 !!
如何使二支AP可以溝通資料(整合另一個系統)(編號：2589)
在進行整合性專案,(進銷存系統 & 銷售系統) 進銷存系統是已上線(平台UNIX,NT..不一定,開發工具VB,COBOL,Powerbuilder..不一定,資料庫SQL,Oracle,Infomix..不一定,pc or 終端機..不一定, ps:我不曉得以上條件是否會影響到程式寫作方式),用VB寫的 銷售系統 程式必須跟一個現存的進銷存系統進行資料或訊息交換,用什麼方式作會比較好,而且在現存的 進銷存系統 僅進行小部份修改,即可達成,請大家多指教,謝謝
" 更新或重整所需鍵欄位資訊不足 " ??(編號：2581)
"更新或重整所需鍵欄位資訊不足"
請問一個問題,當我做一個複合查詢之後
把結果顯示到Grid上, 可是當我要去更新資料時
就會發上以上的錯誤訊息,請問該如何解決.
若我只查詢單一的table, 就不會有問題.
請問一個問題,當我做一個複合查詢之後
把結果顯示到Grid上, 可是當我要去更新資料時
就會發上以上的錯誤訊息,請問該如何解決.
若我只查詢單一的table, 就不會有問題.
請問自製MyMsgBox中如何從新規範vbYesNo(編號：2580)
請問高手們,在一個自製的MyMsgBox到底要如何才能從新default vbYesNo讓我們自製的MyMsgBox,也能像VB原始功能一樣能分辨Yes button和No button,目前我只知道在Public中寫MyMsgBox([ByVal prompt As String,ByVal title As String,ByVal buttons As ????)尤其是vbYesNo的部分不會規範,懇請前輩高手們幫忙解惑
當網路中斷時,和資料庫連線的程式會變成無回應(編號：2578)
在NT4.0中,小弟的程式是透過Informix的ODBC和後端的Informix Server讀取資料,但是在網路中斷時,程式要建立connection時卻成無回應狀態,不會產生錯誤,這要如何修改或增加程式才能判斷出無法連線呢？
判斷CommonDialog按下了取消鈕(編號：2577)
使用Green先生所建議之方法來判斷按下取消鈕，但仍出現問題。
請問我應如何解決。
謝謝!!
錯誤訊息如下：「執行階段錯誤'32755'；已選取"取消" 」
仿Green兄的程式寫法如下：
Private Sub Command1_Click()
On Error GoTo nerr
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
nerr:
If Err.Number = 32755 Then
Msgbox "您按下取消鈕"
End If
End Sub
請問我應如何解決。
謝謝!!
錯誤訊息如下：「執行階段錯誤'32755'；已選取"取消" 」
仿Green兄的程式寫法如下：
Private Sub Command1_Click()
On Error GoTo nerr
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
nerr:
If Err.Number = 32755 Then
Msgbox "您按下取消鈕"
End If
End Sub
簡易播放MP3檔案，備原始碼供新手交流參考(編號：2575)
簡易播放MP3檔案，備原始碼供新手交流參考
http://home.pchome.com.tw/life/_wei_lin_/list.htm
幸運賓果篇
http://home.pchome.com.tw/life/_wei_lin_/list.htm
幸運賓果篇
DBGird行列顏色的控制(編號：2574)
如何控制DBGird內的行列顏色
例如
有十筆資料
DBGird內的
第一筆是白色(第一列)
第二筆是綠色(第二列)
第三筆是白色(第三列)
以此類推
然後光棒可停駐在選擇的行列
列如按了第三列，第三列整行都是光棒的顏色
再按第四列光棒整行移至第四列，而不會因為只有某個欄位有光棒的顏色
例如
有十筆資料
DBGird內的
第一筆是白色(第一列)
第二筆是綠色(第二列)
第三筆是白色(第三列)
以此類推
然後光棒可停駐在選擇的行列
列如按了第三列，第三列整行都是光棒的顏色
再按第四列光棒整行移至第四列，而不會因為只有某個欄位有光棒的顏色
經Datagrid去Delete Record!!!!!!!!!!!!!!(編號：2571)
本人用:
Adodc1 for retrieve data
Datagrid1 for show data
Adodc1.recordset.
用 Addnew, delete and update 作為data 存取
Case:
當有兩筆資料一樣時, 本想delete one record that point to the datagrid1 currently.
本人用 -＞ Adodc1.Recordset.Delete -＞DoEvents 但失敗!!
"Run-time error! Insufficient or incorrect key field information; too many rows affected by update."
Thank you!
小飛俠
Adodc1 for retrieve data
Datagrid1 for show data
Adodc1.recordset.
用 Addnew, delete and update 作為data 存取
Case:
當有兩筆資料一樣時, 本想delete one record that point to the datagrid1 currently.
本人用 -＞ Adodc1.Recordset.Delete -＞DoEvents 但失敗!!
"Run-time error! Insufficient or incorrect key field information; too many rows affected by update."
Thank you!
小飛俠
陣列的移動(編號：2569)
請問若果我自訂了一個Type
Type InfoA
UserName as string
Password as string
End Type
然後
Dim Club(100) as InfoA
宣告了以上後，並填入了資料
請問我想Club(50) - Club(60)內的資料向下移動(資料的移動)
我真的要使用迴圈來完成嗎?
Type InfoA
UserName as string
Password as string
End Type
然後
Dim Club(100) as InfoA
宣告了以上後，並填入了資料
請問我想Club(50) - Club(60)內的資料向下移動(資料的移動)
我真的要使用迴圈來完成嗎?
用 Grid 來 UPDATE 資料(編號：2567)
Dear all:
小弟遇到一個問題，若我將一個 Table 開放給 User 用 Grid (DBGrid 或 DataGrid皆可) 去 UPDATE資料(不須要INSERT), 而該 Table 的 Primary Key 是員工ID，這一筆已經產生好, USER 不得 UPDATE 這一欄，只可 Update 其他欄，但是 USER 希望Grid上秀出的是員工姓名(須連到另一 Table)，而不是較難辨認的員工ID，怎麼做到呢？謝謝！
George.
小弟遇到一個問題，若我將一個 Table 開放給 User 用 Grid (DBGrid 或 DataGrid皆可) 去 UPDATE資料(不須要INSERT), 而該 Table 的 Primary Key 是員工ID，這一筆已經產生好, USER 不得 UPDATE 這一欄，只可 Update 其他欄，但是 USER 希望Grid上秀出的是員工姓名(須連到另一 Table)，而不是較難辨認的員工ID，怎麼做到呢？謝謝！
George.
SQL: ....WHERE....一問(編號：2566)
VB6(Chinese), Access97, win95
請問怎樣才可在SQL中select乎合當日日期(now)的recordset?
Dim strSQL As String
Dim cookTime As Date
cookTime = FormatDateTime(Now, vbShortDate)
strSQL = " SELECT * FROM DISH WHERE cook_date Between " & cookTime & " "
Data2.RecordSource = strSQL
Data2.Refresh ＜---------" cook_date = 2000/4/20 AM 1:27:45
中語法錯誤(少了運算元)
請問怎樣才可在SQL中select乎合當日日期(now)的recordset?
請問怎樣才可在SQL中select乎合當日日期(now)的recordset?
Dim strSQL As String
Dim cookTime As Date
cookTime = FormatDateTime(Now, vbShortDate)
strSQL = " SELECT * FROM DISH WHERE cook_date Between " & cookTime & " "
Data2.RecordSource = strSQL
Data2.Refresh ＜---------" cook_date = 2000/4/20 AM 1:27:45
中語法錯誤(少了運算元)
請問怎樣才可在SQL中select乎合當日日期(now)的recordset?
哪裡有免費的Freeware or Shareware for加密和列印條碼可以下載?(編號：2564)
Dear All:
想請教各位使用過加密解密和列印條碼的高手
哪個網站有免費的OCX or DLL可以下載?
TKS
想請教各位使用過加密解密和列印條碼的高手
哪個網站有免費的OCX or DLL可以下載?
TKS
Toolbar Tips VS. SetWindowPos HWND_TOPMOST 就不見.(編號：2563)
我使用 VB6 sp3 中文版,我的 Form 有使用 API "SetWindowPos" HWND_TOPMOST (讓 app 永遠保持在最上層).在 Toolbar 之 Show Tips屬性定為True .但是只有剛執行時可以 Show Tips ,使用過 InputBox 或 MsgBox 或 叫另一個 Form Show 後,再回主 Form ,滑鼠移到 Toolbar 上, Tips 就不見了.除非 "SetWindowPos" 設為 HWND_NOTOPMOST , Tips 才可以不論呼叫 InputBox MsgBox Form 回來之後仍在,請問各位高手曾碰到過這樣的狀態嗎?該如何解決?謝謝!
新手發問!(編號：2560)
For i = 1 To 5
Print "i="; i, "j=";
For j = 1 To i
Print j; '請問這一個print j;後面的;號是什麼意思
Next j
Print '請問這個print 有什麼做用
Next i
Print "i="; i, "j=";
For j = 1 To i
Print j; '請問這一個print j;後面的;號是什麼意思
Next j
Print '請問這個print 有什麼做用
Next i
當我將exe. file 整入CD有甚麼要注意(編號：2559)
本人用notebook (1024*768)做,而project中有76 forms
其中有gif and flash and sound
但當我make exe file 及整入CD,
我在另一電腦中play 此cd,所有gif 消失,字又走位,有些又變形,
但我以把此電腦改為1024*768
其中有gif and flash and sound
但當我make exe file 及整入CD,
我在另一電腦中play 此cd,所有gif 消失,字又走位,有些又變形,
但我以把此電腦改為1024*768
編譯執行檔(機械碼)時發生錯誤(編號：2558)
小弟最近在將程式編譯為執行檔時發生了一些問題 ,其錯誤訊息大致如下
"在程式碼產生器或程式碼連結器(linker),發生無法預期的錯誤....",
而其錯誤說明如下:
===============================================================
程式碼產生器或連結器中，發生了不可預測的錯誤
程式碼產生器或連結器，引起了不可預測的錯誤。選擇「是」以便在記事本中顯示錯誤。
該錯誤大部份是由較小的磁碟空間不足，或其它與磁碟相關的問題引起。
===============================================================
小弟也試著將程式放在大一點的硬碟下編譯,但結果還是一樣......
不過假使編譯為"虛擬碼"或是按下"開始"箭頭來即時編譯則可正常完成,
小弟目前使用為VB5.0...............
請教各位先進這問題要如何解決???
PS:上述問題在VB6.0中同樣會發生
"在程式碼產生器或程式碼連結器(linker),發生無法預期的錯誤....",
而其錯誤說明如下:
===============================================================
程式碼產生器或連結器中，發生了不可預測的錯誤
程式碼產生器或連結器，引起了不可預測的錯誤。選擇「是」以便在記事本中顯示錯誤。
該錯誤大部份是由較小的磁碟空間不足，或其它與磁碟相關的問題引起。
===============================================================
小弟也試著將程式放在大一點的硬碟下編譯,但結果還是一樣......
不過假使編譯為"虛擬碼"或是按下"開始"箭頭來即時編譯則可正常完成,
小弟目前使用為VB5.0...............
請教各位先進這問題要如何解決???
PS:上述問題在VB6.0中同樣會發生
請問那裡寫錯了(編號：2556)
我要一次刪除多筆資料,我這樣寫
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Wend
會出現 "太多列被更新所影響" 的錯誤訊息
請問那裡寫錯了
Adodc1.Recordset.MoveFirst
While Not Adodc1.Recordset.EOF
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Wend
會出現 "太多列被更新所影響" 的錯誤訊息
請問那裡寫錯了
關於將asp程式寫成com元件(編號：2553)
請教大家關於Asp程式寫成com元件的問題...
我原先已引用MTS項目建立MTS元件,並成功加入MTS裡於網頁上使用
但現在我在VB設定引用項目加入
Microsoft Active Server Pages Object Library
希望直接在COM裡使用ASP物件
但在OnStartPage子程序裡應該如何寫呢?
Public Sub OnStartPage(iScriptingContext As ScriptingContext)
End Sub
或哪裡要注意呢?
我的網頁引用該元件會發生以下錯誤,請問大家我該如何解決??
伺服器物件 錯誤 'ASP 0193 : 8002000e'
OnStartPage 失敗
/prj/test3.asp, 列2
外部物件的 OnStartPage 方法發生錯誤。
我原先已引用MTS項目建立MTS元件,並成功加入MTS裡於網頁上使用
但現在我在VB設定引用項目加入
Microsoft Active Server Pages Object Library
希望直接在COM裡使用ASP物件
但在OnStartPage子程序裡應該如何寫呢?
Public Sub OnStartPage(iScriptingContext As ScriptingContext)
End Sub
或哪裡要注意呢?
我的網頁引用該元件會發生以下錯誤,請問大家我該如何解決??
伺服器物件 錯誤 'ASP 0193 : 8002000e'
OnStartPage 失敗
/prj/test3.asp, 列2
外部物件的 OnStartPage 方法發生錯誤。
RDS元件在PWS環境與在SERVER上執行結果不同？不同？(編號：2552)
請問各位先進..
1.個人利用RDS配合ASP在本地以PWS模擬查詢程式，執行結果可查詢出資料，但移至NT+IISSERVER上卻沒有傳回查詢資料..可能有哪些原因呢？但是其他的功能：如新增、刪除均可成立，確定語法正確(於PWS上正常傳回資料..
2.IIS會把中文的TABLE NAME看成亂碼..為甚麼？？？
1.個人利用RDS配合ASP在本地以PWS模擬查詢程式，執行結果可查詢出資料，但移至NT+IISSERVER上卻沒有傳回查詢資料..可能有哪些原因呢？但是其他的功能：如新增、刪除均可成立，確定語法正確(於PWS上正常傳回資料..
2.IIS會把中文的TABLE NAME看成亂碼..為甚麼？？？
資料庫搜尋的問題(編號：2551)
不好意思...以下是我們的程式碼...請問為什麼執行時..
會產生錯誤...((沒有運算元))
是否能指導我們一下......
Private Sub Cmdsearch_Click()
Sname = "歌曲名稱"
NameInput = InputBox$("請輸入歌曲名稱:", "查詢資料")
Sname = Sname + "Like'*" + NameInput + "*'"
Ccust.Recordset.FindFirst Sname -------＞..會產生錯誤...((沒有運算元))
If NameInput ＜＞ "" Then
If Ccust.Recordset.NoMatch Then
MsgBox "Sorry!查無此資料!", vbOK, "查詢結果"
End If
End If
End Sub
會產生錯誤...((沒有運算元))
是否能指導我們一下......
Private Sub Cmdsearch_Click()
Sname = "歌曲名稱"
NameInput = InputBox$("請輸入歌曲名稱:", "查詢資料")
Sname = Sname + "Like'*" + NameInput + "*'"
Ccust.Recordset.FindFirst Sname -------＞..會產生錯誤...((沒有運算元))
If NameInput ＜＞ "" Then
If Ccust.Recordset.NoMatch Then
MsgBox "Sorry!查無此資料!", vbOK, "查詢結果"
End If
End If
End Sub
請問data environment command的問題?(編號：2549)
我在data environment中用command物件建立幾個sql語法的資料表
,如:SELECT 商品編號 AS 進貨商品編號,SUM(數量) AS 總數量,SUM(金額) AS 總金額 FROM 進貨資料明細 GROUP BY 商品編號 ,建立之後我想利用這些資料表再作合併比對進銷存的情況,但是無法再用sql語法下去作合併,請問諸位大師,可有解決的方法!(資料表有:進貨,銷貨,退貨等等)(軟體vb6sp3企業版)
,如:SELECT 商品編號 AS 進貨商品編號,SUM(數量) AS 總數量,SUM(金額) AS 總金額 FROM 進貨資料明細 GROUP BY 商品編號 ,建立之後我想利用這些資料表再作合併比對進銷存的情況,但是無法再用sql語法下去作合併,請問諸位大師,可有解決的方法!(資料表有:進貨,銷貨,退貨等等)(軟體vb6sp3企業版)
經Datagrid去Delete Record!(編號：2548)
本人用:
Adodc1 for retrieve data
Datagrid1 for show data
Adodc1.recordset.
用 Addnew, delete and update 作為data 存取
Case:
當有兩筆資料一樣時, 本想delete one record that point to the datagrid1 currently.
本人用 -＞ Adodc1.Recordset.Delete -＞DoEvents 但失敗!!
"Run-time error! Insufficient or incorrect key field information; too many rows affected by update."
Thank you!
Adodc1 for retrieve data
Datagrid1 for show data
Adodc1.recordset.
用 Addnew, delete and update 作為data 存取
Case:
當有兩筆資料一樣時, 本想delete one record that point to the datagrid1 currently.
本人用 -＞ Adodc1.Recordset.Delete -＞DoEvents 但失敗!!
"Run-time error! Insufficient or incorrect key field information; too many rows affected by update."
Thank you!
螢幕保護在小視窗與APP.PrevInstance的衝突(編號：2545)
為了防止螢幕保護重覆執行,在命令參數為/s加了APP.PrevInstance的檢驗,但在控制台的設定中,因為其在小視窗內執行,而使得預視的功能因APP.PrevInstance的檢驗而失敗了,該如何解決呢?
可否利用datagrid or datalist來做click動作?(編號：2542)
我在使用查詢語法時.....將查詢後的結果顯示於datagrid跟datalist上.......
sql = " select 姓名 from 客戶 where 性別 = 男 "
adodc.recordsource = sql
adodc.refresh
查詢完以後假如有三個人...
在grid跟list上面都有顯示姓名..
如何點選其中之一把點選的欄位顯示在另一個表單上面....
如我只要顯示第二個人....該如何做!?
因為目前我另一表單的recordsource來源是目前的表單
所以顯示的欄位也是會有三個人...
如何做到顯示的為點選的欄位呢!? 謝謝指教
sql = " select 姓名 from 客戶 where 性別 = 男 "
adodc.recordsource = sql
adodc.refresh
查詢完以後假如有三個人...
在grid跟list上面都有顯示姓名..
如何點選其中之一把點選的欄位顯示在另一個表單上面....
如我只要顯示第二個人....該如何做!?
因為目前我另一表單的recordsource來源是目前的表單
所以顯示的欄位也是會有三個人...
如何做到顯示的為點選的欄位呢!? 謝謝指教
可否利用datagrid or datalist來做click動作?(編號：2541)
我在使用查詢語法時.....將查詢後的結果顯示於datagrid跟datalist上.......
sql = " select 姓名 from 客戶 where 性別 = 男 "
adodc.recordsource = sql
adodc.refresh
查詢完以後假如有三個人...
在grid跟list上面都有顯示姓名..
如何點選其中之一把點選的欄位顯示在另一個表單上面....
如我只要顯示第二個人....該如何做!?
因為目前我另一表單的recordsource來源是目前的表單
所以顯示的欄位也是會有三個人...
如何做到顯示的為點選的欄位呢!? 謝謝指教
sql = " select 姓名 from 客戶 where 性別 = 男 "
adodc.recordsource = sql
adodc.refresh
查詢完以後假如有三個人...
在grid跟list上面都有顯示姓名..
如何點選其中之一把點選的欄位顯示在另一個表單上面....
如我只要顯示第二個人....該如何做!?
因為目前我另一表單的recordsource來源是目前的表單
所以顯示的欄位也是會有三個人...
如何做到顯示的為點選的欄位呢!? 謝謝指教
查詢年及月份的SQL敘述如何寫(編號：2540)
請教各位高手
如我要查詢(89/09 -89/12 )89年9月份至89年12月訂單的資料要如下手SQL查詢式
開發環境：WIN 95 + ACCESS 97 +VB5.0SP3
如我要查詢(89/09 -89/12 )89年9月份至89年12月訂單的資料要如下手SQL查詢式
開發環境：WIN 95 + ACCESS 97 +VB5.0SP3
自製外部資源檔收納多張JPG圖片(或任何格式檔案)供程式應用，備(編號：2538)
自製外部資源檔收納多張JPG圖片(或任何格式檔案)供程式應用，以減少執行檔檔案容量。原始碼提供處http://home.pchome.com.tw/life/_wei_lin_/list.htm
美女動物拳篇
美女動物拳篇
Winsock2.0(編號：2537)
●我為了能試試ASP的威力，因此向朋友借了Windows98來裝PWS，但他跟我說要安裝Winsock2.0，唉~~Windows95最早版那來的Winsock2.0讓我裝，我又要把Windows95升級成Windows98，它又不讓我升級，也沒也暴力或是溫和的方法可以讓我安裝Winsock2.0上去？
程式自動作出按下按鍵的動作(加強)，急切問題(編號：2535)
我發覺Sendkeys好像是不能送出
Shift + Alt + Left
或是 Ctrl + Alt + F4
等等
有那高人能解決我的問題啊
Shift + Alt + Left
或是 Ctrl + Alt + F4
等等
有那高人能解決我的問題啊
KTV選單系統的製作(編號：2533)
好心人士請幫忙小弟
因為小弟的專題的截止日期近在眉梢了..........
小弟在寫程式過程中遇到下列的問題:
搜尋檔案及放映列表選單要如何製作
並且要秀出已選的歌名
可否副上相關程式碼.......THNKS
因為小弟的專題的截止日期近在眉梢了..........
小弟在寫程式過程中遇到下列的問題:
搜尋檔案及放映列表選單要如何製作
並且要秀出已選的歌名
可否副上相關程式碼.......THNKS
請問一個資料表的問題?(編號：2532)
我在dataenvironment中作了一個訂單主表與明細資料表,在訂主表之中還作了一個明細資料表"金額"加總的分組查詢,這兩個資料表我放在同一個表單作資料的新增,在明細資料表新增一筆資料後,將主表與明細表同時作requery的動作,MSHFlexgrid的資料更新了,但是分組查詢的"金額"加總卻沒有更新,請問有解決的方法嗎!盼各位高位指引一條明路!!謝謝
誰會動態指定datacombo!!(編號：2528)
小弟想在程式執行時依datacombo1.datacombo2欄位之值利用sql指令篩選,動態指定datacombo的row source,row member,listfields和boundcolumn,以列出想要的值,試了好久都無法成功datacombo3都無法列出我要的值(newcmd1.name都是空白),以下是我的程式碼:請各位高手幫我解決這個難題??(軟體vb6.0企業版sp3)
sql = "select 商品編號,商品名稱 from 商品資料 where 廠商編號= "
sql = sql & DataCombo1.Text '& "'"
sql = sql & " and "
sql = sql & "商品編號='"
sql = sql & DataCombo2.Text & "'"
newcmd1.ActiveConnection = DE1.Conn1
newcmd1.CommandType = adCmdText
newcmd1.CommandText = sql
Set rs1 = newcmd1.Execute()
Set DataCombo3.RowSource = newcmd1.Execute(sql)
DataCombo3.RowMember = "newcmd1"
DataCombo3.ListField = rs1.Fields("商品編號").Name
DataCombo3.BoundColumn = rs1.Fields("商品名稱").Name
sql = "select 商品編號,商品名稱 from 商品資料 where 廠商編號= "
sql = sql & DataCombo1.Text '& "'"
sql = sql & " and "
sql = sql & "商品編號='"
sql = sql & DataCombo2.Text & "'"
newcmd1.ActiveConnection = DE1.Conn1
newcmd1.CommandType = adCmdText
newcmd1.CommandText = sql
Set rs1 = newcmd1.Execute()
Set DataCombo3.RowSource = newcmd1.Execute(sql)
DataCombo3.RowMember = newcmd1.name
DataCombo3.ListField = rs1.Fields("商品編號").Name
DataCombo3.BoundColumn = rs1.Fields("商品名稱").Name
sql = "select 商品編號,商品名稱 from 商品資料 where 廠商編號= "
sql = sql & DataCombo1.Text '& "'"
sql = sql & " and "
sql = sql & "商品編號='"
sql = sql & DataCombo2.Text & "'"
newcmd1.ActiveConnection = DE1.Conn1
newcmd1.CommandType = adCmdText
newcmd1.CommandText = sql
Set rs1 = newcmd1.Execute()
Set DataCombo3.RowSource = newcmd1.Execute(sql)
DataCombo3.RowMember = "newcmd1"
DataCombo3.ListField = rs1.Fields("商品編號").Name
DataCombo3.BoundColumn = rs1.Fields("商品名稱").Name
sql = "select 商品編號,商品名稱 from 商品資料 where 廠商編號= "
sql = sql & DataCombo1.Text '& "'"
sql = sql & " and "
sql = sql & "商品編號='"
sql = sql & DataCombo2.Text & "'"
newcmd1.ActiveConnection = DE1.Conn1
newcmd1.CommandType = adCmdText
newcmd1.CommandText = sql
Set rs1 = newcmd1.Execute()
Set DataCombo3.RowSource = newcmd1.Execute(sql)
DataCombo3.RowMember = newcmd1.name
DataCombo3.ListField = rs1.Fields("商品編號").Name
DataCombo3.BoundColumn = rs1.Fields("商品名稱").Name
ACCESS資料庫設定密碼(編號：2527)
如果資料庫設密碼(ACCESS)
那VB在開啟資料庫時應如何設定
EX:
Set db = OpenDatabase("\..\aaa\aaa.mdb")
Set rs = db.OpenRecordset(變數)
:
:
那我應如何開啟資料庫
那VB在開啟資料庫時應如何設定
EX:
Set db = OpenDatabase("\..\aaa\aaa.mdb")
Set rs = db.OpenRecordset(變數)
:
:
那我應如何開啟資料庫
如何將搜尋完後的欄位個別顯示!?(編號：2522)
我將搜尋完的資料顯示在datagrid中....
當顯示資料有2個以上時...
我該如何取到個別的資料....
ex: 1. test1
2. test2
我想直接點選test2的來源欄位就好...
請問該如何完成!? 謝謝...
當顯示資料有2個以上時...
我該如何取到個別的資料....
ex: 1. test1
2. test2
我想直接點選test2的來源欄位就好...
請問該如何完成!? 謝謝...
如何將圖形放大縮小後存成 JPG 檔?(編號：2519)
AS TITLE, 我需要將圖形載入後放大縮小之後將新的圖存成 JPG 檔, 請問哪有不需要註冊的 DLL 或者 CONTROL 可以做得到?
如何用程式收mail?(編號：2518)
我現在正在寫收發信的軟體,
但是卻一直弄不懂內含html的信件的格式,
以致無法將非信件內文的文字區分開來,
希望有高手能幫我這個忙,感恩不盡....
順帶一問如何將中文轉成Unicode...謝謝.....
但是卻一直弄不懂內含html的信件的格式,
以致無法將非信件內文的文字區分開來,
希望有高手能幫我這個忙,感恩不盡....
順帶一問如何將中文轉成Unicode...謝謝.....
一個windowstate=2的問題,請大家幫幫忙(編號：2517)
在我設計表單時,將windowstate設定成2(最大化)
可是按下F5時,卻沒有反應,移動滑鼠發現表單的影子(不知道該如何形容)一直跟著滑鼠,它的大小是windowstate=0的大小,等到按下左鍵時才會以最大化出現在畫面中,一開始我還以為是當機了,等到按下去的時候才出現,我也在表單配置視窗中看到是windowstate=0的大小,不管我怎麼調,都是一樣.連在Form_Activate()中加上Form.windowstate=2也是一樣.不知道大家有沒有發生過這一種情形,能否為我解答
謝謝!!
可是按下F5時,卻沒有反應,移動滑鼠發現表單的影子(不知道該如何形容)一直跟著滑鼠,它的大小是windowstate=0的大小,等到按下左鍵時才會以最大化出現在畫面中,一開始我還以為是當機了,等到按下去的時候才出現,我也在表單配置視窗中看到是windowstate=0的大小,不管我怎麼調,都是一樣.連在Form_Activate()中加上Form.windowstate=2也是一樣.不知道大家有沒有發生過這一種情形,能否為我解答
謝謝!!
請問如何同時存取多個圖檔?(編號：2516)
程式希望可以自由設定顯現幾乘幾個圓點
所以我就在form上放了100個image box
並load圓形將其visible設為False
若我現在load了3*3個圓形(visible=true)
想把整個圖形儲存為一新檔案 有可能嗎?
還是我應該用x,y坐標畫圖,再儲存,若是要如何作
但此種方法就不能在圓形上作mouse_click的動作不是嗎?
所以我就在form上放了100個image box
並load圓形將其visible設為False
若我現在load了3*3個圓形(visible=true)
想把整個圖形儲存為一新檔案 有可能嗎?
還是我應該用x,y坐標畫圖,再儲存,若是要如何作
但此種方法就不能在圓形上作mouse_click的動作不是嗎?
RDS遠端存取資料問題?(編號：2513)
為什麼我在Windos 98或windows2000執行王國榮先生的範例程式：rds程式時，會出現下面的錯誤訊息
執行階段錯誤'-2147024891(80070005)':
RDS伺服器錯誤：伺服器拒絕存取此頁面的預設RDS控制碼的存取。
若需進一步關於伺服器安全設定資訊，請與伺服器系統管理員聯絡
這問題
執行階段錯誤'-2147024891(80070005)':
RDS伺服器錯誤：伺服器拒絕存取此頁面的預設RDS控制碼的存取。
若需進一步關於伺服器安全設定資訊，請與伺服器系統管理員聯絡
這問題
用ODBC連接Excel資料表無法Addnew,Update,會出現錯誤(編號：2512)
我用ODBC連接Excel資料表,在各筆資料的來回瀏覽都沒有問題
但在更新或新增時就會出現錯誤,不知各位先進有沒有遇過此問題
不知有無解決方法
但在更新或新增時就會出現錯誤,不知各位先進有沒有遇過此問題
不知有無解決方法
關於Session Timeout 問題(編號：2510)
現有一功能可讓user 自行設 session 的 timeout
但是例如輸了30 session.timeout=30 後,還是會發生沒多久就
逾時 timeout 的問題 ,,,
session.timeout=30 設了後還要處理什麼動作嗎?????
而又 一user 已上網 25分鐘後他又把逾時設定設成 35
session.timeout =35
這時 session 會重新設35 還是會扣掉已連線時間呢? 35-25=10
但是例如輸了30 session.timeout=30 後,還是會發生沒多久就
逾時 timeout 的問題 ,,,
session.timeout=30 設了後還要處理什麼動作嗎?????
而又 一user 已上網 25分鐘後他又把逾時設定設成 35
session.timeout =35
這時 session 會重新設35 還是會扣掉已連線時間呢? 35-25=10
吳前輩請幫忙!!(編號：2508)
Private Sub cnd_Submit_Click()
If Text_UserName.Text = UserName And Text_password = PassWord Then
MsgBox "歡迎使用本系統!"
Unload Form_PassWord
End If
Else
Counter = Counter + 1
MsgBox "密碼錯誤!"
If Counter ＞ 2 Then
MsgBox "您無法登入本系統，請洽系統管理員。"
Unload Form_PassWord
End
End If
End If
End Sub
__________________________________________________________________________________
Private Sub Form_Load()
Counter = 0
UserName = "TK"
PassWord = "12345"
請吳前輩幫我看那裡不對因為程式無法執行,謝謝!!!!
If Text_UserName.Text = UserName And Text_password = PassWord Then
MsgBox "歡迎使用本系統!"
Unload Form_PassWord
End If
Else
Counter = Counter + 1
MsgBox "密碼錯誤!"
If Counter ＞ 2 Then
MsgBox "您無法登入本系統，請洽系統管理員。"
Unload Form_PassWord
End
End If
End If
End Sub
__________________________________________________________________________________
Private Sub Form_Load()
Counter = 0
UserName = "TK"
PassWord = "12345"
請吳前輩幫我看那裡不對因為程式無法執行,謝謝!!!!
VB 的 Input # 有 Bug !?(編號：2504)
我發現如果用 Input # 來讀取純文字時，遇到某些字會有問題。就在那個字之後到這一行結束的文字都無法讀取。例如：全型的逗號"，"就有這個問題，請問有人跟我一樣嗎？
Database 可否做成容錯(編號：2503)
小吳你好 我們可以用switch和server(提供http&ftp)做成容錯 但是如果使用者有須要存取database資料 那怎麼辦 database是否有複製功能 但又不能有太多時差 又不能造成網路資料量太大 謝謝
(switch x 2 ,web server x 2 ,database x 2 資料庫是要一致)
(switch x 2 ,web server x 2 ,database x 2 資料庫是要一致)
如何將HTML檔案轉入oracle database(編號：2502)
VB6.0如何將HTML檔案轉入oracle database.已有HTML檔案,也已LINK ORACLE DATABASE,但不知如何將資料寫入資料庫?
使用MSHFlexGrid 的 AddItem RemoveItem 控制顯示的列數時, 重(編號：2500)
程式如下:
第二次執行時 recordset.field.value 的資料是正確的 但是前幾列的資料用 AddItem 就是無法顯示出來 (第一次執行 OK!) 苦思不解 有那位可以指點迷津! 謝謝!
For i = 1 To j ' 清除資料行
msdDetail.RemoveItem 1
Next
msdDetail.Cols = 11
j = 0
While Not rsPn.EOF
j = j + 2 ' 一筆資料分成兩行
Ned_Detail = Chr(9) & rsPn.Fields(0) & Chr(9)&_
rsPn.Fields(1) & Chr(9) & rsPn.Fields(2)
For i = 0 To rsPn.Fields.Count - 1
Select Case i
Case i = 0 To 9
Prd_Detail = Prd_Detail & Chr(9) &_
rsPn.Fields(i).Value
Case i = 10 To rsPn.Fields.Count - 1
Ned_Detail = Ned_Detail & Chr(9) &_
rsPn.Fields(i).Value
End Select
Next
msdDetail.AddItem Prd_Detail
msdDetail.AddItem Ned_Detail
Prd_Detail = ""
Ned_Detail = ""
rsPn.MoveNext
Wend
'設定顏色
msdDetail.Col = 4
msdDetail.RowHeight(1) = 0
' 定 col width
msdDetail.ColWidth(0) = 0
msdDetail.ColWidth(1) = 2500
msdDetail.ColWidth(2) = 900
msdDetail.ColWidth(3) = 600
msdDetail.ColWidth(4) = 980
msdDetail.ColWidth(5) = 980
msdDetail.ColWidth(6) = 980
msdDetail.ColWidth(7) = 980
msdDetail.ColWidth(8) = 980
msdDetail.ColWidth(9) = 980
msdDetail.ColWidth(10) = 980
msdDetail.FixedCols = 4
msdDetail.MergeCells = 3
msdDetail.MergeCol(0) = False
msdDetail.MergeCol(1) = True
msdDetail.MergeCol(2) = True
msdDetail.MergeCol(3) = False
msdDetail.MergeCol(4) = False
msdDetail.MergeCol(5) = False
第二次執行時 recordset.field.value 的資料是正確的 但是前幾列的資料用 AddItem 就是無法顯示出來 (第一次執行 OK!) 苦思不解 有那位可以指點迷津! 謝謝!
For i = 1 To j ' 清除資料行
msdDetail.RemoveItem 1
Next
msdDetail.Cols = 11
j = 0
While Not rsPn.EOF
j = j + 2 ' 一筆資料分成兩行
Ned_Detail = Chr(9) & rsPn.Fields(0) & Chr(9)&_
rsPn.Fields(1) & Chr(9) & rsPn.Fields(2)
For i = 0 To rsPn.Fields.Count - 1
Select Case i
Case i = 0 To 9
Prd_Detail = Prd_Detail & Chr(9) &_
rsPn.Fields(i).Value
Case i = 10 To rsPn.Fields.Count - 1
Ned_Detail = Ned_Detail & Chr(9) &_
rsPn.Fields(i).Value
End Select
Next
msdDetail.AddItem Prd_Detail
msdDetail.AddItem Ned_Detail
Prd_Detail = ""
Ned_Detail = ""
rsPn.MoveNext
Wend
'設定顏色
msdDetail.Col = 4
msdDetail.RowHeight(1) = 0
' 定 col width
msdDetail.ColWidth(0) = 0
msdDetail.ColWidth(1) = 2500
msdDetail.ColWidth(2) = 900
msdDetail.ColWidth(3) = 600
msdDetail.ColWidth(4) = 980
msdDetail.ColWidth(5) = 980
msdDetail.ColWidth(6) = 980
msdDetail.ColWidth(7) = 980
msdDetail.ColWidth(8) = 980
msdDetail.ColWidth(9) = 980
msdDetail.ColWidth(10) = 980
msdDetail.FixedCols = 4
msdDetail.MergeCells = 3
msdDetail.MergeCol(0) = False
msdDetail.MergeCol(1) = True
msdDetail.MergeCol(2) = True
msdDetail.MergeCol(3) = False
msdDetail.MergeCol(4) = False
msdDetail.MergeCol(5) = False
請問各位前輩，用ADO開啟外部之dbf檔...(編號：2498)
請問各位前輩，用ADO開啟外部之dbf檔，若不使用Microsoft Visual Foxpro Drive之ODBC驅動程式，可不可以改用Microsoft Foxpro Drive或其他解決方式(但一定要使用ado)，因為要散發程式，而使用者不一定裝有VB6；亦或如何由Setup.exe來安裝Microsoft Visual Foxpro Drive...
請問如何更改16進位??(編號：2495)
請問如果用VB更改一個 Binary 檔案的內容呢??
例如 : 16 5F 18 61 ＞＞ 90 90 90 90
這一類的..
最好是可以搜尋或指定位置更改..
例如 : 16 5F 18 61 ＞＞ 90 90 90 90
這一類的..
最好是可以搜尋或指定位置更改..
about the end of line(編號：2490)
How can i know this is the end of a line??
EOF is used to detect end of file , is there any function
can i use to detect end of line ??
or whice character is represented the end of line??
EOF is used to detect end of file , is there any function
can i use to detect end of line ??
or whice character is represented the end of line??
已經寫好.chm的說明檔，但如何在VB中叫出使用(編號：2489)
我已經寫好一個.chm的說明檔了
在VB中的功能表中按"內容"要能顯示出此說明檔
我試過用SendKeys "{F1}"
但..沒效果ㄝ~~(可是寫在按鈕中卻可以)
所以要如何做呢，才能使用功能表上的"內容"呼叫出說明檔
在VB中的功能表中按"內容"要能顯示出此說明檔
我試過用SendKeys "{F1}"
但..沒效果ㄝ~~(可是寫在按鈕中卻可以)
所以要如何做呢，才能使用功能表上的"內容"呼叫出說明檔
如何開啟一執行(編號：2487)
請教各位前輩，如何在VB 中開啟一可執行檔案(.EXE等)
即按一下COMMAND 或 觸動 LABEL 的 MOUSE_MOVE 事件，此執行即可立即執行，且原本的MENU 畫面被隱藏起來。
對不起，由於是菜鳥，問題太苯，請別見笑。
即按一下COMMAND 或 觸動 LABEL 的 MOUSE_MOVE 事件，此執行即可立即執行，且原本的MENU 畫面被隱藏起來。
對不起，由於是菜鳥，問題太苯，請別見笑。
如何尋找資料?(編號：2485)
如何在DBGrid中的一行中dbclick後，找出對應那一列的資料(在同一個form裡)?
Private Sub DBGrid1_DblClick()
Data1.Refresh
Dim rs As Recordset
Set rs = Data1.Recordset
rs.Index = "日期"
rs.Seek "=", Format(DBGrid1.???)
End Sub
Private Sub DBGrid1_DblClick()
Data1.Refresh
Dim rs As Recordset
Set rs = Data1.Recordset
rs.Index = "日期"
rs.Seek "=", Format(DBGrid1.???)
End Sub
sql problem(編號：2483)
SELECT PARTDET.PART, PARTHDR.`DESC`, PARTDET.`DATE`, PARTDET.REMAINQTY, PARTDET.UNITPRICE, PARTDET.PURCHASENO FROM PARTHDR, PARTDET WHERE PARTHDR.PART = PARTDET.PART AND (PARTDET.REMAINQTY ＞ 0) AND PARTDET.PART LIKE ('C*') ORDER BY PARTDET.PART, PARTDET.`DATE`
以上未能顯示所有partdet.part 由 C 開始的資料??Why??
Thx a lot
以上未能顯示所有partdet.part 由 C 開始的資料??Why??
Thx a lot
使用crystal report 列表內容無法隨資料表異動而變動?(編號：2481)
Set rs6 = New ADODB.Recordset
rs6.CursorLocation = adUseClient
rs6.Open "select * from 公文內容資料表", cn, adOpenDynamic, adLockOptimistic
m正本 = m正本 & Trim(Text1.Text)
m副本 = m副本 & Trim(Text2.Text)
rs6!正本 = m正本
rs6!副本 = "m副本"
rs6.Update
Printer.PaperSize = 9
Printer.Orientation = 2
CrystalReport1.Destination =rptToWindow
CrystalReport1.Action = 1
以上當輸入text1及text2 後更動rs6資料內容,但印出來資料仍是在設定crystalreport 時的資料內容,並沒有變動,是不是有那個地方需要設定?
請高手解圍!謝謝 !
rs6.CursorLocation = adUseClient
rs6.Open "select * from 公文內容資料表", cn, adOpenDynamic, adLockOptimistic
m正本 = m正本 & Trim(Text1.Text)
m副本 = m副本 & Trim(Text2.Text)
rs6!正本 = m正本
rs6!副本 = "m副本"
rs6.Update
Printer.PaperSize = 9
Printer.Orientation = 2
CrystalReport1.Destination =rptToWindow
CrystalReport1.Action = 1
以上當輸入text1及text2 後更動rs6資料內容,但印出來資料仍是在設定crystalreport 時的資料內容,並沒有變動,是不是有那個地方需要設定?
請高手解圍!謝謝 !
用vb開發的程式不能在win-NT 上run(編號：2480)
請教高手
用vb開發的程式不能在win-NT 上run
請問是什麼因素呢?
因為"小的"執行用vb開發的程式在win98 and ｗin95都能正常執行
卻不能在win-NT 上run 會出現mci32.ocx錯誤????非常不解.....
用vb開發的程式不能在win-NT 上run
請問是什麼因素呢?
因為"小的"執行用vb開發的程式在win98 and ｗin95都能正常執行
卻不能在win-NT 上run 會出現mci32.ocx錯誤????非常不解.....
VB 6.0 setup problem(編號：2473)
請教大家:
我用VB6.0 package 程式後,在沒有安裝VB 的wondows環境下,
並不能執行,安裝成功後要執行時會出現,下列錯誤訊息.
物件類別不支援AUTOMATION 以及預期的界面
請問我有什麼檔案應該要package進去的,而沒有package進去的..
我用VB6.0 package 程式後,在沒有安裝VB 的wondows環境下,
並不能執行,安裝成功後要執行時會出現,下列錯誤訊息.
物件類別不支援AUTOMATION 以及預期的界面
請問我有什麼檔案應該要package進去的,而沒有package進去的..
整個程式用On Error goto...(編號：2472)
很多事件程序都要寫錯誤處理，如何能只寫一段程式碼讓整個程式使用，有錯誤就跳到錯誤集中處理的副程式去而不必在每一個可能發生錯誤的事件程序末一一寫程式碼
關於直印(編號：2469)
(1)設計一程式，將LISTBOX內的中文文字在TEXT1中直印表示範出來
(2)點選LISTBOX中的中文文字，TEXT1會將所選中文文字直列出來。
就是這樣~~~
煩請各位高手解答
(2)點選LISTBOX中的中文文字，TEXT1會將所選中文文字直列出來。
就是這樣~~~
煩請各位高手解答
請問以下哪裡有誤...(編號：2467)
Command1_Click
Select Case cbo1(Index%)
Case cbo1(0)
SQL = " Select * from source Where test1 = " & cbo1(0).ItemData(cbo1(0).ListIndex) &""
Case cbo1(1)
SQL = " Select * from source Where test2 = " & cbo1(1).ItemData(cbo1(1).ListIndex) &""
End Select
我想引用cbo1來做select case...
以上程式碼在cbo1_Click裡面可以執行...
放到command＿click裡面執行cbo1(0)可以...
但是執行cbo1(1)就會出現不正確的陣列索引值.....
請問各位錯誤的地方是... ? 謝謝
Select Case cbo1(Index%)
Case cbo1(0)
SQL = " Select * from source Where test1 = " & cbo1(0).ItemData(cbo1(0).ListIndex) &""
Case cbo1(1)
SQL = " Select * from source Where test2 = " & cbo1(1).ItemData(cbo1(1).ListIndex) &""
End Select
我想引用cbo1來做select case...
以上程式碼在cbo1_Click裡面可以執行...
放到command＿click裡面執行cbo1(0)可以...
但是執行cbo1(1)就會出現不正確的陣列索引值.....
請問各位錯誤的地方是... ? 謝謝
WebBrowser 的showBrowserBar Method 的用法!!(編號：2466)
沒有人用過 WebBrowser 的showBrowserBar Method 要如何用
?有沒有範例 ? 謝謝!!
?有沒有範例 ? 謝謝!!
DataGrid 與 TextBox 合併使用問題?(編號：2460)
請教各位高手,本人欲寫一支簡單測試程式,如使用者代碼及名稱維護
故在form 上設Name為DataGrid1 ,與 Text1,Text2之物件,且將
DataGrid1 與(text1&text2)同設定成同一Recordset名為rs,我的用意是希望於Text1,Text2輸入資料時按更新鈕資料就更新,於DataGrid1箭頭指到的列按刪除就刪除該列,箭頭移動,TextBox的內容
也跟著變動,但問題來了,當我按新增鈕時,程式除新增一筆記錄外,連DataGrid1箭頭所指的record也更新,請問該如何解決? (附註:新增時不希望清除TextBox欄位再輸入資料然後再按儲存動作)
新增鈕程式大致如下:
......
...
Dim buftext1= text1.text
dim buftext2= text2.text
rs.Addnew
Text1.text = buftext1
Text2.text = buftext2
rs.Update
...
...
故在form 上設Name為DataGrid1 ,與 Text1,Text2之物件,且將
DataGrid1 與(text1&text2)同設定成同一Recordset名為rs,我的用意是希望於Text1,Text2輸入資料時按更新鈕資料就更新,於DataGrid1箭頭指到的列按刪除就刪除該列,箭頭移動,TextBox的內容
也跟著變動,但問題來了,當我按新增鈕時,程式除新增一筆記錄外,連DataGrid1箭頭所指的record也更新,請問該如何解決? (附註:新增時不希望清除TextBox欄位再輸入資料然後再按儲存動作)
新增鈕程式大致如下:
......
...
Dim buftext1= text1.text
dim buftext2= text2.text
rs.Addnew
Text1.text = buftext1
Text2.text = buftext2
rs.Update
...
...
如何寫分散交易程式(不用MTS,DB之功能)(編號：2459)
如何寫交易程式,在不利用MTS,DB之功能,僅利用程式碼寫出交易程式(COMMIT 及 ROLL-BACK....等功能),請各位高手指點一下 OR 告知哪有資料可查 OR 範例,謝謝大家.VB6+NT4+SP4
table fields 不見了(編號：2458)
DataEnvironment 裏,在 command 下的 table fields 不見了
我用同樣方法在其他 PC 上就沒問題
但我的 PC 就沒辦法看到
是不是我的設定出了問題??
我用同樣方法在其他 PC 上就沒問題
但我的 PC 就沒辦法看到
是不是我的設定出了問題??
請問有更好的方法嗎？(編號：2457)
我目前使用了6個表單....
其中的三個是一模一樣的....
因為我在使用查詢的時候...（每種查詢有一個表單）
查詢的欄位是分配在兩個不同的表單來源欄位.......
那如果我要再多增加一個查詢時.....
是不是又得再增加3個相同的表單...
請問我要如何把表單共用....
而又可以在不同來源查詢呢？
其中的三個是一模一樣的....
因為我在使用查詢的時候...（每種查詢有一個表單）
查詢的欄位是分配在兩個不同的表單來源欄位.......
那如果我要再多增加一個查詢時.....
是不是又得再增加3個相同的表單...
請問我要如何把表單共用....
而又可以在不同來源查詢呢？
請教一個datacombo的問題??(編號：2455)
請問如何在程式執行時期動態指定datacombo的的listfield,因我想根據上一個datacombo1的輸入值搜尋相關的欄位列在datacombo2的listfields以方便資料的輸入,請問各位高手有解決的方案嗎?
Printer物件定位問題(編號：2454)
我用Printer.Print列印有表格的單張報表, 首先我將固定的表格及文字先送出, 方法如下:
printer.fontname="細明體"
printer.print "┌─────┬──────┐"
printer.print "│ 編 號 │ 姓 名 │"
printer.print "├─────┼──────┤"
printer.print "│ │ │"
printer.print "├─────┼──────┤"
printer.print "│ │ │"
printer.print "└─────┴──────┘"
然後才將資料以定位方式送出, 如下:
printer.CurrentX=n1
printer.CurrentY=n2
printer.print "1001"
printer.CurrentX=n3
printer.CurrentY=n2
printer.print "阿虹"
最後再printer.enddoc印出
這樣做一切沒問題, 也用得很開心, 問題是發生在原來的印表機壞掉了, 換了一台不同型號的印表機, 結果資料送出的位置和表格位置偏移了幾mm, 經過多台不同印表機測試之後, 發現每一台的偏移量都不同, 天啊!
.
請問是否有方法可以讓不同印表機印出的位置都相同!!
printer.fontname="細明體"
printer.print "┌─────┬──────┐"
printer.print "│ 編 號 │ 姓 名 │"
printer.print "├─────┼──────┤"
printer.print "│ │ │"
printer.print "├─────┼──────┤"
printer.print "│ │ │"
printer.print "└─────┴──────┘"
然後才將資料以定位方式送出, 如下:
printer.CurrentX=n1
printer.CurrentY=n2
printer.print "1001"
printer.CurrentX=n3
printer.CurrentY=n2
printer.print "阿虹"
最後再printer.enddoc印出
這樣做一切沒問題, 也用得很開心, 問題是發生在原來的印表機壞掉了, 換了一台不同型號的印表機, 結果資料送出的位置和表格位置偏移了幾mm, 經過多台不同印表機測試之後, 發現每一台的偏移量都不同, 天啊!
.
請問是否有方法可以讓不同印表機印出的位置都相同!!
破解(編號：2450)
http://www.marx.com
unprotect your 30 days and 100 uses trial (for your own software) 32 bit
After trial period is over delete the following files:
regedit: ({bxpKaa5PM5}) (SS_random) (SystemAppIDs)
windows system file: (access.ctl)
to change registration key, delete: windows system file....... (access.ctl) (SS_random)
if your protection is used on another software then delete system file.......({Jq9zAWYyqc}) (SystemAppIDs) (ss.drv)
unprotect your 30 days and 100 uses trial (for your own software) 32 bit
After trial period is over delete the following files:
regedit: ({bxpKaa5PM5}) (SS_random) (SystemAppIDs)
windows system file: (access.ctl)
to change registration key, delete: windows system file....... (access.ctl) (SS_random)
if your protection is used on another software then delete system file.......({Jq9zAWYyqc}) (SystemAppIDs) (ss.drv)
請問一下如何寫出一個 算 式(編號：2448)
如下
a / b + y * 0.2
a,b為 常數
y,0.2 為 固定值
只要輪入a,b就可求出值
請問這個 程式要如何寫 啊 。。。
這是 我的 期中考 題。。
請大家 幫幫忙
vb5.0
a / b + y * 0.2
a,b為 常數
y,0.2 為 固定值
只要輪入a,b就可求出值
請問這個 程式要如何寫 啊 。。。
這是 我的 期中考 題。。
請大家 幫幫忙
vb5.0
自訂資料型態在自訂程序中不能用?誰來救我?(編號：2445)
我在模組內寫下:
Public Type Packet
a as long
b as string *10
End type
Public Sub Test(ByVal pll as Packet) ＜----***
......
End Sub
執行後,他出現資料型態未定義???並停留在***那一行,
請問哪位VB高手可以告訴我,我哪裡出錯了???
謝謝!
Public Type Packet
a as long
b as string *10
End type
Public Sub Test(ByVal pll as Packet) ＜----***
......
End Sub
執行後,他出現資料型態未定義???並停留在***那一行,
請問哪位VB高手可以告訴我,我哪裡出錯了???
謝謝!
VB有http controller的物件嗎？(編號：2443)
我想利用winsock寫一個下載網頁的程式，問題一；VB有顯示html的物件嗎？問題二；VB是否有關於http協定的語法，或控制物件？謝謝！
如何使用MediaPlayer這物件.....(編號：2442)
不好意思....我們是VB初學者....想請問一下你是如何撥放.mpg....
是否能給我們相關程式或物件屬性...
ps.我們軟專需要(KTV撥放系統)......而找相關書籍找不到....能否盡快回應...謝謝...
小豪 留...
是否能給我們相關程式或物件屬性...
ps.我們軟專需要(KTV撥放系統)......而找相關書籍找不到....能否盡快回應...謝謝...
小豪 留...
安裝後找不到ISAM驅動程式?(編號：2439)
1.用VB5.0寫過的資料庫程式(DAO),重新以VB6.0編譯後,利用封裝製成安裝片,安裝另外一台機器後,出現找不到ISAM驅動程式?
2.查過MSDN,製作封裝時,採用DAO會有ISAM,ODBC Direct及ODBC with Jet Workspace三項選擇,為何我的畫面只有ODBC Direct及ODBC with Jet Workspace兩項選擇,獨缺ISAM?
3.如果我選擇ODBC with Jet Workspace,安裝後還是出現找不到ISAM驅動程式?且封裝會加入mdac_type.exe,我的程式沒有用到ADO,這與MSDN上查mdac_type.exe時所寫不一樣,真是一頭霧水?
2.查過MSDN,製作封裝時,採用DAO會有ISAM,ODBC Direct及ODBC with Jet Workspace三項選擇,為何我的畫面只有ODBC Direct及ODBC with Jet Workspace兩項選擇,獨缺ISAM?
3.如果我選擇ODBC with Jet Workspace,安裝後還是出現找不到ISAM驅動程式?且封裝會加入mdac_type.exe,我的程式沒有用到ADO,這與MSDN上查mdac_type.exe時所寫不一樣,真是一頭霧水?
SQL?? 為什麼我update後會出現~~(編號：2438)
用connection經ODBC去連接SQL~~
再開一個recordset ~
為什麼在update後會出現~~
"在新 HROW 可獲得前所有舊的須先釋放"
這是什麼意思呀~~~
再開一個recordset ~
為什麼在update後會出現~~
"在新 HROW 可獲得前所有舊的須先釋放"
這是什麼意思呀~~~
請問預儲程式中的變數是否能為Table name??(SQL7)(編號：2437)
請問預儲程式中的變數是否能為Table name??(SQL7)
CREATE PROCEDURE XXXXX
@tablename table
AS
drop table @tablename
我怎麼try都不行,救救我吧!!
CREATE PROCEDURE XXXXX
@tablename table
AS
drop table @tablename
我怎麼try都不行,救救我吧!!
[HELP]VB叫用VC建立dll之陣列傳遞問題(編號：2436)
我想用 C(C++) 去寫一個dynamic link library, 內含一個 子程序是傳入陣列
作運算,結果寫入另一陣列, 並將此結果陣列傳回. 這DLL file 是要用VB 的程式
來呼叫使用.
但一直有問題, 主要是傳陣列到DLL中子程序時, 有傳遞參數不合的問題.
相關簡化檔案如下, 有前輩可指點否?
非常感激!!!
C++ file ================================================
#include ＜windows.h＞
#include ＜ole2.h＞
int testadd(short number, float far * x,float far * y)
{
int i;
for (i=0;i＜=number;i++)
y[i]=x[i]+x[i];
return 0;
}
Define file ===============================================
; testdll.def
LIBRARY testdll
CODE PRELOAD MOVEABLE DISCARDABLE
DATA PRELOAD MOVEABLE
EXPORTS
testadd @1
VB file ================================================
Option Explicit
Private Declare Sub testadd _
Lib "testdll.dll" ( _
ByVal number As Integer, _
ByRef x() As Single, _
ByRef y() As Single, _
)
Private Sub cmdGo_Click()
Dim x(10) As Single
Dim y(10) As Single
Dim number As Integer
Dim i As Integer
number = 10
For i=0 to number
x(i) = 1# * i
Next i
Call testadd(number, x(), y())
// 用 Call testadd(number, x(0), y(0)) 亦不行 !
For i = 0 To number
Print i, x(i), y(i)
Next i
End Sub
作運算,結果寫入另一陣列, 並將此結果陣列傳回. 這DLL file 是要用VB 的程式
來呼叫使用.
但一直有問題, 主要是傳陣列到DLL中子程序時, 有傳遞參數不合的問題.
相關簡化檔案如下, 有前輩可指點否?
非常感激!!!
C++ file ================================================
#include ＜windows.h＞
#include ＜ole2.h＞
int testadd(short number, float far * x,float far * y)
{
int i;
for (i=0;i＜=number;i++)
y[i]=x[i]+x[i];
return 0;
}
Define file ===============================================
; testdll.def
LIBRARY testdll
CODE PRELOAD MOVEABLE DISCARDABLE
DATA PRELOAD MOVEABLE
EXPORTS
testadd @1
VB file ================================================
Option Explicit
Private Declare Sub testadd _
Lib "testdll.dll" ( _
ByVal number As Integer, _
ByRef x() As Single, _
ByRef y() As Single, _
)
Private Sub cmdGo_Click()
Dim x(10) As Single
Dim y(10) As Single
Dim number As Integer
Dim i As Integer
number = 10
For i=0 to number
x(i) = 1# * i
Next i
Call testadd(number, x(), y())
// 用 Call testadd(number, x(0), y(0)) 亦不行 !
For i = 0 To number
Print i, x(i), y(i)
Next i
End Sub
如何利用 VB 開發軟體鍵盤(中英文),請眾高手幫忙 (超難!!!!!!!!!(編號：2435)
請問眾高手,若要開發一使用觸控式螢幕操作的系統(使用者無法始用鍵盤), 如何讓使用者操作到須輸入
的欄位時,自動跳出自己開發的軟體鍵盤畫面, 如何開發自己的中文輸入界面!!!!!!!!!
的欄位時,自動跳出自己開發的軟體鍵盤畫面, 如何開發自己的中文輸入界面!!!!!!!!!
IE動態安裝VB的OCX檔??(編號：2434)
我在page上加入MsflexGrid.ocx這個vb中內有的activex作一些資料Grid的顯示 因為我的機器上有裝vb所以可以正常顯示
為了讓一般人可以download該grid所以在程式中我也有定
＜OBJECT classid=clsid:6262D3A0-531B-11CF-91F6-C2863C385E30 id=Flex name=Flex Codebase="MsFlxGrd.cab" style="width:760;height:300"＞＜/object＞
實際上我有看user機器上 的Regedit中也真的有安裝該ocx ...
但是當由user看該page時就發現無法觀看所有我用vbscript在前端控制該flexgrid屬性的程式碼都錯誤
問題可能出在哪裡嗎...
ps.這是因為classid嗎因為這個 classid是我機器上的
為了讓一般人可以download該grid所以在程式中我也有定
＜OBJECT classid=clsid:6262D3A0-531B-11CF-91F6-C2863C385E30 id=Flex name=Flex Codebase="MsFlxGrd.cab" style="width:760;height:300"＞＜/object＞
實際上我有看user機器上 的Regedit中也真的有安裝該ocx ...
但是當由user看該page時就發現無法觀看所有我用vbscript在前端控制該flexgrid屬性的程式碼都錯誤
問題可能出在哪裡嗎...
ps.這是因為classid嗎因為這個 classid是我機器上的
DataGrid...造成堆疊空間不足...是VB的Bug嗎?(編號：2429)
沒寫半行程式,
只是用了這個元件....和Ado control
一Run就出現這個訊息?
How to do ?
當要用Grid做新增,修改,刪除時....
除了這個control,是否還有其他建議
只是用了這個元件....和Ado control
一Run就出現這個訊息?
How to do ?
當要用Grid做新增,修改,刪除時....
除了這個control,是否還有其他建議
link of multi-project(編號：2428)
i have 2 專案, the first one 專案 form1 have a menu ,if click then link to the second one 專案 的form1; how can i do it?
用VB做可換面板(像CICQ,WINAMP等)(編號：2425)
我在8dCall面板王網站看到cicq的外瞉製作及更換的方法,發現cicq秀通訊錄是用ListView, 因此,cicq可能也是用vb寫出來的.我對這個可換面板的方式非常有興趣,但不知從何下手,在面板王的進階設定中,可換面板最主要有用到 script,不知要如何在vb使用script?我想將我寫的播放器也做成可換面板.
http://myskin.cute.com.tw/ 面板王
http://myskin.cute.com.tw/ 面板王
Data Binding(編號：2424)
請問各位
到底何謂data binding,是否就是將資料庫中的data,先行down到本機的recordset中,再將它放在程式中,已後修改只須修改recordset中的資料,而不須再重新更新server的資料,
但該如何做呢,或哪兒有範例可看
到底何謂data binding,是否就是將資料庫中的data,先行down到本機的recordset中,再將它放在程式中,已後修改只須修改recordset中的資料,而不須再重新更新server的資料,
但該如何做呢,或哪兒有範例可看
How to list the records(編號：2423)
如果我有 records in database(不知數量) 要 print
用flexgrid print 是不是一個好方法?
而我需要 delete or edit whose data
但 flexgrid 好像做不到
怎麼辦呢?請指教!
用flexgrid print 是不是一個好方法?
而我需要 delete or edit whose data
但 flexgrid 好像做不到
怎麼辦呢?請指教!
一個迴圈問題(編號：2421)
程式讀取inputbox輸入數值,並存入陣列中,直到輸入的數
值等於0為止,最後再計算陣列中所有數值的平均值。
這是小弟寫的不過.....有問題
Private Sub Command4_Click()
Dim x()
n = 0
r = 0
Data = InputBox("請輸入資料")
While Data ＜＞ "0"
ReDim Preserve x(n + 1)
x(n) = Data
n = n + 1
r = r + 1
Data = InputBox("請輸入資料")
Wend
p = x(n) / r
Print p
End Sub
值等於0為止,最後再計算陣列中所有數值的平均值。
這是小弟寫的不過.....有問題
Private Sub Command4_Click()
Dim x()
n = 0
r = 0
Data = InputBox("請輸入資料")
While Data ＜＞ "0"
ReDim Preserve x(n + 1)
x(n) = Data
n = n + 1
r = r + 1
Data = InputBox("請輸入資料")
Wend
p = x(n) / r
Print p
End Sub
一個計算分數的題目????(編號：2420)
各位大哥!!
小弟是一位VB的初者有個問題想請教
問題一
歌唱大賽有5位歌者進入總決賽,有10位評審參與評分工作,但每
位歌者所獲得的10位評審分數中,要先去掉最高分與最低分再平
均才是歌者的得分,要寫一程式記錄10位評審給5位歌者的分,最
後再計算每位歌者的得分。
但是小弟只會寫到計算每位歌者的總分和平均分數而已(程式如下)
還需要加什麼才能讓程式(去掉最高分與最低分再平均)
dim score(4,9)
for i = 0 to 4
sum = 0
for j = 0 to 9
s ="輸入第" & i + 1 & "位歌者,第" & j +1 & j + 1 & "位評審的分數"
score(i,j) = val (inputbox(s))
sum= sum + score( i ,j)
next j
print "第; i + 1;"位歌者總分="; sum, "平均分數 = "; sum/10
next i
小弟是一位VB的初者有個問題想請教
問題一
歌唱大賽有5位歌者進入總決賽,有10位評審參與評分工作,但每
位歌者所獲得的10位評審分數中,要先去掉最高分與最低分再平
均才是歌者的得分,要寫一程式記錄10位評審給5位歌者的分,最
後再計算每位歌者的得分。
但是小弟只會寫到計算每位歌者的總分和平均分數而已(程式如下)
還需要加什麼才能讓程式(去掉最高分與最低分再平均)
dim score(4,9)
for i = 0 to 4
sum = 0
for j = 0 to 9
s ="輸入第" & i + 1 & "位歌者,第" & j +1 & j + 1 & "位評審的分數"
score(i,j) = val (inputbox(s))
sum= sum + score( i ,j)
next j
print "第; i + 1;"位歌者總分="; sum, "平均分數 = "; sum/10
next i
壓縮加密的Access2000資料庫問題(編號：2419)
我在VB程式中使用壓縮加密的Access2000資料庫,出現一些問題可否麻煩指教一下!謝謝!!
壓縮未加密的Access2000資料庫使用下列指令沒問題
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\temp\db1.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db2.mdb;Jet OLEDB:Engine Type=5"
但壓縮加密的Access2000資料庫使用下列指令卻有錯誤訊息
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Password=vinca;Data Source=C:\temp\db1.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db2.mdb;Jet OLEDB:Engine Type=5"
使用下列指令有錯誤訊息
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Database Password=vinca;Data Source=C:\temp\db1.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db2.mdb;Jet OLEDB:Engine Type=5"
可否幫我找出我的問題出在哪? 謝謝!!!拜託拜託!!
壓縮未加密的Access2000資料庫使用下列指令沒問題
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\temp\db1.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db2.mdb;Jet OLEDB:Engine Type=5"
但壓縮加密的Access2000資料庫使用下列指令卻有錯誤訊息
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Password=vinca;Data Source=C:\temp\db1.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db2.mdb;Jet OLEDB:Engine Type=5"
使用下列指令有錯誤訊息
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Database Password=vinca;Data Source=C:\temp\db1.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db2.mdb;Jet OLEDB:Engine Type=5"
可否幫我找出我的問題出在哪? 謝謝!!!拜託拜託!!
請教SQL語法(編號：2417)
你好:
以下表格,想輸出為表二,請問SQL要如何下呢??
安娜與國王 D
安娜與國王 L
安娜與國王 T
安娜與國王 V
尖聲驚叫3 D
尖聲驚叫3 L
尖聲驚叫3 V
表二
安娜與國王 D,L,T,V
尖聲驚叫3 D,L,V
或是
安娜與國王 DLTV
尖聲驚叫3 DLV
亦可,非常謝謝!!
以下表格,想輸出為表二,請問SQL要如何下呢??
安娜與國王 D
安娜與國王 L
安娜與國王 T
安娜與國王 V
尖聲驚叫3 D
尖聲驚叫3 L
尖聲驚叫3 V
表二
安娜與國王 D,L,T,V
尖聲驚叫3 D,L,V
或是
安娜與國王 DLTV
尖聲驚叫3 DLV
亦可,非常謝謝!!
有關 like 的用法一問?(編號：2414)
有一個條件如下 ...
where field1＞='4*' and field1＜='4*'
上面的例子可以找到 filed1 以4開始的資料.
where field1＞='1*' and field1＜='4*'
這個例子只可以找到 filed1 以1-3開始的資料,而以4開始的卻找
不到.為什麼呢?
where field1＞='4*' and field1＜='4*'
上面的例子可以找到 filed1 以4開始的資料.
where field1＞='1*' and field1＜='4*'
這個例子只可以找到 filed1 以1-3開始的資料,而以4開始的卻找
不到.為什麼呢?
請問 SQL 在 group by之後,第一欄是否能有序號(編號：2413)
請問 SQL 在 group by之後,第一欄是否能有序號
如下
id F1 F2
1 A 1
2 A 2
3 A 2
4 B 1
5 B 1
6 B 1
7 C 3
8 C 2
9 C 1
序號 F1 SUM_F2
1 C 6
2 A 5
3 B 3
SELECT F1, SUM(F2) AS SUM_F2 FROM testTable GROUP BY F1 ORDER BY SUM(F2) DESC
我是要做排名用途的,要如何加??先謝過!!
如下
id F1 F2
1 A 1
2 A 2
3 A 2
4 B 1
5 B 1
6 B 1
7 C 3
8 C 2
9 C 1
序號 F1 SUM_F2
1 C 6
2 A 5
3 B 3
SELECT F1, SUM(F2) AS SUM_F2 FROM testTable GROUP BY F1 ORDER BY SUM(F2) DESC
我是要做排名用途的,要如何加??先謝過!!
您是否也想過同樣的問題?(編號：2412)
我曾試過已cww 的範例(彩圖轉黑白)做試驗 結果只減少2k但同樣圖檔 在小畫家中卻能將一張500多k的bmp圖檔經轉換屬性由彩色改成黑白 在存檔結果只有20多k 它是如何做到的 您是否有想過?
Database的疑難, 請幫幫忙,(編號：2411)
我正在making a project about 從電話傳取signal到PC,
The Project about that:
PC, DTMF, RINGING CIRCUIT,
我用VISUAL BASIC 當 programming, 我需要把signal sent to telephone, and then get the data from user via telephone.
1) 但我可以怎樣接電話呢?
2) 接到電話後又怎樣detect signal like " 1,2,3,4,..." and store it in to database with VB ?
The Project about that:
PC, DTMF, RINGING CIRCUIT,
我用VISUAL BASIC 當 programming, 我需要把signal sent to telephone, and then get the data from user via telephone.
1) 但我可以怎樣接電話呢?
2) 接到電話後又怎樣detect signal like " 1,2,3,4,..." and store it in to database with VB ?
十分有挑戰性的問題, 不妨閱讀,並給我保貴的意見(編號：2410)
我正在making a project about 從電話傳取signal到PC,
The Project about that:
PC, DTMF, RINGING CIRCUIT,
我用VISUAL BASIC 當 programming, 我需要把signal sent to telephone, and then get the data from user via telephone.
1) 但我可以怎樣接電話呢?
2) 接到電話後又怎樣detect signal like " 1,2,3,4,..." and store it in to database with VB ?
The Project about that:
PC, DTMF, RINGING CIRCUIT,
我用VISUAL BASIC 當 programming, 我需要把signal sent to telephone, and then get the data from user via telephone.
1) 但我可以怎樣接電話呢?
2) 接到電話後又怎樣detect signal like " 1,2,3,4,..." and store it in to database with VB ?
dbgird中如何顯示特殊符號?(編號：2409)
VB6中使用之ASCII表中無歐姆等特殊符號,若直接以中文word中之符號Ω等貼上,可用於中文環境,但於英文環境則會顯示亂碼,英語自型中雖於FONT=SYMBOL時可輸入Ω等字,但DBgrid只能整個Grid使用一種font,無法按照COLUMN設定各別font,使得其它column之英文在font=symbol時又無法顯示正確英文,請問那位高手有解,請不吝賜教
【資料庫】用SQL如何查詢欄位中含有左中括號 [ 的資料呢(編號：2408)
若用SQL中有的保留字：單引號 ' 和左中括號 [ 來查詢會有錯誤，單引號可用兩個單引號來解決，但是左中括號就不知道該如何解決了，謝謝！
list box problem(編號：2407)
can i get data from list box
for example
list1.text = "abc 10"
can i put abc in a variable,while 10 to another variable
for example
list1.text = "abc 10"
can i put abc in a variable,while 10 to another variable
利用VB call asp執行(編號：2404)
Hi, 請教一下,我可否利用VB的timer 來常駐呼叫一支asp程式來執行,因為我VB實在太不熟了,所以想把某個功能用asp來寫,可是asp又無法讓他每秒自己執行一次,所以就必須借重VB的timer,不知道vb如何能call起一支ASP來執行
convert string to number(編號：2403)
sql = "select * from XX where number = 123"
that's no problem
but when i using a variable,it's always treat my variable as string
for example
sql = "select * from XX where number =" & _
"'" & in_num & "'"
how to convert in_num to a number
that's no problem
but when i using a variable,it's always treat my variable as string
for example
sql = "select * from XX where number =" & _
"'" & in_num & "'"
how to convert in_num to a number
請問以stored procedure 做為 Crystal Report 7.0的資料來源(編號：2402)
請問以stored procedure 做為 Crystal Report 7.0的資料來源
為什麼以下方法無法更新資料,
請問正確的寫法該如何,還是有特殊的地方需要設定,謝謝!!
CrystalReport1.StoredProcParam(0) = "1"
CrystalReport1.StoredProcParam(1) = "2"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Action = 1
已經試了好久了,希望能得到答案,謝謝!!
為什麼以下方法無法更新資料,
請問正確的寫法該如何,還是有特殊的地方需要設定,謝謝!!
CrystalReport1.StoredProcParam(0) = "1"
CrystalReport1.StoredProcParam(1) = "2"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Action = 1
已經試了好久了,希望能得到答案,謝謝!!
請教 UuEncode 的編碼(編號：2401)
在OutLook Express中有一個文件格式---純文字
當中有設定 UuEncode的編碼，
請問與Unicode是不是一樣？
又是不是編碼方式是將每一個字都當2位元來編碼呢？
謝謝
當中有設定 UuEncode的編碼，
請問與Unicode是不是一樣？
又是不是編碼方式是將每一個字都當2位元來編碼呢？
謝謝
vb做得到嗎?(編號：2400)
請問各位高手, 我們公司iso文件是由word 或 excel 作成的, 並放在網路上供全公司同仁使用, 只是查起來很不方便, 能不能用vb 寫一程式讓user輸入查詢的字串, 就可以類似全文檢索一樣show出那幾個檔案有該字串.再按該檔案可以呼叫 word 或 excel 叫出該檔案..謝謝您的指教..
附加資料於資料欄後(編號：2399)
1. 我布置一個adodc1 ,二個command 二個text, text1設給 adodc1,text2中資料要隨時加入adodc1.recordset("body")
(此為memo格式)中
2.第一次按下command1
3.填入資料於text2中,按下command2,再按下command2,再按下command2,再按下command2
發生下列情形，請問各位高手這是何處邏輯錯誤？
執行階段錯誤'-2147467259(80004005)':
Insufficient or incorrect key culumn information;too many row affected by update.
程式如下
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Adodc1.Recordset("body") = Adodc1.Recordset("body") + Text2.Text
Adodc1.Recordset.Update
End Sub
(此為memo格式)中
2.第一次按下command1
3.填入資料於text2中,按下command2,再按下command2,再按下command2,再按下command2
發生下列情形，請問各位高手這是何處邏輯錯誤？
執行階段錯誤'-2147467259(80004005)':
Insufficient or incorrect key culumn information;too many row affected by update.
程式如下
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Adodc1.Recordset("body") = Adodc1.Recordset("body") + Text2.Text
Adodc1.Recordset.Update
End Sub
【資料庫】用SQL如何查詢欄位中含有左中括號 [ 的資料呢(編號：2398)
若用SQL中有的保留字：單引號 ' 和左中括號 [ 來查詢會有錯誤，單引號可用兩個單引號來解決，但是左中括號就不知道該如何解決了，謝謝！
如何繼承一個form?(編號：2396)
我先建立一個form, 上面有許多物件, 請問有沒有辦法讓這個form 變成一個模組, 任何的form 只要繼承這個form 就可以擁有它的所有特性, 而不用拷貝的方式, 謝謝!
關於介紹file system object的書(編號：2395)
請教一下各位高手
不知道哪一本書或是網站介紹VB的 file system object的這部分介紹的不錯的!
Thanks!!
新手
不知道哪一本書或是網站介紹VB的 file system object的這部分介紹的不錯的!
Thanks!!
新手
列表機已預設A4 橫式 為何 object.reportwidth12000 顯示超過紙(編號：2393)
各位高手好:
data report設計師紙張寬度以列表機預設為依據?
列表機已預設A4 橫式
為何 datareport 屬性內, 設定reportwidth＞12000 執行後顯示超過紙張寬度?
data report設計師紙張寬度以列表機預設為依據?
列表機已預設A4 橫式
為何 datareport 屬性內, 設定reportwidth＞12000 執行後顯示超過紙張寬度?
如何控制播放音樂的大細聲(編號：2391)
我用Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long及 aReturnCode = sndPlaySound(App.Path + "\XXX.wav", 9)去播放
CommonDialog如何判斷按下取消.........(編號：2389)
想請教 :
CommonDialog如何判斷按下取消.........
我用.cenclerr=true but 並沒有如我所願.
所以想請教此問題.
CommonDialog如何判斷按下取消.........
我用.cenclerr=true but 並沒有如我所願.
所以想請教此問題.
產生物件後的行為??(編號：2388)
Dim newCmd as control
set newCmd = frmMain.Controls.Add("vb.commandButton", "cmdnew", frmMian)
newCmd.Visible = True
用此方法產生的物件要如何做MouseMove等動做呀??
set newCmd = frmMain.Controls.Add("vb.commandButton", "cmdnew", frmMian)
newCmd.Visible = True
用此方法產生的物件要如何做MouseMove等動做呀??
請教兩個列印及儲存畫面的問題(編號：2386)
各位先進，小弟又有問題要請教大家了!!
1.小弟想要在form1.printform後在同
一張紙上列印其它文字，請問要如何使
印表機在列印表單後不要讓其捲紙呢??
2.同一表單上Label的caption文字及以
Print顯示在表單上的文字，為何列印在
紙上後，使用print的字明顯比label的
caption粗了許多呢??但在營幕上看起來
卻都一樣耶!!要如何使print的文字列印後
看起來和列印後的label1.caption文字一
樣呢??
3.在vb中除了可以將畫面存成圖檔外，不知是
否可以和qb中的screen()函數可讀取營幕上
某特定位置的ascii code，而藉由所讀取的
ascii code來組成一字串??或者有什麼範例
程式可以將秀出的表單存成一文字檔呢??
1.小弟想要在form1.printform後在同
一張紙上列印其它文字，請問要如何使
印表機在列印表單後不要讓其捲紙呢??
2.同一表單上Label的caption文字及以
Print顯示在表單上的文字，為何列印在
紙上後，使用print的字明顯比label的
caption粗了許多呢??但在營幕上看起來
卻都一樣耶!!要如何使print的文字列印後
看起來和列印後的label1.caption文字一
樣呢??
3.在vb中除了可以將畫面存成圖檔外，不知是
否可以和qb中的screen()函數可讀取營幕上
某特定位置的ascii code，而藉由所讀取的
ascii code來組成一字串??或者有什麼範例
程式可以將秀出的表單存成一文字檔呢??
有關Form Load問題一問....(編號：2384)
我的Form上有Text1,Command1，我要如何才能做到Click Command1後，開啟Text1.Text名稱的Form。
目前我的程式如下，必須在Command1_Click()中的Load要直接將Form名稱打上，十分不理想(因我的Form有很多個)，我試過直接Load Text1.text但行不通，請問有什麼方法可以類似直接Load Text1.text，請您不吝指教，謝謝！
Private Sub Command1_Click()
Load ModifyPassword
OpenForm Text1.Text
End Sub
Public Sub OpenForm(ByVal sFormName As String)
Dim frm As Form
……………..
For Each frm In Forms
If frm.Name = sFormName Then
frm.Show
Exit Sub
End If
Next
…………….
End Sub
目前我的程式如下，必須在Command1_Click()中的Load要直接將Form名稱打上，十分不理想(因我的Form有很多個)，我試過直接Load Text1.text但行不通，請問有什麼方法可以類似直接Load Text1.text，請您不吝指教，謝謝！
Private Sub Command1_Click()
Load ModifyPassword
OpenForm Text1.Text
End Sub
Public Sub OpenForm(ByVal sFormName As String)
Dim frm As Form
……………..
For Each frm In Forms
If frm.Name = sFormName Then
frm.Show
Exit Sub
End If
Next
…………….
End Sub
如何製作一個與眾不同的ICO圖檔(編號：2383)
小吳你好:
我是JACK,想請問你是否知道如何製作一個有自己特色的ICO圖檔ㄋㄟ?我是用VB6 (英文版),SERVICEPACKII,THANKS!!
我是JACK,想請問你是否知道如何製作一個有自己特色的ICO圖檔ㄋㄟ?我是用VB6 (英文版),SERVICEPACKII,THANKS!!
如何可以不理會 " 和 ' 符號??(編號：2378)
When using DAO and DAC to connect SQL Server, there will have the error while the textbox input the " and '.
Please Help me!!
Please Help me!!
開啟之DBF資料庫執行階段錯誤(編號：2377)
本人於公司內安裝 自行設計之程式(VB6撰寫開啟DBF 資料庫), 有些電腦可正常執行
有部份卻出現下列錯誤訊息:
DBF 資料庫問題??
用 Adodc1 開啟之 DBF 資料庫為何在執行:
1. Adodc1.Recordset.RecordCount 將出現
執行階段錯誤'-2147467259(80004005)':
資料提供者或其他服務回傳電子郵件狀態
2. 執行 Adodc1.Recordset.MoveLast 或 Adodc1.Recordset.EOF 時會出現錯誤.
本人在公司內試過多台電腦, 是否應每台系統不一, (有Win95,Win98版),
有些可順利執行有些則會出現問題, 請教該如何解決??
* 開啟 Adodc1 之方式如下:
Dim ConnStr1 As String
Dpath = "SourceDB=" & App.Path & ";" '可隨路徑變更的開啟之 DBF
ConnStr1 = "Provider=MSDASQL.1;" & _
"Driver=Microsoft Visual FoxPro Driver;" & _
Dpath & _
"SourceType=DBF"
Adodc1.ConnectionString = ConnStr1
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from XHOME"
Adodc1.Refresh
請問高手需如何解決, 萬分感謝.
本人猜想是不同系統環境的關係, 但應如何解決?
請指點.
有部份卻出現下列錯誤訊息:
DBF 資料庫問題??
用 Adodc1 開啟之 DBF 資料庫為何在執行:
1. Adodc1.Recordset.RecordCount 將出現
執行階段錯誤'-2147467259(80004005)':
資料提供者或其他服務回傳電子郵件狀態
2. 執行 Adodc1.Recordset.MoveLast 或 Adodc1.Recordset.EOF 時會出現錯誤.
本人在公司內試過多台電腦, 是否應每台系統不一, (有Win95,Win98版),
有些可順利執行有些則會出現問題, 請教該如何解決??
* 開啟 Adodc1 之方式如下:
Dim ConnStr1 As String
Dpath = "SourceDB=" & App.Path & ";" '可隨路徑變更的開啟之 DBF
ConnStr1 = "Provider=MSDASQL.1;" & _
"Driver=Microsoft Visual FoxPro Driver;" & _
Dpath & _
"SourceType=DBF"
Adodc1.ConnectionString = ConnStr1
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from XHOME"
Adodc1.Refresh
請問高手需如何解決, 萬分感謝.
本人猜想是不同系統環境的關係, 但應如何解決?
請指點.
datareport 如何判斷條件~~急件(編號：2375)
請問各位：
有熟悉 datareport的人嗎？
我想請問一下如果用datareport如何判斷條件呢？
那如果用datareport的群組區段又如何去下條件呢？
不知道各位可否為小妹解答！
因為我已經找了很多的書但是都沒有找到！
而且現在急需知道如何用緊急…
有熟悉 datareport的人嗎？
我想請問一下如果用datareport如何判斷條件呢？
那如果用datareport的群組區段又如何去下條件呢？
不知道各位可否為小妹解答！
因為我已經找了很多的書但是都沒有找到！
而且現在急需知道如何用緊急…
SQL文字型態查詢問題(編號：2372)
SQL文字型態查詢問題
我的資料庫，採購單號有下列資料
244
257
321
523
600
623
2344
245677
2443445
我寫了一個SQL的查詢式如下
SELECT * FROM 採購 WHERE 採購單號 BETWEEN '"txtfield(1).txt"' TO '"txtfield(2).txt"'"
採購單號資料型態為string(字串型態)
我下的查詢條件範圍 txtField(1).txt=1 , txtField(2).txt=300
但是所得到的採購單號 資料卻是如下
244
257
2344
245677
2443445
為何會如此奇怪
環境
Win95 +Vb5SP3 ACCESS 97 (MDB檔)
我的資料庫，採購單號有下列資料
244
257
321
523
600
623
2344
245677
2443445
我寫了一個SQL的查詢式如下
SELECT * FROM 採購 WHERE 採購單號 BETWEEN '"txtfield(1).txt"' TO '"txtfield(2).txt"'"
採購單號資料型態為string(字串型態)
我下的查詢條件範圍 txtField(1).txt=1 , txtField(2).txt=300
但是所得到的採購單號 資料卻是如下
244
257
2344
245677
2443445
為何會如此奇怪
環境
Win95 +Vb5SP3 ACCESS 97 (MDB檔)
如何改變WebBrowser Control 的語系(編號：2371)
小弟想用vb寫一個小小的Browser，遇到一個問題，要
如何找出電腦上所有的語系，並設定WebBrowser Control 上的語系。
希望高手指點，感激不盡!!!
如何找出電腦上所有的語系，並設定WebBrowser Control 上的語系。
希望高手指點，感激不盡!!!
API 有關那叫alt+ctrl+del(編號：2369)
不知有誰知道有什方法可以使alt+ctrl+del失效的呢
我問人家好像都說要靠api才能
那在此問問大家，是否有人有較詳細的關於alt+del+del失效的api
或方法的，請能的話，告訴我這個對api不了解的人知吧!
我問人家好像都說要靠api才能
那在此問問大家，是否有人有較詳細的關於alt+del+del失效的api
或方法的，請能的話，告訴我這個對api不了解的人知吧!
我用interdev發展網頁資料庫不能顯示結果於網頁？(編號：2365)
請教各位先進：
個人發展網頁資料庫以ASP+RDO元件及ADO語法開發..在PWS1.1+WIN98的環境下可查詢出資料並顯示於網頁中..但移植到網路的空間時，除了新增、刪除功能正常..修改及查詢均無回應..或出現以下訊息：ansy在閒置時..無法操作..這是甚麼原因呢？
個人發展網頁資料庫以ASP+RDO元件及ADO語法開發..在PWS1.1+WIN98的環境下可查詢出資料並顯示於網頁中..但移植到網路的空間時，除了新增、刪除功能正常..修改及查詢均無回應..或出現以下訊息：ansy在閒置時..無法操作..這是甚麼原因呢？
自動傳取data to database, 請幫忙, 因幾有挑戰的(編號：2364)
現在我正做一個project called " telephone booking system"
需要從電話 get data and store to database , 但要存為一連串
的data..似電話號碼..也似一般的電話book票.
而我就有困難在怎store the data continously and record in database..
需要從電話 get data and store to database , 但要存為一連串
的data..似電話號碼..也似一般的電話book票.
而我就有困難在怎store the data continously and record in database..
如何用ADO連接有密碼的mdb(用DAO create的)(編號：2362)
各位好:
請問我要如何用ADO去開啟有密碼的MDB檔案,
這個MDB檔是用DAO方式用程式產生的,
謝謝各位的指教~
VB6.0+sp3
請問我要如何用ADO去開啟有密碼的MDB檔案,
這個MDB檔是用DAO方式用程式產生的,
謝謝各位的指教~
VB6.0+sp3
利用程式加入元件的問題(編號：2356)
請問：
我要如何才能使用程式碼的方式加入某些元件呢？例：
Dim Chxbox as CheckBox
接下來應如何做才能將Chxbox 顯示在Form上呢，請各位指點指點。
我要如何才能使用程式碼的方式加入某些元件呢？例：
Dim Chxbox as CheckBox
接下來應如何做才能將Chxbox 顯示在Form上呢，請各位指點指點。
SendMessage Question(編號：2355)
When user press "ESC", I want a command button to be pressed.
How can I do ?
I think Send a Message to the command botton is a method !
Does any one can give me a reference code ?
ie, how to get the botton's handle ?
Thank you very much !!!!
How can I do ?
I think Send a Message to the command botton is a method !
Does any one can give me a reference code ?
ie, how to get the botton's handle ?
Thank you very much !!!!
about MIS security issue(編號：2352)
請問大家:
你們是怎麼作權限的管理呢?
我是用database的role配合VB程式
With Adodc1
.ConnectionString = Connect_User
.CommandType = adCmdText
.UserName = "role"
.Password = "123"
.RecordSource = "SELECT * FROM tablename"
.Refresh
End With
但好像沒用ㄟ,書上又沒教.
你們是怎麼作權限的管理呢?
我是用database的role配合VB程式
With Adodc1
.ConnectionString = Connect_User
.CommandType = adCmdText
.UserName = "role"
.Password = "123"
.RecordSource = "SELECT * FROM tablename"
.Refresh
End With
但好像沒用ㄟ,書上又沒教.
MousePointer=99, Mouseicon=圖示(.ico檔)為何不能顯示(編號：2349)
在Label控制項上設定屬性MousePointer=99, Mouseicon=圖示(指定之.ico檔)為何不能顯示指定之Cursor？
請問有人做過同時印好幾張表的方式嗎?配合用CRYSTAL REPORT 4.6!(編號：2348)
我是用VB5寫,配合CRYSTAL REPORT 4.6
但在按下列印後要接著印好幾種不一樣的報表,
請問各位先進有人如此做過嗎?
但在按下列印後要接著印好幾種不一樣的報表,
請問各位先進有人如此做過嗎?
用 Drag and Drop 時的 ICON...(編號：2347)
請問可不可用 .bmp file 作為 Drag and Drop 時的 Icon ?
如可以, 要怎樣做?
我試過只可用 .cur 或 .ico file 才可以
imgBox.DragIcon = LoadPicture("a.ico")
如可以, 要怎樣做?
我試過只可用 .cur 或 .ico file 才可以
imgBox.DragIcon = LoadPicture("a.ico")
關於dll的呼叫...(編號：2343)
我用delphi寫了一個test.dll,現在想在VB上呼叫使用,如果這dll放於windows\system即可使用declare function test lib "test.dll"....執行正確,現在我想將此dll放於app.path ,如將declare function test lib "c:\...\test.dll"....設定程式路徑即可正確執行,但萬一我程式安裝於其他路徑,將無法正確呼叫,而這declare function內之dll路徑名稱又不准輸入變數如app.path,請問有人知道這該如何解決嗎?感激不盡
如何從電話傳取signal到visual basic record the data in datab(編號：2341)
there are my difficulties:
1) 如何從電話傳取signal with visual bsic 似用電話booking ticket 一樣.
2) 如何連續get the signal and record to the databasde ?
like telephone is 2334 5678 then how get the data continousely and store to database with visual basic ?
please help
1) 如何從電話傳取signal with visual bsic 似用電話booking ticket 一樣.
2) 如何連續get the signal and record to the databasde ?
like telephone is 2334 5678 then how get the data continousely and store to database with visual basic ?
please help
請問 有關MsgBox的設定問題(編號：2340)
各位前輩請教一下MsgBox(prompt[,buttons][,title][,helpfile,context])在()中的這些各種單項要如何設定,該寫在程式中的那裏才能被每一個form能呼叫的到.請前輩們幫幫忙把詳細該如何寫詳細寫一下.謝謝各位大德
VB如何將參數傳給Access(編號：2339)
如果使用Access97建立了一個具有參數的查詢，而VB該如何將參數傳給Access97呢？例如："select * from ... group by ... having (... between [a] and [b])"，也就是說，要如何將a和b的值動態的由VB提供。
如何得到程序或函數的名稱？(編號：2337)
1)假設
Private Utility As New clsUtyUtility
'
Private Sub cmdRefresh_Click()
...
On Error GoTo cmdRefresh_Click_EH
...
Dim strErrorLog As String
Dim strProcess As String
strProcess = Name & "." & "Private Sub cmdRefresh_Click()"
strErrorLog = "應用程式: " & App.EXEName & vbCrLf & _
"版 本: " & App.Major & "." & App.Minor & "." & App.Revision & vbCrLf & _
"錯誤位置: " & strProcess & vbCrLf & _
"錯誤代碼: " & Err.Number & vbCrLf & _
"錯誤敘述: " & Err.Description & vbCrLf & _
"錯誤列數: " & Erl()
Utility.ErrorLog strErrorLog
Exit Sub
End Sub
'
上述行號部分是使用另一程式在整個專案完成時再加入。
'
2)效果
上述的strProcess = Name & "." & "Private Sub cmdRefresh_Click()" 的"Private Sub cmdRefresh_Click()" 是以人工方式輸入，請問有無辦法自動偵測所在位置的程序或函數的名稱。
'
'
'
------------------
SPENCER YANG
2000/04/09
Private Utility As New clsUtyUtility
'
Private Sub cmdRefresh_Click()
...
On Error GoTo cmdRefresh_Click_EH
...
Dim strErrorLog As String
Dim strProcess As String
strProcess = Name & "." & "Private Sub cmdRefresh_Click()"
strErrorLog = "應用程式: " & App.EXEName & vbCrLf & _
"版 本: " & App.Major & "." & App.Minor & "." & App.Revision & vbCrLf & _
"錯誤位置: " & strProcess & vbCrLf & _
"錯誤代碼: " & Err.Number & vbCrLf & _
"錯誤敘述: " & Err.Description & vbCrLf & _
"錯誤列數: " & Erl()
Utility.ErrorLog strErrorLog
Exit Sub
End Sub
'
上述行號部分是使用另一程式在整個專案完成時再加入。
'
2)效果
上述的strProcess = Name & "." & "Private Sub cmdRefresh_Click()" 的"Private Sub cmdRefresh_Click()" 是以人工方式輸入，請問有無辦法自動偵測所在位置的程序或函數的名稱。
'
'
'
------------------
SPENCER YANG
2000/04/09
程式自動作出按下按鍵的動作?(編號：2336)
能在VB中寫出一個程式,
使程式固定每30分鐘就會執行按下"F1"的動作嗎?
例如:
讓ie每30分鐘就自動出現說明(F1).
PS.貼出去的文章回答的好像很少,
希望貼在這個地方能出現有效的解答才好.
3Q
使程式固定每30分鐘就會執行按下"F1"的動作嗎?
例如:
讓ie每30分鐘就自動出現說明(F1).
PS.貼出去的文章回答的好像很少,
希望貼在這個地方能出現有效的解答才好.
3Q
程式中有用到讀寫自己的ini檔的寫法api, 這樣在win2000可以用嗎?(編號：2334)
我的程式中有用到讀寫自己的ini檔的寫法(用WINapi),
但是這樣在win2000可以正常安裝執行嗎?
聽說win2000已不用ini的方法讀取設定值.....
煩請說明,謝謝~~!!!
但是這樣在win2000可以正常安裝執行嗎?
聽說win2000已不用ini的方法讀取設定值.....
煩請說明,謝謝~~!!!
how use pointer in VB(編號：2333)
Windows API return a pointer(a long type data),this pointer is points to a buffer.I want to know which buffer it points? How use this pointer in my VB application. Thank you.
有關於Combo的使用問題(編號：2332)
在下想請問一下，Combo如何在執行程式時，新增資料進去，嗯....這樣好像有點模糊，這樣出個例題，題目如下：要設計一個卡拉OK點唱機，但歌曲有限，所以在使用下拉式清單時，可新增新歌曲進去，但一定要在程式執行時新增，且新增的歌曲必需無限制，新增的歌曲也要出現在清單的最前面！題目大概如此，麻煩有人知道如何打出這程式，盡速告訴我，在星期二之前，拜託拜託啦！謝謝！
使用dbgrid作資料新增,如何產生addnew(編號：2330)
1.環境VB6.0
2.目地:使用DBGRID作多筆資料維護,非存入DATABASE而是存於binary file
3.設定
unbound
allowaddnew
4.現狀
輸入第一筆資料時,自動增加一筆新的空白ROW,但用mouse或TAB等鍵都無法移到該空白欄作編輯,且再產生一筆筆新的空白ROW
請問如何才能解決4的問題?
2.目地:使用DBGRID作多筆資料維護,非存入DATABASE而是存於binary file
3.設定
unbound
allowaddnew
4.現狀
輸入第一筆資料時,自動增加一筆新的空白ROW,但用mouse或TAB等鍵都無法移到該空白欄作編輯,且再產生一筆筆新的空白ROW
請問如何才能解決4的問題?
請教SQL語法的問題?(編號：2329)
請問(select * from 員工資料 where 區域代號='A' group by 姓名 order by 姓名 DESC)請問這樣的語法有錯嗎?如果把GROUP BY 的語法去掉就可以執行,我的GROUP BY 的語法有誤嗎?麻煩各位高手為我解惑好嗎?謝謝!!
關於分層畫線條時的一些問題？(編號：2328)
我喜歡一些繪圖軟體，愛好編程式，請問怎樣實現如CORELDRAW那樣的分層（LAYER）處理。如畫一條線在有地圖背景的PICTUREBOX上移動（我嘗試將picturebox的drawmode設爲7，即xor pen模式）通過重畫的方式來擦除再重畫，然而，由於地圖顔色多變，用此種方法作的線條顔色也不確定。請問有無更好的方法。不勝感謝，指點思路即可！
我的E-MAIL：zeng_qin@hotmail.com
我的E-MAIL：zeng_qin@hotmail.com
營業網路管理程式(編號：2327)
感謝大家的幫忙....
小弟的 營業網路管理程式 已經完成80%了...
不知道有朋友也在寫這方面的程式嗎???
簡述功能.請大家來信提供主意.
Server端(Windows9x Nx 2k 都可)
1.利用工作站IP位址來分配電腦編號
2.可鎖定工作站畫面(秀HTML格式的廣告)
3.遠端開機(用WOL功能),遠端關機/重開(Winsock+API)
4.計算遠端工作站"使用時間"及"可用時間"
5.管理帳號及使用時間
6.還沒想出來...
Client端(目前只能用在 Win9x)
1.取消所有會影響系統安全的功能(DOS,控制台,RUN,Ctrl+Alt+Del等..)
2.程式一但啟動...用盡各種方法接無法關閉
3.自動偵測並連線Server端
4.鎖定畫面下...按鍵無法作用...但可由Server端解鎖.
5.只能啟動限定的軟體...
6.使用時間到.自動關機或鎖定畫面...
7.還沒想出來...
請大家提供小弟一些意見與想法吧....
小弟的 營業網路管理程式 已經完成80%了...
不知道有朋友也在寫這方面的程式嗎???
簡述功能.請大家來信提供主意.
Server端(Windows9x Nx 2k 都可)
1.利用工作站IP位址來分配電腦編號
2.可鎖定工作站畫面(秀HTML格式的廣告)
3.遠端開機(用WOL功能),遠端關機/重開(Winsock+API)
4.計算遠端工作站"使用時間"及"可用時間"
5.管理帳號及使用時間
6.還沒想出來...
Client端(目前只能用在 Win9x)
1.取消所有會影響系統安全的功能(DOS,控制台,RUN,Ctrl+Alt+Del等..)
2.程式一但啟動...用盡各種方法接無法關閉
3.自動偵測並連線Server端
4.鎖定畫面下...按鍵無法作用...但可由Server端解鎖.
5.只能啟動限定的軟體...
6.使用時間到.自動關機或鎖定畫面...
7.還沒想出來...
請大家提供小弟一些意見與想法吧....
Winsock SendData傳輸等待問題(編號：2325)
小弟利用 winsock 來做 client & server 程式。當我利用SendData
將資料傳送出去後，隨即接下來的程式碼需使用到 server 所 response回來的資料，但是由於timing的問題，所以server可能尚未傳回資料，請問有沒有什麼程式技巧或方式可以讓我在senddata完畢後，等到DataArrival事件觸發了之後才去執行下面的程式碼呢??
謝謝....
將資料傳送出去後，隨即接下來的程式碼需使用到 server 所 response回來的資料，但是由於timing的問題，所以server可能尚未傳回資料，請問有沒有什麼程式技巧或方式可以讓我在senddata完畢後，等到DataArrival事件觸發了之後才去執行下面的程式碼呢??
謝謝....
AnimatePalette問題：出現了不知名的Error(編號：2322)
Private Declare Function CreatePalette Lib "gdi32" (lpLogPalette As LOGPALETTE) As Long
Private Declare Function AnimatePalette Lib "gdi32" Alias "AnimatePaletteA" (ByVal hPalette As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteColors As PALETTEENTRY) As Long
Private Declare Function SelectPalette Lib "gdi32" (ByVal hdc As Long, ByVal hPalette As Long, ByVal bForceBackground As Long) As Long
Private Declare Function RealizePalette Lib "gdi32" (ByVal hdc As Long) As Long
Private Type PALETTEENTRY
peRed As Byte
peGreen As Byte
peBlue As Byte
peFlags As Byte
End Type
Private Type LOGPALETTE
palVersion As Integer
palNumEntries As Integer
palPalEntry(255) As PALETTEENTRY
End Type
Const PC_RESERVED = &H1 ' palette index used for animation
Private Sub Command1_Click()
Dim hPAL As Long
Dim PAL As LOGPALETTE
Dim a As Long
Dim LPTemp As LOGPALETTE
PAL.palVersion = &H300
PAL.palNumEntries = 1
For b = 0 To 255
PAL.palPalEntry(b).peRed = 255 - b
PAL.palPalEntry(b).peGreen = 255 - b
PAL.palPalEntry(b).peBlue = 255 - b
PAL.palPalEntry(b).peFlags = PC_RESERVED
Next
LPTemp.palPalEntry(0).peRed = PAL.palPalEntry(0).peRed
LPTemp.palPalEntry(0).peGreen = PAL.palPalEntry(0).peGreen
LPTemp.palPalEntry(0).peBlue = PAL.palPalEntry(0).peBlue
LPTemp.palPalEntry(0).peFlags = PAL.palPalEntry(0).peFlags
hPAL = CreatePalette(PAL)
a = SelectPalette(Picture1.hdc, hPAL, False)
a = RealizePalette(Picture1.hdc)
Text1.Text = a
AnimatePalette hPAL, 0, 1, LPTemp.palPalEntry(0)
End Sub
在run時，它顯示了以下的畫面：
RUN-TIME ERROR"453"
Can't find dll entry ponit AnimatePaletteA in gdi32
接著我按debug時，它就指示是"AnimatePalette hPAL, 0, 1, LPTemp.palPalEntry(0)"發生錯誤，究竟我這句裡發生了甚麼問題，會不會是因為RealizePalette(Picture1.hdc)的a=0，而導至這個問題發生呢?
我是使用ＷＩＮＤＯＷＳ ９８ＳＥ（中文）
Private Declare Function AnimatePalette Lib "gdi32" Alias "AnimatePaletteA" (ByVal hPalette As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteColors As PALETTEENTRY) As Long
Private Declare Function SelectPalette Lib "gdi32" (ByVal hdc As Long, ByVal hPalette As Long, ByVal bForceBackground As Long) As Long
Private Declare Function RealizePalette Lib "gdi32" (ByVal hdc As Long) As Long
Private Type PALETTEENTRY
peRed As Byte
peGreen As Byte
peBlue As Byte
peFlags As Byte
End Type
Private Type LOGPALETTE
palVersion As Integer
palNumEntries As Integer
palPalEntry(255) As PALETTEENTRY
End Type
Const PC_RESERVED = &H1 ' palette index used for animation
Private Sub Command1_Click()
Dim hPAL As Long
Dim PAL As LOGPALETTE
Dim a As Long
Dim LPTemp As LOGPALETTE
PAL.palVersion = &H300
PAL.palNumEntries = 1
For b = 0 To 255
PAL.palPalEntry(b).peRed = 255 - b
PAL.palPalEntry(b).peGreen = 255 - b
PAL.palPalEntry(b).peBlue = 255 - b
PAL.palPalEntry(b).peFlags = PC_RESERVED
Next
LPTemp.palPalEntry(0).peRed = PAL.palPalEntry(0).peRed
LPTemp.palPalEntry(0).peGreen = PAL.palPalEntry(0).peGreen
LPTemp.palPalEntry(0).peBlue = PAL.palPalEntry(0).peBlue
LPTemp.palPalEntry(0).peFlags = PAL.palPalEntry(0).peFlags
hPAL = CreatePalette(PAL)
a = SelectPalette(Picture1.hdc, hPAL, False)
a = RealizePalette(Picture1.hdc)
Text1.Text = a
AnimatePalette hPAL, 0, 1, LPTemp.palPalEntry(0)
End Sub
在run時，它顯示了以下的畫面：
RUN-TIME ERROR"453"
Can't find dll entry ponit AnimatePaletteA in gdi32
接著我按debug時，它就指示是"AnimatePalette hPAL, 0, 1, LPTemp.palPalEntry(0)"發生錯誤，究竟我這句裡發生了甚麼問題，會不會是因為RealizePalette(Picture1.hdc)的a=0，而導至這個問題發生呢?
我是使用ＷＩＮＤＯＷＳ ９８ＳＥ（中文）
PALETTE問題：在RealizePalette裡得出來的值是0時，即是代表甚麼(編號：2321)
我寫了以下的程式：
Private Declare Function CreatePalette Lib "gdi32" (lpLogPalette As LOGPALETTE) As Long
Private Declare Function AnimatePalette Lib "gdi32" Alias "AnimatePaletteA" (ByVal hPalette As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteColors As PALETTEENTRY) As Long
Private Declare Function SelectPalette Lib "gdi32" (ByVal hdc As Long, ByVal hPalette As Long, ByVal bForceBackground As Long) As Long
Private Declare Function RealizePalette Lib "gdi32" (ByVal hdc As Long) As Long
Private Type PALETTEENTRY
peRed As Byte
peGreen As Byte
peBlue As Byte
peFlags As Byte
End Type
Private Type LOGPALETTE
palVersion As Integer
palNumEntries As Integer
palPalEntry(255) As PALETTEENTRY
End Type
Const PC_RESERVED = &H1 ' palette index used for animation
Private Sub Command1_Click()
Dim hPAL As Long
Dim PAL As LOGPALETTE
Dim a As Long
Dim LPTemp As LOGPALETTE
PAL.palVersion = &H300
PAL.palNumEntries = 1
For b = 0 To 255
PAL.palPalEntry(b).peRed = 255 - b
PAL.palPalEntry(b).peGreen = 255 - b
PAL.palPalEntry(b).peBlue = 255 - b
PAL.palPalEntry(b).peFlags = PC_RESERVED
Next
hPAL = CreatePalette(PAL)
a = SelectPalette(Picture1.hdc, hPAL, False)
a = RealizePalette(Picture1.hdc)
Text1.Text = a
End Sub
結果A=0
究竟這個是甚麼意思呢??
Private Declare Function CreatePalette Lib "gdi32" (lpLogPalette As LOGPALETTE) As Long
Private Declare Function AnimatePalette Lib "gdi32" Alias "AnimatePaletteA" (ByVal hPalette As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteColors As PALETTEENTRY) As Long
Private Declare Function SelectPalette Lib "gdi32" (ByVal hdc As Long, ByVal hPalette As Long, ByVal bForceBackground As Long) As Long
Private Declare Function RealizePalette Lib "gdi32" (ByVal hdc As Long) As Long
Private Type PALETTEENTRY
peRed As Byte
peGreen As Byte
peBlue As Byte
peFlags As Byte
End Type
Private Type LOGPALETTE
palVersion As Integer
palNumEntries As Integer
palPalEntry(255) As PALETTEENTRY
End Type
Const PC_RESERVED = &H1 ' palette index used for animation
Private Sub Command1_Click()
Dim hPAL As Long
Dim PAL As LOGPALETTE
Dim a As Long
Dim LPTemp As LOGPALETTE
PAL.palVersion = &H300
PAL.palNumEntries = 1
For b = 0 To 255
PAL.palPalEntry(b).peRed = 255 - b
PAL.palPalEntry(b).peGreen = 255 - b
PAL.palPalEntry(b).peBlue = 255 - b
PAL.palPalEntry(b).peFlags = PC_RESERVED
Next
hPAL = CreatePalette(PAL)
a = SelectPalette(Picture1.hdc, hPAL, False)
a = RealizePalette(Picture1.hdc)
Text1.Text = a
End Sub
結果A=0
究竟這個是甚麼意思呢??
如何在datareport分組和....(編號：2318)
以下有幾個問題想請教:
1. 在datareport中如何再新增組別(原來已有一個為客戶的分組,用dataenvironment為資料源).
2. 如何把密碼和用戶名稱傳到dataenviroment中, 以免有一個問話出現.
3. 當datareport show的時候,如何自動把顯示的比率改為75%.
請指點,急.
1. 在datareport中如何再新增組別(原來已有一個為客戶的分組,用dataenvironment為資料源).
2. 如何把密碼和用戶名稱傳到dataenviroment中, 以免有一個問話出現.
3. 當datareport show的時候,如何自動把顯示的比率改為75%.
請指點,急.
seek(編號：2317)
Set db = OpenDatabase("\..\aaa\aaa.mdb")
Set rs = db.OpenRecordset(字串變數) '=＞這樣的寫法不知可否
If rs.NoMatch = True Then
MsgBox "找不到"
Else
TxtStaNo.Text = rs.Fields!STANO
TxtStaName.Text = rs.Fields!STANAME
TxtStaDesc.Text = rs.Fields!STADESC
End If
如果我要用seek的方式來找尋資料我應該如何寫
Set rs = db.OpenRecordset(字串變數) '=＞這樣的寫法不知可否
If rs.NoMatch = True Then
MsgBox "找不到"
Else
TxtStaNo.Text = rs.Fields!STANO
TxtStaName.Text = rs.Fields!STANAME
TxtStaDesc.Text = rs.Fields!STADESC
End If
如果我要用seek的方式來找尋資料我應該如何寫
訂閱：
文章 (Atom)