有個程式做好了之後，執行
讀入一張A圖，將它按照原比例格式縮小成10%為A-s圖
現在要將A-s圖另存新檔，要怎麼做阿??????
提供小吳 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 .
如何在一個表單中同時更新兩個field?(編號：5874)
Private Sub Command1_Click(Index As Integer)
Adodc2.Recordset.AddNew '新增按鈕
datvip.Recordset.AddNew
Text4(1) = Date
Text7 = 0
End Sub
Private Sub Form_Load()
Adodc2.Recordset.AddNew
datvip.Recordset.AddNew
Text1(0) = Val(Text1(3)) * Val(Text5(4))
Text4(1) = Date
Text7 = 0
End Sub
1.請問一上面的Form_Load()和Command1_Click中那有錯,有沒有更好的方法可以用在adodc元件中的新增功能.
2.如何才可以在一個表單之中,同時新增並更新兩個adodc元件中的field.也就是在表單中只要輸入一筆資料,就會同時更新兩個資料表的field.
請各位先進多多指點一下~thx~
Adodc2.Recordset.AddNew '新增按鈕
datvip.Recordset.AddNew
Text4(1) = Date
Text7 = 0
End Sub
Private Sub Form_Load()
Adodc2.Recordset.AddNew
datvip.Recordset.AddNew
Text1(0) = Val(Text1(3)) * Val(Text5(4))
Text4(1) = Date
Text7 = 0
End Sub
1.請問一上面的Form_Load()和Command1_Click中那有錯,有沒有更好的方法可以用在adodc元件中的新增功能.
2.如何才可以在一個表單之中,同時新增並更新兩個adodc元件中的field.也就是在表單中只要輸入一筆資料,就會同時更新兩個資料表的field.
請各位先進多多指點一下~thx~
如何執行在textbox裡的程式碼呢？(編號：5873)
如題，我在textbox裡可得到一串程式碼，可是要怎麼執行它呢？請幫幫我，謝謝！
ps：textbox裡的程式碼是經由條件判斷得到的，不能直接寫在程式執行，我用一個變數(aa)儲存，再把它放在textbox裡！
ps：textbox裡的程式碼是經由條件判斷得到的，不能直接寫在程式執行，我用一個變數(aa)儲存，再把它放在textbox裡！
Vbscript 求救 HELP !!!!(編號：5869)
請教各路高手,本人享用 Inner join 連結兩資料表 卻一直出現Error
BorrowRegister
BookRegister 資料表
請高手指點
＜%
set conn=server.createobject("ADODB.Connection")
conn.open "sdata"
set rs=server.createobject("ADODB.Recordset")
sqlstr="SELECT * from BorrowRegister inner join BookRegister on BorrowRegister.BkRID=BookRegister.BkRID"
rs.open sqlstr,conn,1,1,1
%＞
錯誤訊息 :
Microsoft OLE DB Provider for ODBC Drivers 錯誤 '80040e21'
ODBC 驅動程式不支援此要求內容。
/new_page_5.asp, 列22
BorrowRegister
BookRegister 資料表
請高手指點
＜%
set conn=server.createobject("ADODB.Connection")
conn.open "sdata"
set rs=server.createobject("ADODB.Recordset")
sqlstr="SELECT * from BorrowRegister inner join BookRegister on BorrowRegister.BkRID=BookRegister.BkRID"
rs.open sqlstr,conn,1,1,1
%＞
錯誤訊息 :
Microsoft OLE DB Provider for ODBC Drivers 錯誤 '80040e21'
ODBC 驅動程式不支援此要求內容。
/new_page_5.asp, 列22
VB6如何使用Crystal Report 8.0(編號：5867)
請問一下各位..在VB6中要如何使用Crystal Report8.0 ㄚ.!?以前4.6版可以去增益集中開啟...可是8.0版卻不行ㄟ..!!而我查了一下市面上的書..清一色都是英文的..而我的英文又爛的可以...!!
如何寫CommonDialog 的後續功能，如另存或開啟(編號：5866)
想請問一個問題:
我正在用VB做一個Access資料庫,我的表單上放了下列元件1.CommonDialog 2.DataGrid 3.Adodc 4.open , print, save 三種功能鈕
Adodc 已指向某一 *.mdb 檔案，DataGrid 的 datasource 是 Adodc ，程式執行後可看到此一 * .mdb 檔被秀出
但按下open , print, save 三種功能鈕後,
有出現對話方塊,卻不能執行功能,
我的原始程式:
Private Sub open_Click()
CommonDialog.ShowOpen
End Sub
Private Sub print_Click()
CommonDialog.ShowPrinter
End Sub
Private Sub save_Click()
CommonDialog.ShowSave
EndSub
後來有人告訴我寫成下列程式:
dlg.showOpen
open dlg.filename for input as #1 '對映的Code
close #1
這個程式的#1是什麼?我要如何修改程式使之有後續功能，如另存或開啟呢?
(假設我原來指向的*.mdb檔是 piggy.mdb
欲開啟的為 member.mdb)
Thanks!!!
我正在用VB做一個Access資料庫,我的表單上放了下列元件1.CommonDialog 2.DataGrid 3.Adodc 4.open , print, save 三種功能鈕
Adodc 已指向某一 *.mdb 檔案，DataGrid 的 datasource 是 Adodc ，程式執行後可看到此一 * .mdb 檔被秀出
但按下open , print, save 三種功能鈕後,
有出現對話方塊,卻不能執行功能,
我的原始程式:
Private Sub open_Click()
CommonDialog.ShowOpen
End Sub
Private Sub print_Click()
CommonDialog.ShowPrinter
End Sub
Private Sub save_Click()
CommonDialog.ShowSave
EndSub
後來有人告訴我寫成下列程式:
dlg.showOpen
open dlg.filename for input as #1 '對映的Code
close #1
這個程式的#1是什麼?我要如何修改程式使之有後續功能，如另存或開啟呢?
(假設我原來指向的*.mdb檔是 piggy.mdb
欲開啟的為 member.mdb)
Thanks!!!
請問OLE物件是不是不能做新增的動作阿?(編號：5865)
我用Data連接OLE物件(Word文件)
但新增時Data1.Recordset.AddNew
OLE物件點選兩下卻無法使用
請問OLE物件是不是不能做"新增"的動作阿?
如果可以要怎麼新增呢?
但新增時Data1.Recordset.AddNew
OLE物件點選兩下卻無法使用
請問OLE物件是不是不能做"新增"的動作阿?
如果可以要怎麼新增呢?
讓CommonDialog有開啟功能的程式要如何寫?(編號：5864)
想請問一個問題:
我正在用VB做一個Access資料庫,我的表單上放了下列元件1.CommonDialog 2.DataGrid 3.Adodc 4.open , print, save 三種功能鈕
Adodc 已指向某一 *.mdb 檔案，DataGrid 的 datasource 是 Adodc ，程式執行後可看到此一 * .mdb 檔被秀出
但按下open , print, save 三種功能鈕後,
有出現對話方塊,卻不能執行功能,
我的原始程式:
Private Sub open_Click()
CommonDialog.ShowOpen
End Sub
Private Sub print_Click()
CommonDialog.ShowPrinter
End Sub
Private Sub save_Click()
CommonDialog.ShowSave
End Sub 後來有人告訴我寫成下列程式:
dlg.showOpen
open dlg.filename for input as #1
'對映的Code
close #1
這個程式的#1是什麼?我要如何修改呢?
(假設我原來指向的*.mdb檔是 piggy.mdb
欲開啟的為 member.mdb)
Thanks!!!
我正在用VB做一個Access資料庫,我的表單上放了下列元件1.CommonDialog 2.DataGrid 3.Adodc 4.open , print, save 三種功能鈕
Adodc 已指向某一 *.mdb 檔案，DataGrid 的 datasource 是 Adodc ，程式執行後可看到此一 * .mdb 檔被秀出
但按下open , print, save 三種功能鈕後,
有出現對話方塊,卻不能執行功能,
我的原始程式:
Private Sub open_Click()
CommonDialog.ShowOpen
End Sub
Private Sub print_Click()
CommonDialog.ShowPrinter
End Sub
Private Sub save_Click()
CommonDialog.ShowSave
End Sub 後來有人告訴我寫成下列程式:
dlg.showOpen
open dlg.filename for input as #1
'對映的Code
close #1
這個程式的#1是什麼?我要如何修改呢?
(假設我原來指向的*.mdb檔是 piggy.mdb
欲開啟的為 member.mdb)
Thanks!!!
請問圖片如何存入SQL Server7.0??(編號：5861)
請問要如何將Picture or Image control中的圖形存入
SQL Server7.0中 image 型態的欄位??
感謝回答!!
ps.用字串去存圖片路徑是可以,但是我不想用這個方式
SQL Server7.0中 image 型態的欄位??
感謝回答!!
ps.用字串去存圖片路徑是可以,但是我不想用這個方式
有關Data Report...(編號：5859)
請問一下，有關DataReport，
如果我有幾筆資料，而每一筆資料都有"金額1"和"金額2"，
那我如何將每一筆資料的"金額1"的總和算出來，"金額2"的總和也算出來，然後顯示在報表上？
那如果我想再把這兩個總和拿來作"加減乘除"的運算，再顯示出來，
又應該如何寫code呢？？
謝謝！！
如果我有幾筆資料，而每一筆資料都有"金額1"和"金額2"，
那我如何將每一筆資料的"金額1"的總和算出來，"金額2"的總和也算出來，然後顯示在報表上？
那如果我想再把這兩個總和拿來作"加減乘除"的運算，再顯示出來，
又應該如何寫code呢？？
謝謝！！
如何動態 unload MDI Form中的子表單?(編號：5858)
想請教各位先進，我在Delphi中寫過的MDI form 可用
for cnt := MDIChildCount-1 downto 0 do
MDIChildren[cnt].Close;
^^^^^^^^^^^^^^^^^^^^^^^
把所有MDI 下的子表單全部關掉而不結束主程式
但是VB 下我找不到這樣的屬性可用，可以請教各
位先進此題是否有解?麻煩回答一下囉:)謝謝....
for cnt := MDIChildCount-1 downto 0 do
MDIChildren[cnt].Close;
^^^^^^^^^^^^^^^^^^^^^^^
把所有MDI 下的子表單全部關掉而不結束主程式
但是VB 下我找不到這樣的屬性可用，可以請教各
位先進此題是否有解?麻煩回答一下囉:)謝謝....
請指點: 具有多個Form之專案，如何將專案所含控制項List Out至文(編號：5857)
先用過For Each ...In Forms配合For each ... In Controls, 但因部分Form未Load,若先Load每一Form則列出控制項時又引發Form_Load事件...
Date Control的Source??????(編號：5856)
Data Control 的Source前加上一行 Set Data1.Recordset = rsDAO36 'rsDAO36 is a DAO 3.6
加在哪裏,哪裏是Date Control的Source前?
加在哪裏,哪裏是Date Control的Source前?
要使用OLE物件並將它連結到ACCESS2000的資料庫(編號：5853)
在VB內若要使用"OLE物件"並將它連結到ACCESS2000的資料庫
要如何使用呢?
因為"OLE物件"只能與DATA控制項相連
而DATA控制項有只能支援ACCESS97而不支援ACCESS2000..
怎麼辦呢?
要如何使用呢?
因為"OLE物件"只能與DATA控制項相連
而DATA控制項有只能支援ACCESS97而不支援ACCESS2000..
怎麼辦呢?
怎樣寫 remote MS SQL Server 的路徑 ﹖(編號：5852)
Image1.Picture = LoadPicture("c:\picture\face.gif")
picture file 的路徑可以是remote MS SQL Server 嗎 ﹖
可以的話﹐我應該怎樣寫呢 ﹖謝謝 !
picture file 的路徑可以是remote MS SQL Server 嗎 ﹖
可以的話﹐我應該怎樣寫呢 ﹖謝謝 !
使用DATA連接資料庫,為什麼不能支援ACCESS2000的資料庫(編號：5850)
使用DATA連接資料庫,為什麼不能支援ACCESS2000的資料庫
要如何更改設定
資料庫裏用OLE物件,要如何連接至資料庫
急件請速回覆,謝謝你的幫忙
要如何更改設定
資料庫裏用OLE物件,要如何連接至資料庫
急件請速回覆,謝謝你的幫忙
open binary file(編號：5849)
Dim intFn As Integer
Dim bytData As Byte
Dim bytTemp As Byte
Open FileName For Binary Access Read As #intFn
While Not EOF(intFn)
Input #intFn, bytTemp
bytData = bytData + bytTemp
Wend
請問,如果我要開啟一檔案,且不論為文字檔或者是二進檔,皆以
二進位來開啟,然後再透過winsock傳至另一台電腦再存檔
程式寫這樣,請問為何每次所input的bytTemp皆為0呢???
Dim bytData As Byte
Dim bytTemp As Byte
Open FileName For Binary Access Read As #intFn
While Not EOF(intFn)
Input #intFn, bytTemp
bytData = bytData + bytTemp
Wend
請問,如果我要開啟一檔案,且不論為文字檔或者是二進檔,皆以
二進位來開啟,然後再透過winsock傳至另一台電腦再存檔
程式寫這樣,請問為何每次所input的bytTemp皆為0呢???
如何把表單放到網頁上執行(編號：5848)
下面是抓影像擷取卡影像的表單程式碼
Private Const WM_USER = &H400
Private Const WM_CAP_START = WM_USER
Private Const WM_CAP_GET_CAPSTREAMPTR = WM_CAP_START + 1
Private Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
Private Const WM_CAP_SET_OVERLAY = WM_CAP_START + 51
Private Const WM_CAP_SET_SCALE = WM_CAP_START + 53
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hwndParent As Long, ByVal nID As Integer) As Long
Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Form_Load()
Dim Ret As Integer
hCapture = capCreateCaptureWindow(vbNullString, WS_CHILD Or WS_VISIBLE, 0, 0, 560, 480, Me.hwnd, 0)
Ret = SendMessage(hCapture, WM_CAP_DRIVER_CONNECT, 0, 0)
Ret = SendMessage(hCapture, WM_CAP_SET_OVERLAY, 1, 0)
End Sub
我的問題是要怎樣把它放到網頁上執行，弄了好久都搞不定
請大家幫忙，謝謝
Private Const WM_USER = &H400
Private Const WM_CAP_START = WM_USER
Private Const WM_CAP_GET_CAPSTREAMPTR = WM_CAP_START + 1
Private Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
Private Const WM_CAP_SET_OVERLAY = WM_CAP_START + 51
Private Const WM_CAP_SET_SCALE = WM_CAP_START + 53
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hwndParent As Long, ByVal nID As Integer) As Long
Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Form_Load()
Dim Ret As Integer
hCapture = capCreateCaptureWindow(vbNullString, WS_CHILD Or WS_VISIBLE, 0, 0, 560, 480, Me.hwnd, 0)
Ret = SendMessage(hCapture, WM_CAP_DRIVER_CONNECT, 0, 0)
Ret = SendMessage(hCapture, WM_CAP_SET_OVERLAY, 1, 0)
End Sub
我的問題是要怎樣把它放到網頁上執行，弄了好久都搞不定
請大家幫忙，謝謝
what is養成每次 check?(關於activex document封裝精靈)(編號：5847)
我每次利用activex document 精靈封裝出來的檔案,是"沒有 "自己產生過classid,為什麼呢?
SQL的SUM?~~急~~~SQL高手(編號：5845)
SELECT 進料表.產品編號, 進料表.產品名稱, SUM(進料表.進料數量) - SUM(領料表.領料數量) AS 庫存量, AVG(產品資料表.單價) AS 價格, (SUM(進料表.進料數量) - SUM(領料表.領料數量)) * AVG(產品資料表.單價) AS 總金額 FROM 領料表, 產品資料表, 進料表 WHERE 領料表.產品編號 = 產品資料表.產品編號 AND 產品資料表.產品編號 = 進料表.產品編號 AND (產品資料表.產品編號 = 進料表.產品編號) GROUP BY 進料表.產品編號, 進料表.產品名稱
請問各位先進,我的言法那錯了,庫存量不準也?＞_＜
請問各位先進,我的言法那錯了,庫存量不準也?＞_＜
windows的登入帳號被鎖住了怎麼辦(編號：5844)
windows 2000 server的登入帳號被鎖住了,連最高權限的Adminstrators管理者自己都無法進去怎麼辦,我確定密碼輸入沒錯,其他帳號也都沒辦法登入
出現訊息"您的互動登入特殊權限已被停用,請聯絡您的系統管理員"
除了重灌,還有補救的辦法嗎?
出現訊息"您的互動登入特殊權限已被停用,請聯絡您的系統管理員"
除了重灌,還有補救的辦法嗎?
如何在MDI介面的程式建立檔案關聯？(編號：5842)
各位先進您好，小弟目前正在寫一個MDI介面的記事本，並且想作和檔案關聯。 我使用Command$函數，當開啟第一個文字文件時沒有問題，但是開啟第二個文字文件後，卻不是由先前的主視窗開啟另一個子視窗，而是另外開啟一個主視窗，這樣便失去了MDI介面的意義。請問關於這種MDI介面的程式檔案關聯該如何寫，才可以使開啟第二個以上的程式由子視窗顯示？
煩請解答，感謝感謝。
煩請解答，感謝感謝。
adodc找不到提供者(編號：5837)
最近剛接觸資料庫
我用Adodc連結Access資料庫
在本機執行時都沒有問題
可是做成Setup檔後
在其他電腦上安裝後
執行卻出現Adodc找不到提供者
是不是有的檔案沒有Copy到
還是其他原因
敬請賜教....
我用Adodc連結Access資料庫
在本機執行時都沒有問題
可是做成Setup檔後
在其他電腦上安裝後
執行卻出現Adodc找不到提供者
是不是有的檔案沒有Copy到
還是其他原因
敬請賜教....
如何用Win32API做到子表單排列功能？(編號：5833)
我查到有兩個API可以用，但是一直試不出來。
TileWindows 和 CascadeWindows
Private Sub Command1_Click()
Dim b As RECT
CascadeWindows Form1.hwnd, MDITILE_SKIPDISABLED, b, 0, 0
End Sub
那裡弄錯了，請大家幫忙指點一下，謝謝。
TileWindows 和 CascadeWindows
Private Sub Command1_Click()
Dim b As RECT
CascadeWindows Form1.hwnd, MDITILE_SKIPDISABLED, b, 0, 0
End Sub
那裡弄錯了，請大家幫忙指點一下，謝謝。
what is MSDN?(編號：5829)
I have to use English because I am using GB code.
Anybody can tell me what's "MSDN",and how to install it.
I bought a VB disk,when I installing VB 6.0,and choose MSDN,
it said that I should insert a MSDN Liarbly disk,
but I don't know what's MSDN.
I need MSDN because when I use Acess data source in my programme,the datasource properit of text can not connect to an Acess file,and the warning is that I should install MSDN.
SO ,WHO CAN TELL ME WHAT THE HELL IS MSDN
AND HOW TO INSTALL IT.
THANKS FOR YOUR KIND.
Anybody can tell me what's "MSDN",and how to install it.
I bought a VB disk,when I installing VB 6.0,and choose MSDN,
it said that I should insert a MSDN Liarbly disk,
but I don't know what's MSDN.
I need MSDN because when I use Acess data source in my programme,the datasource properit of text can not connect to an Acess file,and the warning is that I should install MSDN.
SO ,WHO CAN TELL ME WHAT THE HELL IS MSDN
AND HOW TO INSTALL IT.
THANKS FOR YOUR KIND.
VC++啟動 ABC 程式的問題(編號：5828)
若程式名稱是"ABC",是自己寫的程式,
請問VC++怎麼分別"ABC"是從程式集中的"啟動"開啟,
還是從程式集的"ABC"開啟?
su_jersing@pchome.com.tw
請問VC++怎麼分別"ABC"是從程式集中的"啟動"開啟,
還是從程式集的"ABC"開啟?
su_jersing@pchome.com.tw
堆積,堆疊Text Box?(編號：5827)
如題目所問,當我一直接收鍵盤的訊息後,我想到了三種的儲存訊息的方法:堆積,堆疊以及Text Box.請問堆積和堆疊有何不同呢?如果我用Text Box來存放資料,該如何將其取出呢?
DataEnvironment的Command可以在run-time 設定嗎 ﹖(編號：5826)
For example:
DataEnvironment1.Connection1.Command1.CommandText="Select * ..."
但 DataEnvironment1.Connection1 沒有 Command1 這個 property.
有沒有辦法 ﹖ 謝謝 !
DataEnvironment1.Connection1.Command1.CommandText="Select * ..."
但 DataEnvironment1.Connection1 沒有 Command1 這個 property.
有沒有辦法 ﹖ 謝謝 !
Crystal Report 的問題想請教(編號：5824)
假設Detail的部分有三個, 是可以用Section Expert來Insert, 但是這樣印出來的結果會是Detail A, Detail B, Detail C, Detail A, Detail B, Detail C,..... 這樣的順序, 那如果要讓結果變成先全部印Detail A, 等Detail A印完後再印Detail B, 再印Detail C的話, 在Crystal Report 裡要怎麼設定呢? 謝謝!!
如何用COM DLL來管理60個Table表的權限(LOGIN)??(編號：5823)
各位網好!!
小弟最近接手一個專案此專案的特點為(要求):
1.為WEB Base + SQL Server 7.0 + NT 4.0 + IIS 4.0
2.橫跨六個部門,約計有7個資料庫共60個Table表
3.每個部門的權限不一
它原本是以ASP來執行,但我打算以WEBCLASS配合N-Tier的架構來改寫!!
但花了一個星期了解原有的系統及資料庫後,有點不知如何下手的感覺!!
所以上來問一下各位先進,敬請指教!!
小弟最近接手一個專案此專案的特點為(要求):
1.為WEB Base + SQL Server 7.0 + NT 4.0 + IIS 4.0
2.橫跨六個部門,約計有7個資料庫共60個Table表
3.每個部門的權限不一
它原本是以ASP來執行,但我打算以WEBCLASS配合N-Tier的架構來改寫!!
但花了一個星期了解原有的系統及資料庫後,有點不知如何下手的感覺!!
所以上來問一下各位先進,敬請指教!!
想請問在VB指定報表的紙張設定(編號：5822)
我的平台是NT workstation 4.0 ,用VB撰寫程式,CrystalReport 設計報表，最近需做一個標籤的列印，我是用CrystalReport所設計的，在我的系統中都是正常的，可是一旦從新開機就會跳回系統的初值，這樣就會不準，所以我在VB在如何設定紙張大小?謝謝!!
ListView的問題(編號：5820)
以下的程式中b1可否用變數方式,要如何做?
Set v1 = ListView1.ListItems.Add(, "b1", "b1", "b1", "b1")
Set v1 = ListView1.ListItems.Add(, "b1", "b1", "b1", "b1")
about adso(編號：5818)
請問站長
我最近申請adsl並配一ip
我是否可以一台nt,並安裝dns,裝兩片網路卡,一為真ip,一為假ip
假ip串接一hub,再由hub串接其他的電腦(皆為假ip),
是否在dns中設定ftp.test.com,www.test.com等..(但ftp.test.com,www.test.com皆為同一真ip,只是透過dns做routing)
外面就可直接透過dns進入到假ip區
我最近申請adsl並配一ip
我是否可以一台nt,並安裝dns,裝兩片網路卡,一為真ip,一為假ip
假ip串接一hub,再由hub串接其他的電腦(皆為假ip),
是否在dns中設定ftp.test.com,www.test.com等..(但ftp.test.com,www.test.com皆為同一真ip,只是透過dns做routing)
外面就可直接透過dns進入到假ip區
請問各位用DevPower Flat Button在win98下會有系統資源耗盡的情(編號：5817)
我在windows 98,VB6.0下程式使用DevPower Flat Button ActiveX Control,不久即會有系統資源耗盡的情形,並跳出記憶體不足的訊息
在NT下則不會有這種情形,是DevPower Flat Button ActiveX Control不支援win98嗎,有沒有方法可解決,麻煩各位告知,謝謝
在NT下則不會有這種情形,是DevPower Flat Button ActiveX Control不支援win98嗎,有沒有方法可解決,麻煩各位告知,謝謝
為什麼利用封裝精靈封裝後的activex document會沒有產生classid(編號：5816)
請問一下:
為什麼我們利用封裝精靈把active document封成可於internet下載的檔案時,它並不會產生classid.
而我們利用封裝精靈封裝control項時,它卻有產生classid.
為什麼我們利用封裝精靈把active document封成可於internet下載的檔案時,它並不會產生classid.
而我們利用封裝精靈封裝control項時,它卻有產生classid.
datareport抓不到欄位?(編號：5815)
小弟把sql查詢的筆數，放到datareport的textbox內，屬性datafield名為empno，執行結果卻告訴我「找不到資料欄empno」，請各位幫我檢查何處有問題？謝了~ ps.sql確定可跑
str1 = "select count(a.empno) from docbase a " & _
"left outer join emp b on a.empno=b.empno " & _
"where a.result='1' " & _
"group by b.empno " & _
"order by b.empno "
Set rs2 = New ADODB.Recordset
rs2.Fields.Append "count(a.empno)", adChar, 8
rs2.Open str1, cn
Set ExReport.DataSource = rs2
rs2.Cancel
Set rs2 = Nothing
ExReport.Show
str1 = "select count(a.empno) from docbase a " & _
"left outer join emp b on a.empno=b.empno " & _
"where a.result='1' " & _
"group by b.empno " & _
"order by b.empno "
Set rs2 = New ADODB.Recordset
rs2.Fields.Append "count(a.empno)", adChar, 8
rs2.Open str1, cn
Set ExReport.DataSource = rs2
rs2.Cancel
Set rs2 = Nothing
ExReport.Show
給紀文和兄 !!(編號：5813)
Hi 紀兄
我是 VB入門網的忠實觀眾(時常造訪啦!!), 現在有一個問題請教你,
我參考 "個個擊破" 第207解:修護 Access 2000 的資料庫,我都按照
你的指示作了一支修護程式(抄襲啦!!), 但是它會一直出現
"此版本的功能在舊格式資料庫中無效" 的錯誤 , 但我確定我
的資料庫是用 Access 2000 手工建立的資料庫,
Dim JRO As JRO.JetEngine
Set JRO = New JRO.JetEngine
JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\abc.mdb", "Provider=Microsoft.Jet.Oledb.4.0;Data Source=c:\new.mdb;Jet Oledb:engine type=4"
謝謝你 !!
我是 VB入門網的忠實觀眾(時常造訪啦!!), 現在有一個問題請教你,
我參考 "個個擊破" 第207解:修護 Access 2000 的資料庫,我都按照
你的指示作了一支修護程式(抄襲啦!!), 但是它會一直出現
"此版本的功能在舊格式資料庫中無效" 的錯誤 , 但我確定我
的資料庫是用 Access 2000 手工建立的資料庫,
Dim JRO As JRO.JetEngine
Set JRO = New JRO.JetEngine
JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\abc.mdb", "Provider=Microsoft.Jet.Oledb.4.0;Data Source=c:\new.mdb;Jet Oledb:engine type=4"
謝謝你 !!
檔案關閉!!!!!!!(編號：5812)
我的程式碼
frmtest.Hide
Opn = Shell("cmd /c start excel c:\project\interface\Input.xls", 1)
pHnd = OpenProcess(PROCESS_QUERY_INORMATION, 0, Opn)
Do
Call GetExitCodeProcess(pHnd, ExitCode)
DoEvents
Loop While ExitCode = STILL_ALIVE
Call CloseHandle(pHnd)
frmtest.Show
Excel打開後,原來的對話框不等excel關閉就show出來了
frmtest.Hide
Opn = Shell("cmd /c start excel c:\project\interface\Input.xls", 1)
pHnd = OpenProcess(PROCESS_QUERY_INORMATION, 0, Opn)
Do
Call GetExitCodeProcess(pHnd, ExitCode)
DoEvents
Loop While ExitCode = STILL_ALIVE
Call CloseHandle(pHnd)
frmtest.Show
Excel打開後,原來的對話框不等excel關閉就show出來了
請問Security.Gard這個物件??(編號：5809)
Set Member = server.CreateObject("Security.Gard")
這是ASP中一個物件~~
請問它的功用是~~
小弟需要詳盡的敘述~~
謝謝您的指教~~^_^
這是ASP中一個物件~~
請問它的功用是~~
小弟需要詳盡的敘述~~
謝謝您的指教~~^_^
ACCESS 資料庫可像 DBF 一樣 UNPACK 嗎?(編號：5806)
如題, 假如在ACCESS的資料庫中不小心誤刪了N筆資料, 有無像DBF資料庫中UNPACK的功能, 將DELETE的資料回復嗎??
請問大家 兩個問題 !! ( 急!! )(編號：5802)
1. 請問要如何用程式控制來使 " 滑鼠游標 " 可以 " 任意的移動 " ??
2. 請問要如何用程式來模擬 " 滑鼠三鍵的任一鍵的「按下、放開、...... 等等」的功能 " ??
※ 必須要可以 "「滑鼠游標不在原程式上」也可以正常的執行 " !!
( 謝謝!! )
2. 請問要如何用程式來模擬 " 滑鼠三鍵的任一鍵的「按下、放開、...... 等等」的功能 " ??
※ 必須要可以 "「滑鼠游標不在原程式上」也可以正常的執行 " !!
( 謝謝!! )
一個關於資料庫的問題(編號：5799)
我在刪除資料的命令鈕中,寫了以下的內容...
ans = MsgBox("你確定要刪除此筆資料嗎", vbQuestion + vbOKCancel, "產品管理")
If ans = vbOK Then
Adodc1.Recordset.Delete
adodc1.recordset.movenext
if Adodc1.Recordset.EOF = True Then
adodc1.Recordset.MoveLast
endif
Exit Sub
Else
Exit Sub
End If
但是我執行的時候 vb 卻說 automation 錯誤...這是為什麼呢 ?
ans = MsgBox("你確定要刪除此筆資料嗎", vbQuestion + vbOKCancel, "產品管理")
If ans = vbOK Then
Adodc1.Recordset.Delete
adodc1.recordset.movenext
if Adodc1.Recordset.EOF = True Then
adodc1.Recordset.MoveLast
endif
Exit Sub
Else
Exit Sub
End If
但是我執行的時候 vb 卻說 automation 錯誤...這是為什麼呢 ?
ADO存取資料庫,中文會有亂碼(編號：5798)
各位先進好,請問個問題,我是用英文版的vb6,用ADO存取SQL6.5,中文資料會出現亂碼,但用中文版的vb6則無此問題,請問這是什麼原因呢?
先謝謝先進們的解答
先謝謝先進們的解答
我該怎麼半..呢??(編號：5797)
請問因為我安裝了一個軟體,後來因為不適用而將他刪除[用新增與移除-控制台]
但是,我的文字檔卻被他關聯又因為他被刪掉了所以無法開啟...
請問要如何做才能回覆正常呢?...謝謝
那又如何用 VB 來寫一程式來改變關聯呢.....?謝謝
但是,我的文字檔卻被他關聯又因為他被刪掉了所以無法開啟...
請問要如何做才能回覆正常呢?...謝謝
那又如何用 VB 來寫一程式來改變關聯呢.....?謝謝
我該怎麼半..呢??(編號：5796)
請問因為我安裝了一個軟體,後來因為不適用而將他刪除[用新增與移除-控制台]
但是,我的文字檔卻被他關聯又因為他被刪掉了所以無法開啟...
請問要如何做才能回覆正常呢?...謝謝
那又如何用 VB 來寫一程式來改變關聯呢.....?謝謝
但是,我的文字檔卻被他關聯又因為他被刪掉了所以無法開啟...
請問要如何做才能回覆正常呢?...謝謝
那又如何用 VB 來寫一程式來改變關聯呢.....?謝謝
我該怎麼半..呢??(編號：5795)
請問因為我安裝了一個軟體,後來因為不適用而將他刪除[用新增與移除-控制台]
但是,我的文字檔卻被他關聯又因為他被刪掉了所以無法開啟...
請問要如何做才能回覆正常呢?...謝謝
那又如何用 VB 來寫一程式來改變關聯呢.....?謝謝
但是,我的文字檔卻被他關聯又因為他被刪掉了所以無法開啟...
請問要如何做才能回覆正常呢?...謝謝
那又如何用 VB 來寫一程式來改變關聯呢.....?謝謝
dll檔的問題!!(編號：5793)
請問一下，我之前有寫幾個dll檔並在vb上compiler完成，
但是後來我不小心把它刪掉了，請問有什麼方法，可以讓我
在reference 其他東西時，不要再看到這些已不存在的dll檔
，謝謝!!!
但是後來我不小心把它刪掉了，請問有什麼方法，可以讓我
在reference 其他東西時，不要再看到這些已不存在的dll檔
，謝謝!!!
請教winsock 和 SSL3 問題(編號：5792)
如果要用VB6的Winsock元件去寫一個收發Data的程式, 而且能夠使用SSL3的標準(方法)去收發Data.請問應該怎麼樣去設計這個程式和用什麼其他的元件,希望能給於一些寶貴的意見給本人.謝謝!
DataGrid 取消寫入功能(編號：5790)
請問各位前輩:
我使用設計師Data Environment 連結DataGrid,
當我在DataGrid輸入一些列的資料後,發現資料會
自動存入Access內,有沒有辦法讓使用者按一按鈕
取消所寫入的資料(也就是所輸入的資料不存檔)?
使用環境:VB6 sp3 + Access97
我使用設計師Data Environment 連結DataGrid,
當我在DataGrid輸入一些列的資料後,發現資料會
自動存入Access內,有沒有辦法讓使用者按一按鈕
取消所寫入的資料(也就是所輸入的資料不存檔)?
使用環境:VB6 sp3 + Access97
請問如何將active document放到網路上(編號：5785)
請問如果我們利用axtive document製作出網頁,它產生出(*.vbp)和(*.dob)兩個檔案,我們如何將它在我們的網站上顯示呢 ?
我們所使用的架站軟體是website.是要放在那個子目錄下呢?
我們所使用的架站軟體是website.是要放在那個子目錄下呢?
承蒙wave指教,再問個問題.(編號：5783)
下面這段程式是wave提供的,謹此致謝
Dim aa() As String
Dim I As Integer
aa = Split(Text1.Text, " ")
For I = 0 To UBound(aa)
Print aa(I)
Next
以上程式我試過了,可以將Text中的所有字母抓出來,可是卻不能夠將其個別的抓出來.
Ex:"ABC"-＞"ABC",可是我想要將其分開為"A","B","C"三個字母,請問要如何的修改呢?
Dim aa() As String
Dim I As Integer
aa = Split(Text1.Text, " ")
For I = 0 To UBound(aa)
Print aa(I)
Next
以上程式我試過了,可以將Text中的所有字母抓出來,可是卻不能夠將其個別的抓出來.
Ex:"ABC"-＞"ABC",可是我想要將其分開為"A","B","C"三個字母,請問要如何的修改呢?
Cannot open SQL Server (vb + Crystal Report)(編號：5781)
請問
我的 VB 應用程式在一個client端執行時，出現以下錯誤訊息：
Error: 20599 Cannot open SQL Server
Debug 後確定是在執行以下命令時發生問題
Form1.CrystalReport1.Connect = "Driver={SQL Server};Database=xxxxxx;Server=xxx;UID=xxxxxx;PWD=xxxxxx"
最奇怪的是，幾乎所有client都沒問題，但它就是不能正常執行
我的client環境： win-nt 4.0 workstation + sp5 (or sp6)
vb 6.0 + sp3
Crystal Report 8.0
Thanks for your help!
我的 VB 應用程式在一個client端執行時，出現以下錯誤訊息：
Error: 20599 Cannot open SQL Server
Debug 後確定是在執行以下命令時發生問題
Form1.CrystalReport1.Connect = "Driver={SQL Server};Database=xxxxxx;Server=xxx;UID=xxxxxx;PWD=xxxxxx"
最奇怪的是，幾乎所有client都沒問題，但它就是不能正常執行
我的client環境： win-nt 4.0 workstation + sp5 (or sp6)
vb 6.0 + sp3
Crystal Report 8.0
Thanks for your help!
統一代碼和納稅人識別號(編號：5776)
不知台灣網友或大陸網友，有人知道中國大陸的
公司、企業、行號的統一代碼和納稅人識別號的編碼規則及其檢查碼。
1)本人利用蒐尋引擎找過，幾乎找不到任何說明。
2)知道者不妨公布其網頁網址或者有任何書籍、參考資料可以參考。
3)在此聲明，目的非在製作『??編碼產生器』一點沒有實際作用的小玩意
4)中國大陸的統一代碼與台灣的『營利事業統一編號』相同，與政府單位
所使用的『統一代碼』差異很大。中國大陸的納稅人識別號與台灣的『稅籍編號』相同，但台灣的稅籍編號會隨著遷移地址，因管轄區的變更而變
更，中國大陸的情況則不詳。
'
'
謝謝
公司、企業、行號的統一代碼和納稅人識別號的編碼規則及其檢查碼。
1)本人利用蒐尋引擎找過，幾乎找不到任何說明。
2)知道者不妨公布其網頁網址或者有任何書籍、參考資料可以參考。
3)在此聲明，目的非在製作『??編碼產生器』一點沒有實際作用的小玩意
4)中國大陸的統一代碼與台灣的『營利事業統一編號』相同，與政府單位
所使用的『統一代碼』差異很大。中國大陸的納稅人識別號與台灣的『稅籍編號』相同，但台灣的稅籍編號會隨著遷移地址，因管轄區的變更而變
更，中國大陸的情況則不詳。
'
'
謝謝
何處有新版的Crystal Report(編號：5775)
我用VB光碟片內附的Crystal Report連結Access 2000的資料庫時出現認不出此種資料庫的錯誤訊息....而用VB內資料庫管理員所建的資料庫就可以連結..這是否是因為我的Crystal Report太舊了ㄚ?!
Send message to newsgroup by VBA(編號：5774)
Do anyone know how to create an VB application to send a message to the newsgroup? Thanks!
請問在 dataenvirnment 中如何開啟 cursorlocation 為 adUseServ(編號：5773)
如題
我將 DECommand 的 Cursorlocation 設為 adUseServer 時
都 open 不起來
de1.rscom1.open 時出現
"執行階段錯誤"
"引數可能有類型錯誤或超過可接受的定義範圍或有其他引數衝突"
請問如何解決!??
ps. adUseClient 時可開啟
我將 DECommand 的 Cursorlocation 設為 adUseServer 時
都 open 不起來
de1.rscom1.open 時出現
"執行階段錯誤"
"引數可能有類型錯誤或超過可接受的定義範圍或有其他引數衝突"
請問如何解決!??
ps. adUseClient 時可開啟
難道真的沒有人會嗎 ???(編號：5772)
在一般的進銷存軟體都會有一個"資料重整"的功能 請問要如何寫呢!!!它的原理是什麼和排序有關嗎!!能否請這方面的高手先寫一小段程式碼讓小妹學習好嗎 !!!!
不曉得是沒有人會還是???不是聽說這邊高手很多嗎 !!! 難道是言過其實 ^_^ 請真正有實力的程式設計師教教小妹!!
不曉得是沒有人會還是???不是聽說這邊高手很多嗎 !!! 難道是言過其實 ^_^ 請真正有實力的程式設計師教教小妹!!
如何讓datarepeater control更有效率(編號：5771)
我使用datarepeater control來展示資料
因我的user control裏有相當多的items
當我用datarepeater binding 這一些items時相當費時
想請教各位前輩
是否有方法能加快datarepeater binding的效率
謝謝
因我的user control裏有相當多的items
當我用datarepeater binding 這一些items時相當費時
想請教各位前輩
是否有方法能加快datarepeater binding的效率
謝謝
report, data report 和 crystal report 那個好用 ﹖(編號：5770)
小弟第一次寫報表﹐應該學 data report 或是
crystal report 呢﹖
兩者有沒有什麼不足之處 ﹖
聽說寫報表可以自己用code寫﹐各位高手可以copy & paste
幾句﹐給小弟參考參考嗎 ﹖非常感謝 !
crystal report 呢﹖
兩者有沒有什麼不足之處 ﹖
聽說寫報表可以自己用code寫﹐各位高手可以copy & paste
幾句﹐給小弟參考參考嗎 ﹖非常感謝 !
修護 Access 2000 的資料庫 !!(編號：5766)
我的環境 vb6.0 + access 2000
我想用JRO.CompactDatabase 來修 access 2000 的資料庫.
問題是在 MDI 應用系統中可能還有其他子程式正在開啟著那個資料庫.我該如何用指令來關閉 MDI 程式所啟動的子程式,只留下 MDI 主程式本身
以利執行資料庫修整的動作呢 ?
謝謝 !!
我想用JRO.CompactDatabase 來修 access 2000 的資料庫.
問題是在 MDI 應用系統中可能還有其他子程式正在開啟著那個資料庫.我該如何用指令來關閉 MDI 程式所啟動的子程式,只留下 MDI 主程式本身
以利執行資料庫修整的動作呢 ?
謝謝 !!
如何做出選取目錄的表單？(編號：5763)
請問各方高手有人知道選取目錄的表單是如何作出來的？
就是像easyzip解zip可以選你要解的目錄..是樹狀的最上面是桌面..前面有小圖示的
是有專門的控制可用嗎？我本來以為用TreeView作的..可是不太像啊..
又..我在設定使用元件裡有看到一個Directory Picker(打的不是很正確)..
但是顯示路徑下沒有..所以不能用..檔名是DPDLG.OCX...有的人是否可以寄給我..謝射
就是像easyzip解zip可以選你要解的目錄..是樹狀的最上面是桌面..前面有小圖示的
是有專門的控制可用嗎？我本來以為用TreeView作的..可是不太像啊..
又..我在設定使用元件裡有看到一個Directory Picker(打的不是很正確)..
但是顯示路徑下沒有..所以不能用..檔名是DPDLG.OCX...有的人是否可以寄給我..謝射
我的資料庫會長肥油,H.D. 空間不足....嚇死人(編號：5762)
我的資料庫會長肥油,H.D. 空間不足....嚇死人嘞
我的ASSCESS資料庫只有五筆資料,但是經vb5.0之返復操
作(編輯,更新兩三天)後,H.D. 空間不足,請教各位高手
如何在VB中對ASSCESS之資料庫減肥..
我的ASSCESS資料庫只有五筆資料,但是經vb5.0之返復操
作(編輯,更新兩三天)後,H.D. 空間不足,請教各位高手
如何在VB中對ASSCESS之資料庫減肥..
資料庫what i can do(編號：5761)
我在一資料庫用sql語句,查詢出二筆資料以"編號"為key..我要再以這二筆資料中的欄位"名稱"的資料做比較看是否相同請教教我吧我的頭真的好大呀...
Crystal Report連結Access 2000(編號：5760)
為什麼我在Crystal Report裡開一個新的檔案...選擇Standard格式
再選擇Data File之後我選取一個Access 2000的.mdb資料庫...可是他卻要求我輸入Microsoft Access Password這是要做什麼用的ㄚ.!?我因為這樣一直無法繼續進行下一步....!!
再選擇Data File之後我選取一個Access 2000的.mdb資料庫...可是他卻要求我輸入Microsoft Access Password這是要做什麼用的ㄚ.!?我因為這樣一直無法繼續進行下一步....!!
Winsok一問?(編號：5758)
我用winsock tcpip在兩台電腦作查詢的動作，當完成連線，於第一次作查詢可以完成，當我再按下第二次查詢鍵的時侯會發生錯誤，為什麼會這樣，不是連線了嗎?為什麼還會發生錯誤?要如何解決?
另外當使用端關閉對伺服端的連線後，要如何使伺服端自動關閉對使用端的連線，而在待命狀態?tks!
另外當使用端關閉對伺服端的連線後，要如何使伺服端自動關閉對使用端的連線，而在待命狀態?tks!
開啟Unicode文字檔？(編號：5756)
程式碼如下：
Open "c:\temp\sample1.txt" For Binary As #1
str = InputB$(2, 1)
str = InputB$(LOF(1), 1)
使用此方法會將文字檔中的所有字元一次讀入
請問是否有方法能一次讀入一行？
Open "c:\temp\sample1.txt" For Binary As #1
str = InputB$(2, 1)
str = InputB$(LOF(1), 1)
使用此方法會將文字檔中的所有字元一次讀入
請問是否有方法能一次讀入一行？
MaskEdBox的Mask屬性一問(編號：5748)
請問各位...用VB連結Access2000資料庫..欄位A為Single格式0.0
而在VB中使用MaskEdBox,Mask屬性設為99.9..可是今天欄位A的內容為8.0但顯示的卻是"80. "(PromptInclude屬性為False)
如果PromptIncleude屬性設為True的話...在開啟程式時變會出現[無法連結欄位或Data Member]的錯誤訊息
而在VB中使用MaskEdBox,Mask屬性設為99.9..可是今天欄位A的內容為8.0但顯示的卻是"80. "(PromptInclude屬性為False)
如果PromptIncleude屬性設為True的話...在開啟程式時變會出現[無法連結欄位或Data Member]的錯誤訊息
資料庫查詢..判斷(編號：5747)
各位先進大家好...我已用sql的方式查詢出資料庫中二至三筆的資料,但是我要如何去判斷這二,三筆資料中的欄位"名稱"的資料是否一樣呢...請各位先進指教....謝謝...
SQL的SUM?~~急~~~SQL高手(編號：5746)
SELECT 產品編號, 產品名稱, SUM(進料數量) - SUM(領料數量) AS 庫存量, AVG(單價) AS 價格 , (SUM(進料數量) - SUM(領料數量)) * AVG(單價) AS 總金額 FROM 進銷存表 GROUP BY 產品編號, 產品名稱
以上是我可以正確執行的SQL,如果要在將"總金額"再作一次SUM總計,要如何下SQL?
小弟試過SUM((SUM(進料數量) - SUM(領料數量)) * AVG(單價) ) AS
全額 和 SUM(總金額) AS 全額 都不可以,不知該如何下正確的SQL?
以上是我可以正確執行的SQL,如果要在將"總金額"再作一次SUM總計,要如何下SQL?
小弟試過SUM((SUM(進料數量) - SUM(領料數量)) * AVG(單價) ) AS
全額 和 SUM(總金額) AS 全額 都不可以,不知該如何下正確的SQL?
連結SQL SERVER的問題(編號：5745)
請問,我是以這方式連上SQL SERVER的
Dim DB_Cn As New ADODB.Connection
Dim DB_COM As New ADODB.Command
Dim DB_Rs As New ADODB.Recordset
With DB_Cn
.Provider = "SQLOLEDB.1"
.ConnectionString = "Data Source = SQL_SERVER;" _
"INITIALCATALOG = TEST;" _
"USER ID = TEST;" _
"Password = TEST"
.CursorLocation = adUseClient
.Open
End With
DB_COM.ActiveConnection = DB_Cn
DB_COM.CommandType = adCmdText
DB_COM.CommandText = "SELECT * FROM 資料表"
DB_Rs.CursorType = adOpenDynamic
DB_Rs.LockType = adLockPessimistic
Set DB_Rs = DB_CoM.Execute
Set DataGrid1.DataSource = DB_Rs
但不知為何
DB_Rs.CursorType = adOpenStatic ===＞這兩行的屬性都改變了
DB_Rs.CursorType = adLockReadOnly ===＞為什麼?
另外,當我用 "Update .... "時, 如何讓DataGrid1也能更新呢?
另外,我的VB程式是在WIN98系統下做編輯, 如果將來要拿到
NT SERVER上, WORKSTATION為WIN98的環境,在WORKSTATION 能執行嗎?
Dim DB_Cn As New ADODB.Connection
Dim DB_COM As New ADODB.Command
Dim DB_Rs As New ADODB.Recordset
With DB_Cn
.Provider = "SQLOLEDB.1"
.ConnectionString = "Data Source = SQL_SERVER;" _
"INITIALCATALOG = TEST;" _
"USER ID = TEST;" _
"Password = TEST"
.CursorLocation = adUseClient
.Open
End With
DB_COM.ActiveConnection = DB_Cn
DB_COM.CommandType = adCmdText
DB_COM.CommandText = "SELECT * FROM 資料表"
DB_Rs.CursorType = adOpenDynamic
DB_Rs.LockType = adLockPessimistic
Set DB_Rs = DB_CoM.Execute
Set DataGrid1.DataSource = DB_Rs
但不知為何
DB_Rs.CursorType = adOpenStatic ===＞這兩行的屬性都改變了
DB_Rs.CursorType = adLockReadOnly ===＞為什麼?
另外,當我用 "Update .... "時, 如何讓DataGrid1也能更新呢?
另外,我的VB程式是在WIN98系統下做編輯, 如果將來要拿到
NT SERVER上, WORKSTATION為WIN98的環境,在WORKSTATION 能執行嗎?
創執轉檔器(編號：5744)
您有下列的情形嗎？
有文字資料檔(可能是顧客資料,產品資料,學生成績,股價資料等等)
1.想要轉入Excel；但Excel的資料剖析功能無法剖析。
2.想要轉入資料庫；卻又不會寫轉檔程式或覺得寫轉檔程式即無聊又累人了。
創執轉檔器 1.0 讓您輕鬆迅速完成轉檔工作。
http://www.infotool.com.tw/
有文字資料檔(可能是顧客資料,產品資料,學生成績,股價資料等等)
1.想要轉入Excel；但Excel的資料剖析功能無法剖析。
2.想要轉入資料庫；卻又不會寫轉檔程式或覺得寫轉檔程式即無聊又累人了。
創執轉檔器 1.0 讓您輕鬆迅速完成轉檔工作。
http://www.infotool.com.tw/
有沒有人知道要如何用VB寫出像Windows轉碼器的功能呢?(編號：5743)
要如何寫出可以轉換檔案內碼的程式呢?純文字檔內包含著BIG5碼、ASNI碼及DBCS碼，要如果轉換成Unicode的內碼ㄌㄟ??請幫幫忙吧!!謝謝，感激不盡~~~ p.s.我使用VB6,Windows98
VB如何使用條碼掃器?(編號：5740)
我想用VB寫一個資料庫的程式配合條碼掃器使用,我只知道用條碼掃器一掃條碼就會跑進去,可是我不知道要如何讓程式自動去找尋資料,不知道那一段判斷的程式要如何寫,有沒有人知道?
如何擷取螢幕上（非表單）任一點的顏色資料？(編號：5739)
如何擷取螢幕上（非表單）任一點的顏色資料？
昨天晚上在這post這個問題，
都沒有人回答我，
難道這樣的功能真的有這麼難嗎？
如果有知道的網友可否告訴我。
昨天晚上在這post這個問題，
都沒有人回答我，
難道這樣的功能真的有這麼難嗎？
如果有知道的網友可否告訴我。
DataReport的問題?~~~急~~~~(編號：5736)
我有兩個資料表,分別為"(1)產品資料表"和"(2)進銷存表",欄位名稱內容分別為:(1)產品編號,進料日期,進料數量,領料日期,領料數量,單價,總額;(2)產品編號,產品名稱;其中產品編號和產品編號為相關聯.
如果要用DataReport中只列印出=產品編號,產品名稱,單價,總額,庫存;而且一項產品編號只列印出一筆,也就是單項產品只列印出一筆,而不是全部列出,是計算過後再列出.(如果有五項產品,只列出五筆資料)
SORRY~小弟說的不清不楚,不知看的人是否清楚!
如果要用DataReport中只列印出=產品編號,產品名稱,單價,總額,庫存;而且一項產品編號只列印出一筆,也就是單項產品只列印出一筆,而不是全部列出,是計算過後再列出.(如果有五項產品,只列出五筆資料)
SORRY~小弟說的不清不楚,不知看的人是否清楚!
Oracle SQL 的 TO_DATE 的問題(編號：5734)
我用的是 Oracle db ....
MSDN 裡說有一個 FUNCTION "TO_DATE" 可以用來轉換成 DATE
現在想 FORMAT DATE 成 "YYYY/MM/DD HH:MM:SS"
請問有沒有高手知道如何用這 function 啦 ~
MSDN 裡說有一個 FUNCTION "TO_DATE" 可以用來轉換成 DATE
現在想 FORMAT DATE 成 "YYYY/MM/DD HH:MM:SS"
請問有沒有高手知道如何用這 function 啦 ~
關於sql的Query Analyzer的問題(編號：5733)
請教各位大哥、大姊：小弟想在SQL的Query Analyzer內建立一個table，但不知如何在此環境下建立有兩個或兩個以上primary key的table?請各位不吝賜教，謝謝。
檔案關閉!(編號：5731)
我開一個檔案,如何知道它關閉了?
以下是我的程式碼!Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open "c:\project\interface\Input.xls"
xlApp.Visible = True
pHnd = OpenProcess(PROCESS_QUERY_INORMATION, 0, xlApp)
Do
Call GetExitCodeProcess(pHnd, ExitCode)
DoEvents
Loop While ExitCode = STILL_ALIVE
Call CloseHandle(pHnd)
以下是我的程式碼!Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open "c:\project\interface\Input.xls"
xlApp.Visible = True
pHnd = OpenProcess(PROCESS_QUERY_INORMATION, 0, xlApp)
Do
Call GetExitCodeProcess(pHnd, ExitCode)
DoEvents
Loop While ExitCode = STILL_ALIVE
Call CloseHandle(pHnd)
請各位程式庫高手多多幫忙 .................(編號：5730)
我的程式是這樣﹕
VB program (ADO)＜--＞ODBC＜---------＞ODBC＜--＞MS SQL Server
- Client 的 ODBC 是用 TCP/IP
- SQL Server 是 remote 的。
- 用 adUseClient 或 adUseServer 情況一樣.
- Click save button 後﹐(只是一筆) 最少需要15秒才完成﹐不能接受. 比 ASP 慢很多﹐不合理 !
Private Sub saveButton_Click()
cn.BeginTrans
rs1.AddNew
rs1!fieldname = .........
rs1.Update
cn.CommitTrans
rs1.Requery
Initial_Button
End Sub
請問各位程式庫高手﹐有沒有辦法快一點呢 ﹖
謝謝 !
VB program (ADO)＜--＞ODBC＜---------＞ODBC＜--＞MS SQL Server
- Client 的 ODBC 是用 TCP/IP
- SQL Server 是 remote 的。
- 用 adUseClient 或 adUseServer 情況一樣.
- Click save button 後﹐(只是一筆) 最少需要15秒才完成﹐不能接受. 比 ASP 慢很多﹐不合理 !
Private Sub saveButton_Click()
cn.BeginTrans
rs1.AddNew
rs1!fieldname = .........
rs1.Update
cn.CommitTrans
rs1.Requery
Initial_Button
End Sub
請問各位程式庫高手﹐有沒有辦法快一點呢 ﹖
謝謝 !
程式中控制項的元件看的到但無法使用(編號：5729)
之前的作業平台 O.S Win NT 4.0
program version : VB 5.0
現在的作業平台 Windows 98
VB 6.0 SP3
這程式使用的物件名稱 SScommand
SScheck
SSframe
SSoption
SSpanel
SSribbon
在設定使用原件中為 Sheridan 3D Controls
其檔名是 THREED32.OCX
程式在載入後,在控制項選單中都看的到此物件..
但點選後,再表單中放入時出現以下錯誤訊息:
找不到此原件的使用權資訊,您無法在設計環境中使用這項功能
----------------------------------------------------------
小弟我試過以下幾種方法:
1.將threed32.ocx copy 到windows/system中
2.將threed32.ocx copy 到本程式的目錄中
3.執行regit threed32.ocx
4.執行regocx32 threed32.ocx
5.將上述的第3,4方法加上路徑
ex. regocx32 C:\windows\system\threed32.ocx
結果:
都失敗了..........
請救救我這菜鳥吧!....
program version : VB 5.0
現在的作業平台 Windows 98
VB 6.0 SP3
這程式使用的物件名稱 SScommand
SScheck
SSframe
SSoption
SSpanel
SSribbon
在設定使用原件中為 Sheridan 3D Controls
其檔名是 THREED32.OCX
程式在載入後,在控制項選單中都看的到此物件..
但點選後,再表單中放入時出現以下錯誤訊息:
找不到此原件的使用權資訊,您無法在設計環境中使用這項功能
----------------------------------------------------------
小弟我試過以下幾種方法:
1.將threed32.ocx copy 到windows/system中
2.將threed32.ocx copy 到本程式的目錄中
3.執行regit threed32.ocx
4.執行regocx32 threed32.ocx
5.將上述的第3,4方法加上路徑
ex. regocx32 C:\windows\system\threed32.ocx
結果:
都失敗了..........
請救救我這菜鳥吧!....
使用Text1.Setfocus為自動將資料寫入資料庫?(編號：5728)
請問..程式如下:
Private Sub Text1_Change(Index As Integer)
If Len(Text1(Index).Text) = Text1(Index).MaxLength Then
Select Case Index
Case 10 ' 最後一個TextBox
Text1(1).Setfocus
Case Else
Text1(Index + 1).Setfocus
End Select
End If
End Sub
可是我發現..只要是有滿足只上式子的.也就是說..有將游標移到下一個TextBox的那個欄位竟然會將資料自動的寫入資料庫中..
我下了CancleUpdate竟然無效....而其他沒有將遊標移到下一個TextBox卻不會發生這種情形..請問這是何解.!?..謝謝
Private Sub Text1_Change(Index As Integer)
If Len(Text1(Index).Text) = Text1(Index).MaxLength Then
Select Case Index
Case 10 ' 最後一個TextBox
Text1(1).Setfocus
Case Else
Text1(Index + 1).Setfocus
End Select
End If
End Sub
可是我發現..只要是有滿足只上式子的.也就是說..有將游標移到下一個TextBox的那個欄位竟然會將資料自動的寫入資料庫中..
我下了CancleUpdate竟然無效....而其他沒有將遊標移到下一個TextBox卻不會發生這種情形..請問這是何解.!?..謝謝
安裝好寫好的程式, 卻出現以下問題....(編號：5726)
小妹的程式在不同電腦(95及98)上安裝之後, 有的電腦會出現以下錯誤:
1.此程式使用了vb 不支援的資料型態(發生在程式去 New MTS 上的 DCOM 元件時)
2.找不到ADO provider(當程式開啟 ACESS 97 資料庫時)
3.OLE DB can not initial(當程式用Crystal Report 6.0 去印表時)
請各位高手幫忙一下, 謝謝
1.此程式使用了vb 不支援的資料型態(發生在程式去 New MTS 上的 DCOM 元件時)
2.找不到ADO provider(當程式開啟 ACESS 97 資料庫時)
3.OLE DB can not initial(當程式用Crystal Report 6.0 去印表時)
請各位高手幫忙一下, 謝謝
Server.CreateObject 的呼叫失敗(編號：5723)
伺服器物件, ASP 0178 (0x80070005)當檢查使用權限時server.CreateObject 的呼叫失敗。拒絕存取此物件。
為何在win2000 server上IIS5的
ASP中呼叫VB Runtime的dll檔會出現此錯誤(尚未註冊regsrv32)
為何在win2000 server上IIS5的
ASP中呼叫VB Runtime的dll檔會出現此錯誤(尚未註冊regsrv32)
再談，用 VB 在 IIS/PWS 上寫 CGI。(編號：5721)
IIS/PWS 要傳參數給 CGI 程式，我不瞭解這中間運作的機制。
不知道是否有網友試過。
WEBSITE 1.1 傳參數給 CGI 的方式，已經有網站把這件事說的很清楚，但 IIS 當網頁伺服器，如何寫 CGI 我就不清楚了，如果你在 IIS 上寫過 CGI ，可否指點一下。謝謝。
不知道是否有網友試過。
WEBSITE 1.1 傳參數給 CGI 的方式，已經有網站把這件事說的很清楚，但 IIS 當網頁伺服器，如何寫 CGI 我就不清楚了，如果你在 IIS 上寫過 CGI ，可否指點一下。謝謝。
請問如何更新Data Environment的內容(編號：5720)
請問各位大師~
小弟目前有個問題,就是當我用VB6寫一支程式後~
想要用選日期的方式將資料放日Data Report中
第一次的Data Report很正常
但是我再選其他日期想輸出成那日期資料時發現其資料是先前的
也就是Data Environment不會自動更新,請問我該如何更新
煩請告訴小弟~謝謝!!!
小弟目前有個問題,就是當我用VB6寫一支程式後~
想要用選日期的方式將資料放日Data Report中
第一次的Data Report很正常
但是我再選其他日期想輸出成那日期資料時發現其資料是先前的
也就是Data Environment不會自動更新,請問我該如何更新
煩請告訴小弟~謝謝!!!
有關SQL及Excel...(編號：5716)
我用ADO的方法link SQL Server，並欲將某一查詢出來的筆數，
放到excel儲存格裡，但發生「引數型態錯誤，或超過可接受的範圍」的這樣的訊息。(可呼叫Excel),我的問題是：如何將sql查詢的結果放到excel工作表？請各位指正小弟的錯誤何在？
我的語法如下：
Private Sub Command1_Click()
Dim ObjExcel As Excel.Application
Set ObjExcel = New Excel.Application
ObjExcel.Visible = True
ObjExcel.Workbooks.Add
Dim strSQL As Variant
strSQL = "select * from offday"
Set rs = New ADODB.Recordset
rs.Open cn, strSQL, adOpenStatic
ObjExcel.Cells(1, 1) = rs.field(0)
Set ObjExcel = Nothing
End Sub
放到excel儲存格裡，但發生「引數型態錯誤，或超過可接受的範圍」的這樣的訊息。(可呼叫Excel),我的問題是：如何將sql查詢的結果放到excel工作表？請各位指正小弟的錯誤何在？
我的語法如下：
Private Sub Command1_Click()
Dim ObjExcel As Excel.Application
Set ObjExcel = New Excel.Application
ObjExcel.Visible = True
ObjExcel.Workbooks.Add
Dim strSQL As Variant
strSQL = "select * from offday"
Set rs = New ADODB.Recordset
rs.Open cn, strSQL, adOpenStatic
ObjExcel.Cells(1, 1) = rs.field(0)
Set ObjExcel = Nothing
End Sub
如何用 vb 連接 Oracle 資料庫(編號：5711)
如題 ... 我用 access 連上一個 Oracle DB 沒有出現什麼問題 ...
( 可以 INSERT, DELETE 及 SELECT 等指令 )
但用 VB 時只可以觀看, 卻不可以更改任何資料, 如果更改會有錯誤" "出現, 不知如何解決?? 希望各高手可以幫幫手...
( 可以 INSERT, DELETE 及 SELECT 等指令 )
但用 VB 時只可以觀看, 卻不可以更改任何資料, 如果更改會有錯誤" "出現, 不知如何解決?? 希望各高手可以幫幫手...
有沒有更好之寫法(編號：5707)
'-----check data1
sql="select * from table1 where field=m_key
set rs=db.execute(sql)
if rs.eof then
sql="insert into table1......"
end if
db.BeginTrans
db.Execute SQL
db.CommitTrans
'-----check data2
sql="select * from table2 where field=m_key
set rs=db.execute(sql)
if rs.eof then
sql="insert into table2......"
end if
db.BeginTrans
db.Execute SQL
db.CommitTrans
'-----check data3
sql="select * from table3 where field=m_key
set rs=db.execute(sql)
if rs.eof then
sql="insert into table3......"
end if
db.BeginTrans
db.Execute SQL
db.CommitTrans
sql="select * from table1 where field=m_key
set rs=db.execute(sql)
if rs.eof then
sql="insert into table1......"
end if
db.BeginTrans
db.Execute SQL
db.CommitTrans
'-----check data2
sql="select * from table2 where field=m_key
set rs=db.execute(sql)
if rs.eof then
sql="insert into table2......"
end if
db.BeginTrans
db.Execute SQL
db.CommitTrans
'-----check data3
sql="select * from table3 where field=m_key
set rs=db.execute(sql)
if rs.eof then
sql="insert into table3......"
end if
db.BeginTrans
db.Execute SQL
db.CommitTrans
如何用adodc做兩個table的join？(編號：5706)
我最近在複習ADO，突然想到adodc可否做兩個table的join，
這裡延伸兩個問題：
(1)可否用一個adodc做兩個table的join？
(2)可否用兩個adodc做兩個table的join？
這裡延伸兩個問題：
(1)可否用一個adodc做兩個table的join？
(2)可否用兩個adodc做兩個table的join？
問一個VB的問題(編號：5705)
想請教一下前輩，我是一個VB的初學者，想請問，如何抓取螢幕上的顏色資料（不是表單內的），應該不是用point吧！point只是取得表單或圖片方塊物件內的顏色值，如何可以將作業範圍擴展到整個螢幕上呢？我是想要寫一個判別標準為螢幕上的某一點，當他顏色變為某一顏色時，啟動一些動作。
可以幫助我的網友，可否mail給我，
我的mail是： cocky@kimo.com
可以幫助我的網友，可否mail給我，
我的mail是： cocky@kimo.com
CommonDialog 控制項(編號：5704)
請問個位我在表單上佈置一個 CommonDialog 控制項 但確沒有辦法用來開啟 Word 和 Excel 的檔案 請問如何使用 CommonDialog 開啟呢 應該如何寫呢!!
加強型 MSFlexGrid 的問題(編號：5703)
以下程式是小弟將 "CWW的VB心得筆記"中的一段修改的，但是確發生了只要連接資料庫且資料庫中無資料，用滑鼠點欄位Row1 時無任何動作，不知那位先進能幫小弟解決.....
程式如下：
Option Explicit
Private OldText As String
Private ColSelect() As Boolean
Private SaveCellBkColor As Long
Private Sub Form_Load()
Text1.Visible = False
Me.Show
With MSFlexGrid1
.Cols = 10
.Rows = 15
ReDim ColSelect(1 To .Cols - 1)
SaveCellBkColor = .CellBackColor
Call InitGrid
.AllowBigSelection = True
.FillStyle = flexFillRepeat
'.AllowUserResizing = True '請事先設好
Dim i As Variant
For i = 1 To .Cols
.ColWidth(i) = 1000
Next
End With
End Sub
Private Sub InitGrid()
Dim i As Long
With MSFlexGrid1
.Row = 0
For i = 1 To .Cols - 1
.Col = i: .Text = "Col" + Format(i, "00") '若Cols超出99，則修改Format
Next '的格式
End With
With MSFlexGrid1
.Col = 0
For i = 1 To .Rows - 1
.Row = i: .Text = i
Next
End With
'Dim width5 As Long
'With MSFlexGrid1
' width5 = .Width \ .Cols
' For i = 0 To .Cols - 1
' .ColWidth(i) = width5
' Next
'End With
End Sub
Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim inMostLeft As Boolean
Dim inMostTop As Boolean
Call ProcMultiColSel(Shift)
With MSFlexGrid1
If Button = vbKeyRButton Then
'按mouse 右鍵且位於最上列/最左行則是更動title
If .MouseCol = 0 Or .MouseRow = 0 Then
Call toEditGrid(.MouseCol, .MouseRow)
End If
Else
If Button = vbKeyLButton Then
If .ColSel = .Col And .RowSel = .Row Then
'表示沒有多個欄位的選取，這時才真正是可以輸入
Call toEditGrid(.Col, .Row)
End If
End If
End If
End With
End Sub
Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn And Not Text1.Visible Then
With MSFlexGrid1
Call toEditGrid(.Col, .Row)
End With
End If
End Sub
'TextBox上的輸入反映到MsFlexGrid上
Private Sub Text1_Change()
MSFlexGrid1.Text = Text1.Text
End Sub
'按下Down/Up 時結束TextBox的Keyin
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
Text1.Visible = False
MSFlexGrid1.SetFocus
SendKeys "{up}"
Else
If KeyCode = vbKeyDown Then
Text1.Visible = False
MSFlexGrid1.SetFocus
SendKeys "{down}"
End If
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
KeyAscii = 0
Text1.Visible = False
MSFlexGrid1.SetFocus
End If
If KeyAscii = vbKeyEscape Then
KeyAscii = 0
MSFlexGrid1.Text = OldText
Text1.Visible = False
MSFlexGrid1.SetFocus
End If
End Sub
Private Sub Text1_LostFocus()
Text1.Visible = False
End Sub
'設定TextBox於MSFlexGrid1的Current Cell上
Private Sub toEditGrid(ByVal C As Integer, ByVal R As Integer)
With MSFlexGrid1
.Col = C: .Row = R
Text1.Left = .Left + .ColPos(C)
Text1.Top = .Top + .RowPos(R)
If .Appearance = flex3D Then
Text1.Left = Text1.Left + 2 * Screen.TwipsPerPixelX
Text1.Top = Text1.Top + 2 * Screen.TwipsPerPixelY
End If
Dim i As Variant
For i = 0 To .Cols
.ColWidth(i) = 1000
Next
Text1.Width = .ColWidth(C)
Text1.Height = .RowHeight(R)
Text1.Text = .Text
OldText = .Text
End With
Text1.Visible = True
Text1.SelStart = Len(Text1.Text)
Text1.SetFocus
Text1.BackColor = &H80FF80
End Sub
'以下程式處理Multi-column Selection的問題
Private Sub ProcMultiColSel(ByVal Shift As Integer)
Dim i As Long, HaveSel As Boolean
Dim SelSt As Long, SelEnd As Long
Dim OldRowSel As Long, OldColSel As Long
With MSFlexGrid1
OldRowSel = .RowSel: OldColSel = .ColSel
If HaveSelEntireCol Then
'如果有整行被選取的清況，則計算選取的起始結束行
SelSt = IIf(.Col ＜= .ColSel, .Col, .ColSel)
SelEnd = IIf(.Col ＞ .ColSel, .Col, .ColSel)
For i = SelSt To SelEnd
ColSelect(i) = True
Next
.CellBackColor = .BackColorSel
If Shift ＜＞ vbCtrlMask Then '沒有按Ctl鍵則清除其他Column的Selection
Call RefreshCols(SelSt, SelEnd)
End If
Else
HaveSel = False
For i = 1 To .Cols - 1
HaveSel = HaveSel
Next
If HaveSel Then
Call RefreshAll
End If
End If
.RowSel = OldRowSel
.ColSel = OldColSel
End With
End Sub
'Check是否有整行的選取
Private Function HaveSelEntireCol() As Boolean
With MSFlexGrid1
If .RowSel = (.Rows - 1) And .Row = 1 Then
HaveSelEntireCol = True
Else
HaveSelEntireCol = False
End If
End With
End Function
'清除所有的Selection
Private Sub RefreshAll()
Dim SaveCol As Long, SaveRow As Long, i As Long
With MSFlexGrid1
SaveCol = .Col: SaveRow = .Row
.Col = 1: .Row = 1
.ColSel = .Cols - 1: .RowSel = .Rows - 1
MSFlexGrid1.CellBackColor = SaveCellBkColor
.Col = SaveCol: .Row = SaveRow
.ColSel = SaveCol: .RowSel = SaveRow
For i = 1 To .Cols - 1
ColSelect(i) = False
Next
End With
End Sub
'清除其他Column的Selection除了columns From Selst to SelEnd外，其他清除
Private Sub RefreshCols(ByVal SelSt As Long, ByVal SelEnd As Long)
Dim SaveCol As Long, SaveRow As Long, i As Long
With MSFlexGrid1
SaveCol = .Col: SaveRow = .Row
For i = 1 To .Cols - 1
If Not (i ＞= SelSt And i ＜= SelEnd) And ColSelect(i) Then
.Col = i: .Row = 1
.ColSel = i: .RowSel = .Rows - 1
MSFlexGrid1.CellBackColor = SaveCellBkColor
ColSelect(i) = False
End If
Next
.Col = SaveCol: .Row = SaveRow
.ColSel = SaveCol: .RowSel = SaveRow
End With
End Sub
Private Sub MSFlexGrid1_Scroll()
SendKeys "{ESC}"
End Sub
程式如下：
Option Explicit
Private OldText As String
Private ColSelect() As Boolean
Private SaveCellBkColor As Long
Private Sub Form_Load()
Text1.Visible = False
Me.Show
With MSFlexGrid1
.Cols = 10
.Rows = 15
ReDim ColSelect(1 To .Cols - 1)
SaveCellBkColor = .CellBackColor
Call InitGrid
.AllowBigSelection = True
.FillStyle = flexFillRepeat
'.AllowUserResizing = True '請事先設好
Dim i As Variant
For i = 1 To .Cols
.ColWidth(i) = 1000
Next
End With
End Sub
Private Sub InitGrid()
Dim i As Long
With MSFlexGrid1
.Row = 0
For i = 1 To .Cols - 1
.Col = i: .Text = "Col" + Format(i, "00") '若Cols超出99，則修改Format
Next '的格式
End With
With MSFlexGrid1
.Col = 0
For i = 1 To .Rows - 1
.Row = i: .Text = i
Next
End With
'Dim width5 As Long
'With MSFlexGrid1
' width5 = .Width \ .Cols
' For i = 0 To .Cols - 1
' .ColWidth(i) = width5
' Next
'End With
End Sub
Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim inMostLeft As Boolean
Dim inMostTop As Boolean
Call ProcMultiColSel(Shift)
With MSFlexGrid1
If Button = vbKeyRButton Then
'按mouse 右鍵且位於最上列/最左行則是更動title
If .MouseCol = 0 Or .MouseRow = 0 Then
Call toEditGrid(.MouseCol, .MouseRow)
End If
Else
If Button = vbKeyLButton Then
If .ColSel = .Col And .RowSel = .Row Then
'表示沒有多個欄位的選取，這時才真正是可以輸入
Call toEditGrid(.Col, .Row)
End If
End If
End If
End With
End Sub
Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn And Not Text1.Visible Then
With MSFlexGrid1
Call toEditGrid(.Col, .Row)
End With
End If
End Sub
'TextBox上的輸入反映到MsFlexGrid上
Private Sub Text1_Change()
MSFlexGrid1.Text = Text1.Text
End Sub
'按下Down/Up 時結束TextBox的Keyin
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
Text1.Visible = False
MSFlexGrid1.SetFocus
SendKeys "{up}"
Else
If KeyCode = vbKeyDown Then
Text1.Visible = False
MSFlexGrid1.SetFocus
SendKeys "{down}"
End If
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
KeyAscii = 0
Text1.Visible = False
MSFlexGrid1.SetFocus
End If
If KeyAscii = vbKeyEscape Then
KeyAscii = 0
MSFlexGrid1.Text = OldText
Text1.Visible = False
MSFlexGrid1.SetFocus
End If
End Sub
Private Sub Text1_LostFocus()
Text1.Visible = False
End Sub
'設定TextBox於MSFlexGrid1的Current Cell上
Private Sub toEditGrid(ByVal C As Integer, ByVal R As Integer)
With MSFlexGrid1
.Col = C: .Row = R
Text1.Left = .Left + .ColPos(C)
Text1.Top = .Top + .RowPos(R)
If .Appearance = flex3D Then
Text1.Left = Text1.Left + 2 * Screen.TwipsPerPixelX
Text1.Top = Text1.Top + 2 * Screen.TwipsPerPixelY
End If
Dim i As Variant
For i = 0 To .Cols
.ColWidth(i) = 1000
Next
Text1.Width = .ColWidth(C)
Text1.Height = .RowHeight(R)
Text1.Text = .Text
OldText = .Text
End With
Text1.Visible = True
Text1.SelStart = Len(Text1.Text)
Text1.SetFocus
Text1.BackColor = &H80FF80
End Sub
'以下程式處理Multi-column Selection的問題
Private Sub ProcMultiColSel(ByVal Shift As Integer)
Dim i As Long, HaveSel As Boolean
Dim SelSt As Long, SelEnd As Long
Dim OldRowSel As Long, OldColSel As Long
With MSFlexGrid1
OldRowSel = .RowSel: OldColSel = .ColSel
If HaveSelEntireCol Then
'如果有整行被選取的清況，則計算選取的起始結束行
SelSt = IIf(.Col ＜= .ColSel, .Col, .ColSel)
SelEnd = IIf(.Col ＞ .ColSel, .Col, .ColSel)
For i = SelSt To SelEnd
ColSelect(i) = True
Next
.CellBackColor = .BackColorSel
If Shift ＜＞ vbCtrlMask Then '沒有按Ctl鍵則清除其他Column的Selection
Call RefreshCols(SelSt, SelEnd)
End If
Else
HaveSel = False
For i = 1 To .Cols - 1
HaveSel = HaveSel
Next
If HaveSel Then
Call RefreshAll
End If
End If
.RowSel = OldRowSel
.ColSel = OldColSel
End With
End Sub
'Check是否有整行的選取
Private Function HaveSelEntireCol() As Boolean
With MSFlexGrid1
If .RowSel = (.Rows - 1) And .Row = 1 Then
HaveSelEntireCol = True
Else
HaveSelEntireCol = False
End If
End With
End Function
'清除所有的Selection
Private Sub RefreshAll()
Dim SaveCol As Long, SaveRow As Long, i As Long
With MSFlexGrid1
SaveCol = .Col: SaveRow = .Row
.Col = 1: .Row = 1
.ColSel = .Cols - 1: .RowSel = .Rows - 1
MSFlexGrid1.CellBackColor = SaveCellBkColor
.Col = SaveCol: .Row = SaveRow
.ColSel = SaveCol: .RowSel = SaveRow
For i = 1 To .Cols - 1
ColSelect(i) = False
Next
End With
End Sub
'清除其他Column的Selection除了columns From Selst to SelEnd外，其他清除
Private Sub RefreshCols(ByVal SelSt As Long, ByVal SelEnd As Long)
Dim SaveCol As Long, SaveRow As Long, i As Long
With MSFlexGrid1
SaveCol = .Col: SaveRow = .Row
For i = 1 To .Cols - 1
If Not (i ＞= SelSt And i ＜= SelEnd) And ColSelect(i) Then
.Col = i: .Row = 1
.ColSel = i: .RowSel = .Rows - 1
MSFlexGrid1.CellBackColor = SaveCellBkColor
ColSelect(i) = False
End If
Next
.Col = SaveCol: .Row = SaveRow
.ColSel = SaveCol: .RowSel = SaveRow
End With
End Sub
Private Sub MSFlexGrid1_Scroll()
SendKeys "{ESC}"
End Sub
為何執行的結果是錯的....???(編號：5702)
Public Sub se()
If s1 = 0 Then '假如都不存在
Start.List1.Clear
Start.List1.AddItem "會員資料庫不存在"
Start.List1.AddItem "業務員資料庫不存在"
Start.Timer1.Enabled = False
MsgBox "qb45@pchome.com.tw" & " " & s1 & " " & s2 & " " & s3, vbOKOnly, "通知管理員"
Start.List1.Height = "960"
Start.Command1.Visible = True
Exit Sub
End If
If s3 = 0 Then
Start.List1.Clear
Start.List1.AddItem "業務員資料庫不存在"
Start.Timer1.Enabled = False
Else
If s2 = 0 Then '會員
Start.List1.Clear
Start.List1.AddItem "會員資料庫不存在"
Start.Timer1.Enabled = False
End If
End If
If s1 = 0 Or s2 = 0 Or s3 = 0 Then
MsgBox "qb45@pchome.com.tw" & " " & s1 & " " & s2 & " " & s3, vbOKOnly, "通知管理員"
Start.List1.Height = "960"
Start.Command1.Visible = True
Else
Start.List1.Height = "960"
Start.Command2.Visible = True
End If
End Sub
為何執行的結果是錯的....???
謝謝
If s1 = 0 Then '假如都不存在
Start.List1.Clear
Start.List1.AddItem "會員資料庫不存在"
Start.List1.AddItem "業務員資料庫不存在"
Start.Timer1.Enabled = False
MsgBox "qb45@pchome.com.tw" & " " & s1 & " " & s2 & " " & s3, vbOKOnly, "通知管理員"
Start.List1.Height = "960"
Start.Command1.Visible = True
Exit Sub
End If
If s3 = 0 Then
Start.List1.Clear
Start.List1.AddItem "業務員資料庫不存在"
Start.Timer1.Enabled = False
Else
If s2 = 0 Then '會員
Start.List1.Clear
Start.List1.AddItem "會員資料庫不存在"
Start.Timer1.Enabled = False
End If
End If
If s1 = 0 Or s2 = 0 Or s3 = 0 Then
MsgBox "qb45@pchome.com.tw" & " " & s1 & " " & s2 & " " & s3, vbOKOnly, "通知管理員"
Start.List1.Height = "960"
Start.Command1.Visible = True
Else
Start.List1.Height = "960"
Start.Command2.Visible = True
End If
End Sub
為何執行的結果是錯的....???
謝謝
何處可取得z-modem, y-modem ,x-modem PROTOCOL(編號：5701)
我想寫傳輸程式 何處可取得z-modem, y-modem ,x-modem protocol ?
不是使用別人的函式庫.使用別人的函式庫的程式我已經寫好了.
不是使用別人的函式庫.使用別人的函式庫的程式我已經寫好了.
SQL 問題(編號：5699)
"SELECT TOP n * FROM table WHERE 條件"
SELECT 敘述中的 'TOP' 關鍵字
請問為何有的 MS-SQL 可以查詢，
而有的不能查詢，並產生錯誤呢？
SELECT 敘述中的 'TOP' 關鍵字
請問為何有的 MS-SQL 可以查詢，
而有的不能查詢，並產生錯誤呢？
如何快速的在text file中尋找某一字串(編號：5697)
目前我是用instr(1,fil.openastextstream.readall,"ENDFILE")來判斷ENDFILE這個字串是否存在,但是一但檔案過大,則會呈現當機狀態,cpu運算達100%,ram的使用也一直一升,請問是否有較快速方法來判斷此一字串是否存在text file中........
還有一個問題,當我執行程式時,ram的使用也是會一直上升,除了是recordset沒有close掉的問題多,還有什麼是我該注意的嗎,而且即使我把程式給關掉了,ram還是不會降下來,我需要release什麼嗎?
謝謝..
還有一個問題,當我執行程式時,ram的使用也是會一直上升,除了是recordset沒有close掉的問題多,還有什麼是我該注意的嗎,而且即使我把程式給關掉了,ram還是不會降下來,我需要release什麼嗎?
謝謝..
Dataenvironment與DataGeid的結合(編號：5696)
請問一下各位先進, 如果在程式中使用自訂的connection
來做DataEnvironment, 要把產生出來的command代入DataGrid
中並顯示出來, 以下的做法是否有誤? 因為一直無法顯示出
DataGrid的內容.(基本上DataGrid我在其屬性上並無其它設定
, 是一個空的DataGrid, 當程式產生出 DataEnvironment的Command
後才將其代入DataGrid)
程式內容如下 :
Private Sub cmdStart_Click()
mYear = Text1.Text '學年
mSect = Combo1.Text '學期
mClas = TDBCombo2.Text '班級
Text2.Text = mYear
Text3.Text = mSect
Text4.Text = mClas
Set cmda = New ADODB.Command
MySQL = "Transform SUM(學總) AS 學期總分 " & _
"SELECT 學號, 學年, 學期, 班級, 座號, 姓名 " & _
"FROM scored_stud WHERE (學年 = " & Chr(39) & mYear & Chr(39) & _
" AND 學期 = " & Chr(39) & mSect & Chr(39) & _
" AND 班級 = " & Chr(39) & mClas & Chr(39) & ") " & _
"GROUP BY 學號, 學年, 學期, 班級, 座號, 姓名 " & _
"ORDER BY 學年, 學期, 班級, 座號 Pivot 科目"
Set cmda.ActiveConnection = DataEnvironment1.Connection1
cmda.CommandText = MySQL
cmda.Execute
If MsgBox("資料處理完成, 顯示資料嗎?", 4 + 64) = 6 Then
Set TDBGrid1.DataSource = DataEnvironment1
TDBGrid1.DataMember = "cmda"
TDBGrid1.Rebind
Else
Text1.Text = ""
Combo1.Text = ""
TDBCombo2.Text = ""
TDBCombo3.Text = ""
End If
End Sub
來做DataEnvironment, 要把產生出來的command代入DataGrid
中並顯示出來, 以下的做法是否有誤? 因為一直無法顯示出
DataGrid的內容.(基本上DataGrid我在其屬性上並無其它設定
, 是一個空的DataGrid, 當程式產生出 DataEnvironment的Command
後才將其代入DataGrid)
程式內容如下 :
Private Sub cmdStart_Click()
mYear = Text1.Text '學年
mSect = Combo1.Text '學期
mClas = TDBCombo2.Text '班級
Text2.Text = mYear
Text3.Text = mSect
Text4.Text = mClas
Set cmda = New ADODB.Command
MySQL = "Transform SUM(學總) AS 學期總分 " & _
"SELECT 學號, 學年, 學期, 班級, 座號, 姓名 " & _
"FROM scored_stud WHERE (學年 = " & Chr(39) & mYear & Chr(39) & _
" AND 學期 = " & Chr(39) & mSect & Chr(39) & _
" AND 班級 = " & Chr(39) & mClas & Chr(39) & ") " & _
"GROUP BY 學號, 學年, 學期, 班級, 座號, 姓名 " & _
"ORDER BY 學年, 學期, 班級, 座號 Pivot 科目"
Set cmda.ActiveConnection = DataEnvironment1.Connection1
cmda.CommandText = MySQL
cmda.Execute
If MsgBox("資料處理完成, 顯示資料嗎?", 4 + 64) = 6 Then
Set TDBGrid1.DataSource = DataEnvironment1
TDBGrid1.DataMember = "cmda"
TDBGrid1.Rebind
Else
Text1.Text = ""
Combo1.Text = ""
TDBCombo2.Text = ""
TDBCombo3.Text = ""
End If
End Sub
DataEnvironment和DataReport的問題?(編號：5695)
在DataEnvironment中設定分組之後,並且設了兩個集合函數(總計--SUM),要如何將兩個集合函數作相減的動作然後列印到DataReport中?
DataEnvironment和access2000?(編號：5694)
DataEnvironment結合access2000(Jet.OLEDB.4.0)在使用參數的時候會有問題,會出現?的字樣,而在access7.0(Jet.OLEDB.3.51)的時候就不會有這方面的問題,顯然的access2000和vb6的相容性還是有一點問題吧!是否有人和我有同樣的問題呢~
~~~VB6.0 SP4~~~
~~~VB6.0 SP4~~~
DataEnvironment和access2000?(編號：5693)
DataEnvironment結合access2000(Jet.OLEDB.4.0)在使用參數的時候會有問題,會出現?的字樣,而在access7.0(Jet.OLEDB.3.51)的時候就不會有這方面的問題,顯然的access2000和vb6的相容性還是有一點問題吧!是否有人和我有同樣的問題呢~
~~~VB6.0 SP4~~~
~~~VB6.0 SP4~~~
影像放大或縮小後如何得知mouse-click之像素值?(編號：5691)
在vb6.0中透過一個可以載人tif影像格式的ocx,當執行時將影像放大或縮小相同位置所得到的xy像素值卻不一樣,請問要如何得到準確的xy像素值.
如何設定data report designer在preview report時是橫式的(編號：5690)
使用data report designer來設計report,因為資料欄位多,所以在設計階段時,就要設定成橫式,可是我宜接將report的寛度拉長會出現
"報表寛度大於紙張寛度"的error message.請問該如何解決????
"報表寛度大於紙張寛度"的error message.請問該如何解決????
有沒有人用 VB 寫過 IIS 上的 CGI..(編號：5688)
ASP雖然好用，功能稍差了點，
PERL 也不錯，但在 IIS 要安裝才能使用。
如果能用 VB 寫 IIS 上的 CGI 應該不錯，
只是我不知道VB應如何與 IIS 應對，我不是指用 ACTIVE X 的方式。
CGI 如何取得 BROWSER 傳來給 IIS 的表單(FROM)參數，VB 要怎麼應對
才能透過IIS顯示在瀏覽器上。(當然我不希望答案是用ASP)
是否您有這樣的經驗，可否指點一二。感謝。
PERL 也不錯，但在 IIS 要安裝才能使用。
如果能用 VB 寫 IIS 上的 CGI 應該不錯，
只是我不知道VB應如何與 IIS 應對，我不是指用 ACTIVE X 的方式。
CGI 如何取得 BROWSER 傳來給 IIS 的表單(FROM)參數，VB 要怎麼應對
才能透過IIS顯示在瀏覽器上。(當然我不希望答案是用ASP)
是否您有這樣的經驗，可否指點一二。感謝。
有關Windows的問題(編號：5685)
看到ㄇㄇ網友提供的資訊讓我覺得不可思議....
原來微軟已經做到如此地步....
既然如此,小弟我也奉勸使用盜版軟體的網友.要小心囉..!!
因為小弟也耳聞 Windows98 也有抓到版的程式.
他會將以盜版作業系統上網的E-MAIL & IP 傳送到微軟那
(現有上網者)
而被抓到一現在法律大概是罰300萬左右
假如網友們不相信也沒關係小心一點就好啦...
假如相信小弟我的話....請E-mail告知小弟將會給予破解的程式
註:請支持正版
原來微軟已經做到如此地步....
既然如此,小弟我也奉勸使用盜版軟體的網友.要小心囉..!!
因為小弟也耳聞 Windows98 也有抓到版的程式.
他會將以盜版作業系統上網的E-MAIL & IP 傳送到微軟那
(現有上網者)
而被抓到一現在法律大概是罰300萬左右
假如網友們不相信也沒關係小心一點就好啦...
假如相信小弟我的話....請E-mail告知小弟將會給予破解的程式
註:請支持正版
二個儲取檔的問題(編號：5684)
以下是程式碼
Open "c:\abc.txt" For Output As #1
Print #1, Text1.Text
Close #1
Open "c:\abc.txt" For Input As #1
Line Input #1, a
Text2.Text = a
Close #1
以下是問題..
為什麼text1輸入多行文字儲存之後,在用text2顯示出來的只有一行文字
要怎麼修改才能和text1的內容一樣
第二個問題是比如說這個abc.txt在還沒儲存之前,就有一些文字,
要如何在儲存之後原來abc.txt的內容不會被蓋掉..
例:原來abc.txt內容是 "vb程式" 而text1.text的輸入內容是"的高手"
在儲存之後就變成"vb程式的高手"
Open "c:\abc.txt" For Output As #1
Print #1, Text1.Text
Close #1
Open "c:\abc.txt" For Input As #1
Line Input #1, a
Text2.Text = a
Close #1
以下是問題..
為什麼text1輸入多行文字儲存之後,在用text2顯示出來的只有一行文字
要怎麼修改才能和text1的內容一樣
第二個問題是比如說這個abc.txt在還沒儲存之前,就有一些文字,
要如何在儲存之後原來abc.txt的內容不會被蓋掉..
例:原來abc.txt內容是 "vb程式" 而text1.text的輸入內容是"的高手"
在儲存之後就變成"vb程式的高手"
如何用Data Report寫郵遞標籤報表?(編號：5682)
我在DataReport 內之詳細資訊設定要列印之姓名和地址,其他頁首及頁尾的top margin bottom margin皆設定為0, 但是列印出來的報表頁尾皆會留下一點空白, 請問各位VB高手要如何改善, 在頁首與頁尾之間資料才能夠連續。
winnie wang
winnie wang
超級大難題！第二問(編號：5679)
Q:「10元」可以由一個「10 元」組成或由兩「5元」組成或由1 個「5元」和5 個「1元」組成或由10個「1元」組成等四種罣式，讓使用者輸入N元，將N元可以組成的方式列出！(請以1元、5元、10元、50元、100元、500元、1000元組成出排列的方法！)
上次說的不夠清楚！
是要將所以的組合都列出來！N元是任意數哦！
會的請告訴我！小弟先謝啦！
上次說的不夠清楚！
是要將所以的組合都列出來！N元是任意數哦！
會的請告訴我！小弟先謝啦！
SQL查詢的問題(編號：5678)
現在三個資料表, purchaseh, customer, purchased
purchaseh為主表,
現想三個表連在一起, 顯示purchased的資料並連接到customer, puchased, 可是不要重覆的資料,
請問sql的語法應是如何?
purchaseh為主表,
現想三個表連在一起, 顯示purchased的資料並連接到customer, puchased, 可是不要重覆的資料,
請問sql的語法應是如何?
人手安裝程式問題(編號：5675)
我製作了一個程式然後用"封裝暨部署精靈"把它製成一個以 setup.exe 為主的安裝程式。但是我不想用 setup.exe 安裝, 而改用人手安裝。我把在封裝後建立出來的
Setup.Lst 裏面的寫著 "[Bootstrap Files]" 和 "[Setup1 Files]" 抄到適當的目錄中, 例如把"MSHFGCHT.DLL"放到別人的SYSTEM目錄內。最後, 把有"$(DLLSelfRegister)"的*.dll或*.ocx檔用regsvr32.exe註冊
為甚麼程式還不能執行?
P.S. 我在這裹附加了我的 ＜a href="http://icq3.heha.net/temp/Setup.txt"＞Setup.Lst＜/a＞ , 請大家看看!! 謝謝!!
Setup.Lst 裏面的寫著 "[Bootstrap Files]" 和 "[Setup1 Files]" 抄到適當的目錄中, 例如把"MSHFGCHT.DLL"放到別人的SYSTEM目錄內。最後, 把有"$(DLLSelfRegister)"的*.dll或*.ocx檔用regsvr32.exe註冊
為甚麼程式還不能執行?
P.S. 我在這裹附加了我的 ＜a href="http://icq3.heha.net/temp/Setup.txt"＞Setup.Lst＜/a＞ , 請大家看看!! 謝謝!!
使用者自己輸入公式???(編號：5671)
請問一下各位高手...
有沒有辦法讓使用者在程式runtime自己輸入一個數學公式到程式
中(textbox), 然後我可以在程式中將這個公式字串轉成一般的數
學運算式並將他算出結果呢??因為我不管怎麼試, 字串好像都無法
變成像設計階段的運算式.....請各位高手幫幫忙吧!!謝謝....
有沒有辦法讓使用者在程式runtime自己輸入一個數學公式到程式
中(textbox), 然後我可以在程式中將這個公式字串轉成一般的數
學運算式並將他算出結果呢??因為我不管怎麼試, 字串好像都無法
變成像設計階段的運算式.....請各位高手幫幫忙吧!!謝謝....
儲存的時候﹐我想顯示 please wait... ﹐ 但不行 ....(編號：5670)
請看下面程式﹐為什 麼儲存的時候﹐"please wait..." 沒有顯示
出來 ? 謝謝 !
' Label1.text = "Please wait...."
Private Sub AddButton_Click()
Label1.Visible = True
cn.BeginTrans
rs1.AddNew
rs1!field1 = .....
rs1.Update
cn.CommitTrans
Label1.Visible = False
End Sub
出來 ? 謝謝 !
' Label1.text = "Please wait...."
Private Sub AddButton_Click()
Label1.Visible = True
cn.BeginTrans
rs1.AddNew
rs1!field1 = .....
rs1.Update
cn.CommitTrans
Label1.Visible = False
End Sub
請大漢堡看一下..有關「紙張大小問題」...(急急急...)(編號：5668)
我去下載了SP4，也安裝了，我是Win98和VB6中文版(企業版)
可是還是產生一樣的問題！！
我有試著把寬度調回原來的寬度，可以直印，但無法橫印。
在一個button_click裡，我的程式是這樣寫的：
Call SetOrientation(2) '橫印
DataReport1.Show
然後一些程式碼放在一個模組裡(.bas)，
跑出來的結果還是「報表寬度超過紙張寬度」！
是不是引用模組還有特別的指令或設定的？？
還是有其他的解決方法呢？？
(急急急....)
可是還是產生一樣的問題！！
我有試著把寬度調回原來的寬度，可以直印，但無法橫印。
在一個button_click裡，我的程式是這樣寫的：
Call SetOrientation(2) '橫印
DataReport1.Show
然後一些程式碼放在一個模組裡(.bas)，
跑出來的結果還是「報表寬度超過紙張寬度」！
是不是引用模組還有特別的指令或設定的？？
還是有其他的解決方法呢？？
(急急急....)
Unicode在Win95的顯示問題(編號：5666)
我在VB5.0使用Forms2.0(fm20.dll)來讀取unicode格式的文字檔，此文字檔包含許多特殊符號。製作成簡易的exe檔後，在NT、Win98均無錯誤。
但在Win95的環境中卻無法正確顯示（使用Courier New字型，只能顯示特殊符號，卻無法顯示中文字），經更改字型成細明體後，卻剛好顛倒，只能顯示中文字卻無法顯示特殊符號。
請問這樣的問題是否是因為環境為95的緣故？
又請問是否有無顯示Unicode的更好方法？
但在Win95的環境中卻無法正確顯示（使用Courier New字型，只能顯示特殊符號，卻無法顯示中文字），經更改字型成細明體後，卻剛好顛倒，只能顯示中文字卻無法顯示特殊符號。
請問這樣的問題是否是因為環境為95的緣故？
又請問是否有無顯示Unicode的更好方法？
如何將val( )的值帶入sub副程式內運算..~~(編號：5665)
請問一下~~~
如何在將val( )的值帶入sub副程式內運算..然後將所算出來的值再帶入原執行程式內畫線呢~~謝謝 :＞
ps:我是用vb來寫的,以下是程式檔,我把他畫在picture box(
named pb),有兩個TEXTBOX(named txt1 and txt2,填寫角度θ和Φ )因為圖形畫不出來...謝謝
Private Sub draw_Click()
Call cube(xa, ya, xb, yb, xc, yc, xd, yd, xe, ye, xf, yf, xg, yg, xb, yb)
θ = Val(txt1)
Φ = Val(txt2)
pb.Line (xa * 1000, ya * 100)-(xb * 1000, yb * 1000)
pb.Line (xb * 1000, yb * 100)-(xc * 1000, yc * 1000)
pb.Line (xc * 1000, yc * 100)-(xd * 1000, yd * 1000)
pb.Line (xd * 1000, yd * 100)-(xa * 1000, ya * 1000)
pb.Line (xa * 1000, ya * 100)-(xe * 1000, ye * 1000)
pb.Line (xb * 1000, yb * 100)-(xf * 1000, yf * 1000)
pb.Line (xc * 1000, yc * 100)-(xg * 1000, yg * 1000)
pb.Line (xd * 1000, yd * 100)-(xh * 1000, yh * 1000)
pb.Line (xe * 1000, ye * 100)-(xf * 1000, yf * 1000)
pb.Line (xf * 1000, yf * 100)-(xg * 1000, yg * 1000)
pb.Line (xg * 1000, yg * 100)-(xh * 1000, yh * 1000)
pb.Line (xh * 1000, yh * 100)-(xe * 1000, ye * 1000)
End Sub
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Sub cube(ByVal xa As Double, ByVal ya As Double, ByVal xb As Double, ByVal yb As Double, ByVal xc As Double, ByVal yc As Double, ByVal xd As Double, ByVal yd As Double, ByVal xe As Double, ByVal ye As Double, ByVal xf As Double, ByVal yf As Double, ByVal xg As Double, ByVal yg As Double, ByVal xh As Double, ByVal yh As Double)
Dim θ As Double
Dim Φ As Double
xc = Cosθ * SinΦ
yc = -Sinθ
xb = 2 * CosΦ + Cosθ * SinΦ
yb = -Sinθ
xa = 2 * CosΦ + 3 * Sinθ * SinΦ + Cosθ * SinΦ
ya = 3 * Cosθ - Sinθ
xd = 2 * Sinθ * SinΦ + Cosθ * SinΦ
yd = 2 * Cosθ - Sinθ
xg = 0
yg = 0
xf = 2 * CosΦ
yf = 0
xe = 2 * CosΦ + 3 * Sinθ * SinΦ
ye = 3 * Cosθ
xh = 2 * Sinθ * SinΦ
yh = 2 * Cosθ
End Sub
如何在將val( )的值帶入sub副程式內運算..然後將所算出來的值再帶入原執行程式內畫線呢~~謝謝 :＞
ps:我是用vb來寫的,以下是程式檔,我把他畫在picture box(
named pb),有兩個TEXTBOX(named txt1 and txt2,填寫角度θ和Φ )因為圖形畫不出來...謝謝
Private Sub draw_Click()
Call cube(xa, ya, xb, yb, xc, yc, xd, yd, xe, ye, xf, yf, xg, yg, xb, yb)
θ = Val(txt1)
Φ = Val(txt2)
pb.Line (xa * 1000, ya * 100)-(xb * 1000, yb * 1000)
pb.Line (xb * 1000, yb * 100)-(xc * 1000, yc * 1000)
pb.Line (xc * 1000, yc * 100)-(xd * 1000, yd * 1000)
pb.Line (xd * 1000, yd * 100)-(xa * 1000, ya * 1000)
pb.Line (xa * 1000, ya * 100)-(xe * 1000, ye * 1000)
pb.Line (xb * 1000, yb * 100)-(xf * 1000, yf * 1000)
pb.Line (xc * 1000, yc * 100)-(xg * 1000, yg * 1000)
pb.Line (xd * 1000, yd * 100)-(xh * 1000, yh * 1000)
pb.Line (xe * 1000, ye * 100)-(xf * 1000, yf * 1000)
pb.Line (xf * 1000, yf * 100)-(xg * 1000, yg * 1000)
pb.Line (xg * 1000, yg * 100)-(xh * 1000, yh * 1000)
pb.Line (xh * 1000, yh * 100)-(xe * 1000, ye * 1000)
End Sub
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Sub cube(ByVal xa As Double, ByVal ya As Double, ByVal xb As Double, ByVal yb As Double, ByVal xc As Double, ByVal yc As Double, ByVal xd As Double, ByVal yd As Double, ByVal xe As Double, ByVal ye As Double, ByVal xf As Double, ByVal yf As Double, ByVal xg As Double, ByVal yg As Double, ByVal xh As Double, ByVal yh As Double)
Dim θ As Double
Dim Φ As Double
xc = Cosθ * SinΦ
yc = -Sinθ
xb = 2 * CosΦ + Cosθ * SinΦ
yb = -Sinθ
xa = 2 * CosΦ + 3 * Sinθ * SinΦ + Cosθ * SinΦ
ya = 3 * Cosθ - Sinθ
xd = 2 * Sinθ * SinΦ + Cosθ * SinΦ
yd = 2 * Cosθ - Sinθ
xg = 0
yg = 0
xf = 2 * CosΦ
yf = 0
xe = 2 * CosΦ + 3 * Sinθ * SinΦ
ye = 3 * Cosθ
xh = 2 * Sinθ * SinΦ
yh = 2 * Cosθ
End Sub
關於Crystal Report 6 !(編號：5660)
這是我第一次用Crystal Report 6，以下我有少許問題：
我是ADODB 連上Crystal Report的,如：
dim report as New Crystal Report
dim cSql as string,
dim adoRS as new ADODB.recordset
Private sub cmdPrint_Click()
csql="select * from table1 where UID='" & text1.text & "'"
adoRS.open cSql,conn,dbopenkeyset,adLockReadOnly
report.database.setdatasource adoRS
CRViewer1.ReportSource=report
CRViewer1.viewreport
adoRS.close
end Sub
當我第一次按下Print的時候，Report 正常顯示Text1.Text所需的內容．但當改變了Text1.Text的值再按Print的時候，Report再次顯示之前Text1.text的內容．無法更新，有人知道是什麼原因嗎？？？
請幫忙，謝謝！
我是ADODB 連上Crystal Report的,如：
dim report as New Crystal Report
dim cSql as string,
dim adoRS as new ADODB.recordset
Private sub cmdPrint_Click()
csql="select * from table1 where UID='" & text1.text & "'"
adoRS.open cSql,conn,dbopenkeyset,adLockReadOnly
report.database.setdatasource adoRS
CRViewer1.ReportSource=report
CRViewer1.viewreport
adoRS.close
end Sub
當我第一次按下Print的時候，Report 正常顯示Text1.Text所需的內容．但當改變了Text1.Text的值再按Print的時候，Report再次顯示之前Text1.text的內容．無法更新，有人知道是什麼原因嗎？？？
請幫忙，謝謝！
crystal report問題(編號：5658)
請問在每頁的頁尾加入" to be contiuned"
然後如何在最後一張報表不顯示...
我用的crystal report 是vb5附的
thx...
然後如何在最後一張報表不顯示...
我用的crystal report 是vb5附的
thx...
vb6的小bug: 中斷模式中關閉鍵會消失(編號：5657)
我用 vb6sp4/win98，在中斷模式中，對執行中的程式於工作列的按鈕按右鍵，或於表單標題按右鍵，會發現「關閉選項」灰色不能按，表單的「關閉鈕」同時也變灰了，即使恢復執行，關閉鈕也不會開啟，不過再按右鍵秀出系統選單，關閉鈕與關閉選項又開啟了。
關於停止執行的問題....(編號：5655)
各位高手:vb有個物件名為DirectSS,它的功能是我們給它一個字串,則它就可以念出來這一串字,如:
dim E as string
E="Microsoft Internet"
DirectSS.speak (E)
執行之後便可以說出Microsoft Inernet
那我有一個問題,另外設一定命令紐,那此紐的程式要怎麼寫才可以讓
DirectSS這個物件在念E字串時,就算還沒念完,在我按下此命令鈕時,
DirectSS物件會停止念.
我有看DirectSS這個物件的屬性,可是看不懂ㄝ,也不知道它有沒有什麼屬性是可以設定讓它念與不念ㄝ???
dim E as string
E="Microsoft Internet"
DirectSS.speak (E)
執行之後便可以說出Microsoft Inernet
那我有一個問題,另外設一定命令紐,那此紐的程式要怎麼寫才可以讓
DirectSS這個物件在念E字串時,就算還沒念完,在我按下此命令鈕時,
DirectSS物件會停止念.
我有看DirectSS這個物件的屬性,可是看不懂ㄝ,也不知道它有沒有什麼屬性是可以設定讓它念與不念ㄝ???
如何在不會閃爍的前提下,讓表單無法改變大小 ?(編號：5651)
請問如何在表單縮至一定大小後,即無法再縮小,只能放大.
而且不會閃爍.
我試過的方法有:
MyMenu& = GetSystemMenu(Me.hWnd, 0)
RemoveMenu MyMenu, &HF000, R
----------------------------------------
MoveWindow Me.hwnd, 0, 0, (Line1.X1 + 1) / _
screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY, 1
SetWindowLong Me.hwnd, 65520, &H17CF0000
而且不會閃爍.
我試過的方法有:
MyMenu& = GetSystemMenu(Me.hWnd, 0)
RemoveMenu MyMenu, &HF000, R
----------------------------------------
MoveWindow Me.hwnd, 0, 0, (Line1.X1 + 1) / _
screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY, 1
SetWindowLong Me.hwnd, 65520, &H17CF0000
列控制碼參照已刪除或標記即將刪除列(編號：5650)
adodc1.recordset.delete時出現
datagrid錯誤,列控制碼參照已刪除或標記即將刪除列
的錯誤,但是按確定後程式仍然可以正常執行
請問為什麼會出現上面的錯誤訊息
datagrid錯誤,列控制碼參照已刪除或標記即將刪除列
的錯誤,但是按確定後程式仍然可以正常執行
請問為什麼會出現上面的錯誤訊息
有關SQL之Group by及Union的問題(編號：5646)
如何將已Group by的二段SQL使用Union後再做一次Group by
範例如下:
Select A_GL_CODE GL_CODE,SUM(A_DB_AMT) DB_AMT,
SUM(A_CR_AMT) CR_AMT
From A
Group by A_GL_CODE
Union
Select B_GL_CODE GL_CODE,SUM(B_DB_AMT) DB_AMT,
SUM(A_CR_AMT) CR_AMT
From B
Group by B_GL_CODE
Order by GL_CODE
上段執行結果為:
GL_CODE DB_AMT CR_AMT
------- ---------- ----------
00001 100 200
00002 200 200
00003 400 400
00003 100 200
但我希望得到的是:
GL_CODE DB_AMT CR_AMT
------- ---------- ----------
00001 100 200
00002 200 200
00003 500 600
所以我應該如何下SQL??
懇請各位高手指點迷津..
謝謝
範例如下:
Select A_GL_CODE GL_CODE,SUM(A_DB_AMT) DB_AMT,
SUM(A_CR_AMT) CR_AMT
From A
Group by A_GL_CODE
Union
Select B_GL_CODE GL_CODE,SUM(B_DB_AMT) DB_AMT,
SUM(A_CR_AMT) CR_AMT
From B
Group by B_GL_CODE
Order by GL_CODE
上段執行結果為:
GL_CODE DB_AMT CR_AMT
------- ---------- ----------
00001 100 200
00002 200 200
00003 400 400
00003 100 200
但我希望得到的是:
GL_CODE DB_AMT CR_AMT
------- ---------- ----------
00001 100 200
00002 200 200
00003 500 600
所以我應該如何下SQL??
懇請各位高手指點迷津..
謝謝
用VB 提供的程式或程式庫來壓縮與解壓縮(編號：5645)
VB 有一支MAKECAB 的程式可以製作CAB的壓縮檔，還有在VB6STKIT.DLL 中有解壓的函數，只是後者不知如何正確使用，將其宣告列於下，望高手指點
Public Declare Function ExtractFileFromCab Lib "vb6stkit.dll" (ByVal Cab As String, ByVal File As String, ByVal Dest As String, ByVal iCab As Long, ByVal sSrc As String) As Long
Public Declare Function ExtractFileFromCab Lib "vb6stkit.dll" (ByVal Cab As String, ByVal File As String, ByVal Dest As String, ByVal iCab As Long, ByVal sSrc As String) As Long
用VB 提供的程式或程式庫來壓縮與解壓縮(編號：5644)
VB 有一支MAKECAB 的程式可以製作CAB的壓縮檔，還有在VB6STKIT.DLL 中有解壓的函數，只是後者不知如何正確使用，將其宣告列於下，望高手指點
Public Declare Function ExtractFileFromCab Lib "vb6stkit.dll" (ByVal Cab As String, ByVal File As String, ByVal Dest As String, ByVal iCab As Long, ByVal sSrc As String) As Long
Public Declare Function ExtractFileFromCab Lib "vb6stkit.dll" (ByVal Cab As String, ByVal File As String, ByVal Dest As String, ByVal iCab As Long, ByVal sSrc As String) As Long
如何使某筆資料的某個欄位不要印出(編號：5642)
想請問各位..在DataReport中...可否有合適的事件可用來寫控制某筆資料某一欄位是否要印出來....還有可以控制RptLabel的Visable屬性..因為是針對特定條件的資料錄....所以不知在DataReport_Initialize()是否可以..如果可以的話可否做個用法簡介..謝謝.!
為何 adodc1.recordset.delete 會錯誤(編號：5641)
請問為何使用access2000 的資料庫
使用 adodc1.recordset.delete 刪除資料
在刪除多筆資料後會產生
鍵欄位不足或不正確;太多列被更新鎖影響
的錯誤訊息,有誰可以告訴我如何解決嗎?
使用 adodc1.recordset.delete 刪除資料
在刪除多筆資料後會產生
鍵欄位不足或不正確;太多列被更新鎖影響
的錯誤訊息,有誰可以告訴我如何解決嗎?
列印時字型大小控制無效(編號：5640)
下列程式輸出一字串至Epson Stulus Color 460噴墨印表機，原先字型大小依FontSize的設定正常列印，但列印數次後字型大小竟然變小，請問是什麼原因，要如何解決？謝謝！
With Printer
.Height = 62370
.Width = 5046
.Orientation = 2
.CurrentY = 0
.CurrentX = 0
.FontName = "@標楷體"
.FontSize = 200
Printer.Print "中華民國八十九年八月廿四日"
.EndDoc
End With
With Printer
.Height = 62370
.Width = 5046
.Orientation = 2
.CurrentY = 0
.CurrentX = 0
.FontName = "@標楷體"
.FontSize = 200
Printer.Print "中華民國八十九年八月廿四日"
.EndDoc
End With
資料庫的資料型態?(編號：5639)
請問, 我在VB6用"Insert Into 資料表 Values('','','')" 新增資料時,這三個欄位不是空字串嗎, 怎麼讀出來後變成NULL值了,這樣正常嗎?還是我那裡搞錯了?
怎樣才能使程式能夠在 Internet Explorer 或 Netscape Communica(編號：5637)
怎樣才能使程式能夠在 Internet Explorer 或 Netscape Communicator 執行?
Access 2000數字欄位是否可儲存Null值(編號：5636)
我用VB連結Access2000資料庫..但是有一欄位為數字型態..與Text1做連結..可是今天如果text1內沒輸入資料..在儲存時會出現在以下錯誤..:
執行階段錯誤 '2147467259(80004005)'
不能插入一空列,您必須設定一欄位值
請問有何方法解決...!!
執行階段錯誤 '2147467259(80004005)'
不能插入一空列,您必須設定一欄位值
請問有何方法解決...!!
請教Excel/VBA高手!(編號：5634)
小弟想搜尋excel檔案內某字串index1,於是利用
錄寫功能並稍加修改得到如下程式
Sub
Windows("b.xls").activate
for i=1 to 100
index1= windows("a.xls").activesheet.cells(i,0)
again:
on error goto again
Cells.Find(What:=index1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
False).Activate
on error goto 0
.........
next i
End Sub
現在問題來了
使用Cells.Find(What:=index1.....)函式如果沒找到index1就會出現錯誤訊息
因此我用On error goto again用法讓程式繼續執行,但是我發現如果找不到index1
太多次,程式依然會出現error訊息,並停止執行.
請問有辦法克服嗎?(讓程式繼續執行)
還是有其他的搜尋函式呢?
Thanks for your help!
RJ
錄寫功能並稍加修改得到如下程式
Sub
Windows("b.xls").activate
for i=1 to 100
index1= windows("a.xls").activesheet.cells(i,0)
again:
on error goto again
Cells.Find(What:=index1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
False).Activate
on error goto 0
.........
next i
End Sub
現在問題來了
使用Cells.Find(What:=index1.....)函式如果沒找到index1就會出現錯誤訊息
因此我用On error goto again用法讓程式繼續執行,但是我發現如果找不到index1
太多次,程式依然會出現error訊息,並停止執行.
請問有辦法克服嗎?(讓程式繼續執行)
還是有其他的搜尋函式呢?
Thanks for your help!
RJ
ActiveX控制項(編號：5632)
我將已註冊的activex控制項(用Regsvr32 xxx.ocx註冊)加入網頁中,並將xxx.ocx,UserControl1.ctl檔案ftp上傳到免費空間ftp.bizland.com中,為何用ie流覽時老是出現"目前的安全性設定會禁止在這個畫面執行ActiveX控制項,因為這樣,畫面可能無法正常顯示",請高手指點一下!
簡單運算式問題(編號：5631)
?10000.21+10000+0= 20000.21
True
?10000.21+10000.78+0= 20000.99
False
為何在vb執行此式子結果竟為False??
請問為何會如此??那應如何讓此式子成立...??
True
?10000.21+10000.78+0= 20000.99
False
為何在vb執行此式子結果竟為False??
請問為何會如此??那應如何讓此式子成立...??
這是一個電阻值測驗(有bug我找了很久執行時,有時候還有出現錯誤)(編號：5630)
各位vb的高手們這是個電阻值測驗的程式(本有三個表單,我只貼出有問題的表單)
在比對答案時,程式答案有時候會出現不一樣的答案,有時卻是對的!
可不可以幫我找出來這個問題(答案出錯)是那裡打錯了!!
如各位vb高手這樣看很困難的話,我可以把專案傳給你..
cwz000176@ms73.tonet.net
Dim a
Dim b
Dim c
Dim d
Dim cc
Dim qq, count1, count2, caption2, caption1
Dim er$, tt$, tt1$
Dim colorvalue(12)
Dim ErArray(2)
Dim sec, sec1
Private Sub Command1_Click()
If sec = "ocean" Then
Timer1.Enabled = False
Else
If sec1 = 1 Then
sec = 15
Timer1.Enabled = True
Else
If sec1 = 2 Then
sec = 20
Timer1.Enabled = True
End If
End If
End If
For i = 0 To 2
Text1(i).Text = ""
Text3(i).Text = ""
Next i
count1 = count1 + 1
'設定caption變數改變Command1.Caption文字
caption2 = caption2 + 1
If caption1 = 0 Then Command1.Caption = "下一題" & "(" & caption2 & ")"
Command3.Enabled = True
Command2.Enabled = True
'產生4個亂數用 select 去辨別
Randomize
a = Int(Rnd * 9 + 1) '第一個色碼不能為黑色"0"
b = Int(Rnd * 10)
c = Int(Rnd * 12)
d = Int(Rnd * 3)
cc = 0
'執行隨機頻色副程式
showcolor
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
For i = 0 To 2
Text1(i).Text = ""
Text3(i).Text = ""
Next i
MsgBox ("您選擇跳一題，猜題題數加一題")
If sec = "ocean" Then
Timer1.Enabled = False
Else
If sec1 = 1 Then
sec = 15
Timer1.Enabled = True
Else
If sec1 = 2 Then
sec = 20
Timer1.Enabled = True
End If
End If
End If
'辨別題數是否到達第10題
count1 = count1 + 1
If count1 = 10 Or count2 = 10 Then
Command1.Enabled = False
End If
'設定caption變數改變Command1.Caption文字
caption2 = caption2 + 1
If caption1 = 0 Then Command1.Caption = "下一題" & "(" & caption2 & ")"
Command3.Enabled = True
'產生4個亂數用 select 去辨別
Randomize
a = Int(Rnd * 9 + 1) '第一個色碼不能為黑色"0"
b = Int(Rnd * 10)
c = Int(Rnd * 12)
d = Int(Rnd * 3)
aa = 0
bb = 0
cc = 0
dd = 0
'執行隨機頻色副程式
showcolor
Command1.Enabled = False
If count2 = 11 Or count1 = 11 Then
MsgBox ("色碼電阻測驗試題測驗結束!!" & " 您得到了 " & ert & " 分")
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command1.Caption = "猜題結束"
End If
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
'辨別是否到達第10題
count2 = count2 + 1
'辨別是否有輸入電阻值
If Text1(0) = "" And Text1(1) = "" And Text1(2) = "" Then
MsgBox ("抱歉您還沒輸入電阻數值!!")
Else
Command1.Enabled = True
'答案
If c = 0 Then
ans = a & b & c & er$
Else
ans1 = a & b
'ans = ans1 * c & er$
End If
Text3(0).Text = Val(ans1 * c) & er$
Text3(1).Text = (Val(ans1 * c) / 10 ^ 3) & er$
Text3(2).Text = (Val(ans1 * c) / 10 ^ 6) & er$
If Text1(0).Text = Text3(0).Text Or Text1(1).Text = Text3(1).Text Or Text1(2).Text = Text3(2).Text Then
MsgBox ("恭喜您答對了!!")
ert = ert + 1
Label2.Caption = "您目前共對了" & " " & ert & " " & " 題"
Command3.Enabled = False
Command2.Enabled = False
Else
If Text1(Index).Text ＜＞ Text3(Index).Text Then
MsgBox ("抱歉您答錯了!!")
Command3.Enabled = False
Command2.Enabled = False
End If
End If
If count2 = 11 Or count1 = 11 Then
MsgBox ("色碼電阻測驗試題測驗結束!!")
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command1.Caption = "猜題結束"
End If
End If
End Sub
Private Sub Form_Load()
20 user = InputBox("輸入使用者名稱", "電阻值測驗程式", "入侵者")
If user = "" Then
MsgBox ("請輸入使用者名稱")
GoTo 20
End If
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
colorvalue(0) = 0 '黑
colorvalue(1) = RGB(128, 64, 0) '棕
colorvalue(2) = RGB(255, 0, 0) '紅
colorvalue(3) = RGB(255, 128, 0) '橙
colorvalue(4) = RGB(255, 255, 0) '黃
colorvalue(5) = RGB(0, 255, 0) '綠
colorvalue(6) = RGB(0, 0, 255) '藍
colorvalue(7) = RGB(128, 0, 128) '紫
colorvalue(8) = RGB(128, 128, 128) '灰
colorvalue(9) = RGB(255, 255, 255) '白
colorvalue(10) = RGB(225, 225, 202) '金
colorvalue(11) = RGB(242, 242, 242) '銀
colorvalue(12) = RGB(255, 255, 255) '無
ErArray(0) = "+-5%"
ErArray(1) = "+-10%"
ErArray(2) = "+-20%"
a = 0
b = 0
c = 0
cc = 0
d = 0
er$ = 0
count1 = 0
count2 = 0
ert = 0
caption1 = 0
caption2 = 0
sec = 0
sec1 = 0
End Sub
Public Sub showcolor()
Picture1.BackColor = colorvalue(a)
Picture2.BackColor = colorvalue(b)
Picture3.BackColor = colorvalue(c)
Select Case True
Case c ＜ 9
c = 10 ^ c
Case c ＞ 9
c = 10 ^ -(c - 9)
End Select
er$ = ErArray(d)
Picture4.BackColor = colorvalue(d + 10)
End Sub
Private Sub level11_Click()
level11.Enabled = True
level22.Enabled = False
level33.Enabled = False
Command1.Enabled = True
sec1 = 1
End Sub
Private Sub level22_Click()
level22.Enabled = True
level11.Enabled = False
level33.Enabled = False
Command1.Enabled = True
sec1 = 2
End Sub
Private Sub level33_Click()
level33.Enabled = True
level22.Enabled = False
level11.Enabled = False
Timer1.Enabled = False
Command1.Enabled = True
sec = "ocean" '設定猜題秒數為無限秒
Label1.Caption = "猜題秒數為∞秒"
End Sub
Private Sub name_Click()
Form4.Show
End Sub
Private Sub say1_Click()
Form2.Show
End Sub
Private Sub Timer1_Timer()
sec = sec - 1
Label1.Caption = "目前剩下秒數為" & sec & "秒"
If sec ＜= 0 Then
MsgBox ("你嘛幫幫忙!沒那個實力就選等級三咩!")
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
'答案
If c = 0 Then
ans = a & b & c & er$
Else
ans1 = a & b
End If
Text3(0).Text = Val(ans1 * c) & er$
Text3(1).Text = (Val(ans1 * c) / 10 ^ 3) & er$
Text3(2).Text = (Val(ans1 * c) / 10 ^ 6) & er$
Timer1.Enabled = False
End If
End Sub
在比對答案時,程式答案有時候會出現不一樣的答案,有時卻是對的!
可不可以幫我找出來這個問題(答案出錯)是那裡打錯了!!
如各位vb高手這樣看很困難的話,我可以把專案傳給你..
cwz000176@ms73.tonet.net
Dim a
Dim b
Dim c
Dim d
Dim cc
Dim qq, count1, count2, caption2, caption1
Dim er$, tt$, tt1$
Dim colorvalue(12)
Dim ErArray(2)
Dim sec, sec1
Private Sub Command1_Click()
If sec = "ocean" Then
Timer1.Enabled = False
Else
If sec1 = 1 Then
sec = 15
Timer1.Enabled = True
Else
If sec1 = 2 Then
sec = 20
Timer1.Enabled = True
End If
End If
End If
For i = 0 To 2
Text1(i).Text = ""
Text3(i).Text = ""
Next i
count1 = count1 + 1
'設定caption變數改變Command1.Caption文字
caption2 = caption2 + 1
If caption1 = 0 Then Command1.Caption = "下一題" & "(" & caption2 & ")"
Command3.Enabled = True
Command2.Enabled = True
'產生4個亂數用 select 去辨別
Randomize
a = Int(Rnd * 9 + 1) '第一個色碼不能為黑色"0"
b = Int(Rnd * 10)
c = Int(Rnd * 12)
d = Int(Rnd * 3)
cc = 0
'執行隨機頻色副程式
showcolor
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
For i = 0 To 2
Text1(i).Text = ""
Text3(i).Text = ""
Next i
MsgBox ("您選擇跳一題，猜題題數加一題")
If sec = "ocean" Then
Timer1.Enabled = False
Else
If sec1 = 1 Then
sec = 15
Timer1.Enabled = True
Else
If sec1 = 2 Then
sec = 20
Timer1.Enabled = True
End If
End If
End If
'辨別題數是否到達第10題
count1 = count1 + 1
If count1 = 10 Or count2 = 10 Then
Command1.Enabled = False
End If
'設定caption變數改變Command1.Caption文字
caption2 = caption2 + 1
If caption1 = 0 Then Command1.Caption = "下一題" & "(" & caption2 & ")"
Command3.Enabled = True
'產生4個亂數用 select 去辨別
Randomize
a = Int(Rnd * 9 + 1) '第一個色碼不能為黑色"0"
b = Int(Rnd * 10)
c = Int(Rnd * 12)
d = Int(Rnd * 3)
aa = 0
bb = 0
cc = 0
dd = 0
'執行隨機頻色副程式
showcolor
Command1.Enabled = False
If count2 = 11 Or count1 = 11 Then
MsgBox ("色碼電阻測驗試題測驗結束!!" & " 您得到了 " & ert & " 分")
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command1.Caption = "猜題結束"
End If
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
'辨別是否到達第10題
count2 = count2 + 1
'辨別是否有輸入電阻值
If Text1(0) = "" And Text1(1) = "" And Text1(2) = "" Then
MsgBox ("抱歉您還沒輸入電阻數值!!")
Else
Command1.Enabled = True
'答案
If c = 0 Then
ans = a & b & c & er$
Else
ans1 = a & b
'ans = ans1 * c & er$
End If
Text3(0).Text = Val(ans1 * c) & er$
Text3(1).Text = (Val(ans1 * c) / 10 ^ 3) & er$
Text3(2).Text = (Val(ans1 * c) / 10 ^ 6) & er$
If Text1(0).Text = Text3(0).Text Or Text1(1).Text = Text3(1).Text Or Text1(2).Text = Text3(2).Text Then
MsgBox ("恭喜您答對了!!")
ert = ert + 1
Label2.Caption = "您目前共對了" & " " & ert & " " & " 題"
Command3.Enabled = False
Command2.Enabled = False
Else
If Text1(Index).Text ＜＞ Text3(Index).Text Then
MsgBox ("抱歉您答錯了!!")
Command3.Enabled = False
Command2.Enabled = False
End If
End If
If count2 = 11 Or count1 = 11 Then
MsgBox ("色碼電阻測驗試題測驗結束!!")
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command1.Caption = "猜題結束"
End If
End If
End Sub
Private Sub Form_Load()
20 user = InputBox("輸入使用者名稱", "電阻值測驗程式", "入侵者")
If user = "" Then
MsgBox ("請輸入使用者名稱")
GoTo 20
End If
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
colorvalue(0) = 0 '黑
colorvalue(1) = RGB(128, 64, 0) '棕
colorvalue(2) = RGB(255, 0, 0) '紅
colorvalue(3) = RGB(255, 128, 0) '橙
colorvalue(4) = RGB(255, 255, 0) '黃
colorvalue(5) = RGB(0, 255, 0) '綠
colorvalue(6) = RGB(0, 0, 255) '藍
colorvalue(7) = RGB(128, 0, 128) '紫
colorvalue(8) = RGB(128, 128, 128) '灰
colorvalue(9) = RGB(255, 255, 255) '白
colorvalue(10) = RGB(225, 225, 202) '金
colorvalue(11) = RGB(242, 242, 242) '銀
colorvalue(12) = RGB(255, 255, 255) '無
ErArray(0) = "+-5%"
ErArray(1) = "+-10%"
ErArray(2) = "+-20%"
a = 0
b = 0
c = 0
cc = 0
d = 0
er$ = 0
count1 = 0
count2 = 0
ert = 0
caption1 = 0
caption2 = 0
sec = 0
sec1 = 0
End Sub
Public Sub showcolor()
Picture1.BackColor = colorvalue(a)
Picture2.BackColor = colorvalue(b)
Picture3.BackColor = colorvalue(c)
Select Case True
Case c ＜ 9
c = 10 ^ c
Case c ＞ 9
c = 10 ^ -(c - 9)
End Select
er$ = ErArray(d)
Picture4.BackColor = colorvalue(d + 10)
End Sub
Private Sub level11_Click()
level11.Enabled = True
level22.Enabled = False
level33.Enabled = False
Command1.Enabled = True
sec1 = 1
End Sub
Private Sub level22_Click()
level22.Enabled = True
level11.Enabled = False
level33.Enabled = False
Command1.Enabled = True
sec1 = 2
End Sub
Private Sub level33_Click()
level33.Enabled = True
level22.Enabled = False
level11.Enabled = False
Timer1.Enabled = False
Command1.Enabled = True
sec = "ocean" '設定猜題秒數為無限秒
Label1.Caption = "猜題秒數為∞秒"
End Sub
Private Sub name_Click()
Form4.Show
End Sub
Private Sub say1_Click()
Form2.Show
End Sub
Private Sub Timer1_Timer()
sec = sec - 1
Label1.Caption = "目前剩下秒數為" & sec & "秒"
If sec ＜= 0 Then
MsgBox ("你嘛幫幫忙!沒那個實力就選等級三咩!")
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
'答案
If c = 0 Then
ans = a & b & c & er$
Else
ans1 = a & b
End If
Text3(0).Text = Val(ans1 * c) & er$
Text3(1).Text = (Val(ans1 * c) / 10 ^ 3) & er$
Text3(2).Text = (Val(ans1 * c) / 10 ^ 6) & er$
Timer1.Enabled = False
End If
End Sub
SQL語法可以設分組嗎(編號：5627)
1.是否設DataEnvironment中設分組之後就不能用SQL語法?如果可以該如何作呢?
2.SQL語法可以設分組嗎?因為我沒有學到,可能不行吧!
3.在我的專案之中,如果要在產品編號(DataCombo1)之下加上產品名稱(DataCombo2),而以產品編號為主,只要選擇產品編號就會自動顯示產品產品名稱之對應欄位,我該如何作?因為是在不同資料庫表單之中,所以用了二個ADODC元件,但有相關聯.
2.SQL語法可以設分組嗎?因為我沒有學到,可能不行吧!
3.在我的專案之中,如果要在產品編號(DataCombo1)之下加上產品名稱(DataCombo2),而以產品編號為主,只要選擇產品編號就會自動顯示產品產品名稱之對應欄位,我該如何作?因為是在不同資料庫表單之中,所以用了二個ADODC元件,但有相關聯.
如何在集合物件中建立Exist的函數?(編號：5625)
如題,我建了一個集合物件的模組,現在想在模組中加一個Exist的函數,請問該如何加呢?我的集合物件如下:Option Explicit
Private mcolDBTables As New Collection
Public Function Add(strName As String) As dbTable
Dim TableNew As New dbTable
TableNew.Name = strName
mcolDBTables.Add TableNew, strName
Set Add = TableNew
End Function
Public Sub Delete(strName As String)
mcolDBTables.Remove strName
End Sub
Public Function Count() As Long
Count = mcolDBTables.Count
End Function
Public Function Item(strName As String) As dbTable
Set Item = mcolDBTables.Item(strName)
End Function
Public Function NewEnum() As IUnknown
Set NewEnum = mcolplanets.[_NewEnum]
End Function
Private mcolDBTables As New Collection
Public Function Add(strName As String) As dbTable
Dim TableNew As New dbTable
TableNew.Name = strName
mcolDBTables.Add TableNew, strName
Set Add = TableNew
End Function
Public Sub Delete(strName As String)
mcolDBTables.Remove strName
End Sub
Public Function Count() As Long
Count = mcolDBTables.Count
End Function
Public Function Item(strName As String) As dbTable
Set Item = mcolDBTables.Item(strName)
End Function
Public Function NewEnum() As IUnknown
Set NewEnum = mcolplanets.[_NewEnum]
End Function
(緊急!!!)如何在Form和MDIForm之間使用拖放(Drap Drop)的功能???(編號：5624)
我沒有辦法將form之中的圖片拖曳到MDIForm上
不曉得各位有啥麼好辦法???希望你能幫我解答
感激不盡!!!!
不曉得各位有啥麼好辦法???希望你能幫我解答
感激不盡!!!!
列印紙張大小(已查過之前的討論)(編號：5623)
之前有人提到可以用..Printer.Heigh和Printer.Width來自訂紙張大小..請教一下詳細的用法...我想在Data Report中使用...單位是英吋還是.!?...另外請問程式的發展環境用的是A4的印表機(也因為是A4所以在程式的發展階段無法測試..因為列印範圍超過紙張大小)但是以後實際使用是要在紙張標準格式8.5 * 11英吋下,請問這樣會發生問題嗎.!?謝謝..
Data Report或SQL語法可以做到四捨五入嗎.!?(編號：5621)
1,因為在使用報表時.有作到運算(在SQL語法的SELECT中)..可是因為牽涉到小數的運算...想把小數去掉..四捨五入後剩下整數.. 請問可有辦法....?!
請教 ODBC 相關的問題(編號：5620)
本人開發出來的程式於有安裝OFFICE 2000的PC下可正常執行，但於OFFICE 97下的PC卻會發生有一個欄位的資料無法顯示出來，不知問題出在哪？
PS： 不知此問題與ODBC有無關聯。
PS： 不知此問題與ODBC有無關聯。
tabstrip sstab(編號：5619)
1.請問在使用tabstrip時,如何將每一頁籤的設計畫面分離設計
2.sstab在使用多個頁籤時,若不想使用TabPreRow使頁籤分區重疊,想讓頁籤超出視窗的部份有左右箭頭來選擇,請問要在哪邊設定?
2.sstab在使用多個頁籤時,若不想使用TabPreRow使頁籤分區重疊,想讓頁籤超出視窗的部份有左右箭頭來選擇,請問要在哪邊設定?
請問如何利用vb偵測不在form中的滑鼠動作(編號：5617)
請問如何利用vb偵測不在form中的滑鼠動作,如我執行了vb程式之後,將之最小化,另外開啟word程式,在word中當我點滑鼠右鍵就顯示現在點了滑鼠右鍵一次,點滑鼠左鍵就顯示點了滑鼠左鍵一次,謝謝
再請教(編號：5615)
我利用一個Text1 把資料寫入 MSHFlexGrid1裡。
但執行的時候 Text1.Left = .Left + .ColPos(c)會出現錯誤，如把這程式delete 就可以
寫入資料，但要拉寬時 text1的width就不會跟隨.其他一切正常，請高手指教，這程式
錯在那裏.
謝謝!
但執行的時候 Text1.Left = .Left + .ColPos(c)會出現錯誤，如把這程式delete 就可以
寫入資料，但要拉寬時 text1的width就不會跟隨.其他一切正常，請高手指教，這程式
錯在那裏.
謝謝!
如何將jpg resize 不用StretchBlt(編號：5611)
各位先進您們好:
小弟最近使用vb需用到將jpg 作resize 動作我試過 StretchBlt 的 api 但效果不好,另外我有使用文魁出版 visual C++6 Bible 進階 此書所附的光碟中協力廠所開發的lib,效果不錯,但因此為試用版所以透過他的API後 ,圖形上有他的mark,請問各位先進有無其它公司開發的lib 在功能及價格上讓我可以比較
謝謝!
小弟最近使用vb需用到將jpg 作resize 動作我試過 StretchBlt 的 api 但效果不好,另外我有使用文魁出版 visual C++6 Bible 進階 此書所附的光碟中協力廠所開發的lib,效果不錯,但因此為試用版所以透過他的API後 ,圖形上有他的mark,請問各位先進有無其它公司開發的lib 在功能及價格上讓我可以比較
謝謝!
麻煩SPENCER YANG看一下！(急)(編號：5609)
關於如何將data report的印表機從直印改成橫印...
你說在個個擊破中第172個：
下載 Orient.bas (zip檔)
Sub ChngPrinterOrientationLandscape(ByVal frm As Form)：設定為直印
Sub ChngPrinterOrientationPortrait(ByVal frm As Form)：設定為橫印
在程式中使用方式如下：
1、設定為直印：ChngPrinterOrientationPortrait Me
2、設定為橫印：ChngPrinterOrientationLandscape Me
可是我想在data report秀出來時就是橫印的結果，應該怎麼用？？
我在設計data report時就是用成橫印的，所以report的寬會比較長，
而我印表機的預設是直印的，當我要show出data report時，
就會出現"報表寬度超過紙張寬度"．
像我如果這樣用：(想讓印表機設成橫印的)
ChngPrinterOrientationLandscape Me
DataReport1.Show
這樣用是對的嗎？
你說在個個擊破中第172個：
下載 Orient.bas (zip檔)
Sub ChngPrinterOrientationLandscape(ByVal frm As Form)：設定為直印
Sub ChngPrinterOrientationPortrait(ByVal frm As Form)：設定為橫印
在程式中使用方式如下：
1、設定為直印：ChngPrinterOrientationPortrait Me
2、設定為橫印：ChngPrinterOrientationLandscape Me
可是我想在data report秀出來時就是橫印的結果，應該怎麼用？？
我在設計data report時就是用成橫印的，所以report的寬會比較長，
而我印表機的預設是直印的，當我要show出data report時，
就會出現"報表寬度超過紙張寬度"．
像我如果這樣用：(想讓印表機設成橫印的)
ChngPrinterOrientationLandscape Me
DataReport1.Show
這樣用是對的嗎？
如何一次安裝完成???(編號：5608)
小弟寫了一些程式,其中必須使用到其他的DLL來動作,小弟完成程式後利用封裝精靈
來完成安裝程式,但安裝到其他電腦時,還是必須先安裝註冊之前的DLL後再安裝自己寫的程式
,如此才能正常動作,試問各位先進友們有辦法將這些程序完成於單一安裝程式中達到呢????
Thanks^_^
來完成安裝程式,但安裝到其他電腦時,還是必須先安裝註冊之前的DLL後再安裝自己寫的程式
,如此才能正常動作,試問各位先進友們有辦法將這些程序完成於單一安裝程式中達到呢????
Thanks^_^
那個API可得知NT目前的工作管理員工有那些在執行??(編號：5607)
同標題…
我想知道那個API可得知目前NT中的工作管理員中
有那些程式在裏頭執行
煩請各位前輩知道的話…可告之，目前急需知道
謝謝 ^__*
我想知道那個API可得知目前NT中的工作管理員中
有那些程式在裏頭執行
煩請各位前輩知道的話…可告之，目前急需知道
謝謝 ^__*
自定的DropDown物件(編號：5606)
Window 標準的Combo物件並不符合我們一般的須要，如我們想使用
2欄或3欄像Access的DropDown或是像DateTimePicker or 屬性頁上
Color的選項，我想要試作一個自已的物件用TextBox和Grid來組成
自己的Combo，實作上遇到很多困難，因為對Win32SDK並不是那麼熟
所以像是Mouse的動作沒法控制得如意，不知道有沒有那位曾經做過和我想像的東西類似的可否讓我請教一下呢？
2欄或3欄像Access的DropDown或是像DateTimePicker or 屬性頁上
Color的選項，我想要試作一個自已的物件用TextBox和Grid來組成
自己的Combo，實作上遇到很多困難，因為對Win32SDK並不是那麼熟
所以像是Mouse的動作沒法控制得如意，不知道有沒有那位曾經做過和我想像的東西類似的可否讓我請教一下呢？
有關資料庫的問題(編號：5604)
1.假如我使 Form1.Text1.text="ㄇㄇ" 並按下 Command1 後
跳出 Form2 並顯示此人ㄇㄇ的資料(Adodc1)
2.
條件:
姓名: ㄇㄇ
年齡: 17
生日: 71/09/26
當我按下 下一筆 只到此資料錄時
如何讓 Adodc1,Adodc2,Adodc3 同步顯示
Text1.text = "ㄇㄇ" ＜--Adodc1
Text2.text = "17" ＜--Adodc2
Text3.text = "71/09/26 ＜--Adodc3
謝謝
跳出 Form2 並顯示此人ㄇㄇ的資料(Adodc1)
2.
條件:
姓名: ㄇㄇ
年齡: 17
生日: 71/09/26
當我按下 下一筆 只到此資料錄時
如何讓 Adodc1,Adodc2,Adodc3 同步顯示
Text1.text = "ㄇㄇ" ＜--Adodc1
Text2.text = "17" ＜--Adodc2
Text3.text = "71/09/26 ＜--Adodc3
謝謝
請SPENCER YANG看一下！(急)(編號：5603)
關於如何將Data Report的紙張大小從直式改成橫式：
請到紀文和網站 VB入門網 http://www.vbguide.com.tw/
看看 "個個擊破" 單元中的172 如何在程式中設定印表機的列印方向？
但VB入門網 http://www.vbguide.com.tw/
這個網址連不進去....
download下來的那個.bas檔要如何使用呢？？
程式碼看不太懂！不會用！能不能說明一下如何改變印表機的列印方向？
謝謝！
請到紀文和網站 VB入門網 http://www.vbguide.com.tw/
看看 "個個擊破" 單元中的172 如何在程式中設定印表機的列印方向？
但VB入門網 http://www.vbguide.com.tw/
這個網址連不進去....
download下來的那個.bas檔要如何使用呢？？
程式碼看不太懂！不會用！能不能說明一下如何改變印表機的列印方向？
謝謝！
仿檔案總管製作--取得網路芳鄰與檔案關連icons(編號：5602)
我想要模仿檔案總管,但只要兩個部分,用imageCombo來選取磁碟與目錄,用listView來顯示檔案與目錄,但有幾個問題1.fileSystemObject只能包含磁碟機資訊,我要如何才能把網路芳鄰也顯示在imageCombo上呢?2.在listView內，各種不同類型的檔案(*.txt,*.htm...)都會有一個關連的icon，如何能夠取得這些關連的icon,秀在listView上呢?謝謝回答囉~~
Help!!請問有無類似Project 元件功能?(編號：5601)
請問有無像MS Project工具的軟體元件可供Schedule開發?
或者如果我想要做到如Project的GUI界面我要如何著手?
或者如果我想要做到如Project的GUI界面我要如何著手?
請問:設計一個專案要考慮那些,要如何下手(編號：5599)
我想要設計一個程式,包括由LPT1抓DATA,及存檔和顯示DATA等功能
不知道我要準備那些,該由那個步驟下手?
發展一個專案的過程有那些?我怎麼做比較快?
可否先分成 抓DATA,檔案管理,顯示DATA三個專案再合成一個(但是這幾個專案之間怎麼互傳資料?)
不知道我要準備那些,該由那個步驟下手?
發展一個專案的過程有那些?我怎麼做比較快?
可否先分成 抓DATA,檔案管理,顯示DATA三個專案再合成一個(但是這幾個專案之間怎麼互傳資料?)
在Data Report中如何將紙張從直式改成橫式的？(編號：5595)
在Data Report中，一般都是預設成直式讓我們來放資料，
那應該如何改成橫式的來放資料呢？？
***** ***********
***** ==＞ ***********
***** ***********
*****
*****
那應該如何改成橫式的來放資料呢？？
***** ***********
***** ==＞ ***********
***** ***********
*****
*****
DataReport圖片問題(編號：5592)
我在資料表中的一個欄位是記錄圖檔的路徑,但是我想要讓它在DataReport中顯示該圖片出來!!我該怎麼做呢??
還有,在Access97中的SQL敘述中可用iif()字串型態成功,但是用VB卻不可使用??請教教我,謝謝!!
還有,在Access97中的SQL敘述中可用iif()字串型態成功,但是用VB卻不可使用??請教教我,謝謝!!
如何調整DataReport的紙張大小？？(急)(編號：5590)
如何調整DataReport的紙張大小？？
例如：原本DataReport的紙張都預設成A4直式的，
那應該如何將資料列印成A4橫式的呢？？
例如：原本DataReport的紙張都預設成A4直式的，
那應該如何將資料列印成A4橫式的呢？？
SQL statement about Date(編號：5589)
How can use sql to get records where "date" is greater or equal to today ?
e.g.
select * from schedule where eventdate ＞= 'aug/23/2000'
thanks a lot for help !
e.g.
select * from schedule where eventdate ＞= 'aug/23/2000'
thanks a lot for help !
SQL statement about Date(編號：5588)
How can use sql to get records where "date" is greater or equal to today ?
e.g.
select * from schedule where eventdate ＞= 'aug/23/2000'
thanks a lot for help !
e.g.
select * from schedule where eventdate ＞= 'aug/23/2000'
thanks a lot for help !
關於icon...(編號：5587)
請問一下...
如何做一個command上面有一個小圖示
和
我想把form的icon連結到所存的專案下的圖示....
form1.icon="c:\....."
不知道是哪發生錯誤
希望有人能幫我找出問題~
謝謝...^_^
如何做一個command上面有一個小圖示
和
我想把form的icon連結到所存的專案下的圖示....
form1.icon="c:\....."
不知道是哪發生錯誤
希望有人能幫我找出問題~
謝謝...^_^
About Text Object LostFocus.......Help Me(編號：5586)
我使用了三個物件(Text1,Text2,ToolBar)...
我在Text1物件的LostFocus做有關日期正確性的判斷,
當我輸入完Text1內容去點Text2時,可以順利檢核Text1內容的正確性
可是當我輸入完Text1的內容後就直接點選ToolBar物件的按鈕,確不會觸發Text1之LostFocus,所以無法做輸入日期是否正確的判斷...
請問有沒有方法可以再我點ToolBar時,能先執行Text1的LostFocus,如果輸入有錯則停在Text1物件上,若沒錯則能繼續執行ToolBar內的動作???
謝謝 !!
我在Text1物件的LostFocus做有關日期正確性的判斷,
當我輸入完Text1內容去點Text2時,可以順利檢核Text1內容的正確性
可是當我輸入完Text1的內容後就直接點選ToolBar物件的按鈕,確不會觸發Text1之LostFocus,所以無法做輸入日期是否正確的判斷...
請問有沒有方法可以再我點ToolBar時,能先執行Text1的LostFocus,如果輸入有錯則停在Text1物件上,若沒錯則能繼續執行ToolBar內的動作???
謝謝 !!
教我一下吧!!~~(編號：5583)
我是一位非常基本的初學者
你們誰可以教我如何寫
1 --＞ 2 --＞ 3 --＞ 1 --＞........ --＞ 1
如此循環的東西呀???
1,2,3都是字串喔!!~~
你們誰可以教我如何寫
1 --＞ 2 --＞ 3 --＞ 1 --＞........ --＞ 1
如此循環的東西呀???
1,2,3都是字串喔!!~~
DataReport的3個問題~(急)(編號：5581)
1.DataReport中是否只可以和Data Environment作結合?
2.Data Environment中使用SQL語法時是否不能和DataReport作結合?
3.如果是DataReport和Data Environment作結合,那在分組列印的時候要如何作加減的動作(主要是在減的部份,因為可以用sum作)~
2.Data Environment中使用SQL語法時是否不能和DataReport作結合?
3.如果是DataReport和Data Environment作結合,那在分組列印的時候要如何作加減的動作(主要是在減的部份,因為可以用sum作)~
Mscomm有沒有這屬性?(編號：5580)
Mscomm有一"搜尋EOF結尾",但假設我現在每段結尾字元不是EOF字元,請問Mscomm有沒有屬性可以自行設定結尾字元,使的在收到結尾字元後,就觸發OnComm..
另外,請問EOF字元是HEX多少或ASCII的多少?
另外,請問EOF字元是HEX多少或ASCII的多少?
DataReport圖片問題(編號：5579)
我在資料表中的一個欄位是記錄圖檔的路徑,但是我想要讓它在DataReport中顯示該圖片出來!!我該怎麼做呢??
還有,在Access97中的SQL敘述中可用iif()字串型態成功,但是用VB卻不可使用??請教教我,謝謝!!
還有,在Access97中的SQL敘述中可用iif()字串型態成功,但是用VB卻不可使用??請教教我,謝謝!!
請問各位vb學長姐們一個API問題(編號：5578)
假如我要在一個外部程式上的textbox貼上我寫的程式的運算值，應該怎麼寫呢？
例如；我在表單上加入WebBrowser物件〈就是一個網頁〉但是卻無法用程式將數值print在網頁的輸入框裡，是否要呼叫複製貼上的API呢
如果是的話要如何做？
例如；我在表單上加入WebBrowser物件〈就是一個網頁〉但是卻無法用程式將數值print在網頁的輸入框裡，是否要呼叫複製貼上的API呢
如果是的話要如何做？
在Menu上的浮起式Icon???(編號：5577)
請問：
我們在使用VB寫程式時，不知各位有沒有發現它的menu...
是不是有漂亮的Icon... 。當然，使用API也能做到呀~~
不過，我要大家注意的是：那些Icon是"浮起式"的...不是像
SetMenuItemBitmaps SHOW出來的...
請問，有誰知道要如何才能讓menu的icon是浮起式的呢??
我們在使用VB寫程式時，不知各位有沒有發現它的menu...
是不是有漂亮的Icon... 。當然，使用API也能做到呀~~
不過，我要大家注意的是：那些Icon是"浮起式"的...不是像
SetMenuItemBitmaps SHOW出來的...
請問，有誰知道要如何才能讓menu的icon是浮起式的呢??
請教 ImmSimulateHotKey() 這個 API 的問題(編號：5574)
這個 API 的作用是送出切換輸入法的 hot-key
我是在"CWW的VB心得筆記"看到範例
我想用這個 API 切換一個我所指定的視窗的輸入法
假設我已經以"GetForegroundWindow()"抓取我的目標視窗的handle值，假設此值為"1234"
我寫一個程式如下﹕
Private Declare Function ImmSimulateHotKey Lib "imm32.dll" (ByVal hwnd As Long, ByVal dw As Long) As Long
Const IME_THOTKEY_IME_NONIME_TOGGLE = &H70
Private Sub Command1_Click()
ImmSimulateHotKey 1234, IME_THOTKEY_IME_NONIME_TOGGLE
End Sub
結果是失敗....
可是，如果將"1234"改成"Me.hWnd"就可以成功切換本身的輸入法
請教各位這是怎麼回事？
拜託拜託！
我是在"CWW的VB心得筆記"看到範例
我想用這個 API 切換一個我所指定的視窗的輸入法
假設我已經以"GetForegroundWindow()"抓取我的目標視窗的handle值，假設此值為"1234"
我寫一個程式如下﹕
Private Declare Function ImmSimulateHotKey Lib "imm32.dll" (ByVal hwnd As Long, ByVal dw As Long) As Long
Const IME_THOTKEY_IME_NONIME_TOGGLE = &H70
Private Sub Command1_Click()
ImmSimulateHotKey 1234, IME_THOTKEY_IME_NONIME_TOGGLE
End Sub
結果是失敗....
可是，如果將"1234"改成"Me.hWnd"就可以成功切換本身的輸入法
請教各位這是怎麼回事？
拜託拜託！
如何把別的程式(excel..)變 MDIform的子視窗 ?(編號：5569)
用 shell 執行某一外部程式時,希望它是自己 VB MDIform 的
子視窗, 應如何辦到? 請多多指教, 謝謝.
子視窗, 應如何辦到? 請多多指教, 謝謝.
SQL語法請教(編號：5568)
我只是個新手啦..問的問題和矬你們別笑..資料表內有兩個欄位分別為Field1與Field2今天我想要選取Table1.Field1與Table1.Field2還有((Table1.Field1 / 8 )+Table1.Field)*2 As Table3請問要如何下SQL之Select指令..謝謝
[ARRAY](編號：5567)
請問有無函式可以連結兩個陣列
A=array(1,2,3)
B=array(4,5,6)
??????
最後A變成1,2,3,4,5,6
copymemory看不懂勒....??除了這個以外有其他方法嗎？
謝謝
A=array(1,2,3)
B=array(4,5,6)
??????
最後A變成1,2,3,4,5,6
copymemory看不懂勒....??除了這個以外有其他方法嗎？
謝謝
Data Report的詳細資訊內可作運算嗎?!(編號：5566)
請問..假設詳細資訊內有三個RptTextBox分別為Text1,Text2,Text3..Text1與Text2皆為數值而Text3=Text1+Text2請問要如何做呢..因為我看了很多本書..可是他們在報表方面講的都不是很詳細..謝謝
有誰會知Permission 的問題!?(編號：5565)
小弟公司用IIS4 作web server, 本來一直相安無事, 但最近經常發生load 網頁時有 Permission deny 的warning --每次想用
CDONTS send email 時都會出現. 起初我們以為是有人動過user permission, 但後來我們把所有的directory 任何人都有full control 亦出現permission deny. IUSR_＜MACHINE_NAME＞ 亦有full control , 但也permission deny. 最後把所有人放進Administrator group 也沒法"解決". 在C:winnt\system32 的 cdonts.dll 亦是full control 也不能.... 本來system 是很正常的, 不過每次也因為CDONTS 的這個問題而苦惱... 請問有誰試過這情型??
CDONTS send email 時都會出現. 起初我們以為是有人動過user permission, 但後來我們把所有的directory 任何人都有full control 亦出現permission deny. IUSR_＜MACHINE_NAME＞ 亦有full control , 但也permission deny. 最後把所有人放進Administrator group 也沒法"解決". 在C:winnt\system32 的 cdonts.dll 亦是full control 也不能.... 本來system 是很正常的, 不過每次也因為CDONTS 的這個問題而苦惱... 請問有誰試過這情型??
datacombo(編號：5564)
可否請教有關datacombo相關問題
我在程式中加入這一段
Adodc1.ConnectionString = Path
DataCombo1.SetFocus
rsunit.Open "select * from unit", Path
Set DataCombo1.RowSource = rsunit
rsunit.MoveFirst
DataCombo1.BoundColumn = rsunit!unno
DataCombo1.DataField = rsunit!unno
DataCombo1.ListField = rsunit!unname
rsunit.Close
可是在DataCombo1.ListField = rsunit!unname處一真出錯
不知錯那兒了~~請各位幫忙了~~
我在程式中加入這一段
Adodc1.ConnectionString = Path
DataCombo1.SetFocus
rsunit.Open "select * from unit", Path
Set DataCombo1.RowSource = rsunit
rsunit.MoveFirst
DataCombo1.BoundColumn = rsunit!unno
DataCombo1.DataField = rsunit!unno
DataCombo1.ListField = rsunit!unname
rsunit.Close
可是在DataCombo1.ListField = rsunit!unname處一真出錯
不知錯那兒了~~請各位幫忙了~~
有何 Crystal Report的中文網站或書(編號：5563)
請問有什麼Crystal Report的中文網站或書..!!我看大部份的書都是教VB6裡面的Data Report...可是它的功能好像不很強..謝謝
請問要如何將抓取的畫面轉成AVI(編號：5561)
我想製作類似 HyperSnap 的程式，每隔若干秒抓取螢幕畫面（存成 bmp 或 gif），並將這些畫面存成 AVI 檔案。
我已經可以抓取螢幕畫面了，可是要如何把這些 bmp/gif 轉成 AVI 檔案呢？還是我的作法根本是錯的，請各位多多幫忙。
我已經可以抓取螢幕畫面了，可是要如何把這些 bmp/gif 轉成 AVI 檔案呢？還是我的作法根本是錯的，請各位多多幫忙。
Monitoring(編號：5560)
請問高手們:
1.
我目前在寫一程式能於某段時間內將
user的操作流程及畫面紀錄下來, 以
供日後replay查證.
評估過用抓圖, 但太佔空間, 也沒有
效率. 試過更改processor指標, 但
只能得知自己的資訊.
也試過將hook寫在dll內的方式(因為
需要整個Windows的資訊), 但因為訊
息太多而使程式吃光系統的資源, 且
也無法得知訊息是來自那個program,
傳上來的都是自己的handle.
2.
像"PC AnyWhere"是用什麼方法能夠
那麼快的monitoring遠端PC?
3.
In my case, 適用Pc AnyWhere的方
方式嗎?
救救我吧! 謝謝,
Jiun.
1.
我目前在寫一程式能於某段時間內將
user的操作流程及畫面紀錄下來, 以
供日後replay查證.
評估過用抓圖, 但太佔空間, 也沒有
效率. 試過更改processor指標, 但
只能得知自己的資訊.
也試過將hook寫在dll內的方式(因為
需要整個Windows的資訊), 但因為訊
息太多而使程式吃光系統的資源, 且
也無法得知訊息是來自那個program,
傳上來的都是自己的handle.
2.
像"PC AnyWhere"是用什麼方法能夠
那麼快的monitoring遠端PC?
3.
In my case, 適用Pc AnyWhere的方
方式嗎?
救救我吧! 謝謝,
Jiun.
VB讀寫資料庫的效問題!(編號：5559)
HELLO, 各位先進:
小弟有一文字檔, 要將裡面的資料轉存到資料庫裡, 文字檔的格式如下:
1, ABC, AAA, BBB, CCC
2, DEF, DDD, EEE, FFF
3, GHI, GGG, HHH, III
....
目前做法是用讀檔方式一列一列將資料讀進來後, 用 Split 將其轉成陣列, 再用 update array() 的方式將資料存入MDB資料庫中, 但此方法速度滿慢的, 轉一萬筆資料約需一分鐘的時間, 但有同事用 BCB以相同的方法轉到DBF檔, 則一萬筆資料則只約需十數秒即可完成,請問,真的是VB效率較差, 還是有什麼地方沒寫對呢?謝謝!
小弟有一文字檔, 要將裡面的資料轉存到資料庫裡, 文字檔的格式如下:
1, ABC, AAA, BBB, CCC
2, DEF, DDD, EEE, FFF
3, GHI, GGG, HHH, III
....
目前做法是用讀檔方式一列一列將資料讀進來後, 用 Split 將其轉成陣列, 再用 update array() 的方式將資料存入MDB資料庫中, 但此方法速度滿慢的, 轉一萬筆資料約需一分鐘的時間, 但有同事用 BCB以相同的方法轉到DBF檔, 則一萬筆資料則只約需十數秒即可完成,請問,真的是VB效率較差, 還是有什麼地方沒寫對呢?謝謝!
使用WORD合併列印速度快,還是直接列印快?(編號：5557)
目前我的做法是要列印時
先從DB抓取符合列印條件之資料
才set word.application
然後就直接將DB回傳之recordset印出
最近聽說還可以透過合併列印
速度會比現在的做法快
想問問看有使用過合併列印的高手
是真的嗎?
先從DB抓取符合列印條件之資料
才set word.application
然後就直接將DB回傳之recordset印出
最近聽說還可以透過合併列印
速度會比現在的做法快
想問問看有使用過合併列印的高手
是真的嗎?
高手們,給個意見吧!(關於Field的預設值)(編號：5556)
已散出數個MDB檔,但是其中的TABLE的Field屬性OriginalValue,並沒有指定預設值,如果用程式來指定OriginalValue的值,是必須重建立該Field或是有直接指定值的方式,到底哪一個比較好呢?
如果Field沒有預設值,當新增一筆資料時,會變成Null,時常造成程式錯誤,粉傷腦筋...
如果Field沒有預設值,當新增一筆資料時,會變成Null,時常造成程式錯誤,粉傷腦筋...
如何將舊Excel格式(Office 95的Excel) ....(編號：5555)
請問各位；
可以不動聲色地(背景工作)用Microsoft Excel(Office 97)開啟ABC.XLS(是Office 95格式)；再不動聲色地將ABC.XLS儲存成Office 97的格式嗎!用VB6+sp4；
可以的話，請賜教；
謝謝！
可以不動聲色地(背景工作)用Microsoft Excel(Office 97)開啟ABC.XLS(是Office 95格式)；再不動聲色地將ABC.XLS儲存成Office 97的格式嗎!用VB6+sp4；
可以的話，請賜教；
謝謝！
一直想不透!!(編號：5553)
請問一下，我有一個程式，經過正常的封裝程序和install程序，但是在
沒有安裝vb的機器上，有時可以RUN，有時無法RUN，而ERR.NUMBER=5
訊息是INVALID PROCEDRUL CALL。(之前還沒有加兩個表單上去的時侯，一點問題都沒有）。但是我又多加了一個表單（共三個）之後，又
沒有問題了？請問一下這可能是什麼問題，謝謝！！
沒有安裝vb的機器上，有時可以RUN，有時無法RUN，而ERR.NUMBER=5
訊息是INVALID PROCEDRUL CALL。(之前還沒有加兩個表單上去的時侯，一點問題都沒有）。但是我又多加了一個表單（共三個）之後，又
沒有問題了？請問一下這可能是什麼問題，謝謝！！
關於Excel 2000和VB(編號：5552)
小弟我用VB去開啟一個xls的檔案，當我要存檔到另一個地方時，若已經有同名的檔案存在了，會秀出一個問我要不要覆蓋的dialog box，請問我有辦法在程式中就選擇好要覆蓋嗎？就是不要電腦跑出這個訊息，預設是要覆蓋，請問我該怎麼作呢？
DBF 檔和索引的問題(編號：5549)
請教各位,我用之DAO之方式開啟一個DBF檔,新增資料後發覺其所包含之INDEX檔之資料(有多個索引)並沒有同步新增,每次都要到DOS底下再度執行索引重整(原本舊程式有提供重整功能),且因資料和所引之數量很多,每次重整都要花費近15分鐘,請教各位應該如何做才能使該DBF檔和索引檔(MDX)在新增後能同步更新.
拖曳視窗的虛線外框…(編號：5548)
若在桌面的「內容-效果-拖曳時顯示視窗內容」不勾的話，拖曳視窗就會出現一個虛線外框，請問這個外框是用那個api畫的呢？另外，上述這個設定值是真或假，又可以用那一個api取得呢？我找過 SystemParametersInfo，不過裡面好像沒有。
Maxlength 問題(編號：5547)
我的textbox 設了maxlength, 但沒次edit data 的時候﹐
都要先 delete textbox 裡的內容﹐才可以打新的資料。
有沒有辦法不用這樣做 ﹖
謝謝 !
都要先 delete textbox 裡的內容﹐才可以打新的資料。
有沒有辦法不用這樣做 ﹖
謝謝 !
ToolBar 的 Customize 與自動消失？(編號：5545)
沒人在用 ToolBar 的 Customize 方法嗎？除了先前提的 SaveToolBar 與 RestoreToolBar 方法不行之外，另外還有一個問題，就是自訂工具列裡「可選字的按鈕」中有一個「分隔效果」，是一定會留著的，而我自己加入的 tbrSeprator 在右方工具列按鈕，若是移到左方，則不會與原來的「分隔效果」合併為一，而且我自己的多個 tbrSeprator 也不會合併，總之左方不用的按鈕中就會出現一堆重覆的「分隔效果」。我已將 tbrSeprator 的「描述」改成一模一樣的「分隔效果」了，但還是不會合併。請問，有何良方呢？
另外，原本應該不會的，但是現在不知道怎麼搞的，好像一旦有 ToolBar_Changed 的事件，如 Form_Resize 或狀態列顯示/關閉的狀況，工具列中所有的「分隔效果」就會消失，也就是按鈕間都不會有分隔了。先前的狀況是只剩下第一個按鈕，其他的消失。自訂工具列中也看不到那些消失的按鈕，除非「重設」或重新啟動程式，否則消失的按鈕就消失了…
看來 ToolBar 的問題好像還不少？怎麼好像沒有人在使用？
另外，原本應該不會的，但是現在不知道怎麼搞的，好像一旦有 ToolBar_Changed 的事件，如 Form_Resize 或狀態列顯示/關閉的狀況，工具列中所有的「分隔效果」就會消失，也就是按鈕間都不會有分隔了。先前的狀況是只剩下第一個按鈕，其他的消失。自訂工具列中也看不到那些消失的按鈕，除非「重設」或重新啟動程式，否則消失的按鈕就消失了…
看來 ToolBar 的問題好像還不少？怎麼好像沒有人在使用？
請教大家一個問題？(編號：5544)
要如何安裝才能使用Microsoft Grid Control？為何我安裝完VB6.0企業版之後卻沒有這項元件可使用呢？它是屬於Microsoft其他工具之一嗎？
謝謝指導
謝謝指導
一個簡單的問題(編號：5543)
請問各位前輩:
我是個vb的初學者目前在撰寫有關於toolbar時出現了問題
請問toolbar裡面的控制項要怎麼寫或是有現成的範例可供參考
或是有相關網站可供下載!!
如果有任何解決的方法
麻煩請告知!!
謝謝您的幫忙!!!!
謝謝!!
我是個vb的初學者目前在撰寫有關於toolbar時出現了問題
請問toolbar裡面的控制項要怎麼寫或是有現成的範例可供參考
或是有相關網站可供下載!!
如果有任何解決的方法
麻煩請告知!!
謝謝您的幫忙!!!!
謝謝!!
一個與VB無關的建議,不好意思(編號：5542)
我建議各位網友,千萬不要用
Windows2000上網,只要不上網其他隨便你搞.無所謂.
因為我身邊有許多朋友都適用盜版的結果其中有一個居然被微軟查到說是因為他上網而被追蹤到所以請各位小心使用,但我還是建議各位盜版的用用就好,還是去買正版的比較好至少有售後的服務ㄚ.....就
補充一點 Windows Me 也請小心使用
同時請支持正版軟體
這樣掰掰
Windows2000上網,只要不上網其他隨便你搞.無所謂.
因為我身邊有許多朋友都適用盜版的結果其中有一個居然被微軟查到說是因為他上網而被追蹤到所以請各位小心使用,但我還是建議各位盜版的用用就好,還是去買正版的比較好至少有售後的服務ㄚ.....就
補充一點 Windows Me 也請小心使用
同時請支持正版軟體
這樣掰掰
防止攔截 WndProc 後當掉的作法(編號：5540)
剛發現的，應該還有人不知道吧，所以上來分享一下。
在使用攔截 WndProc 的方法後，一般是在 Form_Unload 事件中把所攔截的視窗程序還原，但這樣的問題在於設計階段時，程式執行中若是按下「■」強迫停止，則不會發生 Form_Unload，造成 VB 當掉，非常不便。
而避免這個問題的方法，就是在 WndProc 中檢查 uMsg (message identifier) 的值，若是 WM_DESTROY 則將攔截的視窗程序還原。用此法就不必在 Form_Unload 中還原了。
以後，就可以放心的「強迫停止」了。
在使用攔截 WndProc 的方法後，一般是在 Form_Unload 事件中把所攔截的視窗程序還原，但這樣的問題在於設計階段時，程式執行中若是按下「■」強迫停止，則不會發生 Form_Unload，造成 VB 當掉，非常不便。
而避免這個問題的方法，就是在 WndProc 中檢查 uMsg (message identifier) 的值，若是 WM_DESTROY 則將攔截的視窗程序還原。用此法就不必在 Form_Unload 中還原了。
以後，就可以放心的「強迫停止」了。
關於ADODB.RecordSet !(編號：5539)
可能對各位來說太簡單,但我真的不知道,我是用慣VB5的;
請問各位VB6內用ADODB開啟出來的RecordSet如何Edit及Update;
語法如何;請明示
請問各位VB6內用ADODB開啟出來的RecordSet如何Edit及Update;
語法如何;請明示
如何解決Data Environment內含子指令無法以程式指定DataSource路(編號：5537)
書上寫到Data Environment內含子指令的話無法以程式指定Data Source的路徑...請問這要如何解決ㄚ..Access2000資料庫..謝謝
怪現象 , End 失效(編號：5534)
我們常用以下程式來判斷避免重覆
Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "已載入"
End
End If
End Sub
!
請你試一下以下作法
請在Form中放一個 Toorbar (windows common control 6.0 (sp3))
並將以上程式片斷放進去.
編成執行檔試試看
你會發覺End會失效
這該怎麼辨
Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "已載入"
End
End If
End Sub
!
請你試一下以下作法
請在Form中放一個 Toorbar (windows common control 6.0 (sp3))
並將以上程式片斷放進去.
編成執行檔試試看
你會發覺End會失效
這該怎麼辨
請教關於VB Word 2000的問題(編號：5533)
小弟我用VB的word 9.0 library在開啟word.application物件時發生一個error(The message filter indicated that the application is busy)的錯誤，小弟有在討論區中找到跟我相同的錯誤，說是Norton antivirus的問題，小弟試了一下，確實在沒有norton antivirus的電腦上是可以正常的執行，可是有沒有辦法讓他可以在有nortor antivirus的電腦上也可以正常的執行呢？謝謝各位
請問Data Environment更改ConnectionString時注意事項?(編號：5532)
請問各位....我將Data Environment中的一個Connection物件的
ConnectionSource清空,然再由程式中的Form_Initialize事件中設定如下,envMain為DataEnvironment,conMain為一Connection
envMain.conMain.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & App.Path & "\DataBase.mdb"
請問這樣有錯嗎.!?...為何我改成這樣以後..有某些rsConnamd會有問題呢...!?在原本不是由程式中設定ConnectionString時一切皆正常..!!謝謝
ConnectionSource清空,然再由程式中的Form_Initialize事件中設定如下,envMain為DataEnvironment,conMain為一Connection
envMain.conMain.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & App.Path & "\DataBase.mdb"
請問這樣有錯嗎.!?...為何我改成這樣以後..有某些rsConnamd會有問題呢...!?在原本不是由程式中設定ConnectionString時一切皆正常..!!謝謝
如何快速搜尋陣列值?(編號：5529)
如何快速搜尋陣列值?
如dim a(0 to 100000) as integer
如何快速搜尋及傳回這個陣列值=3的位置,然後再重這位置往後搜尋
類似文字搜尋的instr(s,0,1)函數
如dim a(0 to 100000) as integer
如何快速搜尋及傳回這個陣列值=3的位置,然後再重這位置往後搜尋
類似文字搜尋的instr(s,0,1)函數
HD序號(編號：5528)
請教大家:我想在一台電腦上抓唯一值,之前用GetVolumeInformation抓HD序號,結果利用GHOST對拷之機器,其序號也相同,應該抓哪個,才不會重覆,謝謝大家.
SQL的疑問~(編號：5519)
SQL = " Select 產品, Sum(銷售金額) As 銷售總金額 From 銷售
記錄 Where 季別 ='第四季' Group By 產品 Order By 產品 "
^^^^^^^^
為何這裡要加 '...' 呢?
記錄 Where 季別 ='第四季' Group By 產品 Order By 產品 "
^^^^^^^^
為何這裡要加 '...' 呢?
如何使VB列印同Dos一樣輸入一行列印一行在點陣距列表機(編號：5518)
找了好久都找不到解決方式,如何開放列表機以及不利用windows的列印控制而直接列印出來就好像Dos時代一樣,上次有看過一篇,但好像巳刪掉誰知道,指點一下
關於開啟Excel File Error !(編號：5517)
我是用 VB6+SP4 (Professional Edition)
我參考了王國榮的VB6資料庫設計並執行其例子是正常的；
但當開啟了舊版Excel File的時候，問題如下：
Run Time Error :-2147467259(80004005);
[Microsoft][ODBF Excel Driver] External Table is not in the expected format.
相信是Excel File格式是舊的，所以．．．
請各位幫幫忙吧!
我參考了王國榮的VB6資料庫設計並執行其例子是正常的；
但當開啟了舊版Excel File的時候，問題如下：
Run Time Error :-2147467259(80004005);
[Microsoft][ODBF Excel Driver] External Table is not in the expected format.
相信是Excel File格式是舊的，所以．．．
請各位幫幫忙吧!
請問,指定Field的OriginalValue(預設)值,是必須重建立Field或是(編號：5516)
已散出數個MDB檔,但是其中的TABLE的Field屬性OriginalValue,並沒有指定預設值,如果用程式來指定OriginalValue的值,是必須重建立該Field或是有直接指定的方式?
form.show 1 則母視窗不行最小化，但 MDIForm 物件?無法強制回應(編號：5515)
各位 VB 先進，請教一下，
VB 內 MDIForm 物件無法是強制回應的，
而若用 frmObject.show 1 叫出子視窗，
若想把程式最小化，只能把子視窗最小化，母視窗不行
但是若用 MDIForm, 子視窗又不行強制回應，
只能用 from.show 0
這樣子的話，程式不等子視窗跑完，就又執行下去了
像我程式中有呼叫子程式(子視窗)來更新資料
等子程式跑完，母程式才來做處理
不能用 form.show 0 (不然子視窗沒回應程式又跑完了)
用 form.show 1 ，母視窗不能最小化 (focus 在子視窗了)，
怎麼辦?????????
VB 內 MDIForm 物件無法是強制回應的，
而若用 frmObject.show 1 叫出子視窗，
若想把程式最小化，只能把子視窗最小化，母視窗不行
但是若用 MDIForm, 子視窗又不行強制回應，
只能用 from.show 0
這樣子的話，程式不等子視窗跑完，就又執行下去了
像我程式中有呼叫子程式(子視窗)來更新資料
等子程式跑完，母程式才來做處理
不能用 form.show 0 (不然子視窗沒回應程式又跑完了)
用 form.show 1 ，母視窗不能最小化 (focus 在子視窗了)，
怎麼辦?????????
Error 429 ACTIVE X 無法產生新物件(編號：5514)
我引用winsock.ocx寫了個Class給應用程式使用,在VB5發展環境下
complie後使用上皆很正常, 但利用VB5之應用程式產生精靈做出之setup程式拿到無vb環境之pc安裝後, 執行時確產生429之錯誤訊息?
請問要如何解決?謝謝!
complie後使用上皆很正常, 但利用VB5之應用程式產生精靈做出之setup程式拿到無vb環境之pc安裝後, 執行時確產生429之錯誤訊息?
請問要如何解決?謝謝!
請問,Crystal Report可以使用變數嗎?(編號：5513)
請問,Crystal Report可以在Report的版面上置放一變數,然後在VB用程式指定該變數值嗎?
例如,在Report的版面上置放一變數為Str1,然後在VB程式內Str1="營業日報表"(請不要用屬性ReportTitle,因為此屬性已有他用)
例如,在Report的版面上置放一變數為Str1,然後在VB程式內Str1="營業日報表"(請不要用屬性ReportTitle,因為此屬性已有他用)
如何使Test1.text輸入時不為數字為*謝謝(編號：5510)
1.如何使Test1.text輸入時不為數字為*謝謝
2.如何使用VB 內建的萬年曆的功能(拉下式)
3.為何使用資料庫存取資料時,按下新增輸入資料完畢後按下儲存卻
沒有回應,等我重新開啟程式時那當掉其所輸入的資料卻已存入資料庫中.
謝謝
2.如何使用VB 內建的萬年曆的功能(拉下式)
3.為何使用資料庫存取資料時,按下新增輸入資料完畢後按下儲存卻
沒有回應,等我重新開啟程式時那當掉其所輸入的資料卻已存入資料庫中.
謝謝
如何設定優先等級？(編號：5509)
我看王國榮API那本書裡有講，不過發現、執行後根本沒動作
傳回來都是0[失敗之意]，到底要如何做到呢？ 幫幫忙吧～
PS.我用Windows 98、2000去run都一樣.....
傳回來都是0[失敗之意]，到底要如何做到呢？ 幫幫忙吧～
PS.我用Windows 98、2000去run都一樣.....
VBA for excel中如何讓cells.find()找到最後一筆資料後不再回頭(編號：5506)
程式如下
Sub()
..............
do
Cells.find(.."XXXX"...).activate
.......................
loop while ??????
End Sub
結果每次找到最後一筆"XXXX"後,又再回頭重新搜尋,形成無窮迴圈.
請問while之條件式應設為何?或有其他更好的方法?
Thanks!
Sub()
..............
do
Cells.find(.."XXXX"...).activate
.......................
loop while ??????
End Sub
結果每次找到最後一筆"XXXX"後,又再回頭重新搜尋,形成無窮迴圈.
請問while之條件式應設為何?或有其他更好的方法?
Thanks!
那兒有PWS(編號：5505)
各位先進大家好!!
小弟有一問題請教，近來小弟想學ASP，但手上卻無WIN98光碟
可讓小弟安裝PWS，請問各位先進是否知道那兒PWS供人下載呢??
望各位先進不吝指教!謝謝!@!
小弟有一問題請教，近來小弟想學ASP，但手上卻無WIN98光碟
可讓小弟安裝PWS，請問各位先進是否知道那兒PWS供人下載呢??
望各位先進不吝指教!謝謝!@!
Activex 控制項不能用winsock？(編號：5500)
Activex 控制項不能用winsock？
本來想寫一個掛在網頁上的聊天室，可是Activex 控制項不能用winsock。我在vb5的書上有看到一個chatterbox可以用，但是ｖｂ６裡面找不到ㄟ。有人可以告訴我要用啥代替嗎？或是寄給我chatter？謝謝！
本來想寫一個掛在網頁上的聊天室，可是Activex 控制項不能用winsock。我在vb5的書上有看到一個chatterbox可以用，但是ｖｂ６裡面找不到ㄟ。有人可以告訴我要用啥代替嗎？或是寄給我chatter？謝謝！
存成單色點陣圖檔(編號：5499)
'因某需求，需要將圖形存成單色圖已減少硬碟空間的浪費
'相信也有人會有這樣的需求，所以就公開了，
'(腦筋動得快的應該可以猜到是「列印預覽」)
Option Explicit
Private Type BitMapFileHeader '14 bytes
bfType As Integer
bfSize As Long
bfReserved1 As Integer
bfReserved2 As Integer
bfOffBits As Long
End Type
Private Type BitMapInfoHheder '40 bytes
biSize As Long
biWidth As Long
biHeight As Long
biPlanes As Integer
biBitCount As Integer
biCompression As Long
biSizeImage As Long
biXPelsPerMeter As Long
biYPelsPerMeter As Long
biClrUsed As Long
biClrImportant As Long
End Type
Private Type RGBQuad
rgbBlue As Byte
rgbGreen As Byte
rgbRed As Byte
rgbReserved As Byte
End Type
Private Type BitMapInfo_1
bmiHeader As BitMapInfoHeader
bmiColors(1) As RGBQuad
End Type
Private Const PIXEL As Integer = 3
Private Const DIB_RGB_COLORS As Long = 0
Private Const PALVERSION = &H300
Private Declare Function GetDIBits1 Lib "gdi32" Alias "GetDIBits" _
(ByVal aHDC As Long, _
ByVal hBitmap As Long, _
ByVal nStartScan As Long, _
ByVal nNumScans As Long, _
lpBits As Any, _
lpBI As BITMAPINFO_1, _
ByVal wUsage As Long) As Long
Public Sub SaveMonoBMP(pic As PictureBox, FileName As String)
Dim SaveBitmapInfo_1 As BITMAPINFO_1
Dim SaveFileHeader As BITMAPFILEHEADER
Dim SaveBits() As Byte
Dim BufferSize As Long
Dim fNum As Long
Dim RetVal As Long
Dim nLen As Long
Dim ScaleMode As Integer
Const BitsPixel = 1
ScaleMode = pic.ScaleMode
pic.ScaleMode = 3 '切換到畫素以計算所需空間
BufferSize = ((pic.ScaleWidth / 8 + 3) And &HFFFC) * pic.ScaleHeight
ReDim SaveBits(BufferSize - 1)
With SaveBitmapInfo_1.bmiHeader
.biSize = 40
.biWidth = pic.ScaleWidth
.biHeight = pic.ScaleHeight
.biPlanes = 1
.biBitCount = BitsPixel
.biCompression = 0
.biClrUsed = 0
.biClrImportant = 0
.biSizeImage = BufferSize
End With
nLen = Len(SaveBitmapInfo_1)
RetVal = GetDIBits1(pic.hDC, _
pic.Image, _
0, _
SaveBitmapInfo_1.bmiHeader.biHeight, _
SaveBits(0), _
SaveBitmapInfo_1, _
DIB_RGB_COLORS)
With SaveFileHeader
.bfType = &H4D42
.bfSize = Len(SaveFileHeader) + nLen + BufferSize
.bfOffBits = Len(SaveFileHeader) + nLen
End With
fNum = FreeFile
Open FileName For Binary As fNum
Put fNum, , SaveFileHeader
Put fNum, , SaveBitmapInfo_1
Put fNum, , SaveBits()
Close fNum
pic.ScaleMode = ScaleMode
End Sub
'相信也有人會有這樣的需求，所以就公開了，
'(腦筋動得快的應該可以猜到是「列印預覽」)
Option Explicit
Private Type BitMapFileHeader '14 bytes
bfType As Integer
bfSize As Long
bfReserved1 As Integer
bfReserved2 As Integer
bfOffBits As Long
End Type
Private Type BitMapInfoHheder '40 bytes
biSize As Long
biWidth As Long
biHeight As Long
biPlanes As Integer
biBitCount As Integer
biCompression As Long
biSizeImage As Long
biXPelsPerMeter As Long
biYPelsPerMeter As Long
biClrUsed As Long
biClrImportant As Long
End Type
Private Type RGBQuad
rgbBlue As Byte
rgbGreen As Byte
rgbRed As Byte
rgbReserved As Byte
End Type
Private Type BitMapInfo_1
bmiHeader As BitMapInfoHeader
bmiColors(1) As RGBQuad
End Type
Private Const PIXEL As Integer = 3
Private Const DIB_RGB_COLORS As Long = 0
Private Const PALVERSION = &H300
Private Declare Function GetDIBits1 Lib "gdi32" Alias "GetDIBits" _
(ByVal aHDC As Long, _
ByVal hBitmap As Long, _
ByVal nStartScan As Long, _
ByVal nNumScans As Long, _
lpBits As Any, _
lpBI As BITMAPINFO_1, _
ByVal wUsage As Long) As Long
Public Sub SaveMonoBMP(pic As PictureBox, FileName As String)
Dim SaveBitmapInfo_1 As BITMAPINFO_1
Dim SaveFileHeader As BITMAPFILEHEADER
Dim SaveBits() As Byte
Dim BufferSize As Long
Dim fNum As Long
Dim RetVal As Long
Dim nLen As Long
Dim ScaleMode As Integer
Const BitsPixel = 1
ScaleMode = pic.ScaleMode
pic.ScaleMode = 3 '切換到畫素以計算所需空間
BufferSize = ((pic.ScaleWidth / 8 + 3) And &HFFFC) * pic.ScaleHeight
ReDim SaveBits(BufferSize - 1)
With SaveBitmapInfo_1.bmiHeader
.biSize = 40
.biWidth = pic.ScaleWidth
.biHeight = pic.ScaleHeight
.biPlanes = 1
.biBitCount = BitsPixel
.biCompression = 0
.biClrUsed = 0
.biClrImportant = 0
.biSizeImage = BufferSize
End With
nLen = Len(SaveBitmapInfo_1)
RetVal = GetDIBits1(pic.hDC, _
pic.Image, _
0, _
SaveBitmapInfo_1.bmiHeader.biHeight, _
SaveBits(0), _
SaveBitmapInfo_1, _
DIB_RGB_COLORS)
With SaveFileHeader
.bfType = &H4D42
.bfSize = Len(SaveFileHeader) + nLen + BufferSize
.bfOffBits = Len(SaveFileHeader) + nLen
End With
fNum = FreeFile
Open FileName For Binary As fNum
Put fNum, , SaveFileHeader
Put fNum, , SaveBitmapInfo_1
Put fNum, , SaveBits()
Close fNum
pic.ScaleMode = ScaleMode
End Sub
null 的問題 +_+ , 請高手指教 ...(編號：5498)
我有個table 有很多date fields, 所以有很多像下面的code. 有沒有簡單的方法 ?
If IsNull(rs1!createdate) Then
DTPicker1.Value = #1/1/1900#
Else
DTPicker1.Value = rs1!createdate
End If
If IsNull(rs1!createdate) Then
DTPicker1.Value = #1/1/1900#
Else
DTPicker1.Value = rs1!createdate
End If
請問一下 clipboard 的問題,請高手幫忙!!!(編號：5497)
翻了許多書局的書,都是介紹 clipboard 使用在文字及圖片
上的方法, 但如果我要像檔案總管一樣,將檔案複制到剪貼
簿應該怎做的????
請那位高手能指點一下?? 非常感謝...
上的方法, 但如果我要像檔案總管一樣,將檔案複制到剪貼
簿應該怎做的????
請那位高手能指點一下?? 非常感謝...
關於DirectSS物件,求求各位高手幫幫小妹我!!(編號：5496)
各位vb的高手們:請問DirectSS這個物件一旦開始執行念英文時,如果要設置個命令鈕,而這個命令鈕的功能是當使用者按下後,讓正在發聲的Direct這個物件停止繼續念字串,那請問讓DirectSS停止的這個命令鈕的程式要怎麼寫ㄚ?我用DirectSS.speaking=0,這樣子的指令不能用ㄝ,按下後還是沒有用,DirectSS還是繼續念,希望高手們可以把程式跟我說,求求你們了,謝謝.
一個是否成立條件的問題,謝謝(編號：5495)
請問如果我有個條件是
a ＜＞ "0"
B=50
而
When B=1 then Q1=1 ＜＜== QB=253 就是把 B的值帶入
When B=2 then Q2=2 ＜＜== QB=58
Ehen B= 3~50 Q 3~50 ＜＜== QB = ??
那我如何知道 B=x , Qx ＜ ＞ 0
謝謝
a ＜＞ "0"
B=50
而
When B=1 then Q1=1 ＜＜== QB=253 就是把 B的值帶入
When B=2 then Q2=2 ＜＜== QB=58
Ehen B= 3~50 Q 3~50 ＜＜== QB = ??
那我如何知道 B=x , Qx ＜ ＞ 0
謝謝
怎樣安裝msdn(是要另外再找有msdn的光碟片嗎)(編號：5490)
我在打入一些指令後有時會出現錯誤的視窗,它有二個指令一個是確定另一個是說明當我按下說明,會有錯誤沒有安裝msdn的字眼,請問怎麼辨???? 謝謝
如何複製一個table？？(編號：5488)
要如何在vb中寫code來複製一個原有的table？？
因為我用select * into NewTable from OldTable
會出現cannot define field more than once
(在OldTable有欄位：學年度、學期別、....，會不會是有兩個相同
長度的field name，就會出現這種問題呢？)
而用create table NewTable(學年度 char(6),學期別 char(6))
會出現'學期別'already exists in table NewTable
(會不會是有兩個相同長度的field name，就會出現這種問題呢？
因為只要換成兩個不同長度的field name，就不會有問題產生！)
因為我用select * into NewTable from OldTable
會出現cannot define field more than once
(在OldTable有欄位：學年度、學期別、....，會不會是有兩個相同
長度的field name，就會出現這種問題呢？)
而用create table NewTable(學年度 char(6),學期別 char(6))
會出現'學期別'already exists in table NewTable
(會不會是有兩個相同長度的field name，就會出現這種問題呢？
因為只要換成兩個不同長度的field name，就不會有問題產生！)
請問這個錯誤訊息是什麼....(編號：5487)
ADODB.Recordset 錯誤 '800a0e7d'
The application requested an operation on an object with a reference to a closed or invalid Connection object.
/abc/abc.asp, 列30
列30行是下段的程式碼,有什麼錯嗎?
rj.open"select * from Book_data where Book_id ='" &_
request("txtbk_id") & ""',cnndb
請各位高手們...幫幫我吧..
The application requested an operation on an object with a reference to a closed or invalid Connection object.
/abc/abc.asp, 列30
列30行是下段的程式碼,有什麼錯嗎?
rj.open"select * from Book_data where Book_id ='" &_
request("txtbk_id") & ""',cnndb
請各位高手們...幫幫我吧..
如何按按鈕..(編號：5486)
我要如何將一個執行中的程式的一個按鈕用VB的程式將他Click呢??
不是 Sendkeys 唷..
在已知該程式 Hwnd 的情形下...
例如 : 現在 "小算盤" 正在執行中...
我要如何用我寫的程式在小算盤Click + 這個按紐呢??
拜託!!~謝謝!!~
不是 Sendkeys 唷..
在已知該程式 Hwnd 的情形下...
例如 : 現在 "小算盤" 正在執行中...
我要如何用我寫的程式在小算盤Click + 這個按紐呢??
拜託!!~謝謝!!~
如何調整DataReport和Printer的Size?(編號：5484)
現要在一報表中置入多的欄位,我想用A3的尺寸去列印,可是不知該如何去做調整和設定紙張寬度,因現我的問題就是一直出現"報表寬度大於紙張寬度"...請問我該如何去解決呢?
檔案格式問題(編號：5483)
我在存檔時
Open "F890811" For Output As #File_num
Print #File_num, temp
Close #File_num
temp是一串資料例：
"89081112453265478965236589"+vbcr
存成檔案後用ultraedit去看檔案,顯示為MAC格式而不是DOS格式
這是為何？
Open "F890811" For Output As #File_num
Print #File_num, temp
Close #File_num
temp是一串資料例：
"89081112453265478965236589"+vbcr
存成檔案後用ultraedit去看檔案,顯示為MAC格式而不是DOS格式
這是為何？
ASP高手請看(編號：5482)
請問各位 若我有一個Access資料庫欄位如下
ID Detail
--- ------
1 AAAAA
2 BBBBB
3 CCCCC
4 DDDDD
5 EEEEE
若我想要從中隨機亂數取出一筆資料該怎麼做?
或是SQL 指令該怎麼寫?
P.S 1.[ID]欄位為主索引型態為自動編號
2.[ID]欄位不一定是流水號 中間可能有跳號
ID Detail
--- ------
1 AAAAA
2 BBBBB
3 CCCCC
4 DDDDD
5 EEEEE
若我想要從中隨機亂數取出一筆資料該怎麼做?
或是SQL 指令該怎麼寫?
P.S 1.[ID]欄位為主索引型態為自動編號
2.[ID]欄位不一定是流水號 中間可能有跳號
如何拷貝陣列某部分(編號：5481)
dim arrayA(0-9) AS byte
dim arrayB() AS byte
dim arrayC(0-5) AS byte
如何用CopyMemory拷貝arrayA(5),arrayA(6),arrayA(7)到arrayB(0-2),也就是拷貝到新的陣列
如何用CopyMemory拷貝arrayA(5),arrayA(6),arrayA(7)覆蓋到arrayC(2-4),也就是拷貝後覆蓋另一陣列某一區段
如何用CopyMemory拷貝arrayA(5),arrayA(6),arrayA(7) Redim Preserve arrayC(6-8),也就是拷貝後,接在arrayC後面,前面保留原值
另外還有拷貝後插入另一陣列中間,不過如果上述三個會了就應該可以應用了
因為不想用loop方式,陣列可能很大
dim arrayB() AS byte
dim arrayC(0-5) AS byte
如何用CopyMemory拷貝arrayA(5),arrayA(6),arrayA(7)到arrayB(0-2),也就是拷貝到新的陣列
如何用CopyMemory拷貝arrayA(5),arrayA(6),arrayA(7)覆蓋到arrayC(2-4),也就是拷貝後覆蓋另一陣列某一區段
如何用CopyMemory拷貝arrayA(5),arrayA(6),arrayA(7) Redim Preserve arrayC(6-8),也就是拷貝後,接在arrayC後面,前面保留原值
另外還有拷貝後插入另一陣列中間,不過如果上述三個會了就應該可以應用了
因為不想用loop方式,陣列可能很大
如何可用程式設定桌面為jpg格式的圖檔?(編號：5479)
在win98中可設定bmp,htm,jpg....的桌面,我用SystemParametersInfo(20,0,"圖名",&H2+&H1)試了bmp,會成功,但jpg就不行,請問有其他方法嗎?
OLE DB 很不穩定 !??(編號：5475)
小弟公司用IIS 連結Linux 上的Oracle8i. 原本是用ODBC, 但因為要用Oracle 上的clob date type, 所以再裝上
OLEDB. 但之後問題便多多, 經常無源故地 "Unexpected Error " . 此外, IIS 又會有時 不解柝 ASP file.
使ASP file display 不到, 經常要reboot NT 才能搞好. 自裝了OLEDB 後便要每天reboot NT, 很惡搞!!!
OLEDB. 但之後問題便多多, 經常無源故地 "Unexpected Error " . 此外, IIS 又會有時 不解柝 ASP file.
使ASP file display 不到, 經常要reboot NT 才能搞好. 自裝了OLEDB 後便要每天reboot NT, 很惡搞!!!
修改資料庫的方法?(編號：5474)
請問, 在VB程式裡, 我以 Select * From 資料表 找到了10筆資料,若我現在的資料錄指標在第3筆, 能以 Update 的方式且不加 Where 條件而直接針對這筆資料做修改嗎? 謝謝!!
vb call Excel 圖表(編號：5473)
各位前輩
我研究了MSChart control發覺要做到像Excel的圖表那麼漂亮很麻煩
我想vb可叫出Excel圖表吧 想問一下
1.你們都是怎麼做的阿
2.show圖表時還是要讓application.visible=true嗎?
(我想說有辦法作到讓圖直接show在vb的form上嗎?)
我研究了MSChart control發覺要做到像Excel的圖表那麼漂亮很麻煩
我想vb可叫出Excel圖表吧 想問一下
1.你們都是怎麼做的阿
2.show圖表時還是要讓application.visible=true嗎?
(我想說有辦法作到讓圖直接show在vb的form上嗎?)
能像Access一樣嗎?(編號：5471)
在Access中, 只要將滑鼠移到欄位與欄位之間(滑鼠游標改變)
按兩下該行所有欄位會變成最合適的欄位大小
那麼在DataGrid(或其它元件)中能做到這樣嗎?
如果可以該如何做呢?
按兩下該行所有欄位會變成最合適的欄位大小
那麼在DataGrid(或其它元件)中能做到這樣嗎?
如果可以該如何做呢?
關於DirectSS物件,真的沒人知道嗎?(編號：5468)
各位vb的高手們:請問DirectSS這個物件一旦開始執行念英文時,如果要設置個命令鈕,而這個命令鈕的功能是當使用者按下後,讓正在發聲的Direct這個物件停止繼續念字串,那請問讓DirectSS停止的這個命令鈕的程式要怎麼寫ㄚ?我用DirectSS.speaking=0,這樣子的指令不能用ㄝ,按下後還是沒有用,DirectSS還是繼續念,希望高手們可以把程式跟我說,求求你們了,謝謝.
雖然是和vb無關的問題..!!(編號：5464)
誰能幫我找flash4的破解和中文化檔案... 我找得要死... 都找不到... 幫個忙吧~~~還有試用版也要告訴我在那裡(急需)
..!!
謝謝大家...
..!!
謝謝大家...
Button上放圖?(編號：5463)
請問如何在動態上的button放圖呢??以下是我的程式:
For i = 1 To 4
Load Command1(i)
With Command1(i)
.Top = Command1(i - 1).Top + Command1(i - 1).Height
.Style = 1
.Visible = True
End With
Next i
但會出現錯誤訊息,說style為唯讀屬性,不能指定..
這樣動態產生的button就不可放圖了..請問該怎麼辦呢??
For i = 1 To 4
Load Command1(i)
With Command1(i)
.Top = Command1(i - 1).Top + Command1(i - 1).Height
.Style = 1
.Visible = True
End With
Next i
但會出現錯誤訊息,說style為唯讀屬性,不能指定..
這樣動態產生的button就不可放圖了..請問該怎麼辦呢??
關於select物件的問題(編號：5462)
＜select name=txtcust_rkind＞
＜option value="月結"＞月結＜/option＞
＜option value="現繳"＞現繳＜/option＞
＜script language=vbscript＞
if form1.txtcust_rkind.value="＜%=rstobj("Cust_rkind")%＞" then
form1.txtcust_rkind.SelectedIndex=0
end if
＜/script＞
＜/select＞
一個下拉式的選單...我從資料庫中抓取資料..我希望如果資料庫裡的資料是月結..下拉式的選單應顯示月結(然後拉下來後是月繳),如果資料庫裡的資料是月繳,下拉式的選單應顯示月繳(然後拉下來後是月結),請問如何解決這個問題呢...
＜option value="月結"＞月結＜/option＞
＜option value="現繳"＞現繳＜/option＞
＜script language=vbscript＞
if form1.txtcust_rkind.value="＜%=rstobj("Cust_rkind")%＞" then
form1.txtcust_rkind.SelectedIndex=0
end if
＜/script＞
＜/select＞
一個下拉式的選單...我從資料庫中抓取資料..我希望如果資料庫裡的資料是月結..下拉式的選單應顯示月結(然後拉下來後是月繳),如果資料庫裡的資料是月繳,下拉式的選單應顯示月繳(然後拉下來後是月結),請問如何解決這個問題呢...
Spencer Yang 有問題請教你，有關DataReport。(編號：5461)
用ADODC使用DataRoport如何更新DataReport裡的資料？
Ps:事先已先瀏覽過vb入門網個個擊破裡"如何更新DataReport裡的資料？"
Ps:事先已先瀏覽過vb入門網個個擊破裡"如何更新DataReport裡的資料？"
自訂 ToolBar 的儲存與恢復(編號：5460)
我使用 ToolBar 的 Customize 方法，SaveToolar 有存入登錄中，但是 RestoreToolbar 都不會恢復，有什麼該注意的地方？
ToolBar.RestoreToolbar "Software\VB and VBA Program Settings\" & App.Title, "Settings", "ToolBar"
ToolBar.SaveToolbar "Software\VB and VBA Program Settings\" & App.Title, "Settings", "ToolBar"
ToolBar.RestoreToolbar "Software\VB and VBA Program Settings\" & App.Title, "Settings", "ToolBar"
ToolBar.SaveToolbar "Software\VB and VBA Program Settings\" & App.Title, "Settings", "ToolBar"
如何複製一個table？？(編號：5459)
要如何在vb中寫code來複製一個原有的table？？
因為我用select * into NewTable from OldTable
會出現cannot define field more than once
(在OldTable有欄位：學年度、學期別、....，會不會是有兩個相同
長度的field name，就會出現這種問題呢？)
而用create table NewTable(學年度 char(6),學期別 char(6))
會出現'學期別'already exists in table NewTable
(會不會是有兩個相同長度的field name，就會出現這種問題呢？
因為只要換成兩個不同長度的field name，就不會有問題產生！)
因為我用select * into NewTable from OldTable
會出現cannot define field more than once
(在OldTable有欄位：學年度、學期別、....，會不會是有兩個相同
長度的field name，就會出現這種問題呢？)
而用create table NewTable(學年度 char(6),學期別 char(6))
會出現'學期別'already exists in table NewTable
(會不會是有兩個相同長度的field name，就會出現這種問題呢？
因為只要換成兩個不同長度的field name，就不會有問題產生！)
如何撰寫一個 DNS Server...哪邊可以找到規格資料??(編號：5457)
如何撰寫一個 DNS Server...哪邊可以找到規格資料??
有範例是最好的啦~~
我的想法是醬子啦~~~做一個動態更新的 DNS Server 端~~
再另外安裝一個 DNS 客戶端....可以讓客戶端每隔一段時間將自己目前的 IP 回報回去給 Server....然後 Server 再根據這一段資訊
Update 自己的 dns 紀錄~~~
如果 Win 2000 的 DNS 可以直接跑元件完成此功能的話也可以喔~~感謝各位了!!
有範例是最好的啦~~
我的想法是醬子啦~~~做一個動態更新的 DNS Server 端~~
再另外安裝一個 DNS 客戶端....可以讓客戶端每隔一段時間將自己目前的 IP 回報回去給 Server....然後 Server 再根據這一段資訊
Update 自己的 dns 紀錄~~~
如果 Win 2000 的 DNS 可以直接跑元件完成此功能的話也可以喔~~感謝各位了!!
元件的使用權問題(編號：5456)
假設我買一個.OCX元件來開發程式, 當封裝散發出去之後, 該元件在使用者的電腦只能在執行時期使用, 不能在設計時期使用!!
請問這個在設計時期不能使用的機制是由誰決定的? 是安裝程式還是.OCX元件本身? 還是由Windows系統決定?
請問這個在設計時期不能使用的機制是由誰決定的? 是安裝程式還是.OCX元件本身? 還是由Windows系統決定?
請問如何截取資料庫某欄位字串(編號：5455)
對不起,抌擱您一點時間...
請問如何截取資料庫某欄位的字串..
例如:
＜input type=test name=tel1 value="＜%mid((=rstobj("cust_tel1")),2,2)%＞"＞
請問如何截取呢?
rstobj("cust_tel1")是我的資料表的某一欄位,裏面資料是(04)3301234
我想截取04,可是怎麼試都試不出來....
可以幫我解答嗎?謝謝...
請問如何截取資料庫某欄位的字串..
例如:
＜input type=test name=tel1 value="＜%mid((=rstobj("cust_tel1")),2,2)%＞"＞
請問如何截取呢?
rstobj("cust_tel1")是我的資料表的某一欄位,裏面資料是(04)3301234
我想截取04,可是怎麼試都試不出來....
可以幫我解答嗎?謝謝...
請問如何才能開啟Access2000，那個DAO4.0是如何產生的？(編號：5454)
諸位您好:
之前文章曾提到只要引用DAO4.0即可開啟Access2000，`但小弟安裝了Office2000後，還是找不到該元件，請問是安裝了什麼才會有這個元件可供引用呢？
謝謝您！
之前文章曾提到只要引用DAO4.0即可開啟Access2000，`但小弟安裝了Office2000後，還是找不到該元件，請問是安裝了什麼才會有這個元件可供引用呢？
謝謝您！
關於DirectSS物件的問題,請各位高手幫幫我!!(編號：5452)
各位vb的高手們:請問DirectSS這個物件一旦開始執行念英文時,如果要設置個命令鈕,而這個命令鈕的功能是當使用者按下後,讓正在發聲的Direct這個物件停止繼續念字串,那請問讓DirectSS停止的這個命令鈕的程式要怎麼寫ㄚ?我用DirectSS.speaking=0,這樣子的指令不能用ㄝ,按下後還是沒有用,DirectSS還是繼續念,希望高手們可以把程式跟我說,求求你們了,謝謝.
請問calendar(編號：5451)
想做一個萬年歷,日期欄除了日期外還可以塞簡單的訊息,可否告知謝謝!
另外使用weekday函數時,weekday(Date,vbMonday);其中date可否改由變數去抓,我想將三個欄位分別代表年月日的值放入date,例如:將date改由#x/y/z#代替,可是卻不能執行,請告知謝謝!
另外使用weekday函數時,weekday(Date,vbMonday);其中date可否改由變數去抓,我想將三個欄位分別代表年月日的值放入date,例如:將date改由#x/y/z#代替,可是卻不能執行,請告知謝謝!
Select語法怎麼下？(編號：5450)
請問各位大大：
小弟我有一個Select的語法不知該如何寫，請各位大大幫幫小弟我。謝謝！
假設我想在Select時，多增加一個衍生欄位，並在新增的衍生欄位中增入一個遞增的值
請問要如何下呢？
EX:
ID Name
--- -----
1 AAA
2 BBB
3 CCC
4 DDD
5 EEE
以上ID是一個衍生欄位，請問要如何寫呢？謝謝
PS. 因為Table中以經有原有的ID欄位，但尋找資料時，並不想動到原有的欄位
SO.........
小弟我有一個Select的語法不知該如何寫，請各位大大幫幫小弟我。謝謝！
假設我想在Select時，多增加一個衍生欄位，並在新增的衍生欄位中增入一個遞增的值
請問要如何下呢？
EX:
ID Name
--- -----
1 AAA
2 BBB
3 CCC
4 DDD
5 EEE
以上ID是一個衍生欄位，請問要如何寫呢？謝謝
PS. 因為Table中以經有原有的ID欄位，但尋找資料時，並不想動到原有的欄位
SO.........
Data Environment如何使用子指令中的欄位來做搜尋(編號：5447)
請問有一父指令(Select格式)內有一子指令(也是Select)請問今天我想做搜尋某筆資料的功能,可是欲比對的欄位在子指令中..請問有何方法..謝謝..!!
(((超級大難題))))(編號：5445)
Q:「10元」可以由一個「10 元」組成或由兩「5元」組成或由1 個「5元」和5 個「1元」組成或由10個「1元」組成等四種罣式，讓使用者輸入N元，將N元可以組成的方式列出！(請以1元、5元、10元、50元、100元、500元、1000元組成出排列的方法！)
請會的仁兄教教我吧！小弟不勝感激！謝謝！
請會的仁兄教教我吧！小弟不勝感激！謝謝！
如何用矩陣來將二維座標做3D圖形轉換計算(編號：5444)
請問各位高手~~
小弟我想寫一個用矩陣將2d的圖形轉換為3d的圖形~~
可是我不了解如何將圖形的點座標每個用矩陣轉換,
當我要將這些點座標矩陣作矩陣相家..相乘..轉置..
不知道要如何寫...and 這個3d圖形若要著色有明暗的效果
要如何寫呢~~~是否可以舉一些簡單的例子呢~~粉謝謝呦~~
因為小弟我找了好多的vb的書都沒有這方面的資訊~~
阿哩阿豆~~~
小弟我想寫一個用矩陣將2d的圖形轉換為3d的圖形~~
可是我不了解如何將圖形的點座標每個用矩陣轉換,
當我要將這些點座標矩陣作矩陣相家..相乘..轉置..
不知道要如何寫...and 這個3d圖形若要著色有明暗的效果
要如何寫呢~~~是否可以舉一些簡單的例子呢~~粉謝謝呦~~
因為小弟我找了好多的vb的書都沒有這方面的資訊~~
阿哩阿豆~~~
關於DirectSS物件,求求各位高手幫幫小妹我!!(編號：5442)
各位高手們:請問DirectSS這個物件一旦開始執行念英文時,如果要設置個命令鈕,而這個命令鈕的功能是當使用者按下後,讓正在發聲的Direct這個物件停止繼續念字串,那請問讓DirectSS停止的這個命令鈕的程式要怎麼寫ㄚ?我用DirectSS.speaking=0,這樣子的指令不能用ㄝ,按下後還是沒有用,DirectSS還是繼續念,希望高手們可以把程式跟我說,求求你們了,謝謝.
如何知道 windows 的順序?(編號：5441)
如我開了一個記事本其 hwnd 為 859346 , 我再開另一個記事本其 hwnd 為 423566, 請問程式要如何才能知道哪一個記事本是最後才開啟的??
謝謝!!
謝謝!!
請問動態更換 connection 時的錯誤(編號：5439)
當我關閉 de1.con1 更換 connectionstring 再 open 後所有原本Connection 下的sql command 都不能用了請問該如何解決?
De1.con1.close
v_str = "Provider=Microsoft.Jet.OLEDB.4.0;Password='';User ID=Admin;Data Source=" & nowdbfile '變更mdb檔案
De1.con1.ConnectionString = v_str
De1.con1.Open v_str
若此時使用 de1.rsrc1.open 會出現"沒有設定物件變數或with區塊變數
De1.con1.close
v_str = "Provider=Microsoft.Jet.OLEDB.4.0;Password='';User ID=Admin;Data Source=" & nowdbfile '變更mdb檔案
De1.con1.ConnectionString = v_str
De1.con1.Open v_str
若此時使用 de1.rsrc1.open 會出現"沒有設定物件變數或with區塊變數
有關DirectSS這個物件的問題?請高手們為我解答!!(編號：5437)
各位vb的高手們:請問DirectSS這個物件一旦開始執行念英文時,如果要設置個命令鈕,而這個命令鈕的功能是當使用者按下後,讓正在發聲的Direct這個物件停止繼續念字串,那請問讓DirectSS停止的這個命令鈕的程式要怎麼寫ㄚ?我用DirectSS.speaking=0,這樣子的指令不能用ㄝ,按下後還是沒有用,DirectSS還是繼續念,希望高手們可以把程式跟我說,求求你們了,謝謝.
可以指定封裝精靈copy特定檔案至指定的目錄嗎?(編號：5436)
在VB6.0中,有沒有辦法自己定義專案的安裝程式需執行特定的檔案拷貝動作,例如我的專案並未用到test.txt這個檔案,但我希望封裝精靈產生的安裝程式能在執行時自動把test.txt copy到windows目錄下,這有辦法作到嗎?
如何複製一個table？？(編號：5433)
要如何在vb中寫code來複製一個原有的table？？
因為我用select * into NewTable from OldTable
會出現cannot define field more than once
(在OldTable有欄位：學年度、學期別、....，會不會是有兩個相同
長度的field name，就會出現這種問題呢？)
而用create table NewTable(學年度 char(6),學期別 char(6))
會出現'學期別'already exists in table NewTable
(會不會是有兩個相同長度的field name，就會出現這種問題呢？
因為只要換成兩個不同長度的field name，就不會有問題產生！)
因為我用select * into NewTable from OldTable
會出現cannot define field more than once
(在OldTable有欄位：學年度、學期別、....，會不會是有兩個相同
長度的field name，就會出現這種問題呢？)
而用create table NewTable(學年度 char(6),學期別 char(6))
會出現'學期別'already exists in table NewTable
(會不會是有兩個相同長度的field name，就會出現這種問題呢？
因為只要換成兩個不同長度的field name，就不會有問題產生！)
三個問題..(編號：5432)
第一個問題
在使用inputbox時出現一個確定和取消,可是我按取消時,程式還會繼續執行,要如何解決。
第二個問題
我做了三個表單,第一個表單剛執行時我有inputbox接收使用者的名字變數為user,可是我想在第三個表單出現時就會出現使用者輸入的名字要如何做..
第三個問題
我想做個排名表,在程式結束後會顯示排名,關閉程式之後在執行本此式排名表不會不見.要如何做!
這三個問今天,我做了好久都做不起來.請各位網友幫幫忙!
謝謝! ^_^
在使用inputbox時出現一個確定和取消,可是我按取消時,程式還會繼續執行,要如何解決。
第二個問題
我做了三個表單,第一個表單剛執行時我有inputbox接收使用者的名字變數為user,可是我想在第三個表單出現時就會出現使用者輸入的名字要如何做..
第三個問題
我想做個排名表,在程式結束後會顯示排名,關閉程式之後在執行本此式排名表不會不見.要如何做!
這三個問今天,我做了好久都做不起來.請各位網友幫幫忙!
謝謝! ^_^
ADO 問題請教(編號：5429)
我於USER端無法正常執行程式，會出現如下的錯誤訊息：
ADO找不到指定的提供者，
執行階段錯誤：3706
煩請高手指點迷津。
PS：我將寫好的程式PACKAGE 起來，於USER端執行 SETUP 的
安裝程式。
ADO找不到指定的提供者，
執行階段錯誤：3706
煩請高手指點迷津。
PS：我將寫好的程式PACKAGE 起來，於USER端執行 SETUP 的
安裝程式。
版本問題!!(編號：5427)
我的資料庫是用中文 Access 2000,
我用 VB 寫了一個程式存取 Access 資料庫, 在中文的 Windows 下很正常, 但到了英文 Windows , 為何日期顯示變為 12:00:00 $#@%
AM/PM 都變為亂碼
PS: ODBC 也是英文版的
我用 VB 寫了一個程式存取 Access 資料庫, 在中文的 Windows 下很正常, 但到了英文 Windows , 為何日期顯示變為 12:00:00 $#@%
AM/PM 都變為亂碼
PS: ODBC 也是英文版的
新增(編號：5420)
db1.Execute "insert into base select * from sa.base"我這樣子寫有個問題就是sa這個資料庫有密碼，請問要將密碼寫在那裡。db1是連到另一個資料庫的。
如何利用vb將sql的scripts透過ado執行到sql上?(編號：5415)
我想利用vb程式將某一段sql程式透過vb執行產生到sql上如:
CREATE TABLE [dbo].[SEC_Groups] (
[gid] [varchar] (20) NOT NULL ,
[gname] [nvarchar] (100) NOT NULL ,
[sysflag] [bit] NOT NULL
)
GO
或是透過vb將一段triggers產生到sql上，或是將stored procedures產生到sql上
CREATE TABLE [dbo].[SEC_Groups] (
[gid] [varchar] (20) NOT NULL ,
[gname] [nvarchar] (100) NOT NULL ,
[sysflag] [bit] NOT NULL
)
GO
或是透過vb將一段triggers產生到sql上，或是將stored procedures產生到sql上
dataenvironment!(編號：5414)
我使用以下的程式作搜尋會出現"應用程式或物件定義上的錯誤"
den.rsqid.Close
den.Commands("qid").Parameters(0) = Text1.Text
Set DataGrid1.DataSource = den
Set DataGrid2.DataSource = den
DataGrid1.DataMember = "qid"
DataGrid2.DataMember = "qidsub"
DataGrid1.Refresh
DataGrid2.Refresh
不知該如何解決呢？
den.rsqid.Close
den.Commands("qid").Parameters(0) = Text1.Text
Set DataGrid1.DataSource = den
Set DataGrid2.DataSource = den
DataGrid1.DataMember = "qid"
DataGrid2.DataMember = "qidsub"
DataGrid1.Refresh
DataGrid2.Refresh
不知該如何解決呢？
有關於Datareport的列印問題(編號：5413)
Datareport之列印一至二段文字後如何讓印表機停在二段文字之後不會移出而不是整張的a4紙跑出來,一般Word的方式列印不到一頁的話都會跑完一頁A4紙,
Access database 太大了(編號：5412)
我的 Access database 太大了 300 MB, 請問可以壓縮到 10-25 MB嗎? 或有什麼 database Program 可以做得到, 唯讀都可以. For VB5.
ThankYou!!
ThankYou!!
vb call Excel 圖表(編號：5408)
各位前輩
我研究了MSChart control發覺要做到像Excel的圖表那麼漂亮很麻煩
我想vb可叫出Excel圖表吧 想問一下
1.你們都是怎麼做的阿
2.show圖表時還是要讓application.visible=true嗎?
(我想說有辦法作到讓圖直接show在vb的form上嗎?)
我研究了MSChart control發覺要做到像Excel的圖表那麼漂亮很麻煩
我想vb可叫出Excel圖表吧 想問一下
1.你們都是怎麼做的阿
2.show圖表時還是要讓application.visible=true嗎?
(我想說有辦法作到讓圖直接show在vb的form上嗎?)
VB call Excel圖表.......Help Me!(編號：5407)
各位前輩
我研究了MSChart control發覺要做到像Excel的圖表那麼漂亮很麻煩
我想vb可叫出的圖表吧 想問一下
1.你們都是怎麼做的阿
2.show圖表時還是要讓application.visible=true嗎?
(我想說有辦法作到讓圖直接show在vb的form上嗎?)
我研究了MSChart control發覺要做到像Excel的圖表那麼漂亮很麻煩
我想vb可叫出的圖表吧 想問一下
1.你們都是怎麼做的阿
2.show圖表時還是要讓application.visible=true嗎?
(我想說有辦法作到讓圖直接show在vb的form上嗎?)
ado之使用(編號：5405)
請問諸前輩,以下是小弟一段程式,為何第一次新增一筆資料後
requery在recordset內沒有新增的資料,可是再新增一筆後
requery在recordset內兩筆新增資料均出現
vb新手 c.m.
frmDepartment.frm
Option Explicit
Dim conDepartment As ADODB.Connection
Dim cmdDepartment As ADODB.Command
Dim rsdepartment As ADODB.Recordset
Dim BK As Variant
Dim WithEvents clsdepartment As department
Public stype As Integer '1 新增 2 修改 0 初始
Private Sub Form_Load()
Dim mstring As String
Dim t As Integer
Set clsdepartment = New department
Set conDepartment = New ADODB.Connection
Set cmdDepartment = New ADODB.Command
Set rsdepartment = New ADODB.Recordset
mstring = "Provider=Microsoft.jet.OLEDB.4.0;" & _
"Data Source = f:\vb\cmhung\budgetsys1.mdb;" & _
"Persist Security Info = False"
conDepartment.Open mstring
Set cmdDepartment.ActiveConnection = conDepartment
cmdDepartment.CommandText = "select * from tbDepartment"
rsdepartment.CursorLocation = adUseClient
rsdepartment.Open cmdDepartment, , adOpenDynamic, adLockPessimistic
For t = 0 To 3
Set Text1(t).DataSource = rsdepartment
Text1(t).Locked = True
Next t
Text1(0).DataField = "fldDepartmentNo"
Text1(1).DataField = "fldDepartmentName"
Text1(2).DataField = "fldDepartmentBelong"
Text1(3).DataField = "fldDepartmentType"
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error GoTo er
RichTextBox1.Visible = False
Select Case Button.Key
Case "new"
Call tool_new
Case "edit"
Call tool_edit
Case "save"
Call tool_save
End Select
Exit Sub
er:
Beep
If MsgBox(Err.Description, vbRetryCancel + vbExclamation, "錯誤訊息") = vbRetry Then
Resume 0
Else
End
End If
End Sub
Private Sub tool_new()
Dim t As Integer
stype = 1
For t = 0 To 3
Text1(t).DataField = ""
Text1(t).Text = ""
Text1(t).Locked = False
Next t
Text1(0).SetFocus
BK = rsdepartment.Bookmark
Toolbar1.Buttons(1).Enabled = False
Toolbar1.Buttons(2).Enabled = False
StatusBar1.Panels(1).Text = "新增"
End Sub
Private Sub tool_save()
Dim sfind As String
Dim t As Integer
If stype = 1 Then
sfind = CheckForQuote(Text1(0).Text)
rsdepartment.MoveFirst
rsdepartment.Find ("fldDepartmentNo ='" & RTrim(sfind) & "'")
If rsdepartment.EOF Then
clsdepartment.departmentno = Text1(0)
clsdepartment.departmentname = Text1(1)
clsdepartment.departmentbelong = Text1(2)
clsdepartment.departmenttype = Text1(3)
clsdepartment.add
??為何第一次requery不發生作用?第二次後就沒問題????
rsdepartment.Requery
Toolbar1.Buttons(6).ToolTipText = "關閉"
StatusBar1.Panels(1).Text = "狀態"
Toolbar1.Buttons(1).Enabled = True
Toolbar1.Buttons(2).Enabled = True
For t = 0 To 3
Text1(t).Locked = True
Next t
Text1(0).DataField = "fldDepartmentNo"
Text1(1).DataField = "fldDepartmentName"
Text1(2).DataField = "fldDepartmentBelong"
Text1(3).DataField = "fldDepartmentType"
stype = 0
Else
MsgBox sfind + "資料重複", vbOKOnly, "錯誤訊息"
End If
End If
If stype = 2 Then
clsdepartment.departmentno = Text1(0)
clsdepartment.departmentname = Text1(1)
clsdepartment.departmentbelong = Text1(2)
clsdepartment.departmenttype = Text1(3)
clsdepartment.update
rsdepartment.Requery
'rsDepartment.Bookmark = BK
Toolbar1.Buttons(6).ToolTipText = "關閉"
StatusBar1.Panels(1).Text = "狀態"
Toolbar1.Buttons(1).Enabled = True
Toolbar1.Buttons(2).Enabled = True
For t = 0 To 3
Text1(t).Locked = True
Next t
Text1(0).DataField = "fldDepartmentNo"
Text1(1).DataField = "fldDepartmentName"
Text1(2).DataField = "fldDepartmentBelong"
Text1(3).DataField = "fldDepartmentType"
stype = 0
End If
End Sub
--------------------------
department.cls
Public Sub add()
On Error Resume Next
Dim ssql As String
Dim strcnn As String
Dim cnn1 As ADODB.Connection
Dim cmdChange As ADODB.Command
Dim errLoop As ADODB.Error
strcnn = "Provider=Microsoft.jet.OLEDB.4.0;" & _
"Data Source = f:\vb\cmhung\budgetsys1.mdb;" & _
"Persist Security Info = False"
Set cnn1 = New ADODB.Connection
cnn1.Open strcnn
cnn1.errors.Clear
ssql = "Insert Into tbDepartment (fldDepartmentNo,fldDepartmentName,fldDepartmentBelong,fldDepartmentType)" _
& "values ('" & CheckForQuote(departmentno) & "','" & CheckForQuote(departmentname) & "','" & CheckForQuote(departmentbelong) & "','" & CheckForQuote(departmenttype) & "')"
cnn1.Execute ssql
If cnn1.errors.Count ＞ 0 Then
RaiseEvent errors(cnn1.errors)
Else
RaiseEvent action(300)
End If
cnn1.Close
Set cnn1 = Nothing
End Sub
ps:作業係統windows2000,vb6.0,pc單機
requery在recordset內沒有新增的資料,可是再新增一筆後
requery在recordset內兩筆新增資料均出現
vb新手 c.m.
frmDepartment.frm
Option Explicit
Dim conDepartment As ADODB.Connection
Dim cmdDepartment As ADODB.Command
Dim rsdepartment As ADODB.Recordset
Dim BK As Variant
Dim WithEvents clsdepartment As department
Public stype As Integer '1 新增 2 修改 0 初始
Private Sub Form_Load()
Dim mstring As String
Dim t As Integer
Set clsdepartment = New department
Set conDepartment = New ADODB.Connection
Set cmdDepartment = New ADODB.Command
Set rsdepartment = New ADODB.Recordset
mstring = "Provider=Microsoft.jet.OLEDB.4.0;" & _
"Data Source = f:\vb\cmhung\budgetsys1.mdb;" & _
"Persist Security Info = False"
conDepartment.Open mstring
Set cmdDepartment.ActiveConnection = conDepartment
cmdDepartment.CommandText = "select * from tbDepartment"
rsdepartment.CursorLocation = adUseClient
rsdepartment.Open cmdDepartment, , adOpenDynamic, adLockPessimistic
For t = 0 To 3
Set Text1(t).DataSource = rsdepartment
Text1(t).Locked = True
Next t
Text1(0).DataField = "fldDepartmentNo"
Text1(1).DataField = "fldDepartmentName"
Text1(2).DataField = "fldDepartmentBelong"
Text1(3).DataField = "fldDepartmentType"
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error GoTo er
RichTextBox1.Visible = False
Select Case Button.Key
Case "new"
Call tool_new
Case "edit"
Call tool_edit
Case "save"
Call tool_save
End Select
Exit Sub
er:
Beep
If MsgBox(Err.Description, vbRetryCancel + vbExclamation, "錯誤訊息") = vbRetry Then
Resume 0
Else
End
End If
End Sub
Private Sub tool_new()
Dim t As Integer
stype = 1
For t = 0 To 3
Text1(t).DataField = ""
Text1(t).Text = ""
Text1(t).Locked = False
Next t
Text1(0).SetFocus
BK = rsdepartment.Bookmark
Toolbar1.Buttons(1).Enabled = False
Toolbar1.Buttons(2).Enabled = False
StatusBar1.Panels(1).Text = "新增"
End Sub
Private Sub tool_save()
Dim sfind As String
Dim t As Integer
If stype = 1 Then
sfind = CheckForQuote(Text1(0).Text)
rsdepartment.MoveFirst
rsdepartment.Find ("fldDepartmentNo ='" & RTrim(sfind) & "'")
If rsdepartment.EOF Then
clsdepartment.departmentno = Text1(0)
clsdepartment.departmentname = Text1(1)
clsdepartment.departmentbelong = Text1(2)
clsdepartment.departmenttype = Text1(3)
clsdepartment.add
??為何第一次requery不發生作用?第二次後就沒問題????
rsdepartment.Requery
Toolbar1.Buttons(6).ToolTipText = "關閉"
StatusBar1.Panels(1).Text = "狀態"
Toolbar1.Buttons(1).Enabled = True
Toolbar1.Buttons(2).Enabled = True
For t = 0 To 3
Text1(t).Locked = True
Next t
Text1(0).DataField = "fldDepartmentNo"
Text1(1).DataField = "fldDepartmentName"
Text1(2).DataField = "fldDepartmentBelong"
Text1(3).DataField = "fldDepartmentType"
stype = 0
Else
MsgBox sfind + "資料重複", vbOKOnly, "錯誤訊息"
End If
End If
If stype = 2 Then
clsdepartment.departmentno = Text1(0)
clsdepartment.departmentname = Text1(1)
clsdepartment.departmentbelong = Text1(2)
clsdepartment.departmenttype = Text1(3)
clsdepartment.update
rsdepartment.Requery
'rsDepartment.Bookmark = BK
Toolbar1.Buttons(6).ToolTipText = "關閉"
StatusBar1.Panels(1).Text = "狀態"
Toolbar1.Buttons(1).Enabled = True
Toolbar1.Buttons(2).Enabled = True
For t = 0 To 3
Text1(t).Locked = True
Next t
Text1(0).DataField = "fldDepartmentNo"
Text1(1).DataField = "fldDepartmentName"
Text1(2).DataField = "fldDepartmentBelong"
Text1(3).DataField = "fldDepartmentType"
stype = 0
End If
End Sub
--------------------------
department.cls
Public Sub add()
On Error Resume Next
Dim ssql As String
Dim strcnn As String
Dim cnn1 As ADODB.Connection
Dim cmdChange As ADODB.Command
Dim errLoop As ADODB.Error
strcnn = "Provider=Microsoft.jet.OLEDB.4.0;" & _
"Data Source = f:\vb\cmhung\budgetsys1.mdb;" & _
"Persist Security Info = False"
Set cnn1 = New ADODB.Connection
cnn1.Open strcnn
cnn1.errors.Clear
ssql = "Insert Into tbDepartment (fldDepartmentNo,fldDepartmentName,fldDepartmentBelong,fldDepartmentType)" _
& "values ('" & CheckForQuote(departmentno) & "','" & CheckForQuote(departmentname) & "','" & CheckForQuote(departmentbelong) & "','" & CheckForQuote(departmenttype) & "')"
cnn1.Execute ssql
If cnn1.errors.Count ＞ 0 Then
RaiseEvent errors(cnn1.errors)
Else
RaiseEvent action(300)
End If
cnn1.Close
Set cnn1 = Nothing
End Sub
ps:作業係統windows2000,vb6.0,pc單機
有關資料的型態,謝謝(編號：5403)
請問為何
Dim q1 As Long
Dim q2 As Long
Dim q3 As Long
Dim q4 As Long
Dim q5 As Long
Dim q6 As Long
為何上述宣告只能儲存數字,而且只能儲存一筆資料
那如果要能儲存 文字與數字 而請能儲存 萬筆資料該如何宣告
謝謝
Dim q1 As Long
Dim q2 As Long
Dim q3 As Long
Dim q4 As Long
Dim q5 As Long
Dim q6 As Long
為何上述宣告只能儲存數字,而且只能儲存一筆資料
那如果要能儲存 文字與數字 而請能儲存 萬筆資料該如何宣告
謝謝
產生新物件之後如可來編輯(編號：5400)
Private Sub Command1_Click()
Load command1(0)
With command1(1)
.Left = 0
.Top = 0
.Width = 1000
.Visible = True
.caption=A1
End With
End sub
我產生一個command1(1)之後，可以在command(1)下編輯程式嗎??
如：command1(0)是連資料庫的一筆資料，我command1(1)也要連
資料庫的另一筆資料!!
請問高手
謝謝
Load command1(0)
With command1(1)
.Left = 0
.Top = 0
.Width = 1000
.Visible = True
.caption=A1
End With
End sub
我產生一個command1(1)之後，可以在command(1)下編輯程式嗎??
如：command1(0)是連資料庫的一筆資料，我command1(1)也要連
資料庫的另一筆資料!!
請問高手
謝謝
求救~~(編號：5397)
MyDat(0) = Array("品名", "規格", "數量", "單價", "金額", "備註欄")
MyDat(1) = Array(Adodc1.Recordset.Fields(0), Adodc1.Recordset.Fields(1), Adodc1.Recordset.Fields(2), Adodc1.Recordset.Fields(3), Adodc1.Recordset.Fields(4), Adodc1.Recordset.Fields(5))
MyDat(2) = Array(Adodc1.Recordset.Fields(0), Adodc1.Recordset.Fields(1), Adodc1.Recordset.Fields(2), Adodc1.Recordset.Fields(3), Adodc1.Recordset.Fields(4), Adodc1.Recordset.Fields(5))
以上是我想將DataGrid中的資料輸入到Word中
不過在Word中..他的MyDat(1)欄位值和MyDat(2)都是一樣說
我想第一個欄位等於 MyDat(0)陣列
第二個欄位等於 MyDat(1)陣列
以下類推....
請問哪邊有錯嗎??
謝謝~~~
MyDat(1) = Array(Adodc1.Recordset.Fields(0), Adodc1.Recordset.Fields(1), Adodc1.Recordset.Fields(2), Adodc1.Recordset.Fields(3), Adodc1.Recordset.Fields(4), Adodc1.Recordset.Fields(5))
MyDat(2) = Array(Adodc1.Recordset.Fields(0), Adodc1.Recordset.Fields(1), Adodc1.Recordset.Fields(2), Adodc1.Recordset.Fields(3), Adodc1.Recordset.Fields(4), Adodc1.Recordset.Fields(5))
以上是我想將DataGrid中的資料輸入到Word中
不過在Word中..他的MyDat(1)欄位值和MyDat(2)都是一樣說
我想第一個欄位等於 MyDat(0)陣列
第二個欄位等於 MyDat(1)陣列
以下類推....
請問哪邊有錯嗎??
謝謝~~~
用ADO元件(編號：5396)
我想用OLE 物件在access 存圖片檔，然後再用vb的物件叫出顯示在vb上!!!
我現在可以用access存圖片檔，但不能從vb叫出來!!
使用ADO元件
請問高手!!
謝謝!!
我現在可以用access存圖片檔，但不能從vb叫出來!!
使用ADO元件
請問高手!!
謝謝!!
有關ini的問題(編號：5395)
[帳號]
Text2=1
Text3=2
[密碼]
Text2=1
Text3=2
[確認密碼]
Text2=1
Text3=2
我遇到一個問題就是如何知道輸入的值是Text2的還是Text3的值
原始碼如下
Dim q1 As String '帳號
Dim q2 As String '密碼
Dim q3 As String '確認密碼
g = "c:\"
INI1.FileName = "c:\gjj.ini" '設定 .ini 屬性
If Right(App.Path, 1) = "\" Then
IniFile = g & "gii.ini"
Else
IniFile = g & "\gii.ini"
End If
INI1.FileName = IniFile
Tmp = INI1.GetKey("帳號", "Text" & q1)
If Tmp = "" Then Tmp = ""
Tmp = INI1.GetKey("密碼", "Text" & q2)
If Tmp = "" Then Tmp = ""
Tmp = INI1.GetKey("確認密碼", "Text" & q3)
If Tmp = "" Then Tmp = ""
Text2=1
Text3=2
[密碼]
Text2=1
Text3=2
[確認密碼]
Text2=1
Text3=2
我遇到一個問題就是如何知道輸入的值是Text2的還是Text3的值
原始碼如下
Dim q1 As String '帳號
Dim q2 As String '密碼
Dim q3 As String '確認密碼
g = "c:\"
INI1.FileName = "c:\gjj.ini" '設定 .ini 屬性
If Right(App.Path, 1) = "\" Then
IniFile = g & "gii.ini"
Else
IniFile = g & "\gii.ini"
End If
INI1.FileName = IniFile
Tmp = INI1.GetKey("帳號", "Text" & q1)
If Tmp = "" Then Tmp = ""
Tmp = INI1.GetKey("密碼", "Text" & q2)
If Tmp = "" Then Tmp = ""
Tmp = INI1.GetKey("確認密碼", "Text" & q3)
If Tmp = "" Then Tmp = ""
用vb 叫出access 資料庫的圖檔(編號：5393)
我想用OLE 物件在access 存圖片檔，然後再用vb的物件叫出顯示在vb上!!!
我現在可以用access存圖片檔，但不能從vb叫出來!!
請問高手!!
謝謝!!
我現在可以用access存圖片檔，但不能從vb叫出來!!
請問高手!!
謝謝!!
PORT 192,168,1,34,8,137(編號：5387)
因最近在寫一ftp 之component
但其中這一行PORT 192,168,1,34,8,137
前面四個數字為我的ip,但後兩個數字為何
還有,我該如何監聽DTP port,我怎知是哪一個
且如何得知所取得之預設目錄為何,內容為何,謝謝
但其中這一行PORT 192,168,1,34,8,137
前面四個數字為我的ip,但後兩個數字為何
還有,我該如何監聽DTP port,我怎知是哪一個
且如何得知所取得之預設目錄為何,內容為何,謝謝
檔案就變很慢(編號：5386)
請問各位先進,小弟目前在寫一個程式
關於從檔案讀取資料再加以判斷
須一行一行讀,再從一行裡讀一個一個字元來判斷
我的寫法如下
open file for input as #1
while not eof(1)
line input,Lst 'Lst dim as string'
sel=mid(lst,1,3) 'sel dim as string'
.......
loop
但由此中間程式碼多
始得存取大概300k的檔案就變很慢
請問有無更快方法????
thanks
關於從檔案讀取資料再加以判斷
須一行一行讀,再從一行裡讀一個一個字元來判斷
我的寫法如下
open file for input as #1
while not eof(1)
line input,Lst 'Lst dim as string'
sel=mid(lst,1,3) 'sel dim as string'
.......
loop
但由此中間程式碼多
始得存取大概300k的檔案就變很慢
請問有無更快方法????
thanks
再問用陣列產生多個新的物件(編號：5384)
下列程式執行一次後,再按command1時,就產生"物件已load"訊息,無法繼續執行,如何修改能多次按command1而產生多個新物件
Private Sub Command1_Click()
Load Text1(20)
With Text1(20)
.Top=0
.Width=500
.Visible= True
End With
End Sub
Private Sub Command1_Click()
Load Text1(20)
With Text1(20)
.Top=0
.Width=500
.Visible= True
End With
End Sub
幫忙一下(編號：5383)
Set MSHFlexGrid1.MouseIcon = LoadPicture(App.Path
^^^^^^^^
& "\drag.ico")
^^^^^^^^^^^^^^
這裡是甚麼意思呢?
^^^^^^^^
& "\drag.ico")
^^^^^^^^^^^^^^
這裡是甚麼意思呢?
請問在data report上的資料可以由右到左顯示嗎？(編號：5381)
如題，我所輪出的報表必需是由右到左的格式，但是我的rpttextbox有多行資料，請問要如何設定rpttextbox字串才會由右到左顯示呢？謝謝！(還是根本就不可能由右到左顯示呢？@@")
關於Image Edit control(編號：5380)
請問,
如果想要把jpg和tif格式的圖檔互轉,
(jpg--＞tif, tif--＞jpg)
用saveas的方式會一直出現格式錯誤的訊息,
這是為什麼呢 ?
參數要怎麼下才對?
如果想要把jpg和tif格式的圖檔互轉,
(jpg--＞tif, tif--＞jpg)
用saveas的方式會一直出現格式錯誤的訊息,
這是為什麼呢 ?
參數要怎麼下才對?
有關執行的問題,請各位高手幫幫我!!(編號：5378)
我想請問一下,我在表單上有設製4個命令鈕,可是我在執行的狀態下,按下此命令鈕執行程式,此命令鈕中是個迴圈,可是在執行此命令鈕的同時,我都無法按其它的命令鈕,請問各位高手知道要怎麼樣寫另一個命令鈕可以讓那個執行迴圈的命令鈕停止執行,但是整個程式仍在執行的狀態中,只是停止那個命令鈕的執行就好了!!
希望如果有高手知道的話,可以將程式附給我嗎?小妹在這裡先說聲謝謝了!!
希望如果有高手知道的話,可以將程式附給我嗎?小妹在這裡先說聲謝謝了!!
應該怎樣改良 ...................(編號：5376)
小弟寫了這event, 用來控制用家輸入金額﹐
1. control code ignore
2. 點數不可以超過一個
3. 負數符號只可以在第一個位置
現在全部都能達到目的﹐但在edit的時候﹐
他不容許我輸入負數符號在前面﹐因為
Len(Trim(Text2.Text)) 不是 0
應該怎樣改良呢 ﹖
謝謝 ﹗
Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim keystring As String
keystring = "0123456789.-"
If KeyAscii ＞ 26 Then
Select Case KeyAscii
Case Asc(".")
If UBound(Split(Text2.Text, Chr(KeyAscii))) ＞ 0 Then
KeyAscii = 0
Beep
End If
Case Asc("-")
If Len(Trim(Text2.Text)) ＜＞ 0 Then
KeyAscii = 0
Beep
End If
Case Else
If InStr(keystring, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Beep
End If
End Select
End If
End Sub
1. control code ignore
2. 點數不可以超過一個
3. 負數符號只可以在第一個位置
現在全部都能達到目的﹐但在edit的時候﹐
他不容許我輸入負數符號在前面﹐因為
Len(Trim(Text2.Text)) 不是 0
應該怎樣改良呢 ﹖
謝謝 ﹗
Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim keystring As String
keystring = "0123456789.-"
If KeyAscii ＞ 26 Then
Select Case KeyAscii
Case Asc(".")
If UBound(Split(Text2.Text, Chr(KeyAscii))) ＞ 0 Then
KeyAscii = 0
Beep
End If
Case Asc("-")
If Len(Trim(Text2.Text)) ＜＞ 0 Then
KeyAscii = 0
Beep
End If
Case Else
If InStr(keystring, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Beep
End If
End Select
End If
End Sub
訂閱：
文章 (Atom)