本人使用 vb5 + sp3 + win98 在列印時先把預設印表機給記錄起來, 再呼叫 commdialog
的 print 功能, 供使用者切換選擇印表機進行列印工作, 結束後檢查印表機裝置是否為
預設的, 若不是得話要切換回預設印表機裝置, 程式如下...
PName = Printer.DeviceName '記錄預設
' 切換回預設
Dim X AS Printer
For each X in Printers
if X.DeviceName = PName then
set Printer = X
Exit For
End IF
Next
程式執行結果, 預設印表機無法回復, 請問如何才能真正設定預設印表機.
提供小吳 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 .
如何把細小的圖案加在system tray之上?請多多指教。(編號：2197)
在視窗的環境中,當執行某些程式後,在營幕右下之system tray上,常見會多了一個小圖案,例如: Real Player就會出現一個藍色小圖,Shockwave remote是藍色圓形內有綠色波浪紋....等等,若mouse over,更會有tool tips出現,本人欲知如何在vb的程式裡,加入什麼東西,才做到此等效果,請各方好友,多多指教,萬分感謝!!
如何使執行中的視窗無法關閉？一直到此程式執行結束(編號：2194)
我想寫一個程式也就是使人輸入密碼一直到輸入成功才行結束這個視窗
我是用inputbox函數所寫，但是在輸入時可經由右上角的「X」來關閉，或是按「取消」，此時會有「型態不符，錯誤13」的訊息出現，請問要如何解決？
我是用inputbox函數所寫，但是在輸入時可經由右上角的「X」來關閉，或是按「取消」，此時會有「型態不符，錯誤13」的訊息出現，請問要如何解決？
已經取得的FILE 的HANDLE，但為何用READFILE卻取不到資料呢?(編號：2192)
我撰寫了以下的程式碼，但不知為何讀取不到資料
Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Long) As Long
Const OFS_MAXPATHNAME = 128
Const OF_READ = &H0
Private Type OFSTRUCT
cBytes As Byte
fFixedDisk As Byte
nErrCode As Integer
Reserved1 As Integer
Reserved2 As Integer
szPathName(OFS_MAXPATHNAME) As Byte
End Type
Private Sub Command1_Click()
Dim OpenFileHandle As Long
Dim b As Long
Dim Length As String
Dim lpReOpenBuff As OFSTRUCT
OpenFileHandle = OpenFile("D:\no.txt", lpReOpenBuff, OF_READ)
b = ReadFile(OpenFileHandle, Length, 4, 4, 0&)
Text1.Text = LENGTH
End Sub
如無意外的話，我在OPENFILE那句裡已經取得有關的FILE的HANDLE，但為何在READFILE的LENGTH裡一點東西也沒有??
另外我想知道READFILE裡的"lpNumberOfBytesRead"是甚麼意思??我見了書說那個是
"真正讀取的資料長度"
，讀問這個和
"nNumberOfBytesToRead
"又甚麼分別
Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Long) As Long
Const OFS_MAXPATHNAME = 128
Const OF_READ = &H0
Private Type OFSTRUCT
cBytes As Byte
fFixedDisk As Byte
nErrCode As Integer
Reserved1 As Integer
Reserved2 As Integer
szPathName(OFS_MAXPATHNAME) As Byte
End Type
Private Sub Command1_Click()
Dim OpenFileHandle As Long
Dim b As Long
Dim Length As String
Dim lpReOpenBuff As OFSTRUCT
OpenFileHandle = OpenFile("D:\no.txt", lpReOpenBuff, OF_READ)
b = ReadFile(OpenFileHandle, Length, 4, 4, 0&)
Text1.Text = LENGTH
End Sub
如無意外的話，我在OPENFILE那句裡已經取得有關的FILE的HANDLE，但為何在READFILE的LENGTH裡一點東西也沒有??
另外我想知道READFILE裡的"lpNumberOfBytesRead"是甚麼意思??我見了書說那個是
"真正讀取的資料長度"
，讀問這個和
"nNumberOfBytesToRead
"又甚麼分別
如何抓取TIME字串(編號：2191)
例如：
t$=time$
a$ = Val(Mid(t$, 7))
Label1.Caption = a$
列印秒的個位數
但是我下這個子令時....
a$ = Val(Mid(t$, 6))
Label1.Caption = a$
卻列印十位及個位數..........我只需要十位數而已
請問各位先知....要如何分離十位數及個位數ㄋ........
t$=time$
a$ = Val(Mid(t$, 7))
Label1.Caption = a$
列印秒的個位數
但是我下這個子令時....
a$ = Val(Mid(t$, 6))
Label1.Caption = a$
卻列印十位及個位數..........我只需要十位數而已
請問各位先知....要如何分離十位數及個位數ㄋ........
關於Active X的問題(編號：2190)
小弟想寫一個具有以下功能的Active X 請問該如何著手?
1.一開始執行時能開起Server端的文字檔
2.將此文字檔放入Active X 的TextBox中
3.讓User修改此文字檔的內容,並存回Server中
----------------------------------------------------
其中最大的問題就是如何讓用戶端存取Server端的文字檔
請各為高手幫幫忙好嗎?
1.一開始執行時能開起Server端的文字檔
2.將此文字檔放入Active X 的TextBox中
3.讓User修改此文字檔的內容,並存回Server中
----------------------------------------------------
其中最大的問題就是如何讓用戶端存取Server端的文字檔
請各為高手幫幫忙好嗎?
日期對應？(編號：2188)
有什麼方法可以輸入年月日，再尋找出那天是星期幾
不用日期元件，找了很多API都找不到
應該是可以CALL到WINDOWS中「日期/時間」中的日期的API來作對應
但是要怎麼做呢
不用日期元件，找了很多API都找不到
應該是可以CALL到WINDOWS中「日期/時間」中的日期的API來作對應
但是要怎麼做呢
如何讓長數字不變成浮點數？(編號：2187)
在文字方塊中數入數字後要判斷是否大於0，用了Csng(123456789.123)，會在文字方塊顯示浮點數1.234568E+08。判斷完畢要如何再轉回來原來數字？
MSChart Title Text(編號：2185)
要如何在 "程式中動態" 指定 MSChart Title X-Axis Text ?? 用哪個屬性來設 ?? 謝謝大家!! VB6+NTS4+SP4
訂單明細輸入的問題(編號：2183)
請教各位:
我該用那一個元件作為訂單明細的輸入介面比較簡單與恰當 ?
一般訂單明細是多筆的,且可作新增, 修改, 刪除,輸入商品編號時會自動去存貨檔抓商品名稱及單價等資料. DataGrid ,MsFlexGrid
好像都不是頂好用.
我該用那一個元件作為訂單明細的輸入介面比較簡單與恰當 ?
一般訂單明細是多筆的,且可作新增, 修改, 刪除,輸入商品編號時會自動去存貨檔抓商品名稱及單價等資料. DataGrid ,MsFlexGrid
好像都不是頂好用.
請問data environment的rs問題??(編號：2181)
在下用data environment command物件建立的recordset如何將其設定為修改模式?如rs.edit的方法,但在rs中找不到此一方法,請各位高手告訴我好嗎?
sql查詢的問題(編號：2180)
請問先進們 我的資料庫以經連接成功了
有一個問題請問 按下 command1時去執行Dim sqltest1 As String
dim sqltest
sqltest = "select ff,cc from test where ff=2 and cc=7"
Text2.DataField = sqltest
我想把 sqltest 中的結果放到text2 中怎麼會出現
無法連接到資料欄或datamumber sqltest = "select ff,cc from test where ff=2 and cc=7"
Text2.DataField = sqltest 這裡有錯 是為什麼呢??
ps:where 後面的值可以是變數嗎?? 如text中輸入的值當作是2 7呢
謝謝
有一個問題請問 按下 command1時去執行Dim sqltest1 As String
dim sqltest
sqltest = "select ff,cc from test where ff=2 and cc=7"
Text2.DataField = sqltest
我想把 sqltest 中的結果放到text2 中怎麼會出現
無法連接到資料欄或datamumber sqltest = "select ff,cc from test where ff=2 and cc=7"
Text2.DataField = sqltest 這裡有錯 是為什麼呢??
ps:where 後面的值可以是變數嗎?? 如text中輸入的值當作是2 7呢
謝謝
懇請前輩賜教(編號：2179)
以前曾問過MsgBox這個VB內建函數而後才知道,MsgBox中字型大小是無法更改,請問各位前輩.要如何才能寫出一個完全類似MsgBox這樣功能的函數但是要能更改字型大小.拜託請各位前輩多指教.不勝感激
關於text多行讀取的問題.......(編號：2178)
請問各位網友:
我有一個text的控制項,其屬性已設為可多行輸入,那我要如何一行一行的去讀取此資料呢?????
ex:thank.... (第一行)
thanks.....(第二行)
要如何第一次讀取第一行的thank,而第二次讀取thanks....
謝謝......
我有一個text的控制項,其屬性已設為可多行輸入,那我要如何一行一行的去讀取此資料呢?????
ex:thank.... (第一行)
thanks.....(第二行)
要如何第一次讀取第一行的thank,而第二次讀取thanks....
謝謝......
關於 WinInet API ??? 急救 (附上部份程式)(編號：2177)
我想在我的電腦中寫一程式(VB),能夠得知是否有新連線(web 站 80 port ),
我查過很多資料,但都沒成功.
取得Cache中的資料也可以!!
但ie -＞index.dat 與 netscape-＞fat.db我都不知道如何取出!!
我有一個客戶想監控他小孩上的網站,所以....救救我,他對我很重要....!!!
他又不想到Temporary Internet Files目錄中查看.....唉!!!!
幫幫我!!!
請教一下,在WinInet API中的函數是否有我適合的???
我測了好多個,但都沒有我預期的資料......不知是語法錯了還是根本就不是我要的.....
如:
Microsoft Win32 Internet Functions
Public Declare Function FindFirstUrlCacheEntry Lib "wininet" _
Alias "FindFirstUrlCacheEntryA" _
(lpszUrlSearchPattern As String, _
lpFirstCacheEntryInfo As CACHE_ENTRY_INFO, _
BufferSize As Long) As Long
Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Type CACHE_ENTRY_INFO
dwStructSize As Long
lpszSourceUrlName As String
lpszLocalFileName As String
CacheEntryType As Long
dwUseCount As Long
dwHitRate As Long
dwSizeLow As Long
dwSizeHigh As Long
LastModifiedTime As FILETIME
ExpireTime As FILETIME
LastAccessTime As FILETIME
LastSyncTime As FILETIME
lpHeaderInfo As Byte
dwHeaderInfoSize As Long
lpszFileExtension As String
dwReserved As Long
End Type
我查過很多資料,但都沒成功.
取得Cache中的資料也可以!!
但ie -＞index.dat 與 netscape-＞fat.db我都不知道如何取出!!
我有一個客戶想監控他小孩上的網站,所以....救救我,他對我很重要....!!!
他又不想到Temporary Internet Files目錄中查看.....唉!!!!
幫幫我!!!
請教一下,在WinInet API中的函數是否有我適合的???
我測了好多個,但都沒有我預期的資料......不知是語法錯了還是根本就不是我要的.....
如:
Microsoft Win32 Internet Functions
Public Declare Function FindFirstUrlCacheEntry Lib "wininet" _
Alias "FindFirstUrlCacheEntryA" _
(lpszUrlSearchPattern As String, _
lpFirstCacheEntryInfo As CACHE_ENTRY_INFO, _
BufferSize As Long) As Long
Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Type CACHE_ENTRY_INFO
dwStructSize As Long
lpszSourceUrlName As String
lpszLocalFileName As String
CacheEntryType As Long
dwUseCount As Long
dwHitRate As Long
dwSizeLow As Long
dwSizeHigh As Long
LastModifiedTime As FILETIME
ExpireTime As FILETIME
LastAccessTime As FILETIME
LastSyncTime As FILETIME
lpHeaderInfo As Byte
dwHeaderInfoSize As Long
lpszFileExtension As String
dwReserved As Long
End Type
將MsflexGrid中之相鄰列合併(編號：2176)
Dear All:
我在Form Load時,將Grid之第一列與第二列之第一欄合併
但是再對Grid作其他動作時,將合併之屬性(mergecol(1)=false)設為False,會將之前所合併之欄位也變成不合併,程式應如何寫才能達到
我所要的咧???
我在Form Load時,將Grid之第一列與第二列之第一欄合併
但是再對Grid作其他動作時,將合併之屬性(mergecol(1)=false)設為False,會將之前所合併之欄位也變成不合併,程式應如何寫才能達到
我所要的咧???
select...where..問題(編號：2171)
access mdb 資料庫中
select * from table1 where filed1 = '" & Text1.text & "'
filed1型態為Text可行,但是如果filed1行態為Integer時
where filed1 = 要如何敘述??
select * from table1 where filed1 = '" & Text1.text & "'
filed1型態為Text可行,但是如果filed1行態為Integer時
where filed1 = 要如何敘述??
關於adodc(編號：2170)
當我做一個Adodc控制項時,若我在表單中並沒有物件的資料來源(DataSource)指向它,但是我在程式中卻用得到(我只作做資料的查詢，而不須做資料的輸出顯示),總是會發生錯誤,就是說沒有設定物件變數與With變數塊變數之類的!
兩個資料庫的合併....(編號：2169)
如果把一個可輸入的資料庫程式安裝在兩台以上的電腦....
key in 完後要進行合併...
序號並不是用自動編號...
這樣的話該如何把兩份資料庫合併成一個...
而且序號可以連接下去....
感謝各位高手指教....
key in 完後要進行合併...
序號並不是用自動編號...
這樣的話該如何把兩份資料庫合併成一個...
而且序號可以連接下去....
感謝各位高手指教....
有關RDO Query timeout 問題(編號：2168)
各位高手好:
請問我用rdo執行select * from table 此table內大約有2000筆資料,執行結果為
run time error "40002"
s1T00:[Microsoft][ODBC SQL Server Driver]Timeout expired
我使用一個connect 和一個 OpenResultset而且執行第一次時就發生,這種情形和HD只剩200MB有關嗎????
請問我用rdo執行select * from table 此table內大約有2000筆資料,執行結果為
run time error "40002"
s1T00:[Microsoft][ODBC SQL Server Driver]Timeout expired
我使用一個connect 和一個 OpenResultset而且執行第一次時就發生,這種情形和HD只剩200MB有關嗎????
請教一個有關unload me的問題(編號：2167)
我的程式的有關資料庫的AP
在程式裡我call了兩三個sub副程式之後,
其中一個是 sub3是有unload me
平時不會有問題,可是在完成資料的更新後離開時.
程式有時侯會當掉,應該如何正確的unload me
才是正確的寫法.
是不是能在unload me之後即中斷返回sub的動作
(s3()回去s2()回去s1()....)好像因為如此才當掉的.
另unload的指令是不是能把所有 me.controls 的記憶體都釋放掉??
sub s1()
call s2()
end sub
sub s2()
call s3
end sub
sub s3()
unload me
end sub
在程式裡我call了兩三個sub副程式之後,
其中一個是 sub3是有unload me
平時不會有問題,可是在完成資料的更新後離開時.
程式有時侯會當掉,應該如何正確的unload me
才是正確的寫法.
是不是能在unload me之後即中斷返回sub的動作
(s3()回去s2()回去s1()....)好像因為如此才當掉的.
另unload的指令是不是能把所有 me.controls 的記憶體都釋放掉??
sub s1()
call s2()
end sub
sub s2()
call s3
end sub
sub s3()
unload me
end sub
再請問兩個關於影像處理的問題.....(編號：2165)
眾高手:
小弟有兩個影像處理的問題想請教:
1.在vb中要如何讀取*raw的檔案格式,picture控制項無法讀取!!!!
2.利用picture控制項的point方法可讀取到影像的色彩值,但其所
讀出的為一長整數的資料,小弟要如何將其轉換與RGB的數值呢???
(因目前有四個色彩值,必須將其取平均值,此動作要如何完成,謝
謝!!)
謝謝...........
小弟有兩個影像處理的問題想請教:
1.在vb中要如何讀取*raw的檔案格式,picture控制項無法讀取!!!!
2.利用picture控制項的point方法可讀取到影像的色彩值,但其所
讀出的為一長整數的資料,小弟要如何將其轉換與RGB的數值呢???
(因目前有四個色彩值,必須將其取平均值,此動作要如何完成,謝
謝!!)
謝謝...........
about 讀取dbf檔的問題~~ p^o^q...(編號：2164)
我的dbf檔的stru也是Char(8),Char(6),Char(4),Char(1)
，可是為什麼我在畫面上看到的資料都是截在正常的點，
是不是我哪兒弄錯了呢？
而且我覺得好像會連那個field name都會出現，佔一行資料列哩！
以下是我的program...希望能有助於各位指導小妮子lo~~
^o^....
模組module1...
Type MemberRecord
tno As String * 8
tdat As String * 6
ttim As String * 4
tsft As String * 1
End Type
按了funckey....
Private Sub command1_click()
Open "c:\aa.dbf" For Random As #1
i = 1
Seek #1, i
Do Until EOF(1)
Get #1, i, Menb1
tno.Text = Menb1.tno
tdate.Text = Menb1.tdat
ttim.Text = Menb1.ttim
ttype.Text = Menb1.tsft
i = i + 1
Debug.Print Menb1.tno & Menb1.tdat & Menb1.ttim & Menb1.tsft
Loop
End Sub
，可是為什麼我在畫面上看到的資料都是截在正常的點，
是不是我哪兒弄錯了呢？
而且我覺得好像會連那個field name都會出現，佔一行資料列哩！
以下是我的program...希望能有助於各位指導小妮子lo~~
^o^....
模組module1...
Type MemberRecord
tno As String * 8
tdat As String * 6
ttim As String * 4
tsft As String * 1
End Type
按了funckey....
Private Sub command1_click()
Open "c:\aa.dbf" For Random As #1
i = 1
Seek #1, i
Do Until EOF(1)
Get #1, i, Menb1
tno.Text = Menb1.tno
tdate.Text = Menb1.tdat
ttim.Text = Menb1.ttim
ttype.Text = Menb1.tsft
i = i + 1
Debug.Print Menb1.tno & Menb1.tdat & Menb1.ttim & Menb1.tsft
Loop
End Sub
時常發生記憶體不足,如何解決!!(編號：2158)
本人有一project 內含好多form,當show 多幾個form時,有些圖便變黑,之後便要close VB,否則便出現發生記憶體不足
但我不能hide or unload form 因為我用hide表面的from 去回上一頁form
但我不能hide or unload form 因為我用hide表面的from 去回上一頁form
懇請高手指導(編號：2156)
以前曾問過MsgBox這個VB內建函數而後才知道,MsgBox中字型大小是無法更改,請問各位前輩.要如何才能寫出一個完全類似MsgBox這樣功能的函數但是要能更改字型大小.拜託請各位前輩多指教.不勝感激
HOOK 的正確使用時機...(編號：2154)
弟寫了一個程式... 程式啟動後會自動用 Hook 將 KB & Mouse 鎖定..鎖定後... 其他動作好像也被鎖定一樣... timer 無作用... Winsock 的事件也無法進行傳輸與接收...(因為弟寫用其他電腦用 winsock.senddata to 本地電腦 winsock.getdata 特定條件來觸發 鍵盤與滑鼠回復作用....) 不知是否有類似 Hook 功能... 但是背景依然在動作中的使用方法.... 煩請各位高手指引小弟一下... 8) Thanks!!
sql語法查不出來(編號：2152)
dim sqla as String
Public rst6 As Recordset
rst6.Open "SELECT * from sss where '" & sqla & "'", ado2, adOpenStatic, adLockOptimistic
--＞sqla="欄位1 ='aaa' and 欄位2 ='bbb' and 欄位3 ='ccc'"
結果回應 ::語法錯誤 找不到'運算元' 為什麼會這樣???
傳入
-＞sqla="(欄位1 ='aaa') and (欄位2 ='bbb') and (欄位3 ='ccc')"
也不對
有誰知道教教我吧!謝謝大家....
vb6+nts4+sp4
Public rst6 As Recordset
rst6.Open "SELECT * from sss where '" & sqla & "'", ado2, adOpenStatic, adLockOptimistic
--＞sqla="欄位1 ='aaa' and 欄位2 ='bbb' and 欄位3 ='ccc'"
結果回應 ::語法錯誤 找不到'運算元' 為什麼會這樣???
傳入
-＞sqla="(欄位1 ='aaa') and (欄位2 ='bbb') and (欄位3 ='ccc')"
也不對
有誰知道教教我吧!謝謝大家....
vb6+nts4+sp4
Data Grid problems(編號：2150)
Can I set auto fit column size in data grid ? Or any ways that I can set each column width at design or run time ?
請問WebClass在IIS中執行是IN-Process OR OUT???(編號：2149)
請問各位熟悉COM/COM+的網友:
1.WebClass是IN/OUT Process來執行??
2.在WebClass中要如何作到POOLING??(CONNECTING/RESOURCE)
3.寫在GLOBAL.ASA中,再以WebClass引入算是POOLING的一種嗎???
4.為何在WebClass中引用有IFRAME的HTML TAG會無效??(使用PROCESSTAG-- ＞＜WC@＞＜/WC@＞)
5.如果我在PROCESSTAG中以＜WC@＞＜/WC@＞來置一大大大大串的資料時會發生其後的HTML TAG被截掉一大段,特別是在字串資料中含有SCRIPT CODE及HTML TAG時!!是BUG???
6.當我再修改了WebClass後,再編譯成DLL,會造成這個DLL的INTERFACE的改變,而影響其CLASSID的值嗎!!(因為我每次均需重新REGSVR32.EXE一次)
7.在VB6中要發佈寫好的WebClass元件時要如何用??(我用VB的封裝佈署靈中的INTERNET佈署方式始終無法成功!!因為它只是把ASP及CAB檔安裝到目的目錄中而以,並沒有把CAB給解開????更不要提安裝了!!)
以上的問題是我使用WebClass時的一些問題,如有人知道或有更好的意見,亦可告知!!
謝謝!!
1.WebClass是IN/OUT Process來執行??
2.在WebClass中要如何作到POOLING??(CONNECTING/RESOURCE)
3.寫在GLOBAL.ASA中,再以WebClass引入算是POOLING的一種嗎???
4.為何在WebClass中引用有IFRAME的HTML TAG會無效??(使用PROCESSTAG-- ＞＜WC@＞＜/WC@＞)
5.如果我在PROCESSTAG中以＜WC@＞＜/WC@＞來置一大大大大串的資料時會發生其後的HTML TAG被截掉一大段,特別是在字串資料中含有SCRIPT CODE及HTML TAG時!!是BUG???
6.當我再修改了WebClass後,再編譯成DLL,會造成這個DLL的INTERFACE的改變,而影響其CLASSID的值嗎!!(因為我每次均需重新REGSVR32.EXE一次)
7.在VB6中要發佈寫好的WebClass元件時要如何用??(我用VB的封裝佈署靈中的INTERNET佈署方式始終無法成功!!因為它只是把ASP及CAB檔安裝到目的目錄中而以,並沒有把CAB給解開????更不要提安裝了!!)
以上的問題是我使用WebClass時的一些問題,如有人知道或有更好的意見,亦可告知!!
謝謝!!
請問如何在 vb 中 display 出經過動態查詢,得到不定筆數,但每個f(編號：2148)
初次使用vb寫資料庫查詢,現在想透過動態查詢,讓 User 自己KeyIn SELECT 條件,再 Display 資料,
資料筆數不固定,但是 Display 時,希望各個欄位有自己的 title ,
除了用txt & lable 定死的,有沒有比較簡單的方法,像是用asp直接
Response.Write ＜tr＞＜td＞ ＜/td＞＜/tr＞ ,Display 一個table 出來
謝了！
資料筆數不固定,但是 Display 時,希望各個欄位有自己的 title ,
除了用txt & lable 定死的,有沒有比較簡單的方法,像是用asp直接
Response.Write ＜tr＞＜td＞ ＜/td＞＜/tr＞ ,Display 一個table 出來
謝了！
CommonDialog1.Showsave 可以改嗎?(編號：2146)
程式中要用到不一樣的 Open/Save File 的畫面.
但 VB 本身提供的 FileListBox , DriveListBox
比 CommonDialog 差多了??
但 VB 本身提供的 FileListBox , DriveListBox
比 CommonDialog 差多了??
在RichTextBox可以插入圖片,但圖片的關聯程式(如小畫家)會跟著執(編號：2145)
在RichTextBox可以插入圖片,方法如下:
RichTextBox1.OLEObjects.Add , , , "dog.bmp"
但是插入後,圖片的關聯程式(如小畫家)會跟著執行...
有沒有方法可以插入圖片後不開啟關聯程式的.....
謝謝~~~!!
RichTextBox1.OLEObjects.Add , , , "dog.bmp"
但是插入後,圖片的關聯程式(如小畫家)會跟著執行...
有沒有方法可以插入圖片後不開啟關聯程式的.....
謝謝~~~!!
資源檔的問題 請教Green(編號：2144)
首先謝謝Green您的指點
衍生問題一問
sndPlaySound 的 第一個參數 改成 lpszSoundName As Any 之後,先前
其它使用 String 型態撥放的程序就不符使用了我當如何改善呢?
衍生問題一問
sndPlaySound 的 第一個參數 改成 lpszSoundName As Any 之後,先前
其它使用 String 型態撥放的程序就不符使用了我當如何改善呢?
請問SQL可以完成交叉查詢嗎??(編號：2143)
在Access中可以輕易完成交叉查詢，
可是我在SQL Server都做不出來，
好像沒有那些指令??
高手們是否能助我一臂之力，
如果不行，那我將會有寫不完的程式了....
感謝您的大恩大德，非常謝謝!!
可是我在SQL Server都做不出來，
好像沒有那些指令??
高手們是否能助我一臂之力，
如果不行，那我將會有寫不完的程式了....
感謝您的大恩大德，非常謝謝!!
關於Data Report(編號：2141)
請問Data Report在windows nt下，是不是無法讓使用者自訂紙張的大小，因為我之前用98，都可以自訂大小，但是現在用nt後，就沒有辦法了，有沒有辦法讓Data Report在nt系統下，也能讓使用者自訂紙張的大小。
如何安裝MSDN於Win2K上?(編號：2140)
請問有哪位在Win2K上安裝了VS6?想請教,其所附之MSDN之安裝程式無法於Win2K上執行,有哪位知道該如何解決?(即無法安裝MSDN於Win2K)
SQL中where子句的多欄位查詢~~~~(編號：2137)
謝謝SPENCER YANG跟大漢堡上去的回答...
至於多欄查詢要怎麼加到listbox呢!?
也就是如何將ListBox中被選定的欄位組成where的子句
可否列一個簡單的例子......謝謝大家....
至於多欄查詢要怎麼加到listbox呢!?
也就是如何將ListBox中被選定的欄位組成where的子句
可否列一個簡單的例子......謝謝大家....
網頁存取SQL Server的問題(編號：2134)
我在ASP網頁中下達對SQL Server選取資料，並做統計，
由於資料量太大，以致資料尚為處理完，
網頁便發生逾時失效的問題。請教高手，有良方否？
前輩請進!!
由於資料量太大，以致資料尚為處理完，
網頁便發生逾時失效的問題。請教高手，有良方否？
前輩請進!!
Setting Up DCOM and NT Security(編號：2133)
在此處有一篇文章http://msdn.microsoft.com/isapi/msdnlib2.idc?theURL=/library/periodic/period98/sren98.htm
是說明如何設定 DCOM 的 Security, Ted 的那本書(Programming Distributed Applications with COM and Microsoft Visual Basic 6.0)第八章也有說明.
但我的問題比較奇怪: 我在公司裝的是 NT4 Server(stand alone, 非 PDC 也非 BDC), 以我旳 ID 登入公司的 Domain.
DCOM 在 Server 端的設定:
驗證等級-無, 執行位置-我的 NT Server, AccessPermission-加入 Everyone, LaunchPermission-加入 Everyone, 身份驗證-互動的使用者, 其餘不變.
以 DCOMServer.exe /regserver 註冊到我的 NT Server.
DCOM 在 Client 端的設定: (我的 Win98 notebook)
執行 Clireg32 DCOMServer.vbr -t DCOMServer.tlb -d -a 0 -s 192.168.1.204 -q
DCOM Client 設定成"共用存取", 在登入成我的 ID 時可以啟動 DCOM Server, 用其它 Domain User 登入則出現 Error 70 - Permission denied!
其實不管在哪一台機器(Win2000 或公司的 PDC Server)都沒有辦法啟動我的 DCOM Server, 原因也都是 "無權限"!
不知道有哪位前輩高人可以指導一下...
是說明如何設定 DCOM 的 Security, Ted 的那本書(Programming Distributed Applications with COM and Microsoft Visual Basic 6.0)第八章也有說明.
但我的問題比較奇怪: 我在公司裝的是 NT4 Server(stand alone, 非 PDC 也非 BDC), 以我旳 ID 登入公司的 Domain.
DCOM 在 Server 端的設定:
驗證等級-無, 執行位置-我的 NT Server, AccessPermission-加入 Everyone, LaunchPermission-加入 Everyone, 身份驗證-互動的使用者, 其餘不變.
以 DCOMServer.exe /regserver 註冊到我的 NT Server.
DCOM 在 Client 端的設定: (我的 Win98 notebook)
執行 Clireg32 DCOMServer.vbr -t DCOMServer.tlb -d -a 0 -s 192.168.1.204 -q
DCOM Client 設定成"共用存取", 在登入成我的 ID 時可以啟動 DCOM Server, 用其它 Domain User 登入則出現 Error 70 - Permission denied!
其實不管在哪一台機器(Win2000 或公司的 PDC Server)都沒有辦法啟動我的 DCOM Server, 原因也都是 "無權限"!
不知道有哪位前輩高人可以指導一下...
關於執行速度與作業系統之vb問題(編號：2131)
請問高手:
1.專案中若宣告很多single型態之變數,且都有使用,是否會使執行速度變慢?
2.vb編譯好之執行檔可否放於Linux下執行,若不可,要使用何種跨平台語言,或何種方式才能解決此問題?
1.專案中若宣告很多single型態之變數,且都有使用,是否會使執行速度變慢?
2.vb編譯好之執行檔可否放於Linux下執行,若不可,要使用何種跨平台語言,或何種方式才能解決此問題?
How to open an existing text file by clicking a button?(編號：2130)
How to open an existing text file (e.g. abc.txt) in vb6 by
clicking a button? The text file is created from wordpad!
Thanks!
clicking a button? The text file is created from wordpad!
Thanks!
讀取沒資料的資料庫(編號：2129)
我的問題是
當我資料庫裡沒有資料時
而我不利用VB物件Data控制物件來讀取資料
而是用指令來控制讀取資料
例如利用MoveFirst指令來控制如此，倘若資料庫沒有資料
則會跳出錯誤訊息3021無現用的記錄
我應該用何種指令來預先判斷資料庫是否有資料
及無資料時應如何處理
leo
當我資料庫裡沒有資料時
而我不利用VB物件Data控制物件來讀取資料
而是用指令來控制讀取資料
例如利用MoveFirst指令來控制如此，倘若資料庫沒有資料
則會跳出錯誤訊息3021無現用的記錄
我應該用何種指令來預先判斷資料庫是否有資料
及無資料時應如何處理
leo
程式原始碼，僅供參考(編號：2125)
http://home.todo.com.tw/life/_wei_lin_/list.htm
提供一些程式，有拼圖、撲克牌、cd audio player、猜數字‧
供有意者參考用，希望VB更蓬勃發展。
提供一些程式，有拼圖、撲克牌、cd audio player、猜數字‧
供有意者參考用，希望VB更蓬勃發展。
如何開啟檔案(編號：2124)
我想從"執行檔所在的目錄"中開啟DOC檔案
我用start
Dim ChSub As String
Dim Pig As Long
ChSub = App.Path + "\..\Data\change.doc"
Pig = Shell("start" + ChSub, vbNormalFocus)
但是在程式執行之後, 卻沒有反應
有時會開出一閃即逝的dos視窗
我到http://feitsui.hyd.ncku.edu.tw/TLCheng/Basic/index.htm中參考設定
其中需要設定引用項目, 不過我的vb裡, 根本沒有Microsoft Shell Controls and Automation這一項說..
所以以下指令無法執行..
Dim tShell As New Shell ' 宣告物件
tShell.Open App.Path + "\..\Data\change.doc"
是不是哪裡出錯了呢?
我用start
Dim ChSub As String
Dim Pig As Long
ChSub = App.Path + "\..\Data\change.doc"
Pig = Shell("start" + ChSub, vbNormalFocus)
但是在程式執行之後, 卻沒有反應
有時會開出一閃即逝的dos視窗
我到http://feitsui.hyd.ncku.edu.tw/TLCheng/Basic/index.htm中參考設定
其中需要設定引用項目, 不過我的vb裡, 根本沒有Microsoft Shell Controls and Automation這一項說..
所以以下指令無法執行..
Dim tShell As New Shell ' 宣告物件
tShell.Open App.Path + "\..\Data\change.doc"
是不是哪裡出錯了呢?
Sending Messages with Outlook(編號：2123)
以下是阿呆在www找到 Sending Messages with Outlook 的方法:
You will need to create a Reference to Microsoft Outlook 98 Object Model.
To create this reference for Visual Basic 5 or 6 goto Project / References. Then select Microsoft Outlook 98 Model.
basOutlook
The basOutlook module contains a single routine that calls several methods within the Outlook object model.
Methods
Public Sub OutlookSendMessage(sRecipient As String, sSubject As String, _
sMessage As String, _
Optional eImportance As OlImportance = olImportanceNormal)
Sample Usage
OutlookSendMessage "info@hello.com", "Subject Title", "Hi, how r u!?"
問題是當阿呆安裝完MS Outlook後, 找不到Outlook 98 Object Module, 只能在"設定引用項目"找到
Outlook 8.0 object library. 阿呆沒理會到, 只選了 Outlook 8.0 object library. 但當阿呆在Form1的button
加入OutlookSendMessage "info@hello.com", "Subject Title", "Hi, how r u!?" 時, 就說找不到sub 或 method.
阿呆不知那個OutlookSendMessage 是API 或是什麼的function. 想問問要加上什麼的bas 才能用到,那裏找到?
謝謝~~
You will need to create a Reference to Microsoft Outlook 98 Object Model.
To create this reference for Visual Basic 5 or 6 goto Project / References. Then select Microsoft Outlook 98 Model.
basOutlook
The basOutlook module contains a single routine that calls several methods within the Outlook object model.
Methods
Public Sub OutlookSendMessage(sRecipient As String, sSubject As String, _
sMessage As String, _
Optional eImportance As OlImportance = olImportanceNormal)
Sample Usage
OutlookSendMessage "info@hello.com", "Subject Title", "Hi, how r u!?"
問題是當阿呆安裝完MS Outlook後, 找不到Outlook 98 Object Module, 只能在"設定引用項目"找到
Outlook 8.0 object library. 阿呆沒理會到, 只選了 Outlook 8.0 object library. 但當阿呆在Form1的button
加入OutlookSendMessage "info@hello.com", "Subject Title", "Hi, how r u!?" 時, 就說找不到sub 或 method.
阿呆不知那個OutlookSendMessage 是API 或是什麼的function. 想問問要加上什麼的bas 才能用到,那裏找到?
謝謝~~
GetSystemMenu API(紀大哥請進)(編號：2122)
這是個令右上角關閉消失的API
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400
SystemMenu% = GetSystemMenu(hwnd, 0)
Res% = RemoveMenu(SystemMenu%, 5, MF_BYPOSITION)
Res% = RemoveMenu(SystemMenu%, 5, MF_BYPOSITION)
這段source 是阿呆在紀大哥的網站找到的, 並且在Win98 試驗過已經成功. 但當阿呆在NT 試驗時,
卻出現了"溢位"的 message ,說 SystemMenu% = GetSystemMenu(hwnd, 0) 這句出現溢位,但在98 是能操作的.
阿呆想問問如何能解決這問題, 謝謝!
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400
SystemMenu% = GetSystemMenu(hwnd, 0)
Res% = RemoveMenu(SystemMenu%, 5, MF_BYPOSITION)
Res% = RemoveMenu(SystemMenu%, 5, MF_BYPOSITION)
這段source 是阿呆在紀大哥的網站找到的, 並且在Win98 試驗過已經成功. 但當阿呆在NT 試驗時,
卻出現了"溢位"的 message ,說 SystemMenu% = GetSystemMenu(hwnd, 0) 這句出現溢位,但在98 是能操作的.
阿呆想問問如何能解決這問題, 謝謝!
請問Crystal Report 7.0 如何限制固定筆數自動跳頁(編號：2120)
請問Crystal Report 7.0 如何限制固定筆數自動跳頁
例如本來一頁可以印30筆records
可是如今想25筆便跳下一頁由第26筆開始印,
試了許久它就是不聽話....請問前輩是否有解??謝謝!!
例如本來一頁可以印30筆records
可是如今想25筆便跳下一頁由第26筆開始印,
試了許久它就是不聽話....請問前輩是否有解??謝謝!!
封裝暨部署精靈做出來的安裝程式可以在win2000安裝嗎???(編號：2118)
封裝暨部署精靈做出來的安裝程式可以在win2000安裝嗎???
環境 : vb6 + sp3 with win98
謝謝~~!!!
環境 : vb6 + sp3 with win98
謝謝~~!!!
請問如何讓多個form共用一個static變數(編號：2112)
請問如何讓多個form共用一個static變數
我在模組中宣告
static function analy() as integer
analy=analy+1
end function
但好像值不會保留耶...?
thx
我在模組中宣告
static function analy() as integer
analy=analy+1
end function
但好像值不會保留耶...?
thx
SQL 語法與SQL SERVER(編號：2111)
我在SQL SERVER的QUERY ANALYZER中執行以下的SQL語法:
select brcode,brname into test from emp05b order by brcode
結果出現以下錯誤訊息:
Cannot run SELECT INTO in this database.
The database owner must run sp_dboption to enable this option.
請問如何解決?
select brcode,brname into test from emp05b order by brcode
結果出現以下錯誤訊息:
Cannot run SELECT INTO in this database.
The database owner must run sp_dboption to enable this option.
請問如何解決?
請問可否做到用VB動態去Creat ODBC的 DSN ??(編號：2109)
我用Lotus Notes開發AP , 要透過 ODBC去 MS Access 2.0資料庫去
抓資料 , 但ODBC的DSN要先設定好, 若要透過 VB 程式去Creat DSN
設定, 可否做得到 ?? 如何做 ??
抓資料 , 但ODBC的DSN要先設定好, 若要透過 VB 程式去Creat DSN
設定, 可否做得到 ?? 如何做 ??
學網??慢??(編號：2108)
不知是否為學網的問題, 常常會有載入時間過久, 就被踢出去了.
看文章也就算了, 回 post 也是這樣, 常常白打, 現在字就越打越少了, 看樣子以後用快速代碼...
慢啊! 慢啊!
更奇怪的是我筆記型電腦用 HiNet ISP 上還是慢到斷?
搞不好是 HiNet 的問題...
看文章也就算了, 回 post 也是這樣, 常常白打, 現在字就越打越少了, 看樣子以後用快速代碼...
慢啊! 慢啊!
更奇怪的是我筆記型電腦用 HiNet ISP 上還是慢到斷?
搞不好是 HiNet 的問題...
VB6 wave in/out function 問題?(編號：2107)
請問有沒有人知道怎麼在 VB6 中宣告 WAVEHDR 結構比較好?
又 lpData 可用 VB6 的 ByteArray 來當儲存空間嗎?
或者可用 Fixed-Length 的 String 來使用?
尤其是因為 DBCS 的問題, 有點搞不清楚狀況.
不知各位先進有沒有一些建議或知道那裡有 Sample 可參考. 謝謝.
Type WAVEHDR
lpData As Long
dwBufferLength As Long
dwBytesRecorded As Long
dwUser As Long
dwFlags As Long
dwLoops As Long
lpNext As Long
reserved As Long
End Type
typedef struct {
LPSTR lpData;
DWORD dwBufferLength;
DWORD dwBytesRecorded;
DWORD dwUser;
DWORD dwFlags;
DWORD dwLoops;
struct wavehdr_tag * lpNext;
DWORD reserved;
} WAVEHDR;
又 lpData 可用 VB6 的 ByteArray 來當儲存空間嗎?
或者可用 Fixed-Length 的 String 來使用?
尤其是因為 DBCS 的問題, 有點搞不清楚狀況.
不知各位先進有沒有一些建議或知道那裡有 Sample 可參考. 謝謝.
Type WAVEHDR
lpData As Long
dwBufferLength As Long
dwBytesRecorded As Long
dwUser As Long
dwFlags As Long
dwLoops As Long
lpNext As Long
reserved As Long
End Type
typedef struct {
LPSTR lpData;
DWORD dwBufferLength;
DWORD dwBytesRecorded;
DWORD dwUser;
DWORD dwFlags;
DWORD dwLoops;
struct wavehdr_tag * lpNext;
DWORD reserved;
} WAVEHDR;
help me,overlay問題?(編號：2105)
我使用overlay合圖卻發現合第三張時,會蓋圖是否有什麼沒設?
圖大小相等..
ImageList1.MaskColor = RGB(256, 256, 256)
ImageList1.BackColor = RGB(256, 256, 256)
ImageList1.UseMaskColor = True
'
Picture1.Picture = ImageList1.Overlay(1, 2)
ImageList1.ListImages.Add 4,
,
Picture1.PicturePicture1.Picture = ImageList1.Overlay(4, 3)
圖大小相等..
ImageList1.MaskColor = RGB(256, 256, 256)
ImageList1.BackColor = RGB(256, 256, 256)
ImageList1.UseMaskColor = True
'
Picture1.Picture = ImageList1.Overlay(1, 2)
ImageList1.ListImages.Add 4,
,
Picture1.PicturePicture1.Picture = ImageList1.Overlay(4, 3)
關於 Crystal Report 7.0 Subreport 的問題 ?? Help !!(編號：2101)
從VB端,如何設定Subreport 的 SQLQueryString ..
我使用以下程式碼會有問題 !!
Dim sbRpt As New CRPEAuto.Report
sbRpt.OpenSubreport("P:\GICMIS\Report\SubRpt.rpt")
sbRpt.SQLQueryString = "Select * from TableName"
我使用以下程式碼會有問題 !!
Dim sbRpt As New CRPEAuto.Report
sbRpt.OpenSubreport("P:\GICMIS\Report\SubRpt.rpt")
sbRpt.SQLQueryString = "Select * from TableName"
2個 DataGrid(編號：2099)
現在有2個 DataGrid 裡面的資料結構完全一樣，只是資料內容不同
有沒有什麼辦法讓我在 DataGrid1觸發了
DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
這個事件時，DataGrid2也做相同的動作呢.....就是這2個DataGrid
的選取到的欄位位置會完全一樣
我已經用了
DataGrid2.Row = DataGrid1.Row
DataGrid2.Col = DataGrid1.Col
不過還是沒用...
有沒有什麼辦法讓我在 DataGrid1觸發了
DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
這個事件時，DataGrid2也做相同的動作呢.....就是這2個DataGrid
的選取到的欄位位置會完全一樣
我已經用了
DataGrid2.Row = DataGrid1.Row
DataGrid2.Col = DataGrid1.Col
不過還是沒用...
撥放資源檔中存在的.wav檔(編號：2098)
請教如何撥放資源檔存在的.wav檔
假設 text.rc 中有下列描述
//SOUND
301 SOUND 1.WAV
302 SOUND 2.WAV
製成 text.res
在 VB 中如何將聲音撥放
另在LoadResData()語法中 index 與 fromat 要怎麼用呢?
LoadResData(index, format)
我是否可以用 sndPlaySound 這的API來撥放呢?
ss = sndPlaySound(LoadResData( ????, ???? ),1)
敬請先進指點.
假設 text.rc 中有下列描述
//SOUND
301 SOUND 1.WAV
302 SOUND 2.WAV
製成 text.res
在 VB 中如何將聲音撥放
另在LoadResData()語法中 index 與 fromat 要怎麼用呢?
LoadResData(index, format)
我是否可以用 sndPlaySound 這的API來撥放呢?
ss = sndPlaySound(LoadResData( ????, ???? ),1)
敬請先進指點.
MTS(編號：2096)
OS NT 2000 RC2
VB 6.0 中文版
以下程式執行於 objCT.SetComplete 產生
"沒有設定物件變數或WITH 區塊變數"
ObjCT 確定是個OBJECT, 不知是哪裡需要注意?
include COM+ Service Type Library
Dim objCT as ObjectContext
set objCT = GetObjectContext()
objCT.SetComplete
exit sub
Errh:
objCT.SetAbort
Thank u for help
Chris Lu
VB 6.0 中文版
以下程式執行於 objCT.SetComplete 產生
"沒有設定物件變數或WITH 區塊變數"
ObjCT 確定是個OBJECT, 不知是哪裡需要注意?
include COM+ Service Type Library
Dim objCT as ObjectContext
set objCT = GetObjectContext()
objCT.SetComplete
exit sub
Errh:
objCT.SetAbort
Thank u for help
Chris Lu
自動輸入"Enter鍵"~~~??(編號：2094)
請問一下高手!~~
如何讓電腦自動輸入"Enter"鍵
然後結束MsgBox的視窗呢?…煩e-mail到我的箱罷…
我急需要此一指令ㄚ!~please~!!!!thanks...
如何讓電腦自動輸入"Enter"鍵
然後結束MsgBox的視窗呢?…煩e-mail到我的箱罷…
我急需要此一指令ㄚ!~please~!!!!thanks...
營幕截取程式(編號：2093)
各位先進大家好，小弟又有問題請教大家了!!
在cww先進站上有個可以截取營幕的程式，但是若是程式使用MDI Form
的話，它也會將MdiForm給截取下來，不知各位先進有什麼方法可以
只截取MdiForm中的子表單，而不要連MdiForm都截取呢??
望各位先進能不吝指教!!謝謝!!
在cww先進站上有個可以截取營幕的程式，但是若是程式使用MDI Form
的話，它也會將MdiForm給截取下來，不知各位先進有什麼方法可以
只截取MdiForm中的子表單，而不要連MdiForm都截取呢??
望各位先進能不吝指教!!謝謝!!
VB的 Do...Loop(編號：2090)
position = 1
Do While InStr(position + 1, MyText, " ")
position = InStr(position + 1, MyText, " ")
words = words + 1
Loop
Debug.Print words
能不能解釋一下第二行是甚麼意思呢?
又words的值會隨著空白分隔的數目改變呢?
Do While InStr(position + 1, MyText, " ")
position = InStr(position + 1, MyText, " ")
words = words + 1
Loop
Debug.Print words
能不能解釋一下第二行是甚麼意思呢?
又words的值會隨著空白分隔的數目改變呢?
請問app.path在active x封裝後失效要如何?(編號：2089)
小弟將作品作成active x 控制項封裝internet後至其它的機器ie使用,可是卻發現其內的app.path的功能失效,要如何才能使它能用?
那有Read/Write PDF檔案格式的元件或範例程式???(編號：2087)
各位網友好!!
小弟想寫一個可以讀取/寫出 PDF檔案格式的程式!
不知道有沒有先進有這方面的技術或管道可供參考(要花錢買也可以!!)
或者有沒有人會MS的CHM(HELP檔的格式)之Read/Write的技術資料!!
謝謝!!
小弟想寫一個可以讀取/寫出 PDF檔案格式的程式!
不知道有沒有先進有這方面的技術或管道可供參考(要花錢買也可以!!)
或者有沒有人會MS的CHM(HELP檔的格式)之Read/Write的技術資料!!
謝謝!!
救命哦 - "只有 SQL_DRIVER_NOPROMPT 是被允許的"(編號：2086)
小弟自製.dll
結構如下
PRJECT.vbp
模組 bas_1.bas =＞ openConn
物件類別模組 cls_1.cls =＞ myOpenConn
cls_2.cls =＞ myOpenConn
設計師 dsr_1.cls
bas_1.openConn 開始dsr_1的連線(MS SQL)
cls_1/cls_2.myOpenConn 呼叫 bas_1.bas
結果單獨呼叫 cls_1.myOpenConn 正常.
呼叫 cls_1.myOpenConn 後呼叫
cls_2.myOpenConn 也正常.
但單獨呼叫 cls_2.myOpenConn 時卻出現
"[Microsoft][ODBC 驅動程式管理員] 當連接共用區啟動時只有 SQL_DRIVER_NOPROMPT 是被允許的"
是那邊出錯(MS SQL 和 Web 不同台)
結構如下
PRJECT.vbp
模組 bas_1.bas =＞ openConn
物件類別模組 cls_1.cls =＞ myOpenConn
cls_2.cls =＞ myOpenConn
設計師 dsr_1.cls
bas_1.openConn 開始dsr_1的連線(MS SQL)
cls_1/cls_2.myOpenConn 呼叫 bas_1.bas
結果單獨呼叫 cls_1.myOpenConn 正常.
呼叫 cls_1.myOpenConn 後呼叫
cls_2.myOpenConn 也正常.
但單獨呼叫 cls_2.myOpenConn 時卻出現
"[Microsoft][ODBC 驅動程式管理員] 當連接共用區啟動時只有 SQL_DRIVER_NOPROMPT 是被允許的"
是那邊出錯(MS SQL 和 Web 不同台)
猜數字遊戲，僅供有意者參考(編號：2085)
一款猜數字遊戲?A?B，附原始程式碼僅供VB6新手交流
http://home.todo.com.tw/life/_wei_lin_/ng10/ng10.htm
http://home.todo.com.tw/life/_wei_lin_/ng10/ng10.htm
DataReport 的問題(編號：2084)
我使用 datareport 編製報表, 執行列印時出現 error message "
左右邊界寬於紙張寬度" 請問這是什麼錯誤,該如何避免 ?
ps. 預設印表機紙張為 A4 ,datareport 的height 7200, width 9600.
左右邊界寬於紙張寬度" 請問這是什麼錯誤,該如何避免 ?
ps. 預設印表機紙張為 A4 ,datareport 的height 7200, width 9600.
DataGrid1 的問題 !!(編號：2080)
我在 form 上佈置的 Adodc1 , DataGrid1 及數個 textbox
我的問題如下:
DataGrid 只是用來作多筆顯示(由 textbox 來修資料),但是使用者希望可以用 datagrid 來移動資料庫的記錄指標,但是某些情況下(例如在修改的狀態下)我希望使用者完成指定的動作後才可以移動指標,請教各位
我該利用那些功能,才能控制 DataGrid 是否允許移動記錄指標.
我的問題如下:
DataGrid 只是用來作多筆顯示(由 textbox 來修資料),但是使用者希望可以用 datagrid 來移動資料庫的記錄指標,但是某些情況下(例如在修改的狀態下)我希望使用者完成指定的動作後才可以移動指標,請教各位
我該利用那些功能,才能控制 DataGrid 是否允許移動記錄指標.
如何偵測某個欄位是否在這個table上(編號：2077)
如何偵測某個欄位是否在這個table上
各位高手請問
如何偵測某個欄位是否在這個table上
例如我要知道datProduct("確認碼")中 確認碼此欄位
是否存在此一table中
win95+vb5.0+access 97
各位高手請問
如何偵測某個欄位是否在這個table上
例如我要知道datProduct("確認碼")中 確認碼此欄位
是否存在此一table中
win95+vb5.0+access 97
謝謝大家，如果可以的話，盡可能的給我些資料(編號：2073)
我想寫一個程式，那程式有點像保護程式，它可占有控制權，一定要把我的程式run完才會把控制權交回給別人，別人想用ctrl + alt + del 強迫弄掉，也是不可能的事，當然也包括 alt + F4, 還有，如果可以的話，按那window 的按鍵的時候，也是沒用的啦
不知道，這樣的一個程式，好不好寫，而且，重點是，寫得出來嗎?如果有人有這麼一點點的消息，請麻煩動一下你(妳)那可愛的小手，給我些資料吧!謝謝!
不知道，這樣的一個程式，好不好寫，而且，重點是，寫得出來嗎?如果有人有這麼一點點的消息，請麻煩動一下你(妳)那可愛的小手，給我些資料吧!謝謝!
wake on lan 網路開機程式碼 我看不懂 誰來解 外國網站看到的(編號：2072)
CMagicPacket - AMD Magic Packet (Wake-On-Lan) Class Module (v1.1)
' By Richard Larson, 1999 - Requires VB 6.0 or better.
'
' This class encapsulates the functionality necessary to send Wake-on-Lan
' packets to WFM (Wired-For-Management) enabled computers that reside on
' an IP network.
'
'************************************************************************
'
' Version History:
'
' 1.1 - Fixed a bug that prevented IP addresses with individual octet
' values of zero from being properly validated in the
' ValidateIPAddress() function.
'
' 1.0 - Initial release to Internet.
'
'************************************************************************
'
' External Class Dependencies:
'
' This class depends on the existance of a winsock control on a form
' somewhere in the project. Each instance of this object must have a
' reference set to such a winsock control before it can be used to
' wake-up a workstation. This is accomplished via the WinsockControl
' property of the class.
'
'************************************************************************
'
' To create this class, open a new VB6 project and add a class module to
' it. Name the class module "CMagicPacket" and then paste this code
' snippet into it. Then save the class and add it to any project that
' needs this functionality.
'
' To use an object of this class, you must provide an MS Winsock control
' on one of your forms and then set the WinSockControl property to it as
' a reference. Then you simply set the NICAddress, IPSubnetAddress and
' IPSubnetMask properties of the new object and call the wakeup method.
'
' Example:
'
' Dim WOL_WS as CMagicPacket
' Set WOL_WS = New CMagicPacket
' With WOL_WS
' .WinsockControl=Winsock1
' .NICAddress="0008d7aa4e24"
' .IPSubnetAddress="172.17.1.0"
' .IPSubnetMask="255.255.255.0"
' .WakeUp
' End With
' Set WOL_WS=Nothing
'
' If the IPSubnetAddress or IPSubnetMask properties are left blank
' (or are determined to be invalid), the packet will be broadcast on
' the IP subnet local to the workstation that the object is running on.
'
'************************************************************************
'Object-level constants and enums...
Private Const ERROR_BASE = vbObjectError + 2000
Private Const ERROR_INVALID_NIC_ADDRESS = ERROR_BASE + 1
Private Const ERROR_INVALID_IP_SUBNET_ADDRESS = ERROR_BASE + 2
Private Const ERROR_INVALID_IP_SUBNET_MASK = ERROR_BASE + 3
Private Const ERROR_INVALID_WINSOCK_REFERENCE = ERROR_BASE + 4
Private Const ERROR_NO_WINSOCK_REFERENCE_AVAILABLE = ERROR_BASE + 5
'Object-level variables...
Private m_WinsockControl As Control
Private m_NICAddress As String
Private m_IPSubnetAddress As String
Private m_IPSubnetMask As String
'************************************************************************
' Property WinsockControl()
'
' This is the property assignment function (LET only) for the Winsock
' Control property. It validates that the winsock control being
' assigned is really a winsock control, and that it is not set to
' "nothing". If either of these checks fails, an appropriate error
' message is raised back to the caller.
'
'************************************************************************
Public Property Let WinsockControl(ByRef RefWinsock As Control)
'Check for uninitialized controls...
If RefWinsock Is Nothing Then
Err.Raise ERROR_NO_WINSOCK_REFERENCE_AVAILABLE, _
"CMagicPacket.WinsockControl(LET)", _
"An attempt was made to set the WinsockControl property " & _
"to an uninitialized control"
End If
'Check for invalid control types...
If TypeOf RefWinsock Is Winsock Then
Set m_WinsockControl = RefWinsock
Else
Err.Raise ERROR_INVALID_WINSOCK_REFERENCE, _
"CMagicPacket.WinsockControl(LET)", _
"An attempt was made to set the WinsockControl property " & _
"to a non-winsock control"
End If
'It passed the test, so set our reference to it...
Set m_WinsockControl = RefWinsock
End Property
'************************************************************************
' Property IPSubnetAddress()
'
' These are the assignment functions for the IP Address property. LET
' validates the IP subnet address being assigned and raises an error back
' to the calling function if it was not a valid 32-bit IP address. GET
' returns the current address in dotted-decimal notation (www.xxx.yyy.zzz)
'
'************************************************************************
Public Property Let IPSubnetAddress(ByVal NewAddress As String)
'Set the new IP subnet address...
m_IPSubnetAddress = ValidateIPAddress(NewAddress)
'And raise an error if it is not valid...
If m_IPSubnetAddress = "" Then
Err.Raise ERROR_INVALID_IP_SUBNET_ADDRESS, _
"CMagicPacket.IPSubnetAddress(LET)", _
"Invalid IP Subnet Address"
End If
End Property
Public Property Get IPSubnetAddress() As String
IPSubnetAddress = m_IPSubnetAddress
End Property
'************************************************************************
' Property IPSubnetMask()
'
' These are the assignment functions for the IP Subnet Mask property. LET
' validates the IP subnet mask being assigned and raises an error back to
' the calling function if it was not a valid 32-bit IP mask address. GET
' returns the current address in dotted-decimal notation (www.xxx.yyy.zzz)
'
'************************************************************************
Public Property Let IPSubnetMask(ByVal NewMask As String)
'Set the new IP subnet address...
m_IPSubnetMask = ValidateIPAddress(NewMask)
'And raise an error if it is not valid...
If m_IPSubnetAddress = "" Then
Err.Raise ERROR_INVALID_IP_SUBNET_MASK, _
"CMagicPacket.IPSubnetMask(LET)", _
"Invalid IP Subnet Address"
End If
End Property
Public Property Get IPSubnetMask() As String
IPSubnetMask = m_IPSubnetMask
End Property
'************************************************************************
' Property NICAddress()
'
' These are the assignment functions for the NIC Address property. LET
' validates the NIC Address being assigned and raises an error back to
' the calling function if it was not a valid 48-bit NIC address. GET
' returns the 48-bit unformatted hex address in the form "1A2B3C4D5E6F"
'
'************************************************************************
Public Property Let NICAddress(ByVal NewNicAddress As String)
'Set the new NIC address...
m_NICAddress = ValidateNICAddress(NewNicAddress)
'And raise an error if it was not valid...
If m_NICAddress = "" Then
Err.Raise ERROR_INVALID_NIC_ADDRESS, _
"CMagicPacket.NicAddress(Let)", _
"Invalid Nic Address"
End If
End Property
Public Property Get NICAddress() As String
NICAddress = m_NICAddress
End Property
'************************************************************************
' Method WakeUp()
'
' This method is called in order to send the wake-on-lan magic packet to
' the machine with the 48-bit hardware address specified in NICAdress
' residing on the IP subnet specified by the IPSubnetAddress/IPSubnetMask
' properties. It uses the winsock control that was set in the
' WinSockCtrl property to do the actual packet transfer. An error flag
' will be raised back to the caller if any of these properties are set
' incorrectly.
'
'************************************************************************
Public Sub WakeUp()
Dim ActualNICAddress As String
'Setup error handler...
On Error GoTo Error_Handler1
'Check for valid properties before sending the packet...
ActualNICAddress = ValidateNICAddress(m_NICAddress)
If ActualNICAddress = "" Then
Err.Raise ERROR_INVALID_NIC_ADDRESS, _
"CMagicPacket.Wakeup()", _
"The NICAddress property does not contain a " & _
"valid NIC address"
End If
If m_WinsockControl Is Nothing Then
Err.Raise ERROR_NO_WINSOCK_REFERENCE_AVAILABLE, _
"CMagicPacket.Wakeup()", _
"The WinsockCtrl property has not been set to " & _
"a valid MS-Winsock control"
End If
'Everything is OK, so send the packet on its way...
SendMagicPacketTo m_IPSubnetAddress, m_IPSubnetMask, _
m_NICAddress, m_WinsockControl
Exit Sub
Error_Handler1:
'For now, just return the error to the caller with a modified source...
Err.Raise Err.Number, Err.Source & " ＜Raised From CMagicPacket.WakeUp()＞", _
Err.Description, Err.HelpFile, Err.HelpContext
End Sub
'************************************************************************
' SendMagicPacketTo()
'
' Send a "Magic-packet" to a workstation that supports the "wake-on-lan"
' specification. This routine takes the IP address of the subnet on
' which the workstation to be "awakened" resides, and the 48-bit ethernet
' hardware address of the workstation's NIC. It then builds and sends a
' "magic packet" to that workstation which will wake it up (as though
' someone switched on the power).
'
'************************************************************************
Private Sub SendMagicPacketTo(IPSubnetAddress As String, _
IPSubnetMask As String, _
HWAddress As String, _
WinsockCtrl As Winsock)
'Local Variables...
Dim MagicPacketData(0 To 101) As Byte
Dim HWAddressByteValues(0 To 5) As Byte
Dim ByteIndex As Byte
Dim NICAddressIndex As Byte
'Setup error handler...
On Error GoTo Error_Handler
'First convert the Ethernet HWAddress to a byte array...
HWAddressStrToByteArray HWAddress, HWAddressByteValues()
'Now get the IP broadcast address for the IP subnet we want to use...
IPSubnetAddress = IPSubnetAddressToBroadcastAddress(IPSubnetAddress, IPSubnetMask)
'Setup the Magic-Packet synchronization byte sequence (0xFFFFFFFFFFFF)...
For ByteIndex = 0 To 5
MagicPacketData(ByteIndex) = 255
Next
'Now add the Magic-Packet HWAddress sequence (16 HW Addresses in a row)...
For NICAddressIndex = 0 To 15
For ByteIndex = 0 To 5
MagicPacketData((NICAddressIndex * 6) + ByteIndex + 6) = _
HWAddressByteValues(ByteIndex)
Next
Next
'Send a datagram containing the magic-packet data to the appropriate subnet...
m_WinsockControl.RemoteHost = IPSubnetAddress
m_WinsockControl.Protocol = sckUDPProtocol
m_WinsockControl.SendData MagicPacketData
m_WinsockControl.Close
Exit Sub
Error_Handler:
'For now, just return the error back to the caller with a modified source...
Err.Raise Err.Number, Err.Source & _
" ＜Raised From CMagicPacket.SendMagicPacketTo()＞", _
Err.Description, Err.HelpFile, Err.HelpContext
End Sub
'************************************************************************
' ValidateNICAddress()
'
' This function takes a string and determines if it is a valid NIC
' address by checking it's length (6-hex bytes, 48-bits) and that it is
' a valid hexadecimal value (each nibble is 0-9, or A-F). If all is OK,
' the function returns a cleaned version of the address (with no
' whitespace characters and all upper case values), otherwise it returns
' a blank zero-length string.
'
' Based on this routine, all of the following addresses are valid:
'
' "1a2b3c4d5e6f" returns "1A2B3C4D5E6F"
' "1a.2b.3c.4d.5e.6f" returns "1A2B3C4D5E6F"
' "1a 2b 3c 4d 5e 6f" returns "1A2B3C4D5E6F"
' "1a2b 3c4d 5e6f" returns "1A2B3C4D5E6F" Etc....
'
'************************************************************************
Private Function ValidateNICAddress(AddressToValidate As String) As String
'Local Constants...
Const VALID_NIC_ADDRESS_LENGTH = 12
'Local Variables...
Dim HexCharIndex As Long
Dim HexChar As String
Dim InitialAddress As String
Dim ReducedAddress As String
'Init local variables...
ReducedAddress = ""
InitialAddress = UCase$(Trim$(AddressToValidate))
'Eliminate all non-hexadecimal characters from the address...
For HexCharIndex = 1 To Len(InitialAddress)
HexChar = Mid$(InitialAddress, HexCharIndex, 1)
Select Case HexChar
Case "0" To "9", "A" To "F": ReducedAddress = ReducedAddress & HexChar
End Select
Next
'Return the appropriate value...
If Len(ReducedAddress) = VALID_NIC_ADDRESS_LENGTH Then
ValidateNICAddress = UCase$(ReducedAddress)
Else
ValidateNICAddress = ""
End If
End Function
'************************************************************************
' ValidateIPAddress()
'
' This function takes an IP address in dotted decimal format and verifies
' that there are 4 octets of data and that the value of each octet is
' between zero and 255. This function does NOT determine whether the
' given address is legal for any particular subnetting scheme. If the
' address is valid, it will return the address itself, otherwise it will
' return an empty (zero-length) string.
'
'************************************************************************
Private Function ValidateIPAddress(AddressToValidate As String) As String
'Local Variables...
Dim TempStr As String
Dim ReducedAddress As String
Dim SplitAddress() As String
Dim OctetIndex As Long
Dim OctetValue As Long
'First remove all non-decimal, non-period characters from the address...
For OctetIndex = 1 To Len(AddressToValidate)
TempStr = Mid$(AddressToValidate, OctetIndex, 1)
Select Case TempStr
Case "0" To "9", ".": ReducedAddress = ReducedAddress & TempStr
End Select
Next
'Split the octets into a string array for inspection...
SplitAddress = Split(ReducedAddress, ".")
ReducedAddress = ""
'If there are not exactly 4 octets (0-＞3), return empty...
If UBound(SplitAddress()) ＜＞ 3 Then
ValidateIPAddress = ""
Exit Function
End If
'Verify that the value of each octet is between 0 and 255...
For OctetIndex = 0 To 3
TempStr = SplitAddress(OctetIndex)
OctetValue = Val(TempStr)
If Len(TempStr) = 0 Or OctetValue ＜ 0 Or OctetValue ＞ 255 Then
ValidateIPAddress = ""
Exit Function
End If
ReducedAddress = ReducedAddress & Format$(OctetValue, "##0")
If OctetIndex ＜ 3 Then ReducedAddress = ReducedAddress & "."
Next
'Return the validated result...
ValidateIPAddress = ReducedAddress
End Function
'************************************************************************
' HWAddressStrToByteArray()
'
' This routine takes a hexadecimal ethernet NIC address in string format
' and converts it into a 6-element (0 to 5) array of byte values
' representing that same address. This routine is used when building
' wake-on-lan "Magic-Packets".
'
'************************************************************************
Private Sub HWAddressStrToByteArray(HexHWAddress As String, _
ByRef HWAddressByteArray() As Byte)
'Local Variables...
Dim ByteIndex As Long
'Clear out the array to start...
For ByteIndex = 0 To 5
HWAddressByteArray(ByteIndex) = 0
Next
'Convert each hex double-digit to a byte in the array...
For ByteIndex = 1 To 11 Step 2
HWAddressByteArray((ByteIndex - 1) / 2) = _
Val("&H" & Mid$(HexHWAddress, ByteIndex, 2))
Next
End Sub
'************************************************************************
' IPSubnetAddressToBCastAddress()
'
' This routine takes an IP address and it's associated subnet mask and
' returns the directed-broadcast address for that subnet. If either
' parameter is invalid the local broadcast address (255.255.255.255)
' is returned.
'
'************************************************************************
Private Function IPSubnetAddressToBroadcastAddress(IPSubnetAddress As String, _
IPSubnetMask As String) _
As String
'Local Variables...
Dim IPStrArray() As String
Dim MaskStrArray() As String
Dim BCastAddressByte As Byte
Dim BCastAddress As String
Dim ByteIndex As Long
'Check for valid input...
If ValidateIPAddress(IPSubnetAddress) = "" Or _
ValidateIPAddress(IPSubnetMask) = "" Then
IPSubnetAddressToBroadcastAddress = "255.255.255.255"
Exit Function
End If
'Initialize the strings...
BCastAddress = ""
IPStrArray = Split(IPSubnetAddress, ".")
MaskStrArray = Split(IPSubnetMask, ".")
'Build the new broadcast address byte-by-byte...
For ByteIndex = 0 To 3
BCastAddressByte = Val(IPStrArray(ByteIndex)) Or _
(Val(MaskStrArray(ByteIndex)) Xor 255)
BCastAddress = BCastAddress & CStr(BCastAddressByte)
If ByteIndex ＜ 3 Then BCastAddress = BCastAddress & "."
Next
'And finally return it to the calling routine...
IPSubnetAddressToBroadcastAddress = BCastAddress
End Function
' By Richard Larson, 1999 - Requires VB 6.0 or better.
'
' This class encapsulates the functionality necessary to send Wake-on-Lan
' packets to WFM (Wired-For-Management) enabled computers that reside on
' an IP network.
'
'************************************************************************
'
' Version History:
'
' 1.1 - Fixed a bug that prevented IP addresses with individual octet
' values of zero from being properly validated in the
' ValidateIPAddress() function.
'
' 1.0 - Initial release to Internet.
'
'************************************************************************
'
' External Class Dependencies:
'
' This class depends on the existance of a winsock control on a form
' somewhere in the project. Each instance of this object must have a
' reference set to such a winsock control before it can be used to
' wake-up a workstation. This is accomplished via the WinsockControl
' property of the class.
'
'************************************************************************
'
' To create this class, open a new VB6 project and add a class module to
' it. Name the class module "CMagicPacket" and then paste this code
' snippet into it. Then save the class and add it to any project that
' needs this functionality.
'
' To use an object of this class, you must provide an MS Winsock control
' on one of your forms and then set the WinSockControl property to it as
' a reference. Then you simply set the NICAddress, IPSubnetAddress and
' IPSubnetMask properties of the new object and call the wakeup method.
'
' Example:
'
' Dim WOL_WS as CMagicPacket
' Set WOL_WS = New CMagicPacket
' With WOL_WS
' .WinsockControl=Winsock1
' .NICAddress="0008d7aa4e24"
' .IPSubnetAddress="172.17.1.0"
' .IPSubnetMask="255.255.255.0"
' .WakeUp
' End With
' Set WOL_WS=Nothing
'
' If the IPSubnetAddress or IPSubnetMask properties are left blank
' (or are determined to be invalid), the packet will be broadcast on
' the IP subnet local to the workstation that the object is running on.
'
'************************************************************************
'Object-level constants and enums...
Private Const ERROR_BASE = vbObjectError + 2000
Private Const ERROR_INVALID_NIC_ADDRESS = ERROR_BASE + 1
Private Const ERROR_INVALID_IP_SUBNET_ADDRESS = ERROR_BASE + 2
Private Const ERROR_INVALID_IP_SUBNET_MASK = ERROR_BASE + 3
Private Const ERROR_INVALID_WINSOCK_REFERENCE = ERROR_BASE + 4
Private Const ERROR_NO_WINSOCK_REFERENCE_AVAILABLE = ERROR_BASE + 5
'Object-level variables...
Private m_WinsockControl As Control
Private m_NICAddress As String
Private m_IPSubnetAddress As String
Private m_IPSubnetMask As String
'************************************************************************
' Property WinsockControl()
'
' This is the property assignment function (LET only) for the Winsock
' Control property. It validates that the winsock control being
' assigned is really a winsock control, and that it is not set to
' "nothing". If either of these checks fails, an appropriate error
' message is raised back to the caller.
'
'************************************************************************
Public Property Let WinsockControl(ByRef RefWinsock As Control)
'Check for uninitialized controls...
If RefWinsock Is Nothing Then
Err.Raise ERROR_NO_WINSOCK_REFERENCE_AVAILABLE, _
"CMagicPacket.WinsockControl(LET)", _
"An attempt was made to set the WinsockControl property " & _
"to an uninitialized control"
End If
'Check for invalid control types...
If TypeOf RefWinsock Is Winsock Then
Set m_WinsockControl = RefWinsock
Else
Err.Raise ERROR_INVALID_WINSOCK_REFERENCE, _
"CMagicPacket.WinsockControl(LET)", _
"An attempt was made to set the WinsockControl property " & _
"to a non-winsock control"
End If
'It passed the test, so set our reference to it...
Set m_WinsockControl = RefWinsock
End Property
'************************************************************************
' Property IPSubnetAddress()
'
' These are the assignment functions for the IP Address property. LET
' validates the IP subnet address being assigned and raises an error back
' to the calling function if it was not a valid 32-bit IP address. GET
' returns the current address in dotted-decimal notation (www.xxx.yyy.zzz)
'
'************************************************************************
Public Property Let IPSubnetAddress(ByVal NewAddress As String)
'Set the new IP subnet address...
m_IPSubnetAddress = ValidateIPAddress(NewAddress)
'And raise an error if it is not valid...
If m_IPSubnetAddress = "" Then
Err.Raise ERROR_INVALID_IP_SUBNET_ADDRESS, _
"CMagicPacket.IPSubnetAddress(LET)", _
"Invalid IP Subnet Address"
End If
End Property
Public Property Get IPSubnetAddress() As String
IPSubnetAddress = m_IPSubnetAddress
End Property
'************************************************************************
' Property IPSubnetMask()
'
' These are the assignment functions for the IP Subnet Mask property. LET
' validates the IP subnet mask being assigned and raises an error back to
' the calling function if it was not a valid 32-bit IP mask address. GET
' returns the current address in dotted-decimal notation (www.xxx.yyy.zzz)
'
'************************************************************************
Public Property Let IPSubnetMask(ByVal NewMask As String)
'Set the new IP subnet address...
m_IPSubnetMask = ValidateIPAddress(NewMask)
'And raise an error if it is not valid...
If m_IPSubnetAddress = "" Then
Err.Raise ERROR_INVALID_IP_SUBNET_MASK, _
"CMagicPacket.IPSubnetMask(LET)", _
"Invalid IP Subnet Address"
End If
End Property
Public Property Get IPSubnetMask() As String
IPSubnetMask = m_IPSubnetMask
End Property
'************************************************************************
' Property NICAddress()
'
' These are the assignment functions for the NIC Address property. LET
' validates the NIC Address being assigned and raises an error back to
' the calling function if it was not a valid 48-bit NIC address. GET
' returns the 48-bit unformatted hex address in the form "1A2B3C4D5E6F"
'
'************************************************************************
Public Property Let NICAddress(ByVal NewNicAddress As String)
'Set the new NIC address...
m_NICAddress = ValidateNICAddress(NewNicAddress)
'And raise an error if it was not valid...
If m_NICAddress = "" Then
Err.Raise ERROR_INVALID_NIC_ADDRESS, _
"CMagicPacket.NicAddress(Let)", _
"Invalid Nic Address"
End If
End Property
Public Property Get NICAddress() As String
NICAddress = m_NICAddress
End Property
'************************************************************************
' Method WakeUp()
'
' This method is called in order to send the wake-on-lan magic packet to
' the machine with the 48-bit hardware address specified in NICAdress
' residing on the IP subnet specified by the IPSubnetAddress/IPSubnetMask
' properties. It uses the winsock control that was set in the
' WinSockCtrl property to do the actual packet transfer. An error flag
' will be raised back to the caller if any of these properties are set
' incorrectly.
'
'************************************************************************
Public Sub WakeUp()
Dim ActualNICAddress As String
'Setup error handler...
On Error GoTo Error_Handler1
'Check for valid properties before sending the packet...
ActualNICAddress = ValidateNICAddress(m_NICAddress)
If ActualNICAddress = "" Then
Err.Raise ERROR_INVALID_NIC_ADDRESS, _
"CMagicPacket.Wakeup()", _
"The NICAddress property does not contain a " & _
"valid NIC address"
End If
If m_WinsockControl Is Nothing Then
Err.Raise ERROR_NO_WINSOCK_REFERENCE_AVAILABLE, _
"CMagicPacket.Wakeup()", _
"The WinsockCtrl property has not been set to " & _
"a valid MS-Winsock control"
End If
'Everything is OK, so send the packet on its way...
SendMagicPacketTo m_IPSubnetAddress, m_IPSubnetMask, _
m_NICAddress, m_WinsockControl
Exit Sub
Error_Handler1:
'For now, just return the error to the caller with a modified source...
Err.Raise Err.Number, Err.Source & " ＜Raised From CMagicPacket.WakeUp()＞", _
Err.Description, Err.HelpFile, Err.HelpContext
End Sub
'************************************************************************
' SendMagicPacketTo()
'
' Send a "Magic-packet" to a workstation that supports the "wake-on-lan"
' specification. This routine takes the IP address of the subnet on
' which the workstation to be "awakened" resides, and the 48-bit ethernet
' hardware address of the workstation's NIC. It then builds and sends a
' "magic packet" to that workstation which will wake it up (as though
' someone switched on the power).
'
'************************************************************************
Private Sub SendMagicPacketTo(IPSubnetAddress As String, _
IPSubnetMask As String, _
HWAddress As String, _
WinsockCtrl As Winsock)
'Local Variables...
Dim MagicPacketData(0 To 101) As Byte
Dim HWAddressByteValues(0 To 5) As Byte
Dim ByteIndex As Byte
Dim NICAddressIndex As Byte
'Setup error handler...
On Error GoTo Error_Handler
'First convert the Ethernet HWAddress to a byte array...
HWAddressStrToByteArray HWAddress, HWAddressByteValues()
'Now get the IP broadcast address for the IP subnet we want to use...
IPSubnetAddress = IPSubnetAddressToBroadcastAddress(IPSubnetAddress, IPSubnetMask)
'Setup the Magic-Packet synchronization byte sequence (0xFFFFFFFFFFFF)...
For ByteIndex = 0 To 5
MagicPacketData(ByteIndex) = 255
Next
'Now add the Magic-Packet HWAddress sequence (16 HW Addresses in a row)...
For NICAddressIndex = 0 To 15
For ByteIndex = 0 To 5
MagicPacketData((NICAddressIndex * 6) + ByteIndex + 6) = _
HWAddressByteValues(ByteIndex)
Next
Next
'Send a datagram containing the magic-packet data to the appropriate subnet...
m_WinsockControl.RemoteHost = IPSubnetAddress
m_WinsockControl.Protocol = sckUDPProtocol
m_WinsockControl.SendData MagicPacketData
m_WinsockControl.Close
Exit Sub
Error_Handler:
'For now, just return the error back to the caller with a modified source...
Err.Raise Err.Number, Err.Source & _
" ＜Raised From CMagicPacket.SendMagicPacketTo()＞", _
Err.Description, Err.HelpFile, Err.HelpContext
End Sub
'************************************************************************
' ValidateNICAddress()
'
' This function takes a string and determines if it is a valid NIC
' address by checking it's length (6-hex bytes, 48-bits) and that it is
' a valid hexadecimal value (each nibble is 0-9, or A-F). If all is OK,
' the function returns a cleaned version of the address (with no
' whitespace characters and all upper case values), otherwise it returns
' a blank zero-length string.
'
' Based on this routine, all of the following addresses are valid:
'
' "1a2b3c4d5e6f" returns "1A2B3C4D5E6F"
' "1a.2b.3c.4d.5e.6f" returns "1A2B3C4D5E6F"
' "1a 2b 3c 4d 5e 6f" returns "1A2B3C4D5E6F"
' "1a2b 3c4d 5e6f" returns "1A2B3C4D5E6F" Etc....
'
'************************************************************************
Private Function ValidateNICAddress(AddressToValidate As String) As String
'Local Constants...
Const VALID_NIC_ADDRESS_LENGTH = 12
'Local Variables...
Dim HexCharIndex As Long
Dim HexChar As String
Dim InitialAddress As String
Dim ReducedAddress As String
'Init local variables...
ReducedAddress = ""
InitialAddress = UCase$(Trim$(AddressToValidate))
'Eliminate all non-hexadecimal characters from the address...
For HexCharIndex = 1 To Len(InitialAddress)
HexChar = Mid$(InitialAddress, HexCharIndex, 1)
Select Case HexChar
Case "0" To "9", "A" To "F": ReducedAddress = ReducedAddress & HexChar
End Select
Next
'Return the appropriate value...
If Len(ReducedAddress) = VALID_NIC_ADDRESS_LENGTH Then
ValidateNICAddress = UCase$(ReducedAddress)
Else
ValidateNICAddress = ""
End If
End Function
'************************************************************************
' ValidateIPAddress()
'
' This function takes an IP address in dotted decimal format and verifies
' that there are 4 octets of data and that the value of each octet is
' between zero and 255. This function does NOT determine whether the
' given address is legal for any particular subnetting scheme. If the
' address is valid, it will return the address itself, otherwise it will
' return an empty (zero-length) string.
'
'************************************************************************
Private Function ValidateIPAddress(AddressToValidate As String) As String
'Local Variables...
Dim TempStr As String
Dim ReducedAddress As String
Dim SplitAddress() As String
Dim OctetIndex As Long
Dim OctetValue As Long
'First remove all non-decimal, non-period characters from the address...
For OctetIndex = 1 To Len(AddressToValidate)
TempStr = Mid$(AddressToValidate, OctetIndex, 1)
Select Case TempStr
Case "0" To "9", ".": ReducedAddress = ReducedAddress & TempStr
End Select
Next
'Split the octets into a string array for inspection...
SplitAddress = Split(ReducedAddress, ".")
ReducedAddress = ""
'If there are not exactly 4 octets (0-＞3), return empty...
If UBound(SplitAddress()) ＜＞ 3 Then
ValidateIPAddress = ""
Exit Function
End If
'Verify that the value of each octet is between 0 and 255...
For OctetIndex = 0 To 3
TempStr = SplitAddress(OctetIndex)
OctetValue = Val(TempStr)
If Len(TempStr) = 0 Or OctetValue ＜ 0 Or OctetValue ＞ 255 Then
ValidateIPAddress = ""
Exit Function
End If
ReducedAddress = ReducedAddress & Format$(OctetValue, "##0")
If OctetIndex ＜ 3 Then ReducedAddress = ReducedAddress & "."
Next
'Return the validated result...
ValidateIPAddress = ReducedAddress
End Function
'************************************************************************
' HWAddressStrToByteArray()
'
' This routine takes a hexadecimal ethernet NIC address in string format
' and converts it into a 6-element (0 to 5) array of byte values
' representing that same address. This routine is used when building
' wake-on-lan "Magic-Packets".
'
'************************************************************************
Private Sub HWAddressStrToByteArray(HexHWAddress As String, _
ByRef HWAddressByteArray() As Byte)
'Local Variables...
Dim ByteIndex As Long
'Clear out the array to start...
For ByteIndex = 0 To 5
HWAddressByteArray(ByteIndex) = 0
Next
'Convert each hex double-digit to a byte in the array...
For ByteIndex = 1 To 11 Step 2
HWAddressByteArray((ByteIndex - 1) / 2) = _
Val("&H" & Mid$(HexHWAddress, ByteIndex, 2))
Next
End Sub
'************************************************************************
' IPSubnetAddressToBCastAddress()
'
' This routine takes an IP address and it's associated subnet mask and
' returns the directed-broadcast address for that subnet. If either
' parameter is invalid the local broadcast address (255.255.255.255)
' is returned.
'
'************************************************************************
Private Function IPSubnetAddressToBroadcastAddress(IPSubnetAddress As String, _
IPSubnetMask As String) _
As String
'Local Variables...
Dim IPStrArray() As String
Dim MaskStrArray() As String
Dim BCastAddressByte As Byte
Dim BCastAddress As String
Dim ByteIndex As Long
'Check for valid input...
If ValidateIPAddress(IPSubnetAddress) = "" Or _
ValidateIPAddress(IPSubnetMask) = "" Then
IPSubnetAddressToBroadcastAddress = "255.255.255.255"
Exit Function
End If
'Initialize the strings...
BCastAddress = ""
IPStrArray = Split(IPSubnetAddress, ".")
MaskStrArray = Split(IPSubnetMask, ".")
'Build the new broadcast address byte-by-byte...
For ByteIndex = 0 To 3
BCastAddressByte = Val(IPStrArray(ByteIndex)) Or _
(Val(MaskStrArray(ByteIndex)) Xor 255)
BCastAddress = BCastAddress & CStr(BCastAddressByte)
If ByteIndex ＜ 3 Then BCastAddress = BCastAddress & "."
Next
'And finally return it to the calling routine...
IPSubnetAddressToBroadcastAddress = BCastAddress
End Function
[問]VB要怎麼模擬串列 (Linking List)?(編號：2070)
有沒有辦法像C一樣使用List?
另外Binary Tree要如何表示? Root ,Left and Right
(如果不用固定大小的array的話...)
另外Binary Tree要如何表示? Root ,Left and Right
(如果不用固定大小的array的話...)
請問如何使label中的字能"垂直置中"(編號：2069)
開一個label, 白底黑字, 立體, 看起來很像textbox
但是字(caption)都在偏上方, 如何設為類似word中的"垂直置中",
以使外表美觀
但是字(caption)都在偏上方, 如何設為類似word中的"垂直置中",
以使外表美觀
迴圈與變數使用的問題(編號：2064)
請問一下在form上先做好5個textbox且隱藏
For i = 1 To 5
Text 《i》.Visible = True
Next
要如何將i變數填入第2行text之後,程式才會把它當作text1,text2,text3,text4,text5
使用vb6.0
For i = 1 To 5
Text 《i》.Visible = True
Next
要如何將i變數填入第2行text之後,程式才會把它當作text1,text2,text3,text4,text5
使用vb6.0
VB 如何將 txt檔抓至列示欄,並計算(編號：2063)
請教各位 VB 高手幾個問題?
1.以下是我用 Vb 寫的一個程式碼
目的是要將相同目錄下的資料檔(data.txt)
(其中的資料為兩欄式,如下所示:學號 成績)
載入至列式欄位中,但卻會出現錯誤訊息:
"輸入已超過檔案結尾"
2.又該如何將最高分與最低分輸出?
3.如何做分數的加總及求平均值?
4.及變異數的求解? (var^2=sum[(成績-平均值)^2]/(n-1)
-----------------------------
Private Sub GetData_Click()
Dim score As Single
Dim file_name, id_no As String
Dim LineCnt As Integer '資料數
List1.Clear
If file01.Text = "" Then
MsgBox "empty"
file01.SetFocus
Else
file_name = App.Path & "\" & file01.Text
If Dir(file_name) ＜＞ "" Then
Open file_name For Input As #1
Do While Not EOF(1)
Input #1, id_no, score
List1.AddItem id_no & " " & Str(score)
Loop
Close #1
Else
MsgBox "no file have found"
file01.SetFocus
End If
End If
LineCnt = List1.ListCount '資料數
End Sub
-------------------------------------------------------
data.txt:
S01 63
S02 70
S03 59.5
. .
Sn 60
-----------------------
敬請賜教 不勝感激
1.以下是我用 Vb 寫的一個程式碼
目的是要將相同目錄下的資料檔(data.txt)
(其中的資料為兩欄式,如下所示:學號 成績)
載入至列式欄位中,但卻會出現錯誤訊息:
"輸入已超過檔案結尾"
2.又該如何將最高分與最低分輸出?
3.如何做分數的加總及求平均值?
4.及變異數的求解? (var^2=sum[(成績-平均值)^2]/(n-1)
-----------------------------
Private Sub GetData_Click()
Dim score As Single
Dim file_name, id_no As String
Dim LineCnt As Integer '資料數
List1.Clear
If file01.Text = "" Then
MsgBox "empty"
file01.SetFocus
Else
file_name = App.Path & "\" & file01.Text
If Dir(file_name) ＜＞ "" Then
Open file_name For Input As #1
Do While Not EOF(1)
Input #1, id_no, score
List1.AddItem id_no & " " & Str(score)
Loop
Close #1
Else
MsgBox "no file have found"
file01.SetFocus
End If
End If
LineCnt = List1.ListCount '資料數
End Sub
-------------------------------------------------------
data.txt:
S01 63
S02 70
S03 59.5
. .
Sn 60
-----------------------
敬請賜教 不勝感激
About調節FORM的大小(編號：2059)
當FORM的BORDERSTYLE = 0時，有沒有辦法(用API)讓它
仍然象BORDERSTYLE = SIZEABLE一樣可以調節FORM的大小，即有
以下功能：
1）鼠標移到邊框位置變成“＜-＞"狀態， 按下鼠標後移動鼠標
只改變FORM的輪廓線，松手後才實際改變FROM的大小；
2）輪廓線的大小不是任意調節，程序可以控制，實際上也就是
要控制FORM的大小
類似Encarta 99 有這個功能，就是不知如何實現
仍然象BORDERSTYLE = SIZEABLE一樣可以調節FORM的大小，即有
以下功能：
1）鼠標移到邊框位置變成“＜-＞"狀態， 按下鼠標後移動鼠標
只改變FORM的輪廓線，松手後才實際改變FROM的大小；
2）輪廓線的大小不是任意調節，程序可以控制，實際上也就是
要控制FORM的大小
類似Encarta 99 有這個功能，就是不知如何實現
鬧鐘 未何響一次,第二次就不響(編號：2057)
Private Sub main()
MMControl1.DeviceType = "waveaudio"
MMControl1.Command = "open"
Rem MMControl1.UpdateInterval = 1000
MMControl1.Command = "play"
End Sub
Private Sub Timer1_Timer()
Text9 = Time$
a = Val(Text1)
b = Val(Text3)
c = Val(Text2)
d = Val(Text4)
e = Val(Text5)
f = Val(Text6)
g = Val(Text7)
h = Val(Text8)
ss = Val(Mid$(Time$, 7, 2))
x = Val(Mid$(Time$, 1, 2)) * 100
y = Val(Mid$(Time$, 4, 2))
xy = Val(x + y)
If xy = a Or xy = b Or xy = c Or xy = d Or xy = e Or xy = f Or xy = g Or xy = h Then
If ss = 1 Then
Text12 = aaaaa
Call main
End If
End If
End Sub
MMControl1.DeviceType = "waveaudio"
MMControl1.Command = "open"
Rem MMControl1.UpdateInterval = 1000
MMControl1.Command = "play"
End Sub
Private Sub Timer1_Timer()
Text9 = Time$
a = Val(Text1)
b = Val(Text3)
c = Val(Text2)
d = Val(Text4)
e = Val(Text5)
f = Val(Text6)
g = Val(Text7)
h = Val(Text8)
ss = Val(Mid$(Time$, 7, 2))
x = Val(Mid$(Time$, 1, 2)) * 100
y = Val(Mid$(Time$, 4, 2))
xy = Val(x + y)
If xy = a Or xy = b Or xy = c Or xy = d Or xy = e Or xy = f Or xy = g Or xy = h Then
If ss = 1 Then
Text12 = aaaaa
Call main
End If
End If
End Sub
各位高手,請教一個迫切的VB問題?(編號：2056)
如何在同一個RichTextBox 中顯示不同背景顏色,和文字顏色.
即兩片文字顯示,但其背景及文字顏色各不相同,
我想做終端機連線的顯示畫面. 謝謝!
即兩片文字顯示,但其背景及文字顏色各不相同,
我想做終端機連線的顯示畫面. 謝謝!
How to move objects with drag method(編號：2055)
Hi,
When I drag an object with mouse, a dotted rectangle which representing the object is present. How to use drag method to move an object at the same position as the rectangle? Can anyone post the code here? Also, is there any simple method which can save all the settings of a form and its controls at run time? I'd like to apply the new settings when the form is loaded again at run time.
Thx. very much
When I drag an object with mouse, a dotted rectangle which representing the object is present. How to use drag method to move an object at the same position as the rectangle? Can anyone post the code here? Also, is there any simple method which can save all the settings of a form and its controls at run time? I'd like to apply the new settings when the form is loaded again at run time.
Thx. very much
誰可以幫我寫寫「納稅人該繳多少錢」的程式..(編號：2053)
我已經高職三年級，我頭腦對程式總是不太靈光，所以最近的考試實在令我很煩腦，又要聯考...嗚..但是如果一科沒過又會留級..我好緊張，可以幫幫我寫嗎?各為無敵霹靂高手，我知道你們最強了!對你們來說簡直輕而易舉，不過..拜託啦，當打發時間囉!!謝謝，感激不盡!!!
SQL語法UPDATE之用法(編號：2052)
請問諸先進我在執行到save時出現錯誤如下
"在這個範圍中不允許應用程式所要求的操作"
??好像是不能rsProduction.Requery
??是何原因?如何決解決??
vb新手 cmhung
Private Sub Form_Load()
Dim mstring As String
Dim t As Integer
Set conProduction = New ADODB.Connection
Set cmdProduction = New ADODB.Command
Set rsProduction = New ADODB.Recordset
mstring = "Provider=Microsoft.jet.OLEDB.4.0;" & _
"Data Source = e:\cmhung\budgetsys1.mdb;" & _
"Persist Security Info = False"
conProduction.Open mstring
Set cmdProduction.ActiveConnection = conProduction
cmdProduction.CommandText = "select * from tbProduction"
rsProduction.CursorLocation = adUseClient
rsProduction.Open cmdProduction, , adOpenDynamic, adLockPessimistic
For t = 0 To 2
Set Text1(t).DataSource = rsProduction
Text1(t).Locked = True
Next t
Text1(0).DataField = "fldProductionNumber"
Text1(1).DataField = "fldProductionName"
Text1(2).DataField = "fldProductionType"
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
...
..
Case "save"
ssql = "update tbProduction set " _
& "fldProductionName = '" & Text1(1).Text & "'," _
& "fldProductionType = '" & Text1(2).Text & "'" _
& "where fldProductionNumber = '" & Text1(0).Text & "'"
conProduction.Execute ssql
rsProduction.Requery
"在這個範圍中不允許應用程式所要求的操作"
??好像是不能rsProduction.Requery
??是何原因?如何決解決??
vb新手 cmhung
Private Sub Form_Load()
Dim mstring As String
Dim t As Integer
Set conProduction = New ADODB.Connection
Set cmdProduction = New ADODB.Command
Set rsProduction = New ADODB.Recordset
mstring = "Provider=Microsoft.jet.OLEDB.4.0;" & _
"Data Source = e:\cmhung\budgetsys1.mdb;" & _
"Persist Security Info = False"
conProduction.Open mstring
Set cmdProduction.ActiveConnection = conProduction
cmdProduction.CommandText = "select * from tbProduction"
rsProduction.CursorLocation = adUseClient
rsProduction.Open cmdProduction, , adOpenDynamic, adLockPessimistic
For t = 0 To 2
Set Text1(t).DataSource = rsProduction
Text1(t).Locked = True
Next t
Text1(0).DataField = "fldProductionNumber"
Text1(1).DataField = "fldProductionName"
Text1(2).DataField = "fldProductionType"
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
...
..
Case "save"
ssql = "update tbProduction set " _
& "fldProductionName = '" & Text1(1).Text & "'," _
& "fldProductionType = '" & Text1(2).Text & "'" _
& "where fldProductionNumber = '" & Text1(0).Text & "'"
conProduction.Execute ssql
rsProduction.Requery
MDI主表單問題(編號：2050)
MDI子表單顯示時,如子表單有功能表,將會整合到主表單,而原主表單的功能表將隱藏,現在如果子表單想要用一個popmenu彈跳功能表,但主mdi表單的功能表選項又不想被隱藏,好像不可能做到.....microsoft在做vb時為什麼都不考慮這一點呢,應該像borland那樣可以有個menu 元件
VB如何去讀取"異質資料庫"(foxpro)(編號：2047)
我有一個資料庫是foxpro的dbf檔~~~
那我想在vb裡讓他去讀dbf檔，好像可以用access做連結吧！
但是我又要可以去處理SQL 7.0 的table .....
有辦法嗎？
還是說我可以用SQL7.0中的import data，自動啟動，讓它可以
將這一個dbf的資料自動import進來SQL呢？
敬請各位高手幫幫忙~~
那我想在vb裡讓他去讀dbf檔，好像可以用access做連結吧！
但是我又要可以去處理SQL 7.0 的table .....
有辦法嗎？
還是說我可以用SQL7.0中的import data，自動啟動，讓它可以
將這一個dbf的資料自動import進來SQL呢？
敬請各位高手幫幫忙~~
請問如何讀取 DBGRID 中各個 CELL 的內容？(編號：2045)
用 DBGrid1.Columns(i).CellText(DBGrid1.FirstRow) 只能讀取某個 ROW的DATA , 要讀取所有的DATA 呢 ?
請教多人共用同一資料庫的方法(編號：2043)
各位VB的高手前輩你好好,弟寫了一個程式
,是以ACCESS為後端資料庫,
要如何才能分享此資料庫。
用VB寫了一個前端的程式,可是多人同時使用時,
資料無法同步,必需將整個程式關閉後重開後,
每個人所新增的資料才能顯現,
rs.Requery及rs.Resync都使用過了
,但還是無效,請問要如何設定才可同步.
請各位高手前輩指導小妹,謝謝
,是以ACCESS為後端資料庫,
要如何才能分享此資料庫。
用VB寫了一個前端的程式,可是多人同時使用時,
資料無法同步,必需將整個程式關閉後重開後,
每個人所新增的資料才能顯現,
rs.Requery及rs.Resync都使用過了
,但還是無效,請問要如何設定才可同步.
請各位高手前輩指導小妹,謝謝
請問要用滑鼠來移動圖形該怎麼做才不會閃爍(編號：2038)
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Left = Image1.Left + (X - CurrentX) + X
Image1.Top = Image1.Top + (Y - CurrentY) + Y
End Sub
上面這段程式碼可以用滑鼠抓的圖形移動...但是會閃爍.有時還會消失.....＞＜..該怎麼辦呢??..幫幫我吧!
Image1.Left = Image1.Left + (X - CurrentX) + X
Image1.Top = Image1.Top + (Y - CurrentY) + Y
End Sub
上面這段程式碼可以用滑鼠抓的圖形移動...但是會閃爍.有時還會消失.....＞＜..該怎麼辦呢??..幫幫我吧!
如何把有數個frame的html的內容(非原始檔)列印出來呢(編號：2036)
請問各位高手, 我想要做一個功能, 指定某一個html, 把該html檔案送到印表機列印出來, 我想要印出的是像在ie裡面看到的內容一樣的, 而不是原始檔, 我目前解決不了的問題是, 若該html含有好幾個frame,則印出的內容會分開一個一個frame印出來, 而不是組合在一起的, 我看過ie裡面的設定, 在功能表"檔案-＞列印"中, 有一個列印畫面的選項, 有三個option: 1.顯示的畫面. 2. 選取的畫面. 3. 個別列印所有的畫面.
這三個選項正是控制要不要把全部的frame合起來列印還是一個一個分開列印, 若要手動做這個動作, 必須選取第一個選項 (顯示的畫面), 才能把在ie上看到的樣子印出(而不是分開一個一個frame),但我不知道如何用程式去控制, 我目前使用的是vb6中的InternetExplorer Object,但找不到任何可以控制的屬性或參數...希望各位高手能教我一下, 謝謝各位.
這三個選項正是控制要不要把全部的frame合起來列印還是一個一個分開列印, 若要手動做這個動作, 必須選取第一個選項 (顯示的畫面), 才能把在ie上看到的樣子印出(而不是分開一個一個frame),但我不知道如何用程式去控制, 我目前使用的是vb6中的InternetExplorer Object,但找不到任何可以控制的屬性或參數...希望各位高手能教我一下, 謝謝各位.
副檔名的移除(編號：2034)
使用API shfileoperation 之fo_rename or fo_move 似乎皆無法達到在同一目錄中, 將檔案之副檔名給去除, 請問有什麼方法可以在VB 中, 將一個檔案之副檔名給移除‧thank's a lot !!
想請問一個VB的問題(編號：2033)
我發現在我們寫程式的目錄中產生很多vb*.tmp的檔案，曾經嘗試將這些檔案砍了，還是會出現，不知為何會產生這些檔案耶!!正常來說tmp的檔案應該會隨著程式的結束而消失不是嗎?還是撰寫的程式沒有完全釋放記憶體呢?麻煩高手指教!!謝謝!!
請問一下關於 SQL 的語法 －like and？(編號：2031)
"SELECT * FROM [table1] WHERE [bookname] like '*電子*' and [bookname] like '*通訊*' "
我的本意是－找出 欄位名稱 bookname 中所有 含有 "電子" 且含有 "通訊"的集合
但 SQL 的 and 不是數學的 and 而是 or 的意思
請問真正 "且" 用法該如何?
我的本意是－找出 欄位名稱 bookname 中所有 含有 "電子" 且含有 "通訊"的集合
但 SQL 的 and 不是數學的 and 而是 or 的意思
請問真正 "且" 用法該如何?
data environment 的問題(編號：2029)
在執行 DataEnvironment1.rsCommand1.Open 時會出現以下之error
incorrect syntax near the keyword 'DEFAULT'.為何?
incorrect syntax near the keyword 'DEFAULT'.為何?
階層式架構的資料編輯(provider = msdatashape)相關問題(編號：2027)
環境說明:
資料庫: Access 97 搭配 Jet 4.0 OLD DB Engine
Command 設定:DataEnvironment 建立了2個command, 且將它設定為關聯式架構, 結構如下:
SHAPE {SELECT * FROM `Customer`} AS 客戶主資料 APPEND ({SELECT * FROM `CAccount`} AS 客戶帳號表 RELATE '客戶代號' TO 'CusId') AS 客戶帳號表
問題:
一般在新增修改時已經都沒有問題了, 只有在當2個Table內容都為空白時, 第一筆新增會發生 Detail (即客戶帳號表) 內容無法新增現象, 不知如何解決.
資料庫: Access 97 搭配 Jet 4.0 OLD DB Engine
Command 設定:DataEnvironment 建立了2個command, 且將它設定為關聯式架構, 結構如下:
SHAPE {SELECT * FROM `Customer`} AS 客戶主資料 APPEND ({SELECT * FROM `CAccount`} AS 客戶帳號表 RELATE '客戶代號' TO 'CusId') AS 客戶帳號表
問題:
一般在新增修改時已經都沒有問題了, 只有在當2個Table內容都為空白時, 第一筆新增會發生 Detail (即客戶帳號表) 內容無法新增現象, 不知如何解決.
網頁上的 actvex control......(編號：2019)
請問,
若用vb發展一個 activex 控制項,
打算把它放到網站上時,
要用什麼方式讓它能存取 server 上的檔案?
謝謝.......
若用vb發展一個 activex 控制項,
打算把它放到網站上時,
要用什麼方式讓它能存取 server 上的檔案?
謝謝.......
DataReport 的問題 !!(編號：2017)
請教各位先進:
我想使用 DataReport 來從事報表列印的工作.
我的問題如下:
如何訂義一般市面上販售的 80 col. 及 132 col. 連續報表紙的
Height 及 ReportWidth 的大小.
謝謝 !!
我想使用 DataReport 來從事報表列印的工作.
我的問題如下:
如何訂義一般市面上販售的 80 col. 及 132 col. 連續報表紙的
Height 及 ReportWidth 的大小.
謝謝 !!
如何利用access來存取picture box,API問題(編號：2014)
如何用ACCESS來存取VB的picture box的圖檔，連接access用ADO，麻煩各位高高手、前輩指點一下小弟。宣告API中有一個API函式位置，如Kernel32、user32等那是如何來得知需要使用那一人個啊？
有關於資源檔應用方面的問題(編號：2013)
1、rc.exe是否可以包其它的資源，如jpeg、midi、gif…等。
2、readrespicture可否載入jpeg、gif…等圖形檔。
3、readresdata可否載入midi…等其他資源。
4、若以上的函式不能支援，有否其他函式或API可以使用。
2、readrespicture可否載入jpeg、gif…等圖形檔。
3、readresdata可否載入midi…等其他資源。
4、若以上的函式不能支援，有否其他函式或API可以使用。
控制 Com port 的 API?(編號：2011)
除了 Microsoft Comm Control 這個 ActiveX 外, 有沒有 API 可以控制 Com port? 請各位高手指點一下.
DataEnvironment 該如何 Refresh 資料庫(編號：2010)
再 ado 之下可以使用 Refresh 來更新 RecordSet
但是使用 DataEnvironment 卻無 Refresh 這個指令
請問有沒有其他指令或方法達成 Refresh 的功能?
但是使用 DataEnvironment 卻無 Refresh 這個指令
請問有沒有其他指令或方法達成 Refresh 的功能?
filter 該如何釋放?(編號：2009)
請問各位先進:
當在程式中使用了Filter 這個指令後, 該如何去釋放掉他?
比方說:
set b = DataEnvironment1.rsxxx
a.Filter = "編號 ='" & mSno & "'"
.....
查詢過後要所屬的資料庫再恢復沒有過濾前的內容.該用哪個指令啊?
set b.Filter = Nothing ?? (可行嗎?) 還是 DataEnvironment1.rsxxx.Close 然後再 Open 一次?
當在程式中使用了Filter 這個指令後, 該如何去釋放掉他?
比方說:
set b = DataEnvironment1.rsxxx
a.Filter = "編號 ='" & mSno & "'"
.....
查詢過後要所屬的資料庫再恢復沒有過濾前的內容.該用哪個指令啊?
set b.Filter = Nothing ?? (可行嗎?) 還是 DataEnvironment1.rsxxx.Close 然後再 Open 一次?
搜尋的問題(編號：2007)
請問使用Adodb元件要做查詢動作時如
Mnum = Text1(0).Text + "*"
Find_t = "Num Like '" & Mnum & "'"
Rs.Find Find_t
當我的Text1(0).Text為空字串時會產生錯誤，請問是否不能為空字串，因為我的想法是如果為空字串，則全部資料都應被搜尋出來。
Mnum = Text1(0).Text + "*"
Find_t = "Num Like '" & Mnum & "'"
Rs.Find Find_t
當我的Text1(0).Text為空字串時會產生錯誤，請問是否不能為空字串，因為我的想法是如果為空字串，則全部資料都應被搜尋出來。
DATA物件開啟ACCESS中的模組內自訂函數的錯誤(編號：2003)
請教各位先進
我在ACCESS中的模組內自訂了一個函數,並將其應用至
查詢內.但在以DATA物件開啟時出現了變數未定義的錯
誤,請問如何解決?
我在ACCESS中的模組內自訂了一個函數,並將其應用至
查詢內.但在以DATA物件開啟時出現了變數未定義的錯
誤,請問如何解決?
Browser為前端，在Browser所在處印表(編號：2000)
如果說我們的程式前端是Browser，有沒有什麼比較好的方式可以
在Browser端印表， 一般來說，查尋到我們想要的資料後，都是在
Browser上Display出來，當然如此之後也可以使用Browser的列印
的Menu選項印出來，除此之外，有沒有其他較好的方式可以做呢？
謝謝
在Browser端印表， 一般來說，查尋到我們想要的資料後，都是在
Browser上Display出來，當然如此之後也可以使用Browser的列印
的Menu選項印出來，除此之外，有沒有其他較好的方式可以做呢？
謝謝
字串加解密....(編號：1997)
往往我們在寫入一些資訊到文字檔時,有些個人資訊總是希望加密,但一般的最簡單加密為對照法,這很容易破解,好一點的方法為xor,但字串並非二進位,如何xor?將字串先轉為二進位又太麻煩,有人知道應該如何加密較好,就像某些檔案內容看上去是亂碼一般....可否給小弟一段sample....
datagrid與datareport(編號：1996)
我有一個Access2000的資料庫如a.mdb
利用了SQL過濾資料後顯示在DATAGRID上
我想用DATAREPORT列印此資料,不透過Dataenvironment
該如何做//????
thanks
利用了SQL過濾資料後顯示在DATAGRID上
我想用DATAREPORT列印此資料,不透過Dataenvironment
該如何做//????
thanks
請問綜合清單方塊(combo1)的顯示區如何設定?(編號：1995)
請問綜合清單方塊(combo1)的顯示區如何設定?..我是使用組合下拉式,但是我需要用程式碼來讓Combo1的顯示區顯示文字請問該怎麼做?因為使用Comno1.text="顯示區"這樣子不能顯示....我使用VB6.0/Win98.拜託幫忙!
關於Printer.print的問題(編號：1994)
我使用printer.print列印一些報表,但是為什麼有的時候報表的字印出來會變的很小,必須重新開機後才會正常,是否有辦法可以解決這個問題?
而這是為什麼會發生這樣的情形?
系統Win98,VB5 SP3
而這是為什麼會發生這樣的情形?
系統Win98,VB5 SP3
如何能讓vb程式與外部儀器連接?(編號：1992)
我想做一個能讓寫出來的程式透過GBIP通訊與儀器連接，且可互傳訊習(就是能把儀器上的資料傳回電腦並顯示出) 大家幫幫忙~~~!!
是否知道如何寫或從何下手..???
謝謝!!!
是否知道如何寫或從何下手..???
謝謝!!!
找不到元件的使用權資訊？(編號：1991)
請問各位先進：敝人於98第一版時安裝VB5.0時並無下列問題：因WINDOWS重灌，安裝98第二版後再行安裝VB5.0 發生commdlg32.ocx找不到使用權資訊...您無法在開發環境中使用這個元件..請問該如何解決呢？
SQL搜尋資料的問題～～～(編號：1983)
當我使用sql查詢資料時....
Adodc1.RecordSource = "Select * From 欄位a Where " & txtFind.Text
可否把要搜查的欄位改成可複選！？
我的想法是把要察的欄位加入到listbox中
再來尋找...不知這樣可否!?
如果可以的話要如何改SQL語法....
如果不行的話....有無其他解決多欄位合併尋找的方式!?
謝謝~~~
Adodc1.RecordSource = "Select * From 欄位a Where " & txtFind.Text
可否把要搜查的欄位改成可複選！？
我的想法是把要察的欄位加入到listbox中
再來尋找...不知這樣可否!?
如果可以的話要如何改SQL語法....
如果不行的話....有無其他解決多欄位合併尋找的方式!?
謝謝~~~
有關data report 的問題(編號：1981)
最近在用 data report 寫一些報表,這裏有幾個問題想請問各位先進
1.假設要跳頁,例如:我要按照部門別跳頁我要如何做.資料表裏有部門別欄位,碰到不同部門時要跳頁.
2.我要在報表裏多顯示一個欄位,就是資料筆數,如果是第一筆,就顯示1,如果是第二筆就顯示2,以此類推.
3.我的資料表欄位是否不能放在報表頁首裏,如果我要將資料表欄位放在報表頁首裏,是否有什麼辦法.
以上三個問題,如果有知道的請告知,謝謝各位.
1.假設要跳頁,例如:我要按照部門別跳頁我要如何做.資料表裏有部門別欄位,碰到不同部門時要跳頁.
2.我要在報表裏多顯示一個欄位,就是資料筆數,如果是第一筆,就顯示1,如果是第二筆就顯示2,以此類推.
3.我的資料表欄位是否不能放在報表頁首裏,如果我要將資料表欄位放在報表頁首裏,是否有什麼辦法.
以上三個問題,如果有知道的請告知,謝謝各位.
請問各位前賢以下問題有解否?T.K.S.(編號：1980)
DESCstring="刪A除B資23料"
如資料庫中有: "刪"
"刪A"
"刪A除"
"刪A除B"
"刪A除B資"
"刪A除B資2"
"刪A除B資23"
"刪A除B資23料"
以上8筆資料如何以SQL語法將前面
7筆刪除而保留最後一筆呢?
T.K.S.
如資料庫中有: "刪"
"刪A"
"刪A除"
"刪A除B"
"刪A除B資"
"刪A除B資2"
"刪A除B資23"
"刪A除B資23料"
以上8筆資料如何以SQL語法將前面
7筆刪除而保留最後一筆呢?
T.K.S.
請問word文件使用vb save成html問題?(編號：1977)
請問各先進
如果我使用vb將word文件save成html的格式,但我vb引用項目是MS word 8.0 object..內沒有支援wdFormatHtml的成員,有沒有辨法加入?
ActiveDocument.SaveAs FileName:="Text.htm", FileFormat:=wdFormatHTML
wdformatHTML 沒有登錄
如果我使用vb將word文件save成html的格式,但我vb引用項目是MS word 8.0 object..內沒有支援wdFormatHtml的成員,有沒有辨法加入?
ActiveDocument.SaveAs FileName:="Text.htm", FileFormat:=wdFormatHTML
wdformatHTML 沒有登錄
Tray Icon 問題 第二問!(編號：1976)
我用 Shell_NotifyIconA 做了 tray icon, 但我想在使用者 double click 或 right click 那個 tray icon 時有些回應, 我應該怎樣寫?
如何開啟檔案 (eg...Execl)(編號：1974)
我想請問如何開啟檔案eg.....*.txt *.xls 之類
我只知shell(file.exe) 可開啟exe 檔
但其他檔又如何開啟
(只需開啟，開啟後不用再處理的)
多謝賜教!!thx......
我只知shell(file.exe) 可開啟exe 檔
但其他檔又如何開啟
(只需開啟，開啟後不用再處理的)
多謝賜教!!thx......
請問如何讀取影像檔中像素的值.......(編號：1973)
請問眾高手:
小弟有一256*256像素的影像檔(灰階),想試著寫一程式來調整其解析度變為128*128,但不知要如何讀一取每一像素的灰階值.......
希望網友能提供方法或告知何處有此種範例,謝謝....
小弟有一256*256像素的影像檔(灰階),想試著寫一程式來調整其解析度變為128*128,但不知要如何讀一取每一像素的灰階值.......
希望網友能提供方法或告知何處有此種範例,謝謝....
很怪的網路傳送訊息問題(編號：1970)
我做了一個網路的訊息傳送
在多數的電腦都能夠使用，
但有台電腦卻不能傳送連自已傳給自已
都不行，就發出"錯誤階段126"然後就直接關掉了
這和什麼有關???，這種錯誤在那本書上會有寫??
謝謝~~~~~~
在多數的電腦都能夠使用，
但有台電腦卻不能傳送連自已傳給自已
都不行，就發出"錯誤階段126"然後就直接關掉了
這和什麼有關???，這種錯誤在那本書上會有寫??
謝謝~~~~~~
有關討論區檔案的下載(小吳先生請進)(編號：1968)
小吳先生您好,
關於你對VB Programmer的貢獻在下十分佩服,
我對討論區檔案的下載有點小建議可供參考,在我下載完討論區的所有檔案後,發現檔案有點大,以16000-17999.zip這個檔來說,有1368,064 bytes,而我個人是偏用於WinRAR,在我把它解開後再用WinRAR再壓一次後,大小為438,272bytes,與ZIP相差了3倍,若我再以WinZIP壓一次,大小為372,736,如此便可獲得最小Size(理論上)....
若考慮到大部分人是用WinZip則可先壓成RAR自解檔,再壓成ZIP.
希望對於下載慢的人會有點幫助...
備註:WINRAR參數:最大壓縮,字典1024,Multimdiea,Solid.
WINZIP參數:最大壓縮
關於你對VB Programmer的貢獻在下十分佩服,
我對討論區檔案的下載有點小建議可供參考,在我下載完討論區的所有檔案後,發現檔案有點大,以16000-17999.zip這個檔來說,有1368,064 bytes,而我個人是偏用於WinRAR,在我把它解開後再用WinRAR再壓一次後,大小為438,272bytes,與ZIP相差了3倍,若我再以WinZIP壓一次,大小為372,736,如此便可獲得最小Size(理論上)....
若考慮到大部分人是用WinZip則可先壓成RAR自解檔,再壓成ZIP.
希望對於下載慢的人會有點幫助...
備註:WINRAR參數:最大壓縮,字典1024,Multimdiea,Solid.
WINZIP參數:最大壓縮
如何取得mdi form的child form(編號：1964)
請問大大門
要如何能取得mdi 的child form
假設開了5各視窗...想要取得其中衣各
activeform好像只能取得有focus的
我試用 findwindow()來找windowtitle
不過不適用於child form...故找不到
有人能幫幫我嗎
感激不盡
要如何能取得mdi 的child form
假設開了5各視窗...想要取得其中衣各
activeform好像只能取得有focus的
我試用 findwindow()來找windowtitle
不過不適用於child form...故找不到
有人能幫幫我嗎
感激不盡
Why the program doesn't work(編號：1963)
There is a problem with a following code, when the main sub calls the
function Same. The program works if using Flagsame=Same(1,2), but
the program does not work if using m1=1, m2=2, Flagsame=Same(m1,m2),
with a Compile Error: "ByRef argument type mismatch". I do not know why.
How to revise the code to use the way like Flagsame=Same(m1,m2)? Thanks.
-----
Option Explicit
Dim x(4), y(4) As Integer
Dim m1, m2 As Integer
Private Function Same(p1 As Integer, p2 As Integer) As Boolean
Dim dx As Integer
dx = x(p2) - x(p1)
If dx ＞ 0 Then
Same = -1
Else
Same = 0
End If
End Function
Private Sub Command1_Click()
Dim Flagsame As Boolean
x(1) = 1000
y(1) = 1000
x(2) = 2000
y(2) = 4000
m1 = 1
m2 = 2
'Flagsame = Same(1, 2) 'using this statement, the program works.
Flagsame = Same(m1, m2) 'Using this one, get Compile Error: "ByRef argument type
mismatch."
If (Flagsame) Then
Picture1.Line (x(m1), y(m1))-(x(m2), y(m2))
End If
End Sub
function Same. The program works if using Flagsame=Same(1,2), but
the program does not work if using m1=1, m2=2, Flagsame=Same(m1,m2),
with a Compile Error: "ByRef argument type mismatch". I do not know why.
How to revise the code to use the way like Flagsame=Same(m1,m2)? Thanks.
-----
Option Explicit
Dim x(4), y(4) As Integer
Dim m1, m2 As Integer
Private Function Same(p1 As Integer, p2 As Integer) As Boolean
Dim dx As Integer
dx = x(p2) - x(p1)
If dx ＞ 0 Then
Same = -1
Else
Same = 0
End If
End Function
Private Sub Command1_Click()
Dim Flagsame As Boolean
x(1) = 1000
y(1) = 1000
x(2) = 2000
y(2) = 4000
m1 = 1
m2 = 2
'Flagsame = Same(1, 2) 'using this statement, the program works.
Flagsame = Same(m1, m2) 'Using this one, get Compile Error: "ByRef argument type
mismatch."
If (Flagsame) Then
Picture1.Line (x(m1), y(m1))-(x(m2), y(m2))
End If
End Sub
VB的捕捉鍵盤(編號：1959)
我看書上的捕捉enter鍵
Private Sub Text1_KeyUp(KeyCode As Integer,
Shift As Integer)
If KeyCode = 13 Then Text2.SetFocus
End Sub
其中的 Shift 是在做甚麼用的呢?
Private Sub Text1_KeyUp(KeyCode As Integer,
Shift As Integer)
If KeyCode = 13 Then Text2.SetFocus
End Sub
其中的 Shift 是在做甚麼用的呢?
Refresh, Update, UpdateBatch, resync(編號：1957)
想請問下以上四者的用法和之間的關係 , 小弟經常修改完 database 後, 不懂得應該怎樣才能即時更新 database.
還想問問以上的更新方法會不會只適用於 Adodc, ADO, DAO 某一之內? 謝謝
還想問問以上的更新方法會不會只適用於 Adodc, ADO, DAO 某一之內? 謝謝
有關 Tray Icon 的小問題(編號：1956)
我用 Shell_NotifyIconA 做了 tray icon, 但如果我想在 user double click 那個 tray icon 時把 form 顯示在最上層, 可以怎樣做?
請教 WebBrowser 使用問題??? (懇請眾高手幫忙!!!)(編號：1954)
請問利用 WebBrowser 開發 Browser時 , 當＜A href＞ 指定的 target 是開啟一新視窗時, 系統會自動啟動 IE 或 Netscape, 如何讓系統不啟動 IE 或 Netscape , 而將＜A href＞ Link 的 URL 直接 Load 至目前的 WebBrowser 上??
VB版本 : VB 6.0, SP3
VB版本 : VB 6.0, SP3
再請問如何使用 SQL 做日期(期間)搜尋命令?(編號：1952)
'這將做日期期間之查詢
datSecondaryRS.RecordSource = "select * from [股票寫真] where [日期]＞= #" & day1.Text & "# and ＜= #" & day2.Text & ""
vb5.0版,無法正常運作(指令不熟),請幫忙~謝謝!!
被SQL打敗的fa求助~
datSecondaryRS.RecordSource = "select * from [股票寫真] where [日期]＞= #" & day1.Text & "# and ＜= #" & day2.Text & ""
vb5.0版,無法正常運作(指令不熟),請幫忙~謝謝!!
被SQL打敗的fa求助~
如何用vb寫定時器?(編號：1949)
本人寫個程式想要在能夠在有下列功能?
1.每五秒去check程式但是如果用timer 好像會太hold cpu 時間.
2.希望能有在整點時去做一些事情,但是用timer好像不太準,有沒有其他方法呢?
1.每五秒去check程式但是如果用timer 好像會太hold cpu 時間.
2.希望能有在整點時去做一些事情,但是用timer好像不太準,有沒有其他方法呢?
vb程式出現錯誤?(編號：1948)
我的程式在nt下跑會出現Unhandled exception in vb5.exe (VBA5.dll) 0xC0000005:Access violation?
請問是什麼意思?
請問是什麼意思?
用不到 Shell_NotifyIconA(編號：1945)
不知為什麼每次用 Shell_NotifyIconA 的時候都出這個 error:
Run-time error '453':
Can't find DLL entry point Shell_NotifyIconA in Shell32.dll
我用的是 VB5 英文版 & NT Workstation 4.0 中文版
有誰可以幫我解決! 我快要瘋掉了!
Run-time error '453':
Can't find DLL entry point Shell_NotifyIconA in Shell32.dll
我用的是 VB5 英文版 & NT Workstation 4.0 中文版
有誰可以幫我解決! 我快要瘋掉了!
如何判定 磁碟機是否 ready ?(編號：1940)
在我試圖要讀取 A: 磁碟機前,如何判斷它是否已 ready ,
因為若沒有磁片在其中就會出現 error message.
希望能作到讀取就提醒使用者放入磁片的提示.
因為若沒有磁片在其中就會出現 error message.
希望能作到讀取就提醒使用者放入磁片的提示.
請問如何使用TrueDBGrid來update不同table中的資料??(編號：1939)
對不起,再請教一次請問如何使用TrueDBGrid來update不同table中的資料??
我目前試過Create一個Recorset之後做Set TDBGrid1.DataSource=Recordset
[註1]Recordset的SQL 敘述為一個join其它Table
[註2]TDBGrid1的DataMode設定為Bound模式
這樣做之後，當輸入資料在TrueDBGrid中就發生錯誤了!
我捕捉到的Error 為:無法更新xxx欄位，該欄位為唯讀!!
目前我的做法是以Storage Mode來做，並透過 XArray DB Object
所有Show資料及Update資料都是自已codeing來完成
但是，總覺得程式變的很複雜(大概用了近500行左右的程式碼)。
所以想請教各位vb的前輩's是不是有更簡單的做法??可提供參考??
我目前試過Create一個Recorset之後做Set TDBGrid1.DataSource=Recordset
[註1]Recordset的SQL 敘述為一個join其它Table
[註2]TDBGrid1的DataMode設定為Bound模式
這樣做之後，當輸入資料在TrueDBGrid中就發生錯誤了!
我捕捉到的Error 為:無法更新xxx欄位，該欄位為唯讀!!
目前我的做法是以Storage Mode來做，並透過 XArray DB Object
所有Show資料及Update資料都是自已codeing來完成
但是，總覺得程式變的很複雜(大概用了近500行左右的程式碼)。
所以想請教各位vb的前輩's是不是有更簡單的做法??可提供參考??
如何讀取一個column(同一個field)的資料(拜託...要交功課了)(編號：1938)
VB6.0我需要用adodc新增紀錄，所以需要核對一下primary key有沒有衝突
TEXT1.TEXT 讀入了新的紀錄(T NO)
TESTDB.RECORDSET.FIELDS("T NO")一整列都是PRIMARY KEY
我用了以下方法:
FOR I = 0 TO TestDB.Recordset.Recordcount
if TestDB.Recordset.Fields("T NO") = TEXT1.TEXT Then
ReadyToUpdate=False
End If
Next I
好像有一些錯漏，當時TestDB.Recordset.Addnew都已經ok了(有關係嗎??)
拜託各位高手女媧補天~~ 謝謝你閱讀此留言
TEXT1.TEXT 讀入了新的紀錄(T NO)
TESTDB.RECORDSET.FIELDS("T NO")一整列都是PRIMARY KEY
我用了以下方法:
FOR I = 0 TO TestDB.Recordset.Recordcount
if TestDB.Recordset.Fields("T NO") = TEXT1.TEXT Then
ReadyToUpdate=False
End If
Next I
好像有一些錯漏，當時TestDB.Recordset.Addnew都已經ok了(有關係嗎??)
拜託各位高手女媧補天~~ 謝謝你閱讀此留言
'Always on top' function and help file(編號：1935)
How to set one of the MDI child forms always on top of the others? Also, is there any source teaching how to write a window help file?
Thx, very much!
Thx, very much!
如何將兩張圖存成一個.Tif圖檔(編號：1932)
我用image edit的SaveAs存圖檔為,tif檔時，
要如何才能把兩張,tif圖檔存成一個,tif檔呢??
我怎麼存都只能一張圖存成一個檔，
請各位高手，幫幫忙.....
要如何才能把兩張,tif圖檔存成一個,tif檔呢??
我怎麼存都只能一張圖存成一個檔，
請各位高手，幫幫忙.....
請問如何使用 SQL 做日期搜尋命令?(編號：1931)
'這將做日期之查詢
datSecondaryRS.RecordSource = "select * from [股票寫真] where [日期]= #'" & DBC2.Text & "'#"
vb5.0版,無法正常運作(指令不熟),請幫忙~謝謝!!
datSecondaryRS.RecordSource = "select * from [股票寫真] where [日期]= #'" & DBC2.Text & "'#"
vb5.0版,無法正常運作(指令不熟),請幫忙~謝謝!!
VB 可以透過 TCPIP 收送訊息嗎?(編號：1927)
弟想寫一個 Client & Server 程式....
Client & Server 在不同的電腦上, 只透過 TCPIP 連結...
VB 可以利用TCPIP 來傳遞一些訊息嗎??
(例: Client 端的 Userid 等資訊)
Client & Server 在不同的電腦上, 只透過 TCPIP 連結...
VB 可以利用TCPIP 來傳遞一些訊息嗎??
(例: Client 端的 Userid 等資訊)
如何才能使一個有事件的物件一直存在著？(編號：1926)
諸位好:
小弟目前正在做一個專案，想請各位提供一些概念給小弟，情形如下:
由於要控制週邊設備，因此想做成一個dll或是dll的執行檔(以下簡稱Dll)，而這個Dll:(設備.dll或是設備.exe)
有一個form1(此form上有一個timer及一個必要的控制項,當timer接收到資料時會引發DataArrival事件),一個class(這個class宣告(Withevents FTest asform1,) 當接到fTest_DataArrival(Byval xReceiveData as string )時，又會引發ReceiveData事件
我本來是在主程式中宣告 WithEvents objX as 設備.Class1
然後在主程式中的每個form，只要有用到這個dll的，我都再宣告一次，
因此想請教，有沒有可能這個dll一直存活著，而且也可以傳資料到我想要的f不同的orm上呢？而不要在必要的form上宣告及結束？
以上謝謝您看完小弟的問題，也謝謝您的回答！
小弟目前正在做一個專案，想請各位提供一些概念給小弟，情形如下:
由於要控制週邊設備，因此想做成一個dll或是dll的執行檔(以下簡稱Dll)，而這個Dll:(設備.dll或是設備.exe)
有一個form1(此form上有一個timer及一個必要的控制項,當timer接收到資料時會引發DataArrival事件),一個class(這個class宣告(Withevents FTest asform1,) 當接到fTest_DataArrival(Byval xReceiveData as string )時，又會引發ReceiveData事件
我本來是在主程式中宣告 WithEvents objX as 設備.Class1
然後在主程式中的每個form，只要有用到這個dll的，我都再宣告一次，
因此想請教，有沒有可能這個dll一直存活著，而且也可以傳資料到我想要的f不同的orm上呢？而不要在必要的form上宣告及結束？
以上謝謝您看完小弟的問題，也謝謝您的回答！
急.......adodc1 和 ado如何同步?(編號：1924)
用ado語法 delete一筆記錄,為什麼再用adodc1.refresh該筆資料錄還在,要將form重新開啟該筆資料才會不見....
感激不盡!!!!
感激不盡!!!!
help !! unicode !! 超奇怪 .....(編號：1923)
各位先進.請問一下..
abc.def 是一編碼過的檔案.(如exe檔orBIN檔)
以下第一個開檔後"直接"存檔. 檔案大小不變
變數BUFF如果用Buff = StrConv(BUFF, vbUnicode)
再用Buff = StrConv(BUFF, vbFromUnicode)
這樣等於繞了一圈. 然後存檔..
天啊. 檔案還是會變小!!!(純文字就完全沒問題了)
反正我一動BUFF就完了..
WHY? WHY? WHY?
Dim Buff() As Byte' 第一個
Open "g:\1223\abc.def" For Binary Access Read As #1
ReDim Buff(LOF(1))
Get #1, , Buff
CLOSE #1
abc.def 是一編碼過的檔案.(如exe檔orBIN檔)
以下第一個開檔後"直接"存檔. 檔案大小不變
變數BUFF如果用Buff = StrConv(BUFF, vbUnicode)
再用Buff = StrConv(BUFF, vbFromUnicode)
這樣等於繞了一圈. 然後存檔..
天啊. 檔案還是會變小!!!(純文字就完全沒問題了)
反正我一動BUFF就完了..
WHY? WHY? WHY?
Dim Buff() As Byte' 第一個
Open "g:\1223\abc.def" For Binary Access Read As #1
ReDim Buff(LOF(1))
Get #1, , Buff
CLOSE #1
如何在class中使用含有宣告form中的timer事件？(編號：1922)
您好:
小弟想請教一個問題:
小弟是使用NT workstation(SP4)+VB6+Sp3，開一個Dll的專案，(其啟動物件是無)
其中有一個form1(含有timer控制項)及一個class，而這個class有宣告
private withevents fTest as from1
而在form1中的timer_timer()事件中會引發Form的OnTime事件；
而在class中的 ftest_OnTime()中再將資料傳出。
想請教的是:怎麼timer事件都不會動呢？
謝謝您的回答。
小弟想請教一個問題:
小弟是使用NT workstation(SP4)+VB6+Sp3，開一個Dll的專案，(其啟動物件是無)
其中有一個form1(含有timer控制項)及一個class，而這個class有宣告
private withevents fTest as from1
而在form1中的timer_timer()事件中會引發Form的OnTime事件；
而在class中的 ftest_OnTime()中再將資料傳出。
想請教的是:怎麼timer事件都不會動呢？
謝謝您的回答。
ocx載入網頁(編號：1920)
我使用使用者控制項製作ocx，將其ocx放入網頁中可是封裝後卻無法用IE瀏覽，而當初在製作過程時一邊用VB一邊執行時都可在瀏覽器上看到欲想呈現之結果，但當一切完成後竟不能直接用瀏覽器看到OCX，可以請問為什麼嗎??並有什麼解決辦法嗎??
如何偵測MS OFFICE是否存在？版本為何？(編號：1919)
假設：現在的程式是要整合VB6.0 + OFFICE 2000。
問題：如題所示，程式之中要如何偵測OFFICE 2000是否存在？它的SP版本？OFFICE軟體是否灌齊呢？
'
'
謝謝
'
'
SPENCER YANG
2000/3/20
問題：如題所示，程式之中要如何偵測OFFICE 2000是否存在？它的SP版本？OFFICE軟體是否灌齊呢？
'
'
謝謝
'
'
SPENCER YANG
2000/3/20
如何呼叫另一個Form中之Command Button?(編號：1916)
Dear All:
假設現在Form 1要呼叫Form 2之Command1並執行Command1
該如何做咧?
在Form1中寫:
Form2.show 1
call Form2.command1_Click
會有錯誤
應該如何做才正確咧?
假設現在Form 1要呼叫Form 2之Command1並執行Command1
該如何做咧?
在Form1中寫:
Form2.show 1
call Form2.command1_Click
會有錯誤
應該如何做才正確咧?
如何在WIN NT環境以程式啟動螢幕保護程式？(編號：1915)
本人參考紀文和個個XX破0087案例，在WINNT 環境則會出現
53 找不到檔案訊息
請問在WINDWOS 95,98,2000,WINNT之間呼叫SHELL執行螢幕保護程式是有那些差異。
'
'
在WINDOWS 98可以執行成功:
Shell ("start c:\windows\sheep.scr")
'
'
'
謝謝
'
'
SPENCER YANG
2000/3/20
53 找不到檔案訊息
請問在WINDWOS 95,98,2000,WINNT之間呼叫SHELL執行螢幕保護程式是有那些差異。
'
'
在WINDOWS 98可以執行成功:
Shell ("start c:\windows\sheep.scr")
'
'
'
謝謝
'
'
SPENCER YANG
2000/3/20
安裝及佈署程式??(編號：1912)
各位前輩:小妹有一個問題想請問一下!!
請問要如何使用VB寫一個安裝程式(INSTALL)?就像安裝VB一樣!
因為程式有使用到DLL檔,欲安裝到SYSTEM目錄下,但因每台電腦所設定的系統目錄位置不同,無法直接用程式寫入!但聽別人說VB可以使用安裝的方法將其裝入,所以希望各位前輩幫個小忙,謝謝!
非常感謝網友vb前輩 Jason Hsu ,但我還是不了解
'安裝及佈署'程式是什麼,要如何用耶??嗯.....老實說在哪裡都不清楚耶!!
請問要如何使用VB寫一個安裝程式(INSTALL)?就像安裝VB一樣!
因為程式有使用到DLL檔,欲安裝到SYSTEM目錄下,但因每台電腦所設定的系統目錄位置不同,無法直接用程式寫入!但聽別人說VB可以使用安裝的方法將其裝入,所以希望各位前輩幫個小忙,謝謝!
非常感謝網友vb前輩 Jason Hsu ,但我還是不了解
'安裝及佈署'程式是什麼,要如何用耶??嗯.....老實說在哪裡都不清楚耶!!
請教欄名用巨集變數處理(編號：1911)
我想用文字變數指定為欄名再利用變數取出fields資料內容
如
a1="cuid10"
a2="name10"
?rs1!cuid10
?rs1!name10
如何使用a1取出rs1!cuid10及a2取出rs1!name10內容
謝謝！教指
如
a1="cuid10"
a2="name10"
?rs1!cuid10
?rs1!name10
如何使用a1取出rs1!cuid10及a2取出rs1!name10內容
謝謝！教指
有關螢幕保護程式的問題(編號：1910)
我想請問，當我利用.avi和.mpeg檔製作螢幕保護程式時，只要把影片設成全螢幕時，在播放多張影片則發現，當滑鼠移動和按下鍵盤後都無法讓影片結束，我在mouse_move和key_down這兩個事件中都有寫了讓影片結束的程式，但影片依然無法結束，請問有何解決之道呢？
如何排除NULL值(編號：1906)
VB6.0 本人之DB內載有一些不可以是NULL 值的數值(或字串)，故希望在UPDATE以先排除
dim ready as boolean
ready= true
If Null =Text2.Text (或RichTextBox1.text)
ready=false
End If
If ready= ture then
TestDB.recordset.fields("abc")= Text2.Text
end if
可是她還是會在第二部份罵我，我可以怎樣呢，可以set 一個defalut的value嗎?
謝謝您閱讀此留言，並藉機向幫助過我的高手言謝~~ ^_^
dim ready as boolean
ready= true
If Null =Text2.Text (或RichTextBox1.text)
ready=false
End If
If ready= ture then
TestDB.recordset.fields("abc")= Text2.Text
end if
可是她還是會在第二部份罵我，我可以怎樣呢，可以set 一個defalut的value嗎?
謝謝您閱讀此留言，並藉機向幫助過我的高手言謝~~ ^_^
對不起,想問一個ASP的問題.(編號：1900)
請問,我將一個ASP的網頁上傳到ISP,但觀看時只看到HTML部份,ASP部份沒有顯示,
但在本機則沒這問題,是否該ISP不技援用戶的ASP網頁?
如果是可有其他的免費網址空間可以支援用戶上傳ASP的.謝謝大家!
但在本機則沒這問題,是否該ISP不技援用戶的ASP網頁?
如果是可有其他的免費網址空間可以支援用戶上傳ASP的.謝謝大家!
再次請教：mts 一定要在同一Domain才能執行嗎？(編號：1899)
各位親愛的前輩同好高手：
由於沒有人回應，因此再次請教..
MTS元件一定要在同一個domain才能執行嗎？
我試著在不同的domain中啟動該mts元件
結果錯誤訊息如下--
Automation error
The server process could not be started because the configured identity is incorrect. Check the username and password.
請問各位高手，是否有解？
ps:試著將該元件改成 atx exe 後一樣不行
----------------------------------------------------
i am SomeBody
從vb 1.0 就開始寫vb程式了，想不到n 年以後還要接受vb的荼毒...........
由於沒有人回應，因此再次請教..
MTS元件一定要在同一個domain才能執行嗎？
我試著在不同的domain中啟動該mts元件
結果錯誤訊息如下--
Automation error
The server process could not be started because the configured identity is incorrect. Check the username and password.
請問各位高手，是否有解？
ps:試著將該元件改成 atx exe 後一樣不行
----------------------------------------------------
i am SomeBody
從vb 1.0 就開始寫vb程式了，想不到n 年以後還要接受vb的荼毒...........
image.picture算是什麼type(編號：1898)
vb6.0我使用sql server 7.0DB table裡的一個varchar type 用以儲存我於VB中使用的path E.G."../image.jpg"
嘗試以:
image1.picture = testdb.recordset.fields("graphic path").value
直接使用郤不成功...為什麼呢??
謝謝你閱讀此留言~
嘗試以:
image1.picture = testdb.recordset.fields("graphic path").value
直接使用郤不成功...為什麼呢??
謝謝你閱讀此留言~
控制項的問題(編號：1897)
各位:
我的問題如下:
有兩張Form, 分別是Form1 和 Form2, 各包含下列控制項
cmdButton1 in Form1 and cmdButton2 in Form2
在Form1 的程式中, 我可用cmdButton2 來呼叫在Form2 中的cmdButton2控制項, 但當我加上一個新的cmdButton3
在From2 時, 我再不能用cmdButton3 來控制, 而要用Form2.cmdButton3, (指定cmdButton3在Form2), 為什麼呢?
如何解決?
請問為何
我的問題如下:
有兩張Form, 分別是Form1 和 Form2, 各包含下列控制項
cmdButton1 in Form1 and cmdButton2 in Form2
在Form1 的程式中, 我可用cmdButton2 來呼叫在Form2 中的cmdButton2控制項, 但當我加上一個新的cmdButton3
在From2 時, 我再不能用cmdButton3 來控制, 而要用Form2.cmdButton3, (指定cmdButton3在Form2), 為什麼呢?
如何解決?
請問為何
如何結合兩個Project內容成為一個Project?(編號：1896)
各位前輩:
我有兩個不同程式設計師寫出來的程式,程式皆定為Project1,內容各有表單,模組及設計師,現在要將兩個Project1裏的表單,模組及設計師拼成在同一個裏,請問該如何做?
B.R.
我有兩個不同程式設計師寫出來的程式,程式皆定為Project1,內容各有表單,模組及設計師,現在要將兩個Project1裏的表單,模組及設計師拼成在同一個裏,請問該如何做?
B.R.
巴斯卡三角形(編號：1895)
我想請問各位高手：
我寫了一個巴斯卡三角形的程式，程式如下，要如何列式才不會列出"0"(使用VB6.0，作業平台Windows98)
Private Sub Command1_Click()
Cls
Dim x() As Double
n% = InputBox("number")
ReDim x(n% + 1, n% + 1)
For i = 1 To n%
x(i, 1) = 1
Next i
For i = 1 To n%
For j = 1 To n%
x(i + 1, j + 1) = x(i, j + 1) + x(i, j)
Next j
Next i
For i = 1 To n%
For j = (n% - i) To 1 Step -1
Print " ";
Next j
For k = 1 To n%
Print x(i, k);
'Print x(k, 1)
Next k
Print
Next i
End Sub
請幫個忙，謝謝!!
我寫了一個巴斯卡三角形的程式，程式如下，要如何列式才不會列出"0"(使用VB6.0，作業平台Windows98)
Private Sub Command1_Click()
Cls
Dim x() As Double
n% = InputBox("number")
ReDim x(n% + 1, n% + 1)
For i = 1 To n%
x(i, 1) = 1
Next i
For i = 1 To n%
For j = 1 To n%
x(i + 1, j + 1) = x(i, j + 1) + x(i, j)
Next j
Next i
For i = 1 To n%
For j = (n% - i) To 1 Step -1
Print " ";
Next j
For k = 1 To n%
Print x(i, k);
'Print x(k, 1)
Next k
Next i
End Sub
請幫個忙，謝謝!!
關於Adodc(編號：1894)
當我做一個Adodc控制項時,若我在表單中並沒有物件的資料來源(DataSource)是它,但是我在程式中卻用得到,總是會發生錯誤,就是說沒有設定With變數之類的!
我用Adodc1.recordset.open也沒有用說!
請幫幫我!謝謝!
我用Adodc1.recordset.open也沒有用說!
請幫幫我!謝謝!
關於MSHFlexGrid的問題(編號：1892)
我的表單中有一個MSHFlexGrid這樣的物件,但卻有著如下的問題
(1)我要在毫無筆數的MSHFlexGrid新增一Row但卻不能用AddItem的方法來達
成,也就是說我無法在新增的這一筆中附加資料,且整個MSHFlexGrid物件都
不能動了,連點都不能點
(2)若在程式中對MSHFlexGrid的資料來源新增一筆資料後,該如何使
MSHFlexGrid立即更新呢??我用Adodc1.Refresh也沒有用說!!
煩請教教我,謝謝你!
(1)我要在毫無筆數的MSHFlexGrid新增一Row但卻不能用AddItem的方法來達
成,也就是說我無法在新增的這一筆中附加資料,且整個MSHFlexGrid物件都
不能動了,連點都不能點
(2)若在程式中對MSHFlexGrid的資料來源新增一筆資料後,該如何使
MSHFlexGrid立即更新呢??我用Adodc1.Refresh也沒有用說!!
煩請教教我,謝謝你!
vb啟動word過慢的問題..環境是vb6sp3與WIN98(編號：1891)
請問大家..
我用VB6SP3引用WORD的LIB，使用set OBJ=NEW WORD.application的方式及DOCUMENT.open X.ｄｏｃ的方法開檔..為甚麼開檔會需要一分鐘呢?但是某公司寫的用ActivateX OCX 約30秒 ...為甚麼？
我用VB6SP3引用WORD的LIB，使用set OBJ=NEW WORD.application的方式及DOCUMENT.open X.ｄｏｃ的方法開檔..為甚麼開檔會需要一分鐘呢?但是某公司寫的用ActivateX OCX 約30秒 ...為甚麼？
請教兩個問題.....(編號：1887)
請問各位大哥
請教二個VB的問題
Q1:我有一個資料表a,欄位是b(格式 2000/3/17 AM 03:15:24)
如今我要查詢一段時間內的資料,且日期是今天的SQL語法要如何寫
例如 AM 09:00:00 到 PM 05:00:00 日期是 A1=FORMAT(NOW,"YYYY/MM/DD")
Q2:我有兩個表單F1,F2...兩個表單共用一個算流水號的資料表,當F1叫出F2後,
在F2中新增一筆資料後UNLOAD F2回到F1,繼續再F1新增資料時卻發生錯誤,
rs2("no")=rs2("no")+1無法加1,發生20=20+1的錯誤
Private Sub water()
Dim mydate, mynumber
'算出流水號
mydate = rs2("da")
1 If mydate = Date Then
2 rs2("no") = rs2("no") + 1
3 rs2.Update
4 ElseIf mydate ＜ Date Then
5 rs2("da") = Date
6 rs2("no") = 1
7 rs2.Update
8 End If
End Sub
麻煩大家幫個忙,感激不盡,謝謝先.......
請教二個VB的問題
Q1:我有一個資料表a,欄位是b(格式 2000/3/17 AM 03:15:24)
如今我要查詢一段時間內的資料,且日期是今天的SQL語法要如何寫
例如 AM 09:00:00 到 PM 05:00:00 日期是 A1=FORMAT(NOW,"YYYY/MM/DD")
Q2:我有兩個表單F1,F2...兩個表單共用一個算流水號的資料表,當F1叫出F2後,
在F2中新增一筆資料後UNLOAD F2回到F1,繼續再F1新增資料時卻發生錯誤,
rs2("no")=rs2("no")+1無法加1,發生20=20+1的錯誤
Private Sub water()
Dim mydate, mynumber
'算出流水號
mydate = rs2("da")
1 If mydate = Date Then
2 rs2("no") = rs2("no") + 1
3 rs2.Update
4 ElseIf mydate ＜ Date Then
5 rs2("da") = Date
6 rs2("no") = 1
7 rs2.Update
8 End If
End Sub
麻煩大家幫個忙,感激不盡,謝謝先.......
比 double 更大的數(編號：1885)
想知道....windows 98 裡有個小算盤
它最大可以算到 10 的幾萬次方....
如果我碰到一個相當大的數字....或是相當小的數字
在 vb 裡頭該怎麼處理呢？就像那個小算盤可以算到那麼大一樣..
?
它最大可以算到 10 的幾萬次方....
如果我碰到一個相當大的數字....或是相當小的數字
在 vb 裡頭該怎麼處理呢？就像那個小算盤可以算到那麼大一樣..
?
請問一下DataReport的資料更新(編號：1884)
請問一下DataReport要如何做資料更新的動作呢?
如果在一開始時有三筆資料,利用DataReport列印很正常
新增之後的資料有五筆,再呼叫DataReport也很正常
但是當我將資料庫中的資料刪去幾筆之後,用DataReport列印,在預覽的畫面中,竟然還是五筆,之前刪去的資料還是存在,請問一下這是要如何解決呢?
我用的是DataEnvironment與Data控制項做的
謝謝各位了!!
如果在一開始時有三筆資料,利用DataReport列印很正常
新增之後的資料有五筆,再呼叫DataReport也很正常
但是當我將資料庫中的資料刪去幾筆之後,用DataReport列印,在預覽的畫面中,竟然還是五筆,之前刪去的資料還是存在,請問一下這是要如何解決呢?
我用的是DataEnvironment與Data控制項做的
謝謝各位了!!
crystal report可否開啟access2000的mdb檔案(編號：1883)
我有一個利用access2000做成的mdb檔
利用crystalreport4.6版來列印
在一開始利用custom建立樣板報表時開啟access2000
的mdb檔,
此時銀幕秀出輸入access password!!
我的資料庫並沒設定password!!
為何要求輸入password?
且password為多少我也不知
請各位高手幫我解答
thanks!!
eddy
利用crystalreport4.6版來列印
在一開始利用custom建立樣板報表時開啟access2000
的mdb檔,
此時銀幕秀出輸入access password!!
我的資料庫並沒設定password!!
為何要求輸入password?
且password為多少我也不知
請各位高手幫我解答
thanks!!
eddy
OCX點用?(編號：1882)
各位,我最近要寫一個vb program 是要將一些從capture card, capture到的image, load 入 harddisk, then 再由harddisk隔一段時間後放
上internet, 好似現場直播, 但我只是知要用ocx, 我這個program is urgent....I hope anyone can me....thanks a lots!!
上internet, 好似現場直播, 但我只是知要用ocx, 我這個program is urgent....I hope anyone can me....thanks a lots!!
DATAGRID的顯示疑問？(在VBSP3+98)(編號：1880)
日前我寫了一個查詢公司資料的程式其查詢式約略如下：
a="select * from unit where name like'" & txtinput & "'"在此欄位時沒有問題若使用者查詢時輸入錯誤，如查名字卻打地址，就出現無效的書籤..程式會通知我有一筆資料..但DATAGRID是空白的，為甚麼呢？
a="select * from unit where name like'" & txtinput & "'"在此欄位時沒有問題若使用者查詢時輸入錯誤，如查名字卻打地址，就出現無效的書籤..程式會通知我有一筆資料..但DATAGRID是空白的，為甚麼呢？
請問一個安裝時所出現的錯誤訊息.(編號：1874)
請教我製作了一個簡單的資料庫額外用到的元件comctl32. ocx
執行新增.修改.刪除等動作.
在安裝時所出現的錯誤訊息.========
呼叫vba檔案無法初始化\VBAjet.dll用於16位元版本VBAjet32.dll用於32位元版本\.
請教經驗豐富的高手們.謝謝...^_^#
執行新增.修改.刪除等動作.
在安裝時所出現的錯誤訊息.========
呼叫vba檔案無法初始化\VBAjet.dll用於16位元版本VBAjet32.dll用於32位元版本\.
請教經驗豐富的高手們.謝謝...^_^#
DTS connection object 的問題(編號：1872)
各位先進好:小弟我在使用 VB 呼叫 DTS package時有幾個問題一、connection.datasource 是不是只能用ODBC，可否用OLE DB?二、若可以的話該怎麼寫呢?小弟這樣的寫法不能work，是哪裡出錯了呢?EXP : oconnection.datasource = "provider=sqloledb;data source=111.11.1.1" ; oconnection.username="test" ; oconnection.password="test";
請問如何讀取影像檔.................!!!!!(編號：1871)
各位網友大家好:
相信各位都知道影像檔是由一個個的小格子所組成,每個格子內存放著顏色的資料.......請問各位先進:小弟要如何能讀取每一個格子內所存放的資料呢????????
希望網友能提供相關方法或資料,謝謝......
相信各位都知道影像檔是由一個個的小格子所組成,每個格子內存放著顏色的資料.......請問各位先進:小弟要如何能讀取每一個格子內所存放的資料呢????????
希望網友能提供相關方法或資料,謝謝......
TrueDBGrid輸入資料的問題...(編號：1869)
請問如何使用TrueDBGrid來update不同table中的資料??
我目前試過Create一個Recorset之後做Set TDBGrid1.DataSource=Recordset
[註1]Recordset的SQL 敘述為一個join其它Table
[註2]TDBGrid1的DataMode設定為Bound模式
這樣做之後，當輸入資料在TrueDBGrid中就發生錯誤了!
我捕捉到的Error 為:無法更新xxx欄位，該欄位為唯讀!!
目前我的做法是以Storage Mode來做，並透過 XArray DB Object
所有Show資料及Update資料都是自已codeing來完成
但是，總覺得程式變的很複雜(大概用了近500行左右的程式碼)。
所以想請教各位vb的前輩's是不是有更簡單的做法??可提供參考??
我目前試過Create一個Recorset之後做Set TDBGrid1.DataSource=Recordset
[註1]Recordset的SQL 敘述為一個join其它Table
[註2]TDBGrid1的DataMode設定為Bound模式
這樣做之後，當輸入資料在TrueDBGrid中就發生錯誤了!
我捕捉到的Error 為:無法更新xxx欄位，該欄位為唯讀!!
目前我的做法是以Storage Mode來做，並透過 XArray DB Object
所有Show資料及Update資料都是自已codeing來完成
但是，總覺得程式變的很複雜(大概用了近500行左右的程式碼)。
所以想請教各位vb的前輩's是不是有更簡單的做法??可提供參考??
mts 一定要在同一Domain才能執行嗎？(編號：1868)
各位親愛的前輩同好高手：
MTS元件一定要在同一個domain才能執行嗎？
我試著在不同的domain中啟動該mts元件
.
結果錯誤訊息如下--
Automation error
The server process could not be started because the configured identity is incorrect. Check the username and password.
.
請問各位高手，是否有解？
ps:試著將該元件改成 atx exe 後一樣不行
----------------------------------------------------
i am SomeBody
從vb 1.0 就開始寫vb程式了
想不到n 年以後還要接受vb的荼毒...........
MTS元件一定要在同一個domain才能執行嗎？
我試著在不同的domain中啟動該mts元件
.
結果錯誤訊息如下--
Automation error
The server process could not be started because the configured identity is incorrect. Check the username and password.
.
請問各位高手，是否有解？
ps:試著將該元件改成 atx exe 後一樣不行
----------------------------------------------------
i am SomeBody
從vb 1.0 就開始寫vb程式了
想不到n 年以後還要接受vb的荼毒...........
無法設定 DBGrid1 的屬性 OleObjectBlob 。(編號：1867)
我是鴻中,我有下列的問題不知該如何解決,我使用vb6.0 叫入檔案開啟表單內容時出下列問無法使用該物件該如何解決??謝謝!!
行號 39: 無法設定 DBGrid1 的屬性 OleObjectBlob 。
行號 39: 無法載入控制項 DBGrid1; 找不到授權資料。
行號 39: 無法設定 DBGrid1 的屬性 OleObjectBlob 。
行號 39: 無法載入控制項 DBGrid1; 找不到授權資料。
How to package a vb program?(編號：1864)
Whem writing a program, we will use many *.dll, database component. When the program is finished, if it is intalled in some computer which haven't the *.dll or database component that is required by the program, the program will not work. So how to package the program so that all dll, component is included?
模組搞不清，望高手賜教(編號：1863)
vb6.0我想將一個公開的遊戲碼放進自己的專案內，已更名為playgame2(three.frm)[附模組]。
用於form1(按完play之後的表格)沒有問題
private sub command1_click
playgame2.show
end
用於與form1有連結的form2(同樣用command click)
private sub command2_click
playgame2.show
end
它卻罵我"找不到方法或資料成員"，是不是模組內的public 與 private的setting有問題呢???
(問題含糊不清，請見諒~ 謝謝你閱讀此留言)
用於form1(按完play之後的表格)沒有問題
private sub command1_click
playgame2.show
end
用於與form1有連結的form2(同樣用command click)
private sub command2_click
playgame2.show
end
它卻罵我"找不到方法或資料成員"，是不是模組內的public 與 private的setting有問題呢???
(問題含糊不清，請見諒~ 謝謝你閱讀此留言)
ASP執行有問題(編號：1862)
高手們好:
我寫了個ASP,寫資料到Access 2000 的資料檔中
我本來在NT(SP4)IIS4.0下跑正常,但是重灌NT(SP5) 後,每次執行到 Insert就會發生下面錯誤,請問是怎麼回事呢?
Microsoft OLE DB Provider for ODBC Drivers 錯誤 '80004005'
[Microsoft][ODBC Microsoft Access 驅動程式] 運作必須使用更新查詢。
/OldTestSet.asp, 列46
我寫了個ASP,寫資料到Access 2000 的資料檔中
我本來在NT(SP4)IIS4.0下跑正常,但是重灌NT(SP5) 後,每次執行到 Insert就會發生下面錯誤,請問是怎麼回事呢?
Microsoft OLE DB Provider for ODBC Drivers 錯誤 '80004005'
[Microsoft][ODBC Microsoft Access 驅動程式] 運作必須使用更新查詢。
/OldTestSet.asp, 列46
TrueDBGrid ocx 元件無法在nt4.0c 下輸入中文的問題?(編號：1861)
hi all
有誰知道此問題的解決方法??
但在win95,98多可以??
那是nt4.0c 的問題,還是ocx 元件問題?
請e-mail 告知謝謝
有誰知道此問題的解決方法??
但在win95,98多可以??
那是nt4.0c 的問題,還是ocx 元件問題?
請e-mail 告知謝謝
recordset question(編號：1860)
1. 怎樣可以一次過將recordset裏的"record delete" And "move or add record to the other recordset"??
2. SQL又怎樣command??
2. SQL又怎樣command??
再問一次啦!!!關於--如何用vb在程式中來停止一個正在執行的應用(編號：1859)
謝謝...Weskey!!!
不過我的問題似乎沒那樣簡單....
我要結束的程式是當我們按Crtl+Alt+Delete...
不是會顯示一個所有正在執行應用程式的清單嗎?
我要結束的是清單裡的某一個應用程式!!!
而且是我用vb去shell一個cobol的指令才產生的....
(每shell一次就有一個喔!!!)
越來越多我的程式就跑不動了...
誰....誰....有誰可以再告訴我....
謝謝.....謝謝謝謝!!!!
不過我的問題似乎沒那樣簡單....
我要結束的程式是當我們按Crtl+Alt+Delete...
不是會顯示一個所有正在執行應用程式的清單嗎?
我要結束的是清單裡的某一個應用程式!!!
而且是我用vb去shell一個cobol的指令才產生的....
(每shell一次就有一個喔!!!)
越來越多我的程式就跑不動了...
誰....誰....有誰可以再告訴我....
謝謝.....謝謝謝謝!!!!
關於Adodc1.CursorLocation = adUseServer(編號：1858)
請教如何在使用adUseServer的快速功能,
又能使用MoveLast,及得知其所在位置(AbsolutePosition功能).
又能使用MoveLast,及得知其所在位置(AbsolutePosition功能).
如何解讀 Browser 傳給 Server 的 中文字 ?(編號：1857)
我做的 server 傳給 Browser 具有如 CGI 功能的 FORM, 此form summit 傳回後
用 tcp(Index).GetData s, vbString, bytesTotal 得到的字串
如果非中文字, 則為正常的string
但中文字如果是 "是" ，傳到 server 端看到的卻是"%ACO",
請問如何將"%ACO" 轉成 "是"？
用 tcp(Index).GetData s, vbString, bytesTotal 得到的字串
如果非中文字, 則為正常的string
但中文字如果是 "是" ，傳到 server 端看到的卻是"%ACO",
請問如何將"%ACO" 轉成 "是"？
如何透過Modem來傳送voice檔?(編號：1856)
老板要本人利用VB透過MODEM的傳遞,送一個WAV檔到對方去,而且對方沒有MODEM只有話筒,本人查遍相關有VOICE的MODEM手冊,其中並無提供如何傳VOICE的方法，只有簡易的ＡＴ指令，請各方的英雄或高手能否指點迷津，在下感激不盡‧
ＰＳ 如果有相關的3-PARTY廠商，也請來信告知 !!!
ＰＳ 如果有相關的3-PARTY廠商，也請來信告知 !!!
關於VB印表的事(編號：1855)
1、使用Printer物件列印報表時，如何將數字靠右？
2、將資料寫入時文字檔(資料型態為string)會自動加入雙引號("")
，要如何去除雙引號("") ？
善心人士，有請了。
2、將資料寫入時文字檔(資料型態為string)會自動加入雙引號("")
，要如何去除雙引號("") ？
善心人士，有請了。
vb6 DAO Method(編號：1853)
求救! 我用vb6 DAO Method想將多個foxpro table轉存至sql,但執行時卻發生找不到isam file,我也檢查我HKEY之isam formats有註冊fox 3.0 driver,且也再重裝vb5所有的data access driver,但仍是一樣,希望有武林高手能解決我的疑難,目前我正在用定義Schema類別的方法解決不知可不可行?
iepop(編號：1852)
請問
iepop1.additem "item1"
iepop1.additem "item2"
iepop1.visible=true
請問為何這個popup跑出來的樣子,只是白白的,卻連上述兩個item都不見了,還是少了那些設定嗎??
iepop1.additem "item1"
iepop1.additem "item2"
iepop1.visible=true
請問為何這個popup跑出來的樣子,只是白白的,卻連上述兩個item都不見了,還是少了那些設定嗎??
出現執行期錯誤(-2147217887(800e40e21)(編號：1850)
請教各位
我在程式的某一行裡寫入
adodc1.recordset.addnew
在執行到這一行的時候
突然出現了「執行期錯誤'-2147217887(80040e21)」的錯誤訊息
可是在昨天我執行這個程式的時候還好好的
是可以寫入資料庫的
沒想到才隔一夜，程式就死了
我開msdn的說明出來看是指出
automation的錯誤(erro 440)
請問這個如何解決呢？
請幫幫我，謝謝！
我在程式的某一行裡寫入
adodc1.recordset.addnew
在執行到這一行的時候
突然出現了「執行期錯誤'-2147217887(80040e21)」的錯誤訊息
可是在昨天我執行這個程式的時候還好好的
是可以寫入資料庫的
沒想到才隔一夜，程式就死了
我開msdn的說明出來看是指出
automation的錯誤(erro 440)
請問這個如何解決呢？
請幫幫我，謝謝！
ASP,WORD AND VBA 整合(編號：1849)
您好：
最近正在學習VB Script的程式設計，我想在ASP程式中去啟動Word的表格文件，但此文件須依據ASP程式傳給它的key值，再去Database抓取資料Show於Word文件中，再由user去列印，不知此法是否可行？
煩請解答，感激不盡！！
最近正在學習VB Script的程式設計，我想在ASP程式中去啟動Word的表格文件，但此文件須依據ASP程式傳給它的key值，再去Database抓取資料Show於Word文件中，再由user去列印，不知此法是否可行？
煩請解答，感激不盡！！
datareport印表?(編號：1848)
印表時使用datareport1.printreport=true
會出現window的列印名稱選項視窗,經過選擇確認印出報表後
程式卻無法結束一直存在記憶體內,請問該如何解決??
會出現window的列印名稱選項視窗,經過選擇確認印出報表後
程式卻無法結束一直存在記憶體內,請問該如何解決??
ADO 的 SHAPE(編號：1846)
我用 ADO 的 SHAPE 建立子 Recordset, 可是卻發現子 Recordset 在做 addnew 或者 delete 或者修改內容的話並不會更動到資料庫, 但是如果是針對主 Recordset 做更動的話資料庫就會同時被更動... 請問這是什麼問題呀?
select * from a01 where sName like "Cha*i " ADO無法執行?(編號：1844)
select * from a01 where sName like "Cha*i "在DAO中執
行沒有問題,但在ADO中,卻無法找到資料,而且只要用到LIKE,
再加上萬用字元(*),或單一字元(?)等,就無法找到資料;若單
用LIKE則無此問題,不知何人能解
行沒有問題,但在ADO中,卻無法找到資料,而且只要用到LIKE,
再加上萬用字元(*),或單一字元(?)等,就無法找到資料;若單
用LIKE則無此問題,不知何人能解
如何在vb下open倚天的stdfont.15取得30 byte bit map(編號：1842)
在取得序列碼及offset下!!如何open 字型檔及一次取得30byte bitmap
資料!!請各位幫幫忙!!
資料!!請各位幫幫忙!!
要如何開啟"大"的Txt File??(編號：1841)
各位:
請問要如何開啟很大的Txt File??(超過5mb)
txtbox or richtxtbox 好像都有其限制...
可不可以提供做法?指點小弟我一下...
十二萬分謝謝...
請問要如何開啟很大的Txt File??(超過5mb)
txtbox or richtxtbox 好像都有其限制...
可不可以提供做法?指點小弟我一下...
十二萬分謝謝...
我的程式在Win98執行一直出錯怎麼辦?(編號：1840)
我的程式本來在Win95上執行都沒有問題,
可是換裝Win98後,
常執行到一半, Form關閉之後,
就出現"此程式即將關閉..."的訊息
VB就被莫名結束,
甚至有時Windows就當機了,
請教各位高手,
可否指請小女子如何改進?
感激不盡!謝謝
可是換裝Win98後,
常執行到一半, Form關閉之後,
就出現"此程式即將關閉..."的訊息
VB就被莫名結束,
甚至有時Windows就當機了,
請教各位高手,
可否指請小女子如何改進?
感激不盡!謝謝
請問如何用ADO連結EXCEL檔,並連結成Recordset(編號：1839)
請問如何用ADO連結EXCEL檔,並連結成Recordset,
目前只能建立ADO CONNECTION:
dim cn1 as new ADODB.Connection
cn1.Open "Driver={Microsoft Excel Driver (*.xls)};" _
& "DBQ=c:\...\;DriverID=790"
但是Create Recordset確失敗
rsSource.Open "select * from " & gsPath & "\" & gsFileName, cn1, adOpenStatic, adLockReadOnly
目前只能建立ADO CONNECTION:
dim cn1 as new ADODB.Connection
cn1.Open "Driver={Microsoft Excel Driver (*.xls)};" _
& "DBQ=c:\...\;DriverID=790"
但是Create Recordset確失敗
rsSource.Open "select * from " & gsPath & "\" & gsFileName, cn1, adOpenStatic, adLockReadOnly
Access Create Table 問題(編號：1838)
VB中要可以用sql指令的create table在Access中開一table
我要請教的是在create前可否判斷table是否存在??
這個問題很急,可否請高手指點...
我要請教的是在create前可否判斷table是否存在??
這個問題很急,可否請高手指點...
如何處理多的字元？(編號：1837)
您好:
小弟想請教:假設DB的設計是Char(7)，如果user可以輸入中英或數字時，除了以lenb及strcon來計算其確實的長度外，請問要如何可以擷取到正確的字元呢？例如user輸入了8的char，其中最後一個是中文字時，那只能擷取6個字元。
不知是否可以給小弟一個指引，謝謝！
小弟想請教:假設DB的設計是Char(7)，如果user可以輸入中英或數字時，除了以lenb及strcon來計算其確實的長度外，請問要如何可以擷取到正確的字元呢？例如user輸入了8的char，其中最後一個是中文字時，那只能擷取6個字元。
不知是否可以給小弟一個指引，謝謝！
ADO錯誤(編號：1836)
為了更新上的需要,因此我將主程式放在netlogon目錄下(其他元件
都已裝置在個人PC上),當到NT進行登錄時就會自動執行這個程式,
但目前有個問題是在某些PC上會出現ADO錯誤的訊息(系統是Windows 98),請問各位,這要如何解決呢?(出現ADO錯誤的PC在進入98後再次
執行並不會發生錯誤)
都已裝置在個人PC上),當到NT進行登錄時就會自動執行這個程式,
但目前有個問題是在某些PC上會出現ADO錯誤的訊息(系統是Windows 98),請問各位,這要如何解決呢?(出現ADO錯誤的PC在進入98後再次
執行並不會發生錯誤)
join table 刪除一筆資料, 會同時刪除兩個 table 的資料...?!(編號：1835)
資料庫 Query 出來的資料如果有 join table 的話, 用 recordset.delete 刪除一筆資料, 會同時刪除兩個 table 相關聯的資料, 有沒有什麼方法可以讓 recordset.delete 時指定只刪除某 table 的資料而不要去動到另外一個 table?
自製ActiveX Control的問題(編號：1834)
本人做了一個有 timer 的 ActiveX Control, 但發現如果在 design time 時把這個 control 拉到 form 中, 那個 control 的 timer function 就會立即啟動, 有沒有辦法可以令 control 內的 timer function 不要在 design time 的時候執行?
SPENCER YANG先生(小姐)......唉.....不行啊...(編號：1832)
SPENCER YANG先生(小姐):
我們的電腦裡沒有你所說的那個檔啊.....
沒有啊就是沒有啊...
怎麼辦啊.......
鳴鳴鳴....
我們的電腦裡沒有你所說的那個檔啊.....
沒有啊就是沒有啊...
怎麼辦啊.......
鳴鳴鳴....
Recordset.Delete 會發生"更新或重整所需鍵欄位資訊不足"?(編號：1831)
as title, 我用 static 方式開起資料庫的時後, 只要下 updatebatch 就會發生 "更新或重整所需鍵欄位資訊不足", 如果用 dynamic 就不會這樣, 是什麼原因或有解決方法嗎?
安裝程式(編號：1828)
各位前輩:小妹有一個問題想請問一下!!
請問要如何使用VB寫一個安裝程式(INSTALL)?就像安裝VB一樣!
因為程式有使用到DLL檔,欲安裝到SYSTEM目錄下,但因每台電腦所設定的系統目錄位置不同,無法直接用程式寫入!但聽別人說VB可以使用安裝的方法將其裝入,所以希望各位前輩幫個小忙,謝謝!
請問要如何使用VB寫一個安裝程式(INSTALL)?就像安裝VB一樣!
因為程式有使用到DLL檔,欲安裝到SYSTEM目錄下,但因每台電腦所設定的系統目錄位置不同,無法直接用程式寫入!但聽別人說VB可以使用安裝的方法將其裝入,所以希望各位前輩幫個小忙,謝謝!
記憶體不足.........!!!(編號：1827)
每當程式run了一段時間緦會出現這個訊息然後就當了
我想128ram應該夠吧...這麼辦呢???
謝謝..........
ps程式中用到大量的文字...圖片和音樂
我想128ram應該夠吧...這麼辦呢???
謝謝..........
ps程式中用到大量的文字...圖片和音樂
for god's sake...just help !!(編號：1826)
請問我要使一張圖片有動態效果（走路），拉了三個Picture Box
一個左腳在前（Ａ），另一個右腳在前（Ｂ），以上visible=false，顯示在最後那個pictrue box 上
已經把timer 設定好了，但要如何表示 Ａ顯示時 ，Ｂ為false 呢?
一個左腳在前（Ａ），另一個右腳在前（Ｂ），以上visible=false，顯示在最後那個pictrue box 上
已經把timer 設定好了，但要如何表示 Ａ顯示時 ，Ｂ為false 呢?
有關資料庫的問題(編號：1823)
請問一下，要如何把＜ ' ＞ 的符號，也就是單引號，用 insert into的方式加入資料庫中。另外，不知道大家有沒有碰過 datagrid 在載入超過70000 筆資料時，旁邊的捲軸拉不到最下面，不知道要如何解決。謝謝....
點播放.fla 檔(編號：1822)
本人想用flash 4.0去整一個opening of my VB project
請問怎樣播放 及 放在form 中
我有一個swflash.ocx ,它是否用作play flash 檔用,若是,怎用?
thank you!!!
請問怎樣播放 及 放在form 中
我有一個swflash.ocx ,它是否用作play flash 檔用,若是,怎用?
thank you!!!
如何將 BTrieve 的資料 轉換成 DBF或MDB ???(編號：1821)
這個程式是由 Magic 5 寫成的, 資料庫是BTrieve 即(*.dat)
我巳將 BTrieve(*.dat) 的資料 Dump 成 文本檔(txt), 但仍無法知道裏面的內容是什麼!
有人有過這樣的經驗嗎 !
請幫幫忙!
謝謝!
我巳將 BTrieve(*.dat) 的資料 Dump 成 文本檔(txt), 但仍無法知道裏面的內容是什麼!
有人有過這樣的經驗嗎 !
請幫幫忙!
謝謝!
VB 如何完成讀取 EXCEL 檔案(編號：1818)
請各位前輩指導
利用 VB 讀取 EXCEL 檔案
EXCEL 內容 1 100
2 200
3 300
4 400
.
.
可是只能從第2筆資料開始讀 1 100 無法讀入
F1 F2
2 200
3 300
4 400
.
. 非常感謝小茗敬上
利用 VB 讀取 EXCEL 檔案
EXCEL 內容 1 100
2 200
3 300
4 400
.
.
可是只能從第2筆資料開始讀 1 100 無法讀入
F1 F2
2 200
3 300
4 400
.
. 非常感謝小茗敬上
SQL查詢help......(編號：1816)
Adodc1.CommandType = adCmdText
SQL = " Select * from 資料表 Where 用途1 = " & combo.ItemData(I) & " or 用途2 = ...... or 用途3 = ......
Adodc1.RecordSource = SQL
Adodc1.Refresh
以上的查詢並無問題....
只是....如果我想要多個欄位查詢的話....
一定要用or的方式...或者是有更簡易的語法....
希望各位先進可以指點....:))
SQL = " Select * from 資料表 Where 用途1 = " & combo.ItemData(I) & " or 用途2 = ...... or 用途3 = ......
Adodc1.RecordSource = SQL
Adodc1.Refresh
以上的查詢並無問題....
只是....如果我想要多個欄位查詢的話....
一定要用or的方式...或者是有更簡易的語法....
希望各位先進可以指點....:))
救人哦~~使用vb製作word功能(MDI)。救人一命勝造七級浮屠(編號：1813)
使用tool bar製作成word工具列,如開檔存檔、複製、剪下、貼上
列印……等等基本功能。
歡迎高手出手相救.........感激不盡……
請盡快~~~~~非常非常感激
列印……等等基本功能。
歡迎高手出手相救.........感激不盡……
請盡快~~~~~非常非常感激
請問有關VB Word (Somebody help me!)(編號：1812)
請問:
能不能用VB寫出具有分散對齊功能之文書編輯器?
還有,VB資料庫系統能不能與Word作緊密之結合?
我快被 user 罵死了. 請幫幫我吧!!!
Thanks for your help!
能不能用VB寫出具有分散對齊功能之文書編輯器?
還有,VB資料庫系統能不能與Word作緊密之結合?
我快被 user 罵死了. 請幫幫我吧!!!
Thanks for your help!
如何能讓程式自動更新????????(編號：1809)
寫了一個程式,可以上網自動下載程式更新檔,但想下載後自動作
更新的動作,所以不知有沒有人指點一下如何能夠關閉自己並執行
其他程式的方法......想用此法結束主程式後接著執行更新程式,
然後再重新執行自己.
更新的動作,所以不知有沒有人指點一下如何能夠關閉自己並執行
其他程式的方法......想用此法結束主程式後接著執行更新程式,
然後再重新執行自己.
麻煩各位高手...緊急~(編號：1808)
在用adodc 載入sql 7.0 database的一個text type的一大串文字後,
發覺它不會自動換行~~~
(而textbox的multiline屬性已改為ture, scrollbars也設成'2垂直捲軸'
怎樣可以使它自動換行呢??
使用richtextbox可以增加彈性嗎??
發覺它不會自動換行~~~
(而textbox的multiline屬性已改為ture, scrollbars也設成'2垂直捲軸'
怎樣可以使它自動換行呢??
使用richtextbox可以增加彈性嗎??
請問我如何才能寄出一封HTML格式的信呢?(編號：1806)
我遇到了一個很大的問題, 問了好多人都沒有解答
想請您指導..
我用VB的MAPI中的兩個元件MAPISession和MAPIMessage
來作寄信的程式. 但是只能寄純文字檔
請問我如何才能寄出一封HTML格式的信呢?
感激不盡
想請您指導..
我用VB的MAPI中的兩個元件MAPISession和MAPIMessage
來作寄信的程式. 但是只能寄純文字檔
請問我如何才能寄出一封HTML格式的信呢?
感激不盡
如何使Flas 製作的圖和GIF圖檔能夠顯示在form 上呢 ?(編號：1805)
我是vb的新手,想請教大家關於"如何使Flas 製作的圖和GIF圖檔能夠顯示在form 上",因為我想使用vb做一個小型的瀏覽器,不知是否能做到?
關於textbox的問題(編號：1804)
可以讓由SQL的database會入的text自動隨textbox的大小分行嗎??
如果不可以...手動又如何做呢??
麻煩一下各方身懷絕技的高手~~
謝謝你閱讀這個留言~~~
如果不可以...手動又如何做呢??
麻煩一下各方身懷絕技的高手~~
謝謝你閱讀這個留言~~~
SQL 7.0 既IMAGE TYPE 同VB 點連結(編號：1803)
請問有冇人知道SQL既IMAGE TYPE 點用??
(點載入圖片??)
如何可以應用於VB6??
如有SOURCE CODE或REFERENCE更好
謝謝你閱讀這MESSAGE~
(點載入圖片??)
如何可以應用於VB6??
如有SOURCE CODE或REFERENCE更好
謝謝你閱讀這MESSAGE~
Print(編號：1800)
How many method to print on paper in a database program written by VB, and what's the code of those method.
*answer in Chinese
Thanks
*answer in Chinese
Thanks
請問紀先生...........RichTextBox是物件還是函式?(編號：1799)
絕先生您好:
TextBox無法在其中設定不同顏色的文字，但聽說RichTextBox可以．．．．
可否請問這也是VB的物件嗎？在哪個VB版本有此功能物件．．．．．
用法是否也和TextBox相同．．煩請賜教，謝謝．．．
TextBox無法在其中設定不同顏色的文字，但聽說RichTextBox可以．．．．
可否請問這也是VB的物件嗎？在哪個VB版本有此功能物件．．．．．
用法是否也和TextBox相同．．煩請賜教，謝謝．．．
製作FORM時右上角 "? " 鍵 (HELP鍵)如何使用? 謝謝指教!!(編號：1798)
製作FORM時會於右上角產生視窗"極小化"及"極大化"與"關閉"之ICON(按鈕),若將極小及極大鈕屬性關閉,再將屬性中之WhatsThisButton開啟及WhatThisHelp屬性打開則將會讓FORM右上角產生一個"?"之
ICON(HELP BUTTOM)產生.
問題:如何使用"?"這個ICON呢?
ICON(HELP BUTTOM)產生.
問題:如何使用"?"這個ICON呢?
VB重灌後,不能使用,怎麼辦?(編號：1797)
請教各位先進們:
我的VB5.0重灌之後,
開啟舊專案一直出現
"ActiveX元件無法產生"的message,
結果無法使用,
不知是否有人知道如何解決?
謝謝!
我的VB5.0重灌之後,
開啟舊專案一直出現
"ActiveX元件無法產生"的message,
結果無法使用,
不知是否有人知道如何解決?
謝謝!
如何只列印所選擇頁次文件(Help!)(編號：1796)
我需要用vb寫一個只列印所選擇頁次文件之功能
我用了 Common Dialog 之 ShowPrinter Method
再判斷
if 需印頁次
Printer.NewPage
Else
Printer.KillDoc
End If
執行後,卻多印一頁(只印兩行抬頭,餘皆空白)
查詢 msdn 後發現原因如下:
"...,if the Print Manager is not controlling the print job, page one may have already been sent to the printer, and will be unaffected by KillDoc. The amount of data sent to the printer varies slightly among printer drivers."
請問諸位vb高手: 我如何才能解決這個問題? 或者,有沒有其他方法可以讓我達到目的?
Thanks for your help!
我用了 Common Dialog 之 ShowPrinter Method
再判斷
if 需印頁次
Printer.NewPage
Else
Printer.KillDoc
End If
執行後,卻多印一頁(只印兩行抬頭,餘皆空白)
查詢 msdn 後發現原因如下:
"...,if the Print Manager is not controlling the print job, page one may have already been sent to the printer, and will be unaffected by KillDoc. The amount of data sent to the printer varies slightly among printer drivers."
請問諸位vb高手: 我如何才能解決這個問題? 或者,有沒有其他方法可以讓我達到目的?
Thanks for your help!
怪事情 ...(編號：1795)
各位:
當我的Program 在執行期間, 打開某張Form的時候,
按Form的任何位置都沒有反應(不是PC Down了, 也不是Form的Enable=False),
但當用 alt-Tab 轉到其他 Application 再回到Program的時候,又回復正常!,
請各位幫幫忙好嗎!
謝謝!
當我的Program 在執行期間, 打開某張Form的時候,
按Form的任何位置都沒有反應(不是PC Down了, 也不是Form的Enable=False),
但當用 alt-Tab 轉到其他 Application 再回到Program的時候,又回復正常!,
請各位幫幫忙好嗎!
謝謝!
ASCII 的問題(編號：1793)
在 VB5 上執行 Asc(Chr(150)) 的結果為何會是 0? 有沒有辦法解決?
執行環境:
Visual Basic 5.0 英文版
Windows NT 4.0 Workstation 中文版
執行環境:
Visual Basic 5.0 英文版
Windows NT 4.0 Workstation 中文版
VB6 在ODBC裡使用INNER JION(編號：1786)
為何不能使用
以下是原程序
select authors.au_id,titles.pubid from authors inner jion titles on authors.au_id = titles.pubid
以下是原程序
select authors.au_id,titles.pubid from authors inner jion titles on authors.au_id = titles.pubid
請問有關VB 呼叫 WORD 指令巨集 !!(編號：1785)
請問各位大哥大姐 ，小弟最近在找有關 VB6.0 呼叫
MS WORD 的巨集的資料和有關的書籍，可是都找不到!!
請大家幫幫我，謝謝 !!
MS WORD 的巨集的資料和有關的書籍，可是都找不到!!
請大家幫幫我，謝謝 !!
用vb做小綿羊...(編號：1782)
有沒人知道要如用vb做小綿羊....
我自己用cww的心得筆記中的做form的背景透明
而且在移動中也可以使背景隨著移動而改變
只是說要一直form.hide......form.show的
一直切換...造成有點閃爍的現象...
有人有更好的方法嗎............
我自己用cww的心得筆記中的做form的背景透明
而且在移動中也可以使背景隨著移動而改變
只是說要一直form.hide......form.show的
一直切換...造成有點閃爍的現象...
有人有更好的方法嗎............
如和將一個FORM一直保持在所有form的最前端(編號：1779)
我用form寫了一個像 Msgbox的東西
可不可以不用強制回應的方式但可以把它 一直放在所有
form的最前端直到這個form unload ？
請問各位高手.....謝謝
可不可以不用強制回應的方式但可以把它 一直放在所有
form的最前端直到這個form unload ？
請問各位高手.....謝謝
用SHFileOperation如何處理一些錯誤訊息？(編號：1775)
用SHFileOperation後碰到一些如磁片以防寫無法寫入和磁片已滿等錯誤訊息都給系統攔截掉，程式本身要如何中斷和處理錯誤？
如何撰寫解3x3六面的魔術方塊程式(編號：1774)
請問如何撰寫解3x3六面的魔術方塊(Rubik's Cube)程式，
程式需求為輸入目前方塊各面對應的顏色組合，然後由程
式解出旋轉步驟，請問有演算法可用嗎？
謝謝.
程式需求為輸入目前方塊各面對應的顏色組合，然後由程
式解出旋轉步驟，請問有演算法可用嗎？
謝謝.
如何限制textbox只入有關的數(編號：1772)
之前我用asciikey code 限制只可入".","1","2"....."0","k","G"
用val(text.text)取數 or text.text="XXXX"去check 入既數,但在textbox 內仍入兩個".","k"
怎樣才可限制只入這些數e.g. ".3","0.56","150k"---k=10既3次方,"190G"---G=10既6次方 ,而只能入一一個"k","G", "."
用val(text.text)取數 or text.text="XXXX"去check 入既數,但在textbox 內仍入兩個".","k"
怎樣才可限制只入這些數e.g. ".3","0.56","150k"---k=10既3次方,"190G"---G=10既6次方 ,而只能入一一個"k","G", "."
FORMLOAD時無法篩選(編號：1769)
我在一個data1的Reposition事件中加入了篩選
data2的事件，但在form_load後無法篩選，非要
等使用者移動recordset後才會進行篩選，請教該
如何再form_load時就執行篩選的動作？THANKS
data2的事件，但在form_load後無法篩選，非要
等使用者移動recordset後才會進行篩選，請教該
如何再form_load時就執行篩選的動作？THANKS
一個DataGrid的問題.(編號：1761)
大家好:
我是初學者,請教各位高手.
如何寫程式把Datagrid表格最後一行資料錄,用按Command命令紐
加入新的一個資料錄.意思是最後變成二行資料錄都一樣.
謝謝.
我是初學者,請教各位高手.
如何寫程式把Datagrid表格最後一行資料錄,用按Command命令紐
加入新的一個資料錄.意思是最後變成二行資料錄都一樣.
謝謝.
請問如何得知SQL Server 上的Record被哪一個user 刪除呢？(編號：1760)
如標題！
我的sql server的版本是7.0，最近常有record被刪除，請問我要如何得知我的record被何人刪除呢？
苦情花感謝您觀看我的問題~~~~
我的sql server的版本是7.0，最近常有record被刪除，請問我要如何得知我的record被何人刪除呢？
苦情花感謝您觀看我的問題~~~~
我想做programmer，但....(編號：1758)
我畢業不久，想做個VB programmer，但可能功力未夠，希望各位可在此給些意見......
我想知道:
如果要做專業的DataBase VB programmer，有哪幾個VB的Topic一定要學的呢?
另外，SQL似乎一定要學，但是要完全學會還是只集中學其中一部分?
我想知道:
如果要做專業的DataBase VB programmer，有哪幾個VB的Topic一定要學的呢?
另外，SQL似乎一定要學，但是要完全學會還是只集中學其中一部分?
adoconnection.mode = adModeShareExclusive(編號：1757)
請高人指點.
在這程式中, 本人是會用一個connection 來 update 兩個 database table.
我希望 update 兩個table 的時候不會被第二個client 來改這兩個table .(ATOMIC)
但是為何我使用 adoconnection.mode = adModeShareExclusive 後,
adoconnection.mode = adModeShareExclusive
adoconnection.open
adoconnection.BeginTrans
rsTable1.update
＜---- here
rsTable2.update
adoconnection.CommitTrans
在 update 兩個table 之間仍會被身第三者闖入並且update rsTable1?
Coding 如下.
在這程式中, 本人是會用一個connection 來 update 兩個 database table.
我希望 update 兩個table 的時候不會被第二個client 來改這兩個table .(ATOMIC)
但是為何我使用 adoconnection.mode = adModeShareExclusive 後,
adoconnection.mode = adModeShareExclusive
adoconnection.open
adoconnection.BeginTrans
rsTable1.update
＜---- here
rsTable2.update
adoconnection.CommitTrans
在 update 兩個table 之間仍會被身第三者闖入並且update rsTable1?
Coding 如下.
picture的問題(編號：1756)
請問各位先輩在form.picture or pictureBox中放入漸層圖時,
在VB中會有很明顯的漸層直條,不是很好看...
我改了MODE = 圖像
Picture1.ScaleHeight
Picture1.ScaleWidth
都沒有用....
請問如何解決??
謝謝!!
在VB中會有很明顯的漸層直條,不是很好看...
我改了MODE = 圖像
Picture1.ScaleHeight
Picture1.ScaleWidth
都沒有用....
請問如何解決??
謝謝!!
好康相報(編號：1755)
本人無意間利用YAHOO查詢關鍵字ADO2.1後，發覺此一網站有關 [＜資料庫處理＞] 的Q&A相當完整，假如眾位網友發現國內網站無法解答或解答不太完整時，不妨到此一網站，下載其程式碼及其說明，其英文用字淺顯，幾什沒有什麼生字。
http://www.able-consulting.com/tech.htm
http://www.able-consulting.com/tech.htm
http://www.able-consulting.com/tech.htm
http://www.able-consulting.com/tech.htm
請問 Oracle 非文字型態資料如何在VB上顯示(編號：1752)
請問各位前輩
Oracle的資料1.數字2.日期 兩種資料如何在TEXT或其他工具上顯示
(Str(),Int()轉換都無效....)
Oracle的資料1.數字2.日期 兩種資料如何在TEXT或其他工具上顯示
(Str(),Int()轉換都無效....)
請問 Oracle 非文字型態資料如何在VB上顯示(編號：1751)
請問各位前輩
Oracle的資料1.數字2.日期 兩種資料如何在TEXT或其他工具上顯示
(Str(),Int()轉換都無效....)
Oracle的資料1.數字2.日期 兩種資料如何在TEXT或其他工具上顯示
(Str(),Int()轉換都無效....)
急~FTP很怪的問題,煩請有經驗的前輩解答...(編號：1749)
各位先進:
小弟我在寫FTP的程式,利用網路上的一些範例,有ocx,有API的方法,
但是我遇到一個問題,就是:
我download一個檔案"test.txt",下載成功,不關掉這個程式,
然後我到server上將"test.txt" delete掉,再download...
結果竟然還是成功...:(
而且我先disconnect再connect再download,結果還是成功,
除非我將程式關掉再啟動一次,這樣才會說download失敗,...
請問這是什麼原因?是有資料暫存在記憶體內所造成的嗎?
如果是,那要如何解決?...
謝謝各位!!
小弟我在寫FTP的程式,利用網路上的一些範例,有ocx,有API的方法,
但是我遇到一個問題,就是:
我download一個檔案"test.txt",下載成功,不關掉這個程式,
然後我到server上將"test.txt" delete掉,再download...
結果竟然還是成功...:(
而且我先disconnect再connect再download,結果還是成功,
除非我將程式關掉再啟動一次,這樣才會說download失敗,...
請問這是什麼原因?是有資料暫存在記憶體內所造成的嗎?
如果是,那要如何解決?...
謝謝各位!!
一個DAO的小問題!!(編號：1748)
請問一下:
使用DAO 的index去找資料
如果相符的資料有很多筆...怎麼去讀出下一筆呢??
ex:
如果資料庫中有筆以上 Card ID ="J000000000"
dbrec.index ="Card ID"
dbrec.seek "=" , "J000000000"
if not dbrec.nomatch then
debug.print dbrec.fields("MemberID").value
end if
則我怎麼讀出下一筆資料呢??
使用DAO 的index去找資料
如果相符的資料有很多筆...怎麼去讀出下一筆呢??
ex:
如果資料庫中有筆以上 Card ID ="J000000000"
dbrec.index ="Card ID"
dbrec.seek "=" , "J000000000"
if not dbrec.nomatch then
debug.print dbrec.fields("MemberID").value
end if
則我怎麼讀出下一筆資料呢??
請問各位高手，關於Datagrid 的問題(編號：1747)
請問
有人知道如何在Datagrid中，
輸入日期欄位時，可輸入 890310 ，它會自動轉換為 "89/03/10"
需在個事件做呢?
p.s.
一開始就宣告 datagrid 等於一個 recordset ，所以只要輸入一串數字就會自動判斷資料錯誤!根本無法轉換說!!可否請高手幫忙指教呢!!非常感激!!
有人知道如何在Datagrid中，
輸入日期欄位時，可輸入 890310 ，它會自動轉換為 "89/03/10"
需在個事件做呢?
p.s.
一開始就宣告 datagrid 等於一個 recordset ，所以只要輸入一串數字就會自動判斷資料錯誤!根本無法轉換說!!可否請高手幫忙指教呢!!非常感激!!
請問如何使Form無標題,大小可調整,工作列顯示有內容?(編號：1746)
一.要如何將Form的 BorderStyle設為0時,仍可以改變Form的大小?
二,或將Form的 BorderStyle設為2,Caption設"",ControlBox=False,
程式執行時,工作列仍可以出現程式的名字?
二,或將Form的 BorderStyle設為2,Caption設"",ControlBox=False,
程式執行時,工作列仍可以出現程式的名字?
VB5在WinNT4.0中取出的網路路徑(編號：1745)
前輩您好:
VB5在WinNT4.0中取出的網路路徑為 \\servername\sharename\path 而不是 H:\path ,
然而VB的 ChDrive 與 ChDir 卻看不懂 \\servername\sharename\path (ChDrive會產生
Err=5, ChDir雖不產生Err,但啥也沒作)
請教前輩有無其他解決方案(如API..)或竅門,如蒙賜教感激不盡.
VB5在WinNT4.0中取出的網路路徑為 \\servername\sharename\path 而不是 H:\path ,
然而VB的 ChDrive 與 ChDir 卻看不懂 \\servername\sharename\path (ChDrive會產生
Err=5, ChDir雖不產生Err,但啥也沒作)
請教前輩有無其他解決方案(如API..)或竅門,如蒙賜教感激不盡.
ado update problem(編號：1744)
我有一個customer table!!在dataenvironment中,我用兩個command
連接, 分別是command1 and command2.
現在我在from1中加了兩個datagrid!! 分別是datagrid1 and datagrid2. 而datagrid1 的 datamember 是command1.
而datagrid2 的 datamember 是command2.問題是在於當我update完datagrid1時!!datagrid2還未update直至將 program 結束再開始才能update!!How to update the datagrid2
連接, 分別是command1 and command2.
現在我在from1中加了兩個datagrid!! 分別是datagrid1 and datagrid2. 而datagrid1 的 datamember 是command1.
而datagrid2 的 datamember 是command2.問題是在於當我update完datagrid1時!!datagrid2還未update直至將 program 結束再開始才能update!!How to update the datagrid2
三尋hanshans!!!(編號：1741)
謝謝您的幫助,讓我多懂了不少,
雖有進展,但仍有問題~~~
有的電腦讀得到,有的讀不到~~~why?
另外想請問是否有相關書籍呢?
我也看了不少vb的書,
可是好像沒看到這方面的介紹,
你是否可以介紹幾本呢?
由討論區中得知你要設立網站了,
且專門與ocx&com有關的,
我很期待!
並祝你成功!
雖有進展,但仍有問題~~~
有的電腦讀得到,有的讀不到~~~why?
另外想請問是否有相關書籍呢?
我也看了不少vb的書,
可是好像沒看到這方面的介紹,
你是否可以介紹幾本呢?
由討論區中得知你要設立網站了,
且專門與ocx&com有關的,
我很期待!
並祝你成功!
請教一個SQL語法..(編號：1740)
declare @nstring char(60),@bint int,@CompNo char(2)
set @CompNo='QC'
set @nstring = "declare @mint int" +
"set @mint = (select count(*) from Ac" + @CompNo + "Bank) "
exec (@nstring , @bint = @mint output)
print @bint
錯誤是.."Line 5: Incorrect syntax near ','."
請問如何把 exec () 處理的結果傳出來
set @CompNo='QC'
set @nstring = "declare @mint int" +
"set @mint = (select count(*) from Ac" + @CompNo + "Bank) "
exec (@nstring , @bint = @mint output)
print @bint
錯誤是.."Line 5: Incorrect syntax near ','."
請問如何把 exec () 處理的結果傳出來
請教一個SQL語法..(編號：1739)
declare @nstring char(60),@bint int,@CompNo char(2)
set @CompNo='QC'
set @nstring = "declare @mint int" +
"set @mint = (select count(*) from Ac" + @CompNo + "Bank) "
exec (@nstring , @bint = @mint output)
print @bint
錯誤是.."Line 5: Incorrect syntax near ','."
請問如何把 exec () 處理的結果傳出來
set @CompNo='QC'
set @nstring = "declare @mint int" +
"set @mint = (select count(*) from Ac" + @CompNo + "Bank) "
exec (@nstring , @bint = @mint output)
print @bint
錯誤是.."Line 5: Incorrect syntax near ','."
請問如何把 exec () 處理的結果傳出來
DataReport change to CrystalReport Problem?(編號：1737)
When I use DataReport, The DataEnvironment can Filter the Record,
DataEnvironment1.rsCommand1.Filter = "InvoiceNo = '"& Text1(0) & "'"
Text1(0) is a Textbox in the Form 1
But When I change to use the Crystal Report 7, It create a Form 2 and a CrystalReport1, But It cannot Filter the Record, What can I do to Filter the Record which the InvoiceNo is pass from the Text1(0) in the Form 1.
DataEnvironment1.rsCommand1.Filter = "InvoiceNo = '"& Text1(0) & "'"
Text1(0) is a Textbox in the Form 1
But When I change to use the Crystal Report 7, It create a Form 2 and a CrystalReport1, But It cannot Filter the Record, What can I do to Filter the Record which the InvoiceNo is pass from the Text1(0) in the Form 1.
export 同 save 的語法請教小妹(urgent)(編號：1736)
如何將一個原有的file export另一個file?
請各位高手將export 同 save 的語法請教小妹!!! (file only)
請各位高手將export 同 save 的語法請教小妹!!! (file only)
請問vb與excel的相關性問題(急件)拜託大家!!!(編號：1735)
想請問各位vb的高手們，如何在vb的table中設上所需要的幾格text
，在執行程式時，在text輸入想要輸入的數值後，對應到excel中指定的儲存格內!!
此為小妹專題的第一大步，希望大家假如瞭解此方法的話，幫幫小妹我的麻煩，能不能順利畢業就靠大家了!!
，在執行程式時，在text輸入想要輸入的數值後，對應到excel中指定的儲存格內!!
此為小妹專題的第一大步，希望大家假如瞭解此方法的話，幫幫小妹我的麻煩，能不能順利畢業就靠大家了!!
請教關於 True DBGrid的問題(編號：1731)
我的問題是這樣的：
我使用True DBGrid中提供user輸入訂單的明細部份。
可是，遇到像是【小計】(這個欄位是用SQL語法產生出來的）或是【產品
名稱】時由於，訂單明細中只存有產品編號，所以一做update的動作時就發生error了
請教各位前輩是否有遇過相同的情形。可提供解決方法？
我使用True DBGrid中提供user輸入訂單的明細部份。
可是，遇到像是【小計】(這個欄位是用SQL語法產生出來的）或是【產品
名稱】時由於，訂單明細中只存有產品編號，所以一做update的動作時就發生error了
請教各位前輩是否有遇過相同的情形。可提供解決方法？
Crystal Big Problem(編號：1730)
Truck.SDate is "Date Format"
Truck.EDate is "Text Format"
CryRptLb.SelectionFormula = "{Truck.SDate} ＞= '" & CDate(DTSPicker.Value) & "' "
error: A dat is required here
當用Truck.SDate會error, 但用Truck.EDate就ok
why????
Thx a lot
Truck.EDate is "Text Format"
CryRptLb.SelectionFormula = "{Truck.SDate} ＞= '" & CDate(DTSPicker.Value) & "' "
error: A dat is required here
當用Truck.SDate會error, 但用Truck.EDate就ok
why????
Thx a lot
關於Crystal Report 4.6 !??(編號：1729)
我有一份報表是用Crystal Report 4.6建成的,
而資料表的名稱是 Table1,
但現在資料表的名稱因某些原因而需要改變, 如變成 Table2, 但欄位名稱大小沒有改變,
因不想重新建立一份新的報表,
請問有沒有辦法可以直接從原來的報表把之前的資料表 Table1 轉換成 Table2
謝謝!
而資料表的名稱是 Table1,
但現在資料表的名稱因某些原因而需要改變, 如變成 Table2, 但欄位名稱大小沒有改變,
因不想重新建立一份新的報表,
請問有沒有辦法可以直接從原來的報表把之前的資料表 Table1 轉換成 Table2
謝謝!
如何將Excel的內容用VB讀進SQL(編號：1727)
請問大家
我現在需要將一份Excel檔的資料 讀進SQL內
但是當Field格式不同時 似乎就沒有辦法讀到全部的DATA
例如文字格式的欄位讀到時,再讀到數值欄位就成為"Null"
請問這是甚麼原因?該怎麼辦?
又請問有哪些關於這方面的書或是網站呢?
拜託拜託^_^
我現在需要將一份Excel檔的資料 讀進SQL內
但是當Field格式不同時 似乎就沒有辦法讀到全部的DATA
例如文字格式的欄位讀到時,再讀到數值欄位就成為"Null"
請問這是甚麼原因?該怎麼辦?
又請問有哪些關於這方面的書或是網站呢?
拜託拜託^_^
如何用vb去讀取RS-232所傳出的資料??(編號：1725)
如何用vb去讀取RS-232所傳出的資料??
我目前因個人所需, 要用電腦去抓取電子秤所秤出的重量,
可是不知要從何寫起所以想請問一下這的高手要怎麼去寫~~
或是那有這方面的資料~~
先謝過~~
我目前因個人所需, 要用電腦去抓取電子秤所秤出的重量,
可是不知要從何寫起所以想請問一下這的高手要怎麼去寫~~
或是那有這方面的資料~~
先謝過~~
如何可以直接save 及 print excel file? (urgent.....)thx..(編號：1724)
如何可以直接save & print excel file?
1.用common dialog之後, user 自己輸入file 名,我嘗試過雖能create 個file, 但不能儲存內容啊!
2.直接direct save 個 file,如何做呢?
3.我用MsFlexGrid做可唔可以直接將個grid裡面d record direct save 呢?
1.用common dialog之後, user 自己輸入file 名,我嘗試過雖能create 個file, 但不能儲存內容啊!
2.直接direct save 個 file,如何做呢?
3.我用MsFlexGrid做可唔可以直接將個grid裡面d record direct save 呢?
將程式製作成執行檔的問題 (急件)(編號：1720)
我最近完成一份近11MB的系統, 在要做成執行檔的時候
都會出現記憶體不足的情況, 事實上我的電腦已有128MB的RAM了
,除此之外就是無故地被要求關閉此作業, 無法順利完成...
請問有誰可以告訴我這是什麼原因 ?
都會出現記憶體不足的情況, 事實上我的電腦已有128MB的RAM了
,除此之外就是無故地被要求關閉此作業, 無法順利完成...
請問有誰可以告訴我這是什麼原因 ?
如何動態增加[功能表]==不同層(編號：1719)
各位網友大家好:
想請教有人知道在 VB 中如何動態增加[功能表]的項目嗎???
請注意所需的是不一定在同一層...
比如說新建一個第1層,但此層裡會再建立第2層,甚至會在此層裡,再建第三層...甚至第4,5,6層...
查看相關資料都只介紹以陣列方式增添...但都是只能在同一層增添.
有哪位高手可告知不同層的如何動態增添...
將感激不盡!!!!
想請教有人知道在 VB 中如何動態增加[功能表]的項目嗎???
請注意所需的是不一定在同一層...
比如說新建一個第1層,但此層裡會再建立第2層,甚至會在此層裡,再建第三層...甚至第4,5,6層...
查看相關資料都只介紹以陣列方式增添...但都是只能在同一層增添.
有哪位高手可告知不同層的如何動態增添...
將感激不盡!!!!
hanshans的網站將於 4月成立,專門討論 ocx及com....(編號：1718)
小吳 不好意思 每次都佔你版面 ......
最近 hanshans申請了 雙向 cable modem ,故會加速個人網站動作
此網站以 物件oo觀念教導
vb如何實作 mis之ocx元件
com觀念與設計 為主
小吳的站也提供我許多寶貴的知識,謝謝小吳
但不好意思,佔別人網頁空間,故自己設定網站
我會教導各位一些重要的 觀念,與大家分享.......
提供一個專門討論與實作 com的地方.......
最近 hanshans申請了 雙向 cable modem ,故會加速個人網站動作
此網站以 物件oo觀念教導
vb如何實作 mis之ocx元件
com觀念與設計 為主
小吳的站也提供我許多寶貴的知識,謝謝小吳
但不好意思,佔別人網頁空間,故自己設定網站
我會教導各位一些重要的 觀念,與大家分享.......
提供一個專門討論與實作 com的地方.......
請問何者INSERT的速度比較快？(編號：1714)
各位先進好:
小弟想請問一下，底下的INSERT 語法哪種會比較快呢？謝謝您的回答！
狀況一:
FOR I=1 TO N
sSQL="Insert into xTable() values()"
DBC.EXECUTE sSQL
next i
狀況二:
sSql="Insert into xTable() values("
for i=1 to n
sSQL= sSQL & "值,"
next i
DBC.execute sSQL
又為什麼比另一個快呢？謝謝您的回答！
小弟想請問一下，底下的INSERT 語法哪種會比較快呢？謝謝您的回答！
狀況一:
FOR I=1 TO N
sSQL="Insert into xTable() values()"
DBC.EXECUTE sSQL
next i
狀況二:
sSql="Insert into xTable() values("
for i=1 to n
sSQL= sSQL & "值,"
next i
DBC.execute sSQL
又為什麼比另一個快呢？謝謝您的回答！
從"我的電腦"開啟光碟目錄(編號：1713)
常在安裝軟體時, 畫面上有一項"瀏覽這片光碟"
點進去之後, 它就直接從"我的電腦"開啟光碟目錄了
請問這在vb裡可以做到嗎?
因為我想在作品裡加入這項
我該怎麼做呢?
謝謝...^_^
點進去之後, 它就直接從"我的電腦"開啟光碟目錄了
請問這在vb裡可以做到嗎?
因為我想在作品裡加入這項
我該怎麼做呢?
謝謝...^_^
再call hanshans(編號：1712)
我寫了一個資料庫的程式,
要以瀏覽器開啟,
所以我是用ActiveX的Form去寫的,
放到HTTP的根目錄後,
別台的電腦無法瀏覽該頁,
並出現無法執行ActiveX的ErrMsg,
就算去自訂IE中的安全性,
結果還是一樣!
請問如何解決這個問題?
謝謝!
要以瀏覽器開啟,
所以我是用ActiveX的Form去寫的,
放到HTTP的根目錄後,
別台的電腦無法瀏覽該頁,
並出現無法執行ActiveX的ErrMsg,
就算去自訂IE中的安全性,
結果還是一樣!
請問如何解決這個問題?
謝謝!
如何防止User按下CTRL+ESC及CTRL+TAB(編號：1711)
在拜讀了CWW的【如何使鍵盤、Mouse失效(JournalPlayBack Hook)】
大作後.....發現只要我按下 CTRL+ESC.....
滑鼠、鍵盤就有作用了.....
求求各位高手....幫小弟想想辦法....
大作後.....發現只要我按下 CTRL+ESC.....
滑鼠、鍵盤就有作用了.....
求求各位高手....幫小弟想想辦法....
在Hook中如何鎖住 CTRL+ALT????(編號：1709)
在拜讀了CWW的【如何使鍵盤、Mouse失效(JournalPlayBack Hook)】
大作後.....發現只要我按下 CTRL+ALT.....
滑鼠、鍵盤就有作用了.....
求求各位高手....幫小弟想想辦法....
大作後.....發現只要我按下 CTRL+ALT.....
滑鼠、鍵盤就有作用了.....
求求各位高手....幫小弟想想辦法....
IsolationLevel vs mode(編號：1708)
請問如果只用 mode 是否足以令一個 正在addnew/update 的transaction
中止其他想做同一個
transaction
的 user?
而IsolationLevel 是何時才需要用?
中止其他想做同一個
transaction
的 user?
而IsolationLevel 是何時才需要用?
如何使用ADO再SQL裡面建立一個資料庫???(編號：1704)
個位先進大哥 我想利用ADO在SQL裡面自動產生一個資料庫....
不知道該如何寫 這類程式 煩請個位先進指點 或著告知 哪裡有可參考的位置
不知道該如何寫 這類程式 煩請個位先進指點 或著告知 哪裡有可參考的位置
如何找尋與資料庫相近同的資料(編號：1703)
我利用jet連結acess檔案,資料表有5個欄分別是
Name,A,B,C,D而A,B,C,D欄儲的是數字.而我要找
尋與A,B,C,D欄他們相差一定百分比的資料,再而
根據有多少與A,B,C,D欄相似而找出Name的資料.
請問如何編寫?
Name,A,B,C,D而A,B,C,D欄儲的是數字.而我要找
尋與A,B,C,D欄他們相差一定百分比的資料,再而
根據有多少與A,B,C,D欄相似而找出Name的資料.
請問如何編寫?
HiNet 大當機(編號：1702)
就在小吳的 ADSL 專線修好沒多久，HiNet 就開始出問題了。故障範圍含蓋到撥接用戶 (一部認證電腦有問題)、ADSL 及專線用戶。反正全省 HiNet 現在都斷斷續續，所以若您現在能上網看到這個訊息，就表示你運氣很好啦!
CALL Alex C.(編號：1700)
hi~
非常謝謝您...
可是我還是不知道哪出錯...
dsodr.recordcount真的等於-1也
可是我還是不知我程式哪裡出錯也...
幫幫我吧...哪裡有問題實在看不出來也...
謝謝
非常謝謝您...
可是我還是不知道哪出錯...
dsodr.recordcount真的等於-1也
可是我還是不知我程式哪裡出錯也...
幫幫我吧...哪裡有問題實在看不出來也...
謝謝
錯誤訊息處理(編號：1699)
請教各位先進,弟在譔寫檔案I/O的程式時發現有個奇怪的錯誤訊息如下
"Err.Number=0 "
其 Err.Description=""
不像其他的錯誤訊息有錯誤的描述,以至無法對該錯碼做處理,不知該如處理才好
"Err.Number=0 "
其 Err.Description=""
不像其他的錯誤訊息有錯誤的描述,以至無法對該錯碼做處理,不知該如處理才好
有關"製成.exe檔"的問題..........急(編號：1697)
我在兩台不同的電腦,將已寫好的程式製成.exe
第一台電腦執行沒問題
第二台電腦執行到一半會出現"編譯錯誤:找不到專案或程式庫"
接著出現"設定引用項目"的視窗
想請問大家為什麼同一個程式在不同電腦作業會有不同呢
到底是出了什麼問題?????????????
多謝大家的幫忙!!!!!!!!!!!
第一台電腦執行沒問題
第二台電腦執行到一半會出現"編譯錯誤:找不到專案或程式庫"
接著出現"設定引用項目"的視窗
想請問大家為什麼同一個程式在不同電腦作業會有不同呢
到底是出了什麼問題?????????????
多謝大家的幫忙!!!!!!!!!!!
再請問一個sql的語法(編號：1696)
有一個資料庫中有兩個欄位"數量"和"編號"
我希望能讓數量的多寡決定它的編號
我是用
'將資料按照數量的多少來排序
Data.RecodeSource="Select * Form "資料表" Order By [數量]"
'將每一筆的資料先後加上 1~x 的編號
For i= 0 to Data.RecodeSource-1
Data.RecodeSet.Edit
Data.RecodeSource.編號=i+1
Data.RecodeSet.Updata
Data.RecodeSet.MoveNext
Next i
可是這樣子作了之後,還是照著原本的資料排列作編號
就是第一筆編號1,第二筆編號2
是為什麼會這樣呢?
希望大家幫幫忙吧!!
謝謝!!
我希望能讓數量的多寡決定它的編號
我是用
'將資料按照數量的多少來排序
Data.RecodeSource="Select * Form "資料表" Order By [數量]"
'將每一筆的資料先後加上 1~x 的編號
For i= 0 to Data.RecodeSource-1
Data.RecodeSet.Edit
Data.RecodeSource.編號=i+1
Data.RecodeSet.Updata
Data.RecodeSet.MoveNext
Next i
可是這樣子作了之後,還是照著原本的資料排列作編號
就是第一筆編號1,第二筆編號2
是為什麼會這樣呢?
希望大家幫幫忙吧!!
謝謝!!
救命啊!這樣的指今怎會出錯呢...(編號：1692)
請各位大哥大姐們幫我看看下面的程式碼??為什麼會有這樣的的錯誤訊息
為何我使用ADODB.Recordset
沒辦法做Delete的動作??
它會出現error 3251 提供者不支援應用程式所要求的動作
我實在不知為什麼也......
Public Sub XmitPreOrder(SysID As String, sErrMsg$)
On Error Resume Next
Dim dsOdr As ADODB.Recordset, sSQL$
Dim sMsgData$, iStatus%, sRetMsg$, NetNo&, OdrNo$
Dim MsgType$, WarmMsg$, STMP$, ret%, idx%
If gconDB Is Nothing Then
If Not OpenNTDB Then
sErrMsg = "資料庫連結失敗，無法傳送!!"
Exit Sub
End If
End If
sErrMsg = ""
MsgType = IIf(SysID = "TSE", Format$(MSG_TSE_OFF), Format$(MSG_OTC_OFF))
sSQL = "SELECT * FROM E_Order WHERE MsgType='" + MsgType + "'"
sSQL = sSQL + " AND OdrNo='00000' ORDER BY NetNo"
retCode = procDBQuery(sSQL, dsOdr)
If dsOdr Is Nothing Or dsOdr.EOF Then
sErrMsg = SysID + " 查無次日單資料!!"
Exit Sub
End If
Do While Not dsOdr.EOF
NetNo = dsOdr("NetNo")
If dsOdr("DelMark") = "D" Then
dsOdr.Delete
^^^^^^^^^^^^^^^^執行到此行就出現錯誤了...why??
End If
dsOdr.MoveNext
Loop
End Sub
Public Function procDBQuery(ByVal sSQL$, ds As ADODB.Recordset) As Variant
On Error Resume Next
Err.Clear
procDBQuery = 0
Set ds = New ADODB.Recordset
ds.CursorType = adOpenKeyset
ds.LockType = adLockOptimistic
ds.Open sSQL, gconDB, , , adCmdText
If Err ＜＞ 0 Then
Select Case Err
Case -2147467259: '[DBNMPNTW]ConnectionWrite (GetOverLappedResult()).
gconDB.Close
Set gconDB = Nothing
'Case -2147217900: 'Incorrect syntax
Case -2147217871: 'Timeout expired
End Select
Set ds = Nothing
procDBQuery = Err
ElseIf gconDB.Errors.Count ＞ 0 Then
Select Case gconDB.Errors.item(0)
Case -2147467259: '[DBNMPNTW]ConnectionWrite (GetOverLappedResult()).
gconDB.Close
Set gconDB = Nothing
'Case -2147217900: 'Incorrect syntax
Case -2147217871: 'Timeout expired
End Select
Set ds = Nothing
procDBQuery = gconDB.Errors.item(0)
End If
End Function
謝謝大家
為何我使用ADODB.Recordset
沒辦法做Delete的動作??
它會出現error 3251 提供者不支援應用程式所要求的動作
我實在不知為什麼也......
Public Sub XmitPreOrder(SysID As String, sErrMsg$)
On Error Resume Next
Dim dsOdr As ADODB.Recordset, sSQL$
Dim sMsgData$, iStatus%, sRetMsg$, NetNo&, OdrNo$
Dim MsgType$, WarmMsg$, STMP$, ret%, idx%
If gconDB Is Nothing Then
If Not OpenNTDB Then
sErrMsg = "資料庫連結失敗，無法傳送!!"
Exit Sub
End If
End If
sErrMsg = ""
MsgType = IIf(SysID = "TSE", Format$(MSG_TSE_OFF), Format$(MSG_OTC_OFF))
sSQL = "SELECT * FROM E_Order WHERE MsgType='" + MsgType + "'"
sSQL = sSQL + " AND OdrNo='00000' ORDER BY NetNo"
retCode = procDBQuery(sSQL, dsOdr)
If dsOdr Is Nothing Or dsOdr.EOF Then
sErrMsg = SysID + " 查無次日單資料!!"
Exit Sub
End If
Do While Not dsOdr.EOF
NetNo = dsOdr("NetNo")
If dsOdr("DelMark") = "D" Then
dsOdr.Delete
^^^^^^^^^^^^^^^^執行到此行就出現錯誤了...why??
End If
dsOdr.MoveNext
Loop
End Sub
Public Function procDBQuery(ByVal sSQL$, ds As ADODB.Recordset) As Variant
On Error Resume Next
Err.Clear
procDBQuery = 0
Set ds = New ADODB.Recordset
ds.CursorType = adOpenKeyset
ds.LockType = adLockOptimistic
ds.Open sSQL, gconDB, , , adCmdText
If Err ＜＞ 0 Then
Select Case Err
Case -2147467259: '[DBNMPNTW]ConnectionWrite (GetOverLappedResult()).
gconDB.Close
Set gconDB = Nothing
'Case -2147217900: 'Incorrect syntax
Case -2147217871: 'Timeout expired
End Select
Set ds = Nothing
procDBQuery = Err
ElseIf gconDB.Errors.Count ＞ 0 Then
Select Case gconDB.Errors.item(0)
Case -2147467259: '[DBNMPNTW]ConnectionWrite (GetOverLappedResult()).
gconDB.Close
Set gconDB = Nothing
'Case -2147217900: 'Incorrect syntax
Case -2147217871: 'Timeout expired
End Select
Set ds = Nothing
procDBQuery = gconDB.Errors.item(0)
End If
End Function
謝謝大家
call hanshans(編號：1691)
看到您回答其他同好有關將ActiveX 放在 Html上的問題,
我目前便碰上您在文中所提到的使用者端安裝認證問題,
只能在主機上run,
他台電腦便無法連上該頁,
請問是否有法解決?
謝謝!
我目前便碰上您在文中所提到的使用者端安裝認證問題,
只能在主機上run,
他台電腦便無法連上該頁,
請問是否有法解決?
謝謝!
小吳大哥及cww大哥請問(編號：1690)
上次有看到cww大哥post解答有關vb中類似clipper的"&"指令的問題(就是將字串之內容轉成指令或敘途的方式)，請問要使用何種特殊元件，我找了好久都找不到。謝謝
如何不設定ODBC來open access資料庫(編號：1688)
小弟有一問題,請個位幫忙解答
環境:seednet租用的主機-NT,ASP
問題:因為主機為租用代管那open資料庫要用何方法
以下為小弟試過的方法但不能run請高手指導一下
'方法一
'Step 1：建立ADO Connection，然後開啟Access資料庫
set adocon=Server.CreateObject("ADODB.Connection")
adocon.open "Provider= Microsoft.jet.oledb.3.51;Data Source = " & _
Server.MapPath("\Data") & "\databook.mdb"
set sa1=adocon.Execute(SQLstr)
'方法二
'Step 1：建立 ADO Connection，然後開啟 Access 資料庫
set adocon=Server.CreateObject("ADODB.Connection")
adocon.open "Provider= Microsoft.jet.3.51;Data source='databook.mdb'"
set sa1=adocon.Execute(SQLstr)
謝謝!!
小雄
環境:seednet租用的主機-NT,ASP
問題:因為主機為租用代管那open資料庫要用何方法
以下為小弟試過的方法但不能run請高手指導一下
'方法一
'Step 1：建立ADO Connection，然後開啟Access資料庫
set adocon=Server.CreateObject("ADODB.Connection")
adocon.open "Provider= Microsoft.jet.oledb.3.51;Data Source = " & _
Server.MapPath("\Data") & "\databook.mdb"
set sa1=adocon.Execute(SQLstr)
'方法二
'Step 1：建立 ADO Connection，然後開啟 Access 資料庫
set adocon=Server.CreateObject("ADODB.Connection")
adocon.open "Provider= Microsoft.jet.3.51;Data source='databook.mdb'"
set sa1=adocon.Execute(SQLstr)
謝謝!!
小雄
Winsock 問題(編號：1685)
小弟要用winsock send 幾段資料
如:
xxx.senddata dataA
xxx.senddata dataB
xxx.senddata dataC
(其實小弟要的不只這幾段, 有很多段, 將會用for loop 不斷send 出)
但當連續走兩句 senddata 己經出現問題了, 有什麼能克服這個問題 send 多段資料
如:
xxx.senddata dataA
xxx.senddata dataB
xxx.senddata dataC
(其實小弟要的不只這幾段, 有很多段, 將會用for loop 不斷send 出)
但當連續走兩句 senddata 己經出現問題了, 有什麼能克服這個問題 send 多段資料
這幾天網站會中斷，請見諒(編號：1683)
由於小吳的 ADSL 專線出現嚴重封包漏失的問題，中華電信將於本週重新配線，所以不知道什麼時候會中斷。
反正最近連線都很慢，當您發現連線速率正常了就代表修好了。
反正最近連線都很慢，當您發現連線速率正常了就代表修好了。
各位高手,請求一個Rich Edit Controller 的問題 ?(編號：1681)
我想寫一個能在 Rich Edit Controller 中 ,任意改變某些文字的背景顏色的程式.即給 (座標,背景顏色) 便可由程式來做.
下列程式,不曉得那裡錯了,煩請指正,謝謝!
Type LogFont
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFaceName(LF_FACESIZE - 1) As Byte
End Type
Public nfont As LogFont
Type Charformat2
cbsize As Long
dwMask As Long
dwEffects As Long
yHeight As Long
yOffset As Long
crTextColor As Long
bCharSet As Byte
bPitchAndFamily As Byte
szFaceName(LF_FACESIZE - 1) As Byte
wWeight As Integer
sSpacing As Integer
crBackColor As Long
lcid As Long
dwReserved As Long
sStyle As Integer
wKerning As Integer
bUnderlineType As Byte
bAnimation As Byte
bRevAuthor As Byte
bReserved1 As Byte
End Type
Public Sub SetCharFormat(ByVal ObjHwnd As Long, ByVal TextColor As Long, ByVal Bkcolor As Long)
Dim result As Long, Charformat As Charformat2
Dim FaceName As String
Charformat.cbsize = LenB(Charformat)
result = SendMessage(ObjHwnd, EM_GETCHARFORMAT, 1&, Charformat)
Const SET_Mask = CFM_COLOR Or CFM_BACKCOLOR
Charformat.cbsize = LenB(Charformat)
Charformat.dwMask = SET_Mask
Charformat.crTextColor = TextColor
Charformat.crBackColor = Bkcolor
result = SendMessage(ObjHwnd, EM_SETCHARFORMAT, SCF_SELECTION, Charformat)
End Sub
然後在Command1 中 Call SetCharFormat(text1.hwnd,&hff,&hff00)
下列程式,不曉得那裡錯了,煩請指正,謝謝!
Type LogFont
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFaceName(LF_FACESIZE - 1) As Byte
End Type
Public nfont As LogFont
Type Charformat2
cbsize As Long
dwMask As Long
dwEffects As Long
yHeight As Long
yOffset As Long
crTextColor As Long
bCharSet As Byte
bPitchAndFamily As Byte
szFaceName(LF_FACESIZE - 1) As Byte
wWeight As Integer
sSpacing As Integer
crBackColor As Long
lcid As Long
dwReserved As Long
sStyle As Integer
wKerning As Integer
bUnderlineType As Byte
bAnimation As Byte
bRevAuthor As Byte
bReserved1 As Byte
End Type
Public Sub SetCharFormat(ByVal ObjHwnd As Long, ByVal TextColor As Long, ByVal Bkcolor As Long)
Dim result As Long, Charformat As Charformat2
Dim FaceName As String
Charformat.cbsize = LenB(Charformat)
result = SendMessage(ObjHwnd, EM_GETCHARFORMAT, 1&, Charformat)
Const SET_Mask = CFM_COLOR Or CFM_BACKCOLOR
Charformat.cbsize = LenB(Charformat)
Charformat.dwMask = SET_Mask
Charformat.crTextColor = TextColor
Charformat.crBackColor = Bkcolor
result = SendMessage(ObjHwnd, EM_SETCHARFORMAT, SCF_SELECTION, Charformat)
End Sub
然後在Command1 中 Call SetCharFormat(text1.hwnd,&hff,&hff00)
有關Common Dialog.....(編號：1680)
有很多program(如Winamp,Word等)中的Common Dialog的combobox中都幾個file類形，選了不同的類形會Filter出該類形的file。
另外有一個叫"All Supported File"，選了以後會filter出所有該program支援的file。
我要怎樣才可做這個效果?
另外有一個叫"All Supported File"，選了以後會filter出所有該program支援的file。
我要怎樣才可做這個效果?
有關日期與sql語法(編號：1679)
請問一下
若是我希望在資料庫中找尋一些資料,語法如下
Sub
Day1=今天的日期
Day2=Day1-7
Data.RecodeSource="Select * From [資料庫] Where [日期] ＞= Day2 And [日期] ＜= Day1"
Sub End
這樣子有可能作到嗎?
因為我希望Day1與Day2是Integer
就好像說Day1=17,Day2=10這樣子
要如何才能取得這樣的日期資料呢?
謝謝!!
若是我希望在資料庫中找尋一些資料,語法如下
Sub
Day1=今天的日期
Day2=Day1-7
Data.RecodeSource="Select * From [資料庫] Where [日期] ＞= Day2 And [日期] ＜= Day1"
Sub End
這樣子有可能作到嗎?
因為我希望Day1與Day2是Integer
就好像說Day1=17,Day2=10這樣子
要如何才能取得這樣的日期資料呢?
謝謝!!
超特急!!!Access97的資料庫壞掉時,如何在不重開機的狀態下修復?(編號：1675)
小弟有一棘手問題,已經快被逼瘋了!!有請各方高手指點:
有一個 Access97 的 mdb 檔以 File Sharing 的方式放在 NT Server 上共用,
但時常發生資料庫毀損,要修復時又顯示被某 user 獨佔開啟,此時除了重新啟動 NT Server
外無法進行修復...
後來在某市售套裝軟體上發現該軟體本身附有一 tool ,可直接 shutdown Access 的資料庫(該軟體所使用之
語言也是 VB6 + SQL7.0),不需重開機便可解除被獨佔的狀態而進行修復.
請教各方高人要如何才能作到?
救人一命,勝造七級浮屠....大恩大德,感激不盡啦!!!
有一個 Access97 的 mdb 檔以 File Sharing 的方式放在 NT Server 上共用,
但時常發生資料庫毀損,要修復時又顯示被某 user 獨佔開啟,此時除了重新啟動 NT Server
外無法進行修復...
後來在某市售套裝軟體上發現該軟體本身附有一 tool ,可直接 shutdown Access 的資料庫(該軟體所使用之
語言也是 VB6 + SQL7.0),不需重開機便可解除被獨佔的狀態而進行修復.
請教各方高人要如何才能作到?
救人一命,勝造七級浮屠....大恩大德,感激不盡啦!!!
ActiveX control註冊問題...急~(編號：1673)
各為先進:
小弟寫好一個ocx...然後copy至windows\system32\下..
然後用regsvr32 ....註冊好...
平時在vb design time拉控制項也沒有發生錯誤...
在vb debug mode下run
run時80%都不會錯...
可是20%會發生很奇怪的錯誤...
err message: 找不到註冊的classid{xxxx-xxx-xxx}
會產生frm.log ...
log檔內的訊息:無法載入xxx控制項
我已經想破頭了還是無法解決...這是bug嗎?還是系統不穩??
謝謝各位先進!!
ps:我也將此ocx copy至vb目錄&專案目錄下,但仍然有以上的問題發生:(
小弟寫好一個ocx...然後copy至windows\system32\下..
然後用regsvr32 ....註冊好...
平時在vb design time拉控制項也沒有發生錯誤...
在vb debug mode下run
run時80%都不會錯...
可是20%會發生很奇怪的錯誤...
err message: 找不到註冊的classid{xxxx-xxx-xxx}
會產生frm.log ...
log檔內的訊息:無法載入xxx控制項
我已經想破頭了還是無法解決...這是bug嗎?還是系統不穩??
謝謝各位先進!!
ps:我也將此ocx copy至vb目錄&專案目錄下,但仍然有以上的問題發生:(
小吳 不好意思 借版面一下,幫公司應徵人員.....(編號：1672)
本公司需要會撰寫 asp 人員 (至少半年以上經驗)
若有興趣者請 email至 hanshans@tomail.com.tw
請附上簡歷即可,若合格 hanshans本人會與你安排面試
簡單介紹本公司
1)公司福利中等 但中午提供免費午餐(可省很多錢)
2)hanshans會帶領 一起實作 com + asp 大型電信專案
3)有很多機會接觸電信固網專業領域
4)有機會接觸電信固網 OSS
若有興趣者請 email,謝謝
若有興趣者請 email至 hanshans@tomail.com.tw
請附上簡歷即可,若合格 hanshans本人會與你安排面試
簡單介紹本公司
1)公司福利中等 但中午提供免費午餐(可省很多錢)
2)hanshans會帶領 一起實作 com + asp 大型電信專案
3)有很多機會接觸電信固網專業領域
4)有機會接觸電信固網 OSS
若有興趣者請 email,謝謝
急問：Winsock多人伺服器一問??(編號：1671)
在MSDN Liberary 中，有一篇多人伺服器的寫法！
使用winsock Control陣列，
但是在傳遞訊息時，
並無法多人傳送訊息，
也就是說，
將每一個陣列都使用Send 時，
發現只有一個Control會傳送，
而且也沒傳錯誤訊息！
請問要如何解決！
可mail to: ja@magic8.com.tw
使用winsock Control陣列，
但是在傳遞訊息時，
並無法多人傳送訊息，
也就是說，
將每一個陣列都使用Send 時，
發現只有一個Control會傳送，
而且也沒傳錯誤訊息！
請問要如何解決！
可mail to: ja@magic8.com.tw
vb的winsock可以做broadcast嗎??(編號：1670)
請問
vb可以做broadcast嗎??
要怎麼設??
UDP送到broadcast IP就可以了嗎??
如果不行的話
可以用API的方式
用WSOCK32.DLL的方式嗎??
謝謝!
vb可以做broadcast嗎??
要怎麼設??
UDP送到broadcast IP就可以了嗎??
如果不行的話
可以用API的方式
用WSOCK32.DLL的方式嗎??
謝謝!
在cwin98行vb 5的程式為何會變慢??(編號：1669)
近日終於換了cwin98 ，而且裝上了vs 6.0，但當我使用從前以vb5編成的exe時，程式運行速度變得超慢!!!至於我這個程式的用途是用作更改file的名稱，記得在cwin 95時使用時，一次過更改1000多個file 名稱只需要約5-6秒，但在cwin98裡花了30秒還沒有完成，我已經在vs 6裡再編出另一個exe，但結果還是一樣，究竟問題發生在那裡?
訂閱：
文章 (Atom)