可不可以教我跳行的程式碼什為寫！？
謝謝您！？
提供小吳 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 .
如果要寫像Access的搜尋後的資料，具有字串反白功能(或有顏色)要(編號：8834)
如果要寫像Access的搜尋後的資料，具有字串反白功能(或有顏色)要如何寫？要如何把字串顯示出來，並讓字串中某一個字＜有顏色＞，並具有下拉式的功能？當我在寫搜尋資料時，直接在Form顯示出來，可以讓字串中的某字＜有顏色＞，但是卻沒有下拉式的功能，如果我用List1.Additem下拉式裡，卻無法讓字串中的某字＜有顏色＞，有沒有好方法，讓兩者同時達到，也就是我在作搜尋SQL後，能不能像Access的資料搜尋，到的字反白，或出現顏色，這要如何寫？請位幫幫忙…
請問在crystal reprot8 中畫線(編號：8831)
請問在crystal reprot8 中,對於要列印一份a4之文件表格,當每印一筆要畫一直線,當資料未滿一頁時,仍要繼續畫線,直到報表底,請問要如何控制,煩請先賢指點迷津,謝謝
----------------------
! record1 !
----------------------
! record2 !
----------------------
! !
----------------------
! !
----------------------
----------------------
! record1 !
----------------------
! record2 !
----------------------
! !
----------------------
! !
----------------------
急!!如何製作計算機中的小數點(編號：8830)
我是vb6.0的初學者，現正製作一個計算機，在製作小數點按鍵時遇到問題。我的程式如下：
Label1.Caption=Label1.Caption+"."
end sub
還要再加那些程式，計算機才不會出現第二個小數點，望請各位高手給予解答，感激不盡，謝謝！
Label1.Caption=Label1.Caption+"."
end sub
還要再加那些程式，計算機才不會出現第二個小數點，望請各位高手給予解答，感激不盡，謝謝！
請教 crystal report 高手 .......(編號：8827)
請問crystal report 可不可以產生group是一個field, 但顯示是
好幾個field的 ﹖怎樣可以做到 ? 下面是舉例:
Invoice Date Customer Product qty Amount
---------------------------------------------------
0001 01/01/2000 ABC COMPANY AAAA 1 100
BBBB 2 50
------------
150
好幾個field的 ﹖怎樣可以做到 ? 下面是舉例:
Invoice Date Customer Product qty Amount
---------------------------------------------------
0001 01/01/2000 ABC COMPANY AAAA 1 100
BBBB 2 50
------------
150
Shell 讓我瘋(台語)啦!(編號：8826)
看了一些網站於關於shell 的文章，知道基本用法是：
shell ("c:\test.exe")
可是也看到了很多：
shell ("c:\test.exe"),1
a=shell ("c:\test.exe") ----＞這個「a」是做什麼用的?
MyProID = Shell ("C:\test.exe")----＞ "="之前的是指令嗎?
ret = Shell ("C:\test.exe") 有什麼意義呢?
pid = Shell ("C:\test.exe")
有時又加了個start：
shell("start c:\test.exe")
a=shell("start c:\test.exe")
等等
Start 的作用是什麼，為什有時要用有時不需?
Shell後的檔案路徑一定要指死嗎?能不能用類似 app.path + 指定路徑?
對不起，新手上路，雖然在本站也看了很多這主題的文章，可是就是搞不清楚，請各位高手不厭其煩能此回答一下，感激不盡。
還有一個不相干vb的問題，為什麼在outlook express中打字，總不能在一行句子中插字，而且在中文句子後打英文，後再打中文，英文就被取代掉，why ?(在發表這文章也一樣)
我知道這些問題有些幼稚，可是人家就是不懂嘛!
shell ("c:\test.exe")
可是也看到了很多：
shell ("c:\test.exe"),1
a=shell ("c:\test.exe") ----＞這個「a」是做什麼用的?
MyProID = Shell ("C:\test.exe")----＞ "="之前的是指令嗎?
ret = Shell ("C:\test.exe") 有什麼意義呢?
pid = Shell ("C:\test.exe")
有時又加了個start：
shell("start c:\test.exe")
a=shell("start c:\test.exe")
等等
Start 的作用是什麼，為什有時要用有時不需?
Shell後的檔案路徑一定要指死嗎?能不能用類似 app.path + 指定路徑?
對不起，新手上路，雖然在本站也看了很多這主題的文章，可是就是搞不清楚，請各位高手不厭其煩能此回答一下，感激不盡。
還有一個不相干vb的問題，為什麼在outlook express中打字，總不能在一行句子中插字，而且在中文句子後打英文，後再打中文，英文就被取代掉，why ?(在發表這文章也一樣)
我知道這些問題有些幼稚，可是人家就是不懂嘛!
急需貪食蛇的原始碼........(編號：8825)
你好...........
希望你能快速回信...............
我們需要貪食蛇的原始碼但都找不到.............因為我門沒學過而老師要同學們寫出來真傷腦筋...............只好拜託你了.........
vb5.0
希望你能快速回信...............
我們需要貪食蛇的原始碼但都找不到.............因為我門沒學過而老師要同學們寫出來真傷腦筋...............只好拜託你了.........
vb5.0
請教各位高手，我已找出問題了。(編號：8823)
每當我去執行之後，就出現（[Microsoft][ODBC Microsoft Access驅動程式]參數太少，以預期個數1）這問題???是否可幫我解決。
Dim R(1 To 20) As Integer
Dim i, j As Integer
Dim temp As Integer
Dim SQL As String
Dim str
'宣告一個connection類別的物件變數
Dim con As ADODB.Connection
'宣告一個recordset類別的物件變數
Dim rs As ADODB.Recordset
'隨機產生n個亂數
Randomize
For i = 1 To 20
R(i) = Int(Rnd() * 1001) + 1
Next
'將重複之亂數加1
For i = 2 To 20
For j = 1 To j - 1
If R(j) = R(i) Then
R(j) = R(j) + 1
End If
Next
Next
'利用氣泡排序法依遞增排序
For j = 1 To 19
For i = 1 To 19
If R(i) ＞ R(i + 1) Then
temp = R(i)
R(i) = R(i + 1)
R(i + 1) = temp
End If
Next
Next
'顯示隨機抽取題號'
str = "丙檢試題.題號=" & R(1) & "or"
For i = 1 To 19
str = str & "丙檢試題.題號=" & R(i) & "or"
Next i
str = str & "丙檢試題.題號=" & R(20)
SQL = "SELECT 丙檢試題.題號, 丙檢試題.題目, 丙檢試題.選項一, 丙檢試題.選項二, 丙檢試題.選項三, 丙檢試題.選項四, 丙檢試題.難易度"
SQL = SQL & " From 丙檢試題 WHERE 丙檢試題.題號= str"
Adodc1.RecordSource = SQL
Adodc1.Refresh
'建立物件,並且指定給con物件變數
Set con = New ADODB.Connection
'利用ODBC開啟資料庫
con.Open "886440"
'建立物件,並且指定給rs物件變數
Set rs = New ADODB.Recordset
'設定ADO開啟資料庫的方法
rs.CursorLocation = adUseClient
rs.Open SQL, con, adOpenKeyset, adLockOptimistic
rs.Close
Set rs = Nothing
con.Close
End Sub
Dim R(1 To 20) As Integer
Dim i, j As Integer
Dim temp As Integer
Dim SQL As String
Dim str
'宣告一個connection類別的物件變數
Dim con As ADODB.Connection
'宣告一個recordset類別的物件變數
Dim rs As ADODB.Recordset
'隨機產生n個亂數
Randomize
For i = 1 To 20
R(i) = Int(Rnd() * 1001) + 1
Next
'將重複之亂數加1
For i = 2 To 20
For j = 1 To j - 1
If R(j) = R(i) Then
R(j) = R(j) + 1
End If
Next
Next
'利用氣泡排序法依遞增排序
For j = 1 To 19
For i = 1 To 19
If R(i) ＞ R(i + 1) Then
temp = R(i)
R(i) = R(i + 1)
R(i + 1) = temp
End If
Next
Next
'顯示隨機抽取題號'
str = "丙檢試題.題號=" & R(1) & "or"
For i = 1 To 19
str = str & "丙檢試題.題號=" & R(i) & "or"
Next i
str = str & "丙檢試題.題號=" & R(20)
SQL = "SELECT 丙檢試題.題號, 丙檢試題.題目, 丙檢試題.選項一, 丙檢試題.選項二, 丙檢試題.選項三, 丙檢試題.選項四, 丙檢試題.難易度"
SQL = SQL & " From 丙檢試題 WHERE 丙檢試題.題號= str"
Adodc1.RecordSource = SQL
Adodc1.Refresh
'建立物件,並且指定給con物件變數
Set con = New ADODB.Connection
'利用ODBC開啟資料庫
con.Open "886440"
'建立物件,並且指定給rs物件變數
Set rs = New ADODB.Recordset
'設定ADO開啟資料庫的方法
rs.CursorLocation = adUseClient
rs.Open SQL, con, adOpenKeyset, adLockOptimistic
rs.Close
Set rs = Nothing
con.Close
End Sub
程式運作時,記憶體使用之問題!!!(編號：8822)
請問底下這段程式碼,若反覆執行,它是會都使用同一記憶體位址,或者每次重新配置呢?若重新配置,那舊的佔用之空間是否有釋放呢?
Public Sub read_111_2()
Dim mySQL2 As String
mySQL2 = "SELECT 採購副檔.產品代號,產品基本.產品名稱,產品基本.單位,採購副檔.數量,採購副檔.單價,採購副檔.數量*採購副檔.單價 AS 小計,採購副檔.備註"
mySQL2 = mySQL2 & " FROM (採購副檔 INNER JOIN 採購主檔 ON 採購副檔.採購單號=採購主檔.採購單號) INNER JOIN 產品基本 ON 產品基本.產品代號=採購副檔.產品代號"
mySQL2 = mySQL2 & " WHERE 採購副檔.採購單號 = " & "'" & rs111_1("採購單號") & "'"
mySQL2 = mySQL2 & " ORDER BY 採購副檔.產品代號"
Set rs111_2 = New ADODB.Recordset
rs111_2.Open mySQL2, cn, adOpenStatic, adLockOptimistic, adCmdText
Set TDBGrid1.DataSource = rs111_2
End Sub
Public Sub read_111_2()
Dim mySQL2 As String
mySQL2 = "SELECT 採購副檔.產品代號,產品基本.產品名稱,產品基本.單位,採購副檔.數量,採購副檔.單價,採購副檔.數量*採購副檔.單價 AS 小計,採購副檔.備註"
mySQL2 = mySQL2 & " FROM (採購副檔 INNER JOIN 採購主檔 ON 採購副檔.採購單號=採購主檔.採購單號) INNER JOIN 產品基本 ON 產品基本.產品代號=採購副檔.產品代號"
mySQL2 = mySQL2 & " WHERE 採購副檔.採購單號 = " & "'" & rs111_1("採購單號") & "'"
mySQL2 = mySQL2 & " ORDER BY 採購副檔.產品代號"
Set rs111_2 = New ADODB.Recordset
rs111_2.Open mySQL2, cn, adOpenStatic, adLockOptimistic, adCmdText
Set TDBGrid1.DataSource = rs111_2
End Sub
關於label 控制項陣列的問題(編號：8821)
有 Label1(0)、Label1(1)、Label1(2)…
我需要對每一個不同的label寫不同的label click事件，可是我不管按那一個label 進入程式代碼編輯器都是出現 Label1_click()，那我應該怎麼寫呢?sorry 我是新手，回覆請儘量清楚一些，謝謝!我是用VB6.0
我需要對每一個不同的label寫不同的label click事件，可是我不管按那一個label 進入程式代碼編輯器都是出現 Label1_click()，那我應該怎麼寫呢?sorry 我是新手，回覆請儘量清楚一些，謝謝!我是用VB6.0
簡易轉碼程式(big5cns互轉) 請高手 修改搜尋方式(編號：8820)
這是一個簡易通用碼與big5碼的轉換程式。由於我不懂如何用
最快速的方法處理，請幫我修正後告訴我。
使用方式是將您要轉碼的文字貼上按 轉碼即可
可big2 to cns 或 cns to big5 互轉
速度不快 少量文字轉碼 勉強可用
我一直在想辦法解決 也請高手共同研究 謝謝
原始程式碼無法放在這裡 我把它放在免費網頁上
下載程式原始碼 大小 50 k
http://home.pchome.com.tw/computer/rogerfly/big2cns.zip
http://home.pchome.com.tw/computer/rogerfly/
最快速的方法處理，請幫我修正後告訴我。
使用方式是將您要轉碼的文字貼上按 轉碼即可
可big2 to cns 或 cns to big5 互轉
速度不快 少量文字轉碼 勉強可用
我一直在想辦法解決 也請高手共同研究 謝謝
原始程式碼無法放在這裡 我把它放在免費網頁上
下載程式原始碼 大小 50 k
http://home.pchome.com.tw/computer/rogerfly/big2cns.zip
http://home.pchome.com.tw/computer/rogerfly/
我想在ＶＢ中用ADO之reocordset 作為crystal reprot之資料來源(編號：8819)
我是Crystal report 8.0初使用者,請問
我想從VB程中使用ADO 之RECORDSET來取得資料源，在crystalreport1之detail要印出fd1,fd2,fd3，請問在程式還要作什麼樣的敍述及crystalreport1中之fd1,fd2,fd3要如何定義這三個欄位，煩請指點迷津.
Dim cn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim mysql As String
Dim dbpath As String
Dim Report As New CrystalReport1
dbpath = App.Path + "\acc.mdb"
mysql = "select fd1,fd2,fd3 from t02 where fd1 ＞100"
cn1.Open "provider=Microsoft.Jet.OLEDB.4.0;Data source=" & "'" & dbpath & "'"
rs1.CursorLocation = adUseClient
rs1.Open mysql, cn1, adOpenKeyset, adLockReadOnly
Report.Database.SetDataSource rs1
CrystalReport1.Section3 = "desp"
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
我想從VB程中使用ADO 之RECORDSET來取得資料源，在crystalreport1之detail要印出fd1,fd2,fd3，請問在程式還要作什麼樣的敍述及crystalreport1中之fd1,fd2,fd3要如何定義這三個欄位，煩請指點迷津.
Dim cn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim mysql As String
Dim dbpath As String
Dim Report As New CrystalReport1
dbpath = App.Path + "\acc.mdb"
mysql = "select fd1,fd2,fd3 from t02 where fd1 ＞100"
cn1.Open "provider=Microsoft.Jet.OLEDB.4.0;Data source=" & "'" & dbpath & "'"
rs1.CursorLocation = adUseClient
rs1.Open mysql, cn1, adOpenKeyset, adLockReadOnly
Report.Database.SetDataSource rs1
CrystalReport1.Section3 = "desp"
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
if.....then....esle和select case到底有什麼分別(編號：8818)
if.....then....esle和select case到底有什麼分別？後者到底怎麼用呢…？老師講了，可是我不太懂~
我想從VB程中使用ADO 之recordset來取得資料源(編號：8817)
我是Crystal report 8.0初使用者,請問
我想從VB程中使用ADO 之RECORDSET來取得資料源，在crystalreport1之detail要印出fd1,fd2,fd3，請問在程式還要作什麼樣的敍述及crystalreport1中之fd1,fd2,fd3要如何定義這三個欄位，煩請指點迷津.
Dim cn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim mysql As String
Dim dbpath As String
Dim Report As New CrystalReport1
dbpath = App.Path + "\acc.mdb"
mysql = "select fd1,fd2,fd3 from t02 where fd1 ＞100"
cn1.Open "provider=Microsoft.Jet.OLEDB.4.0;Data source=" & "'" & dbpath & "'"
rs1.CursorLocation = adUseClient
rs1.Open mysql, cn1, adOpenKeyset, adLockReadOnly
Report.Database.SetDataSource rs1
CrystalReport1.Section3 = "desp"
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
我想從VB程中使用ADO 之RECORDSET來取得資料源，在crystalreport1之detail要印出fd1,fd2,fd3，請問在程式還要作什麼樣的敍述及crystalreport1中之fd1,fd2,fd3要如何定義這三個欄位，煩請指點迷津.
Dim cn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim mysql As String
Dim dbpath As String
Dim Report As New CrystalReport1
dbpath = App.Path + "\acc.mdb"
mysql = "select fd1,fd2,fd3 from t02 where fd1 ＞100"
cn1.Open "provider=Microsoft.Jet.OLEDB.4.0;Data source=" & "'" & dbpath & "'"
rs1.CursorLocation = adUseClient
rs1.Open mysql, cn1, adOpenKeyset, adLockReadOnly
Report.Database.SetDataSource rs1
CrystalReport1.Section3 = "desp"
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
請問 做好的vb發散到 win 2000 上有問題嗎?(編號：8816)
請問 做好的vb發散到 win 2000 上有問題嗎?
如果有問題 該怎麼解決?
要是要下載vb6 sp4 那太大了
有簡單的方法嗎?
我已經封裝過了 可是在win 2000上執行
卻發生要我插入磁片的事情
如果有問題 該怎麼解決?
要是要下載vb6 sp4 那太大了
有簡單的方法嗎?
我已經封裝過了 可是在win 2000上執行
卻發生要我插入磁片的事情
請問 做好的vb發散到 win 2000 上有問題嗎?(編號：8815)
請問 做好的vb發散到 win 2000 上有問題嗎?
如果有問題 該怎麼解決?
要是要下載vb6 sp4 那太大了
有簡單的方法嗎?
如果有問題 該怎麼解決?
要是要下載vb6 sp4 那太大了
有簡單的方法嗎?
TDBGrid 的 RowColChange 怪怪的(編號：8813)
我在這個even去判斷 tdbgrid.row
而捉到的資料都不正確,
而且最大值就剛好是那個畫面的行數
也就是在捲軸外的都不算
例如大小剛好可放下10行資料,這個值最大就=10,
我再往下按,其值都不會變, (往上走,又變回9)
怎麼會這樣子呢 ?
tdbgrid.row 不是應該等於真正的行數嗎
而這事件所傳來的參數值(lastRow, lastCol) 卻是正確的,
會等於我上次所在的行數.
請問我要如何才可以知道目前所選的資料是在所有行數的第幾行
而捉到的資料都不正確,
而且最大值就剛好是那個畫面的行數
也就是在捲軸外的都不算
例如大小剛好可放下10行資料,這個值最大就=10,
我再往下按,其值都不會變, (往上走,又變回9)
怎麼會這樣子呢 ?
tdbgrid.row 不是應該等於真正的行數嗎
而這事件所傳來的參數值(lastRow, lastCol) 卻是正確的,
會等於我上次所在的行數.
請問我要如何才可以知道目前所選的資料是在所有行數的第幾行
用vb寫程式，發生錯誤(編號：8812)
這是我寫的亂數程式，但發生錯誤。可否請指出哪裡有錯，如何修改??Private Sub Command1_Click()
Dim R(1 To 20) As Integer
Dim i, j As Integer
Dim temp As Integer
Dim SQL As String
Dim str
'宣告一個connection類別的物件變數
Dim con As ADODB.Connection
'宣告一個recordset類別的物件變數
Dim rs As ADODB.Recordset
'隨機產生n個亂數
Randomize
For i = 1 To 20
R(i) = Int(Rnd() * 1001) + 1
Next
'將重複之亂數加1
For i = 2 To 20
For j = 1 To j - 1
If R(j) = R(i) Then
R(j) = R(j) + 1
End If
Next
Next
'利用氣泡排序法依遞增排序
For j = 1 To 19
For i = 1 To 19
If R(i) ＞ R(i + 1) Then
temp = R(i)
R(i) = R(i + 1)
R(i + 1) = temp
End If
Next
Next
'顯示隨機抽取題號'
str = "丙檢試題.題號=" & R(1) & "or"
For i = 1 To 19
str = str & "丙檢試題.題號=" & R(i) & "or"
Next i
str = str & "丙檢試題.題號=" & R(20)
SQL = "SELECT 丙檢試題.題號, 丙檢試題.題目, 丙檢試題.選項一, 丙檢試題.選項二, 丙檢試題.選項三, 丙檢試題.選項四, 丙檢試題.難易度"
SQL = SQL & " From 丙檢試題 WHERE 丙檢試題.題號= str"
Adodc1.RecordSource = SQL
Adodc1.Refresh
'建立物件,並且指定給con物件變數
Set con = New ADODB.Connection
'利用ODBC開啟資料庫
con.Open "886440"
'建立物件,並且指定給rs物件變數
Set rs = New ADODB.Recordset
'設定ADO開啟資料庫的方法
rs.CursorLocation = adUseClient
rs.Open SQL, con, adOpenKeyset, adLockOptimistic
rs.Close
Set rs = Nothing
con.Close
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = True
Text7.Visible = True
Text8.Visible = True
End Sub
Private Sub Form_Load()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQL As String
Set con = New ADODB.Connection
con.Open "886440"
SQL = "select * from 成績單"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open SQL, con, adOpenKeyset, adLockReadOnly
rs.MoveLast
labno.Caption = rs(0).Value
Refresh
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
End Sub
Dim R(1 To 20) As Integer
Dim i, j As Integer
Dim temp As Integer
Dim SQL As String
Dim str
'宣告一個connection類別的物件變數
Dim con As ADODB.Connection
'宣告一個recordset類別的物件變數
Dim rs As ADODB.Recordset
'隨機產生n個亂數
Randomize
For i = 1 To 20
R(i) = Int(Rnd() * 1001) + 1
Next
'將重複之亂數加1
For i = 2 To 20
For j = 1 To j - 1
If R(j) = R(i) Then
R(j) = R(j) + 1
End If
Next
Next
'利用氣泡排序法依遞增排序
For j = 1 To 19
For i = 1 To 19
If R(i) ＞ R(i + 1) Then
temp = R(i)
R(i) = R(i + 1)
R(i + 1) = temp
End If
Next
Next
'顯示隨機抽取題號'
str = "丙檢試題.題號=" & R(1) & "or"
For i = 1 To 19
str = str & "丙檢試題.題號=" & R(i) & "or"
Next i
str = str & "丙檢試題.題號=" & R(20)
SQL = "SELECT 丙檢試題.題號, 丙檢試題.題目, 丙檢試題.選項一, 丙檢試題.選項二, 丙檢試題.選項三, 丙檢試題.選項四, 丙檢試題.難易度"
SQL = SQL & " From 丙檢試題 WHERE 丙檢試題.題號= str"
Adodc1.RecordSource = SQL
Adodc1.Refresh
'建立物件,並且指定給con物件變數
Set con = New ADODB.Connection
'利用ODBC開啟資料庫
con.Open "886440"
'建立物件,並且指定給rs物件變數
Set rs = New ADODB.Recordset
'設定ADO開啟資料庫的方法
rs.CursorLocation = adUseClient
rs.Open SQL, con, adOpenKeyset, adLockOptimistic
rs.Close
Set rs = Nothing
con.Close
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
Text4.Visible = True
Text5.Visible = True
Text6.Visible = True
Text7.Visible = True
Text8.Visible = True
End Sub
Private Sub Form_Load()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQL As String
Set con = New ADODB.Connection
con.Open "886440"
SQL = "select * from 成績單"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open SQL, con, adOpenKeyset, adLockReadOnly
rs.MoveLast
labno.Caption = rs(0).Value
Refresh
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
End Sub
如何使用二元搜尋查詢字串(編號：8808)
若資料型態為 string *1
並以引入一維陣列 AS() 中
假設資料只有100筆且經
由小到大排序過了
FOR I=0 TO 99
AS(I)=字串資料變數I
NEXT
如何使用二元搜尋法查詢
字串
書本範例都用數值型態
我不太會改範例
有範例者請引入讓我修改使用 謝謝
並以引入一維陣列 AS() 中
假設資料只有100筆且經
由小到大排序過了
FOR I=0 TO 99
AS(I)=字串資料變數I
NEXT
如何使用二元搜尋法查詢
字串
書本範例都用數值型態
我不太會改範例
有範例者請引入讓我修改使用 謝謝
我用二進位存檔，為什麼檔頭會多了08 00 8D 01,(編號：8807)
我用二進位存檔，為什麼檔頭會多了08 00 8D 01,後面都沒錯，但是...為什麼？我是用put #1,1,變數,為什麼檔案前面多了08 00 8D 01,應該要如何作，才不會有檔案開頭不要有08 00 8D 01
救命啊！我用二進位存檔，為什麼檔頭會多了08 00 8D 01(編號：8806)
救命啊！我用二進位存檔，為什麼檔頭會多了08 00 8D 01,後面都沒錯，但是...為什麼？我是用
put #1,1,變數
為什麼檔案前面多了08 00 8D 01
應該要如何作，才不會有檔案開頭不要有08 00 8D 01
put #1,1,變數
為什麼檔案前面多了08 00 8D 01
應該要如何作，才不會有檔案開頭不要有08 00 8D 01
如何做出倒數計時？(編號：8805)
抱歉各位高手，我對VB還是個初學者，而且笨的要死。我現在想弄一個倒數計時器，就是可以倒數一分鐘或是倒數三十秒，時間到就不能再執行任何Click。程式碼應該要怎麼寫才正確呢？感謝各位高手幫助！
我想了一個安裝 VB 程式(不用 VB 封裝)到一個沒有 msvbvm60.dll (編號：8804)
如果我寫了一個 VB 程式, 程式十分簡單, 不需其他 VB 元件。
我害怕別的電腦沒有 msvbvm60.dll, 但又不想用 VB 封裝。
我想用 C++ 把 msvbvm60.dll 和 my_program.exe 放到 install.exe(install.exe 用 C++ 寫, 像 VB 用資源檔一般)
install.exe 的工作如下:
先檢查有沒有 msvbvm60.dll
無, 則把 msvbvm60.dll 放到 windows 內
然後把 my_program.exe 放到 temp 內, 再執行它
有, 則把 my_program.exe 放到 temp 內, 再執行它
那麼, 有沒有網站介紹如何用 C++ 做到 VB 的資源檔功能, 用 API 讀取 Windows 及 Temp 之路徑, 執行程式的方法(如 VB 中的 Shell)?
或有沒有 C++ 的高手幫我一下?
萬分感激!!!
我害怕別的電腦沒有 msvbvm60.dll, 但又不想用 VB 封裝。
我想用 C++ 把 msvbvm60.dll 和 my_program.exe 放到 install.exe(install.exe 用 C++ 寫, 像 VB 用資源檔一般)
install.exe 的工作如下:
先檢查有沒有 msvbvm60.dll
無, 則把 msvbvm60.dll 放到 windows 內
然後把 my_program.exe 放到 temp 內, 再執行它
有, 則把 my_program.exe 放到 temp 內, 再執行它
那麼, 有沒有網站介紹如何用 C++ 做到 VB 的資源檔功能, 用 API 讀取 Windows 及 Temp 之路徑, 執行程式的方法(如 VB 中的 Shell)?
或有沒有 C++ 的高手幫我一下?
萬分感激!!!
給Speed(編號：8803)
對不起, 您的信件無法依您的電子郵件回覆, 回覆內容就貼在這, 如有不便, 請您見諒.
EX.
---------------------------------
我簡單的舉的例子, 希望對您會有用;
Dim cnn as New ADODB.Coonection
Dim rs as New ADODB.Recordset
cnn.connectionstring="......." '買來一條水管
cnn.Open ' 接上水龍頭
SQLStatement="Select * from YourTable" '設定自來水廠的來源
rs.CursorLocation=adUseClient '指定要把水全部塞到水塔裡還是要用再送來
rs.Open SQLStatement, cnn,adOpenKeySet, adForReadOnly ' 打開水龍頭, 水(資料)就送來啦
這樣一來, 我們就可以讓 rs便成一個含有您選取的資料的物件啦.....
EX.
---------------------------------
我簡單的舉的例子, 希望對您會有用;
Dim cnn as New ADODB.Coonection
Dim rs as New ADODB.Recordset
cnn.connectionstring="......." '買來一條水管
cnn.Open ' 接上水龍頭
SQLStatement="Select * from YourTable" '設定自來水廠的來源
rs.CursorLocation=adUseClient '指定要把水全部塞到水塔裡還是要用再送來
rs.Open SQLStatement, cnn,adOpenKeySet, adForReadOnly ' 打開水龍頭, 水(資料)就送來啦
這樣一來, 我們就可以讓 rs便成一個含有您選取的資料的物件啦.....
我的最愛(編號：8802)
各位網友好
想請教各位,是否能做出一個類似"我的最愛"的功能表?
而連結就直接讀取Windows底下我的最愛的相關資料...?
謝謝
如有可以參考的網址or範例請e-mail到我的信箱,謝謝^^
想請教各位,是否能做出一個類似"我的最愛"的功能表?
而連結就直接讀取Windows底下我的最愛的相關資料...?
謝謝
如有可以參考的網址or範例請e-mail到我的信箱,謝謝^^
我的最愛(編號：8801)
各位網友好
想請教各位,是否能做出一個類似"我的最愛"的功能表?
而連結就直接讀取Windows底下我的最愛的相關資料...?
謝謝
如有可以參考的網址or範例請e-mail到我的信箱,謝謝^^
想請教各位,是否能做出一個類似"我的最愛"的功能表?
而連結就直接讀取Windows底下我的最愛的相關資料...?
謝謝
如有可以參考的網址or範例請e-mail到我的信箱,謝謝^^
該如何把資料加入(編號：8800)
己宣告a(50) 且a(0),a(1),a(2),都已輸入固定資料
text1:接收姓名
commandbutton1:查詢
commandbutton2:新增
listbox1:用來顯示資料
在text1中輸入資料後,且按了commandbutton2,
再將剛剛輸入資料輸入text1,按commandbutton1,
請問該如何做??
才能將剛剛輸入的一筆資料值存放到a(4)去,使按查詢鍵時,能夠查到剛剛加入的資料值
除此之外,請問每輸入一筆資料,按新增後就自動放到a(5),a(6)....a(50)裡面去,該如何做呢???
多謝~~~~
text1:接收姓名
commandbutton1:查詢
commandbutton2:新增
listbox1:用來顯示資料
在text1中輸入資料後,且按了commandbutton2,
再將剛剛輸入資料輸入text1,按commandbutton1,
請問該如何做??
才能將剛剛輸入的一筆資料值存放到a(4)去,使按查詢鍵時,能夠查到剛剛加入的資料值
除此之外,請問每輸入一筆資料,按新增後就自動放到a(5),a(6)....a(50)裡面去,該如何做呢???
多謝~~~~
SQL 的 order by ???(編號：8799)
Table: abc
fld1
====
a
-
f
rs.open "select * from abc order by fld1",conn
rs 的排序會有問題 ?? a,f,- ;為何不是 -,a,f
fld1
====
a
-
f
rs.open "select * from abc order by fld1",conn
rs 的排序會有問題 ?? a,f,- ;為何不是 -,a,f
如何利用MASK把表單改成不規則形狀？？(編號：8798)
請問如何利用MASK方法把表單改成不規則形狀？？哪裡有相關資料呢？我在小瓜瓜的站中有看到利用座標標示來切割表單形狀的作法，但是我需要的是用遮罩圖來改表單形狀，不知有沒有人知道？？謝謝！！
SQL問題.....請各位指點一下~ ^^(編號：8796)
如果我想要show 開始五個Title.Reserve_freq最高的records from 以下的sql statement,那句sql statement應該如何寫呢???
SELECT Title.ISBN, Title.Title, Title.PubID, Publisher.Publisher, Title.Reserve_freq
FROM Publisher INNER JOIN Title ON Publisher.PubID = Title.PubID
ORDER BY Title.Reserve_freq DESC;
請各位幫幫忙~~~ thx ^^
SELECT Title.ISBN, Title.Title, Title.PubID, Publisher.Publisher, Title.Reserve_freq
FROM Publisher INNER JOIN Title ON Publisher.PubID = Title.PubID
ORDER BY Title.Reserve_freq DESC;
請各位幫幫忙~~~ thx ^^
如何讓richtextbox的縮排啟動後變正常(編號：8792)
With RichTextBox1
.SelIndent = 200 '一定設在selbullet和bulletindent之前
.SelBullet = 1000 '設定左邊圓圈圈的
.BulletIndent = True '設定左邊圓圈圈啟動
For i = 1 To 3
.SelText = "a:" & i & vbCrLf
Next
.SelText = "這裡我要變正常,不縮排" '麻煩大家這裡我變成正常格式
End With
.SelIndent = 200 '一定設在selbullet和bulletindent之前
.SelBullet = 1000 '設定左邊圓圈圈的
.BulletIndent = True '設定左邊圓圈圈啟動
For i = 1 To 3
.SelText = "a:" & i & vbCrLf
Next
.SelText = "這裡我要變正常,不縮排" '麻煩大家這裡我變成正常格式
End With
about VB's Timer(編號：8790)
昨天又查了Programming Windows中譯本..
API:Sleep..過程是Suspend Main Thread..
不是Suspend Process..
但是因為Main Thread處理大部份的message..
所以只要使用Sleep..
程式效率與速度都大打折扣!!(Sleep進行時..)
系統會一直送WM_TIMER給Process..
如果Process來不及handle..
那麼WM_TIMER會被"丟棄"!!
(如有錯誤..煩請不吝指正^_^)
另外API:SetTimer確實可以指定callback..
so..VB的Timer OCX應該是採用這樣的方式~~
VB的Timer既然是ChildWindow的形式..
所以API:KillTimer應該是Main Window要Destroy前..
才被呼叫..而非API:SetTimer/KillTimer交替使用..
個人觀點:
VB的程式在call VB6 Run-Time時...
浪費太多時間..
導致1sec本來可以處理數百萬指令(以asm來說)
都花在call/stack等..轉換的動作..:(
所以Timer OCX的"一秒"!!(執行不了幾個指令啦!!)
如果event進行超過"一秒"!!
那麼WM_TIMER會被"丟棄"!!(來不及處理..)
這也難怪VB's Timer OCX沒辦法精確了..^^!!
一點點猜想..^_^
API:Sleep..過程是Suspend Main Thread..
不是Suspend Process..
但是因為Main Thread處理大部份的message..
所以只要使用Sleep..
程式效率與速度都大打折扣!!(Sleep進行時..)
系統會一直送WM_TIMER給Process..
如果Process來不及handle..
那麼WM_TIMER會被"丟棄"!!
(如有錯誤..煩請不吝指正^_^)
另外API:SetTimer確實可以指定callback..
so..VB的Timer OCX應該是採用這樣的方式~~
VB的Timer既然是ChildWindow的形式..
所以API:KillTimer應該是Main Window要Destroy前..
才被呼叫..而非API:SetTimer/KillTimer交替使用..
個人觀點:
VB的程式在call VB6 Run-Time時...
浪費太多時間..
導致1sec本來可以處理數百萬指令(以asm來說)
都花在call/stack等..轉換的動作..:(
所以Timer OCX的"一秒"!!(執行不了幾個指令啦!!)
如果event進行超過"一秒"!!
那麼WM_TIMER會被"丟棄"!!(來不及處理..)
這也難怪VB's Timer OCX沒辦法精確了..^^!!
一點點猜想..^_^
請問......(編號：8788)
請問底下這段程式碼,若反覆執行,它是會都使用同一記憶體位址,或者每次重新配置呢?
Public Sub read_111_2()
Dim mySQL2 As String
mySQL2 = "SELECT 採購副檔.產品代號,產品基本.產品名稱,產品基本.單位,採購副檔.數量,採購副檔.單價,採購副檔.數量*採購副檔.單價 AS 小計,採購副檔.備註"
mySQL2 = mySQL2 & " FROM (採購副檔 INNER JOIN 採購主檔 ON 採購副檔.採購單號=採購主檔.採購單號) INNER JOIN 產品基本 ON 產品基本.產品代號=採購副檔.產品代號"
mySQL2 = mySQL2 & " WHERE 採購副檔.採購單號 = " & "'" & rs111_1("採購單號") & "'"
mySQL2 = mySQL2 & " ORDER BY 採購副檔.產品代號"
Set rs111_2 = New ADODB.Recordset
rs111_2.Open mySQL2, cn, adOpenStatic, adLockOptimistic, adCmdText
Set TDBGrid1.DataSource = rs111_2
End Sub
Public Sub read_111_2()
Dim mySQL2 As String
mySQL2 = "SELECT 採購副檔.產品代號,產品基本.產品名稱,產品基本.單位,採購副檔.數量,採購副檔.單價,採購副檔.數量*採購副檔.單價 AS 小計,採購副檔.備註"
mySQL2 = mySQL2 & " FROM (採購副檔 INNER JOIN 採購主檔 ON 採購副檔.採購單號=採購主檔.採購單號) INNER JOIN 產品基本 ON 產品基本.產品代號=採購副檔.產品代號"
mySQL2 = mySQL2 & " WHERE 採購副檔.採購單號 = " & "'" & rs111_1("採購單號") & "'"
mySQL2 = mySQL2 & " ORDER BY 採購副檔.產品代號"
Set rs111_2 = New ADODB.Recordset
rs111_2.Open mySQL2, cn, adOpenStatic, adLockOptimistic, adCmdText
Set TDBGrid1.DataSource = rs111_2
End Sub
如何用data environment來做report??? urgent!!!(編號：8785)
report 的criteria是由user 每次enter (例如: search record from which date to which date..),我試過用ADO做,但還是做不到.....用data environment set param又做不到,每次run都有error,說"report sections do not match data source"
請各位幫幫忙！！！ ｔｈｘ～ ~^o^~
請各位幫幫忙！！！ ｔｈｘ～ ~^o^~
請問crystal report 7.0 和 8.0 有多大的差別 ?(編號：8782)
請問crystal report 7.0 和 8.0 有多大的差別 ?
我要列印中一刀的報表crystal report 7.0 有此功能嗎?
我要列印中一刀的報表crystal report 7.0 有此功能嗎?
關於ocx註冊的問題(編號：8780)
我的情形:
因無法開機，delete c;\windows，重灌win，vb6
之前別人寫的ocx，重註冊時出現錯誤(重灌之前可用)
---------------------------------------
DllRegisterServer c:\.......\xx.ocx failed
Return code was 0x8000ffff
--------------------------------------------
不知道徵結何在?
如何處理?
我只有ocx一個檔案
thanks!
因無法開機，delete c;\windows，重灌win，vb6
之前別人寫的ocx，重註冊時出現錯誤(重灌之前可用)
---------------------------------------
DllRegisterServer c:\.......\xx.ocx failed
Return code was 0x8000ffff
--------------------------------------------
不知道徵結何在?
如何處理?
我只有ocx一個檔案
thanks!
Inet 與 https 的問題(編號：8779)
請問各位高手，為何我如果利用Inet走http是可以，但是如果我走https, 它就會出現error，訊息是(12045:未設定客戶端認證)，檢查web server 的設定也未要求認證資料交換。請問為何會出現錯誤??
請問如何去控制正在執行程式的scroll bar ??(API 問題)(編號：8778)
各位高手好!!
這個問題，小弟已經問過一篇了，曾有兩位高手給過小弟一些建議，但都.....
小弟正在寫一個程式，希望能控制其它程式的SCROLL BAR(水平、垂直都要)，小弟用去GetWindow取得正在執行的程式的Hwnd,試了SendMessage 這個API想要去讓正在執行的WORD 的V-SCROLL BAR 移動，做去類似Page Down OR Page Up的動做，但是失敗了。於是我試了VB內SendKeys 可以做到這個效果。找了王國榮先生有類似的範例，但只能控制同一個程式的Text物件的SCROLL。卻無控制像及IE...等其它程式???
請問各位高手，可否告訴小弟解決方法?謝謝,感激不盡!!!
這個問題，小弟已經問過一篇了，曾有兩位高手給過小弟一些建議，但都.....
小弟正在寫一個程式，希望能控制其它程式的SCROLL BAR(水平、垂直都要)，小弟用去GetWindow取得正在執行的程式的Hwnd,試了SendMessage 這個API想要去讓正在執行的WORD 的V-SCROLL BAR 移動，做去類似Page Down OR Page Up的動做，但是失敗了。於是我試了VB內SendKeys 可以做到這個效果。找了王國榮先生有類似的範例，但只能控制同一個程式的Text物件的SCROLL。卻無控制像及IE...等其它程式???
請問各位高手，可否告訴小弟解決方法?謝謝,感激不盡!!!
如何在將電子報展現內容變成html格式(編號：8776)
MAPISession.SignOn
If MAPISession.SessionID ＜＞ 0 Then
MAPIMessages.SessionID = MAPISession.SessionID
MAPIMessages.Compose
MAPIMessages.RecipDisplayName = ""
MAPIMessages.RecipAddress = "xxx@xxx.com.tw"
MAPIMessages.MsgSubject = "電子報寄送完成"
MAPIMessages.MsgNoteText = econtent("content")
***上列那一行展現的資料會是原始碼，請問我該如果將他設為是html的******
***另外請教一點，設定寄件者的是如何寫****
If MAPISession.SessionID ＜＞ 0 Then
MAPIMessages.SessionID = MAPISession.SessionID
MAPIMessages.Compose
MAPIMessages.RecipDisplayName = ""
MAPIMessages.RecipAddress = "xxx@xxx.com.tw"
MAPIMessages.MsgSubject = "電子報寄送完成"
MAPIMessages.MsgNoteText = econtent("content")
***上列那一行展現的資料會是原始碼，請問我該如果將他設為是html的******
***另外請教一點，設定寄件者的是如何寫****
救命 !!!! MTS 一問(編號：8775)
程式碼如下
dim objCT as objectcontext
set objCT = getobjectcontext
....
....
objCT.setcomplete
...
errorflag:
end sub
元件也放入mts中
也可以執行
但是執行道上述程式碼時 objCT.setcomplete
會出現錯誤 原因是objCTj為NOTHING
why ? & HOW TO CORRECT IT?
dim objCT as objectcontext
set objCT = getobjectcontext
....
....
objCT.setcomplete
...
errorflag:
end sub
元件也放入mts中
也可以執行
但是執行道上述程式碼時 objCT.setcomplete
會出現錯誤 原因是objCTj為NOTHING
why ? & HOW TO CORRECT IT?
請教base64(編號：8773)
請教高手，我查過rfc的文件，其中詳述base64的編碼
，但我用vb寫，卻發現解碼的速度慢很多，是不是有一
種元件或方法可以改善解碼的速度。
或者，我該用什麼方法去思考??
謝謝
，但我用vb寫，卻發現解碼的速度慢很多，是不是有一
種元件或方法可以改善解碼的速度。
或者，我該用什麼方法去思考??
謝謝
How authentication in HTTP Protocal(編號：8772)
I send a http order(POST or GET) to a web server,but i receive blow message,please tell me how I can get the HTML Source correctly!
I receive is :
HTTP/1.1 401 Unauthorized
WWW-Authenticate: Basic realm="LongHua PIX Authentication (ID47702)"
Connection: close
I receive is :
HTTP/1.1 401 Unauthorized
WWW-Authenticate: Basic realm="LongHua PIX Authentication (ID47702)"
Connection: close
如何讓 TextBox 的捲軸固定,謝謝!(編號：8771)
當使用 text1.seltext 置放資料時,資料不斷進來,超過顯示螢幕時,捲軸會不斷捲動,請問如何讓TextBox 顯示固定,當然資料仍須吐到textbox的後面.
run-time error 126(編號：8770)
一個vb的問題:run-time error 126
一個vb的問題:run-time error 126
程式碼我放在這 http:\\home.pchome.com.tw\discover\1.zip
這個程式很esay，按下rqnt
就將左邊的資料用udp的方式送到上面指定的ip 和port
這個程式我將他做成exe檔，直接在windows下run都會出現 run-time error 126
我在vb下run，第一次也會出現run-time error 126 ，進去debug ，
vb指著
Private Sub RQNT_Click()
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
'判斷是否要啟動計時器，
Winsock1.RemoteHost = IP.Text
Winsock1.RemotePort = Port.Text
Winsock1.SendData rqnt_t.Text ＜--------------這一行錯誤？_？
Label1.Caption = rqnt_t.Text
'送出資料
不過我在vb下再run一次這個程式就什麼問題都沒有發生~~~
我用netxray這些程式來看，封包確實有送出，
到底這程式是那出了問題？？？？
一個vb的問題:run-time error 126
程式碼我放在這 http:\\home.pchome.com.tw\discover\1.zip
這個程式很esay，按下rqnt
就將左邊的資料用udp的方式送到上面指定的ip 和port
這個程式我將他做成exe檔，直接在windows下run都會出現 run-time error 126
我在vb下run，第一次也會出現run-time error 126 ，進去debug ，
vb指著
Private Sub RQNT_Click()
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
'判斷是否要啟動計時器，
Winsock1.RemoteHost = IP.Text
Winsock1.RemotePort = Port.Text
Winsock1.SendData rqnt_t.Text ＜--------------這一行錯誤？_？
Label1.Caption = rqnt_t.Text
'送出資料
不過我在vb下再run一次這個程式就什麼問題都沒有發生~~~
我用netxray這些程式來看，封包確實有送出，
到底這程式是那出了問題？？？？
run-time error 126(編號：8769)
一個vb的問題:run-time error 126
一個vb的問題:run-time error 126
程式碼我放在這 http:\\home.pchome.com.tw\discover\1.zip
這個程式很esay，按下rqnt
就將左邊的資料用udp的方式送到上面指定的ip 和port
這個程式我將他做成exe檔，直接在windows下run都會出現 run-time error 126
我在vb下run，第一次也會出現run-time error 126 ，進去debug ，
vb指著
Private Sub RQNT_Click()
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
'判斷是否要啟動計時器，
Winsock1.RemoteHost = IP.Text
Winsock1.RemotePort = Port.Text
Winsock1.SendData rqnt_t.Text ＜--------------這一行錯誤？_？
Label1.Caption = rqnt_t.Text
'送出資料
不過我在vb下再run一次這個程式就什麼問題都沒有發生~~~
我用netxray這些程式來看，封包確實有送出，
到底這程式是那出了問題？？？？
一個vb的問題:run-time error 126
程式碼我放在這 http:\\home.pchome.com.tw\discover\1.zip
這個程式很esay，按下rqnt
就將左邊的資料用udp的方式送到上面指定的ip 和port
這個程式我將他做成exe檔，直接在windows下run都會出現 run-time error 126
我在vb下run，第一次也會出現run-time error 126 ，進去debug ，
vb指著
Private Sub RQNT_Click()
If Check1.Value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
'判斷是否要啟動計時器，
Winsock1.RemoteHost = IP.Text
Winsock1.RemotePort = Port.Text
Winsock1.SendData rqnt_t.Text ＜--------------這一行錯誤？_？
Label1.Caption = rqnt_t.Text
'送出資料
不過我在vb下再run一次這個程式就什麼問題都沒有發生~~~
我用netxray這些程式來看，封包確實有送出，
到底這程式是那出了問題？？？？
關於DataEnvironment+DataReport的問題(編號：8768)
目前要寫讓使用者輸入日期就可以看營業報表....
選營業日報表後,輸入日期,卻告訴我"引數可能有類型錯誤或超過可接受的定義範圍,或與其他引數衝突",但是如果我單獨執行DataReport1就沒有問題.....
可否請大家幫我看一下錯誤在哪裡呢?
指令內容如下:
Private cn As ADODB.Connection
Private Sub BusinessDateForm_Click()
Dim cmd As ADODB.Command
Dim param As ADODB.Parameter
Dim ret As String
Dim Mysql As String
ret = InputBox("請輸入營業日報表的日期" _
& Chr(13) & "例如:2000/12/25", "營業日報表")
If ret = "" Then
Exit Sub
End If
ret = CStr(ret)
On Error Resume Next
Mysql = "select * from mealchargedata where date1='" & ret & "'"
Set cn = New ADODB.Connection
cn.Open "dsn=wangca;uid=sa"
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = Mysql
Set param = New ADODB.Parameter
Set param = cmd.CreateParameter("prmstart", adDate, adParamInput)
cmd.Parameters.Append param
cmd.Parameters("prmstart").Value = DateValue(ret)
Set rs = New ADODB.Recordset
Set rs = cmd.Execute
Set DataReport1.DataSource = rs
DataReport1.Top = MDIForm1.Top + 3
DataReport1.Left = MDIForm1.Left + 3
DataReport1.Height = 8000
DataReport1.Width = 11600
DataReport1.Show vbModal
End Sub
選營業日報表後,輸入日期,卻告訴我"引數可能有類型錯誤或超過可接受的定義範圍,或與其他引數衝突",但是如果我單獨執行DataReport1就沒有問題.....
可否請大家幫我看一下錯誤在哪裡呢?
指令內容如下:
Private cn As ADODB.Connection
Private Sub BusinessDateForm_Click()
Dim cmd As ADODB.Command
Dim param As ADODB.Parameter
Dim ret As String
Dim Mysql As String
ret = InputBox("請輸入營業日報表的日期" _
& Chr(13) & "例如:2000/12/25", "營業日報表")
If ret = "" Then
Exit Sub
End If
ret = CStr(ret)
On Error Resume Next
Mysql = "select * from mealchargedata where date1='" & ret & "'"
Set cn = New ADODB.Connection
cn.Open "dsn=wangca;uid=sa"
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = Mysql
Set param = New ADODB.Parameter
Set param = cmd.CreateParameter("prmstart", adDate, adParamInput)
cmd.Parameters.Append param
cmd.Parameters("prmstart").Value = DateValue(ret)
Set rs = New ADODB.Recordset
Set rs = cmd.Execute
Set DataReport1.DataSource = rs
DataReport1.Top = MDIForm1.Top + 3
DataReport1.Left = MDIForm1.Left + 3
DataReport1.Height = 8000
DataReport1.Width = 11600
DataReport1.Show vbModal
End Sub
請問如何宣告JPG圖檔(編號：8766)
在王國榮先生的API裡有說到, 宣告一個Bitmap圖檔可以用下列方式
Dim bm as Bitmap
但VB卻告訴我"使用者自訂型態尚未編譯". 很顯然的, 不是我沒有引用
啥項目, 要不就是王先生疏忽了. 可否請各位告訴我呢?
如果可以, 哪我想請問一下, 那要宣告JPEG檔呢? GIF檔呢?
Dim bm as Bitmap
但VB卻告訴我"使用者自訂型態尚未編譯". 很顯然的, 不是我沒有引用
啥項目, 要不就是王先生疏忽了. 可否請各位告訴我呢?
如果可以, 哪我想請問一下, 那要宣告JPEG檔呢? GIF檔呢?
用ODBC連結Visual FoxPro6.0的資料表格在VB表單開啟時,為什麼會(編號：8764)
本人在ODBC設定好Visual FoxPro6.0的資料表格,在VB也可抓到資料表,可是用DATA GRID設定好DATASOURCE後.硬碟就一直RUN,好像在轉換資料,要5分鐘之久,可是FOXPRO的資料表卻祇有20個RECORDS,為什麼會如此之久,要執行VB表單時,也是如此之久是否有錯誤的設定??
請問如何將物件類別註冊呢??(編號：8762)
在使用封箱精靈後，安裝在本身電腦，執行很正常，但拿到另一台電
腦安裝完後，卻出現 "物件類別沒有註冊 尋找CLSID為 XXXX-XXXX-
XXXXX-XXXXXXX" 等字眼，請問該如何處理呢? 謝謝! ^^
腦安裝完後，卻出現 "物件類別沒有註冊 尋找CLSID為 XXXX-XXXX-
XXXXX-XXXXXXX" 等字眼，請問該如何處理呢? 謝謝! ^^
幫幫忙..........(編號：8761)
有誰可以幫我一個忙~~用vb6.0幫我寫程式
題目:
歌唱大賽5位歌者進入總決賽,有10位評審參與評分工作,但每位歌者所獲得的10位評審分數中,要先去掉最高分與最低分再平均才是歌者的得分,試寫一程式記錄10位評審給5位歌者的分數,最後再計算每位歌者的得分...
拜託大家幫忙~~~謝謝!!
請寄:c983@yammail.com
題目:
歌唱大賽5位歌者進入總決賽,有10位評審參與評分工作,但每位歌者所獲得的10位評審分數中,要先去掉最高分與最低分再平均才是歌者的得分,試寫一程式記錄10位評審給5位歌者的分數,最後再計算每位歌者的得分...
拜託大家幫忙~~~謝謝!!
請寄:c983@yammail.com
Report 加 SQL statement(編號：8760)
If I want to use data environment to create a report from database, but the sql statement is depends on the user input (different from each time) , how can i solve this problem?
Thanks you so much
Thanks you so much
現成的轉碼的函數(編號：8759)
小弟常常會自某些資料中擷取特定字串
但這些字串資料可能來自各種內碼的系統
例如 通用碼 或 5550碼
把這些字串放進 textbox看起來是亂碼
實際上這些資料都是正確
不知道網路上的高手
是否有人知道轉碼的寫法
或現成寫好的函數可提供呼叫
轉換這些字串
rogerfly@ms6.hinet.net
但這些字串資料可能來自各種內碼的系統
例如 通用碼 或 5550碼
把這些字串放進 textbox看起來是亂碼
實際上這些資料都是正確
不知道網路上的高手
是否有人知道轉碼的寫法
或現成寫好的函數可提供呼叫
轉換這些字串
rogerfly@ms6.hinet.net
請問何如設定Crystal Report中SubReport的DataFiles?(編號：8758)
在設計時所指定的MDB(需含路徑)，跟在客戶電腦安裝的Path不同時，當使用CrystalReport1.Action=1,會產生找不到資料庫的錯誤，此問題可以用CrystalReport1.DataFiles(0)=Path & FileName來解決，但是對於同一Report中的SubReport就不知如何解決，有勞各位高手指點，謝謝！
已完成設定email寄發卻無法寄出，請幫忙(編號：8751)
我己經將cdonts.newmail元件設定好了
程式如下
Set memmail = New CDONTS.NewMail
memmail.From = "測試報"
memmail.To = "doreen@icode.com.tw"
memmail.subject = "電子報寄送完成"
memmail.BodyFormat = 1
memmail.MailFormat = 0
memmail.Body = "本日電子報已完全寄出！"
memmail.Send
Set memmail = Nothing
但卻無法寄出，一直找不到原因，請求幫助
程式如下
Set memmail = New CDONTS.NewMail
memmail.From = "測試報"
memmail.To = "doreen@icode.com.tw"
memmail.subject = "電子報寄送完成"
memmail.BodyFormat = 1
memmail.MailFormat = 0
memmail.Body = "本日電子報已完全寄出！"
memmail.Send
Set memmail = Nothing
但卻無法寄出，一直找不到原因，請求幫助
高手賜教!如何在Listbox 中的第一項資料預設選取?(編號：8749)
我的Form裏有個ListBox,當Form_Load時如何在Listbox 中的第一項資料預設選取Hight light?
如何將string(4C)轉成byte(4C).....(編號：8746)
有個小問題想向您請較.那就是我讀取一string
例如"4C",而我想將之轉成BYTE資料(4C)我該如何做呢?
敬請賜教,不勝感激
例如"4C",而我想將之轉成BYTE資料(4C)我該如何做呢?
敬請賜教,不勝感激
請問一下~VB6如何使用網路卡做資料傳輸(編號：8745)
請問一下我現在要用VB6做三臺電腦透過網路卡及集線器，做資料的傳輸，請間有什麼方法可以做，WIN NT 4.0提供的DDE可以嗎，如果可以的話，請教一下怎麼做~~~~~~小弟真是無限的感激。
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
DATAREPORT的問題(編號：8744)
我用DataEnvironment輸入Datagrid的資料，然後再利用Datareport印出資料表.
可是問題就是當我在Datagrid輸入資料，資料內容不會立刻反映到Datareport,
而必須重開專案Datagrid的資料內容才會在Datareport出現.
請高手指教，如何使我在Datagrid輸人資料馬上反映到Datareport裡，而不必重專案.
謝謝!
可是問題就是當我在Datagrid輸入資料，資料內容不會立刻反映到Datareport,
而必須重開專案Datagrid的資料內容才會在Datareport出現.
請高手指教，如何使我在Datagrid輸人資料馬上反映到Datareport裡，而不必重專案.
謝謝!
為何使用頁籤設計時,物件不會固定在特定的頁面中?(編號：8743)
想用"頁籤"去設計,多頁功能....
可是在tab0設計好的一些物件(command....),當我移到tab1時它們還是存在?
請問我應該怎麼做,才能讓tab0的物件,不會在tab1中出現?
謝謝!
可是在tab0設計好的一些物件(command....),當我移到tab1時它們還是存在?
請問我應該怎麼做,才能讓tab0的物件,不會在tab1中出現?
謝謝!
點數換成時間(VB版) 可以教我嗎？(編號：8742)
大家好！我想請教一下！
我想請大家懂的人幫我想想這個問題？
如果是 40 就顯示 40分！
如果是 60 就顯示 1小時00分！或顯示 1小時也行！
如果是 100 就顯示 一小時40分！
如果是 68473 顯示...哈哈！不的算，可以教我怎麼用
我想請大家懂的人幫我想想這個問題？
如果是 40 就顯示 40分！
如果是 60 就顯示 1小時00分！或顯示 1小時也行！
如果是 100 就顯示 一小時40分！
如果是 68473 顯示...哈哈！不的算，可以教我怎麼用
如何讓MSChart圖表的圖可以show data(編號：8741)
如何可以使MSChart上面的圖 讓滑鼠經過 或者是點取時可以
show出圖表中資料的數值, 就像是excel裡面的圖表一樣.
目前我是用pointselected的事件來處理 再把值popup出來
但是總覺得怪怪的 有沒有比較好的方式 像excel那樣子的..
以下是我的方法寫出來的例子..
http://mail.ht.net.tw/~qs/chartexample.zip
謝謝!!
show出圖表中資料的數值, 就像是excel裡面的圖表一樣.
目前我是用pointselected的事件來處理 再把值popup出來
但是總覺得怪怪的 有沒有比較好的方式 像excel那樣子的..
以下是我的方法寫出來的例子..
http://mail.ht.net.tw/~qs/chartexample.zip
謝謝!!
如何一個一個連續秀出資料？(編號：8740)
請位各位:
如何像CNN 頻道下方, 秀出
第一列:dow Jones
第二列:nasdaq
第三列:即時新聞
現有網路所見有以bitblt所示範的例子,只能做固定字串或固定長度，無法做到
股票名稱 現價 漲跌(有顏色區分),而且是一個接一個出現。
謝謝！
如何像CNN 頻道下方, 秀出
第一列:dow Jones
第二列:nasdaq
第三列:即時新聞
現有網路所見有以bitblt所示範的例子,只能做固定字串或固定長度，無法做到
股票名稱 現價 漲跌(有顏色區分),而且是一個接一個出現。
謝謝！
設何設定 FTP 的 PASV mode (passive)(編號：8739)
用vb寫了一支傳檔的程式
ftp server 是用 iis5 , 但 port 不是用 21
在網域內使用一切正常
但拿到外地用,且該台電腦是虛凝ip
結果連上之後,都取不到 file list
用一般的 ftp client 也不行
用dos 直接 ftp 過去, 登入之後, 打 ls 就掛了
必需使用有支援 pasv (passive) mode 設定的 ftp client 才可以
看一看那個ftp client 的connect message,
好像就是多傳送了一個 pasv 的 command
但不知這個command真正的名稱是什麼.
幾個問題想請教:
1)為什麼我server的port若設成21,
在外地就不需要設成 pasv mode ,即可連上
2)當 server的port 若設成"不是"21,
為什麼在網域內,不需要設成 pasv mode ,也可連上
3)要傳什麼指令給server,以啟動 pasv mode
ftp server 是用 iis5 , 但 port 不是用 21
在網域內使用一切正常
但拿到外地用,且該台電腦是虛凝ip
結果連上之後,都取不到 file list
用一般的 ftp client 也不行
用dos 直接 ftp 過去, 登入之後, 打 ls 就掛了
必需使用有支援 pasv (passive) mode 設定的 ftp client 才可以
看一看那個ftp client 的connect message,
好像就是多傳送了一個 pasv 的 command
但不知這個command真正的名稱是什麼.
幾個問題想請教:
1)為什麼我server的port若設成21,
在外地就不需要設成 pasv mode ,即可連上
2)當 server的port 若設成"不是"21,
為什麼在網域內,不需要設成 pasv mode ,也可連上
3)要傳什麼指令給server,以啟動 pasv mode
如何顯示open的資料到image中(編號：8737)
請問有誰知道不用loadpicture,而用
dim a() as byte
open "a.jpg" for binary as #1
get #1,,a()
那麼a()如何顯示在image box或picture box 中
dim a() as byte
open "a.jpg" for binary as #1
get #1,,a()
那麼a()如何顯示在image box或picture box 中
如何利用vb出含有pie chart 或 column chart 的 report(編號：8736)
database : sql7.0
vb 內建的report tools 太爛了請問大家有何方法出到上述report.
vb 內建的report tools 太爛了請問大家有何方法出到上述report.
有誰會使用INET控制項，並利用POST的方法將資料送出去(編號：8735)
我要使用post的方法將資料送到ASP程式，但我依MSDN的作法
INET.EXECUTE "HTTP://LOCALHOST/TEST.ASP","POST","USERID=SIMON"，但是我的ASP程式卻沒有收到資料請問為什麼?我的ASP程式是USERID=＜%=REQUEST.FORM("USERID")%＞，當我執行VB程式後，結果傳回資料卻只有USERID=，沒有資料，為什麼??INET如何將資料傳送出去??還是VB尚有什麼控制項，或是什麼方法可將資料走HTTP將送到SERVER端，請各位先進救命，如果可以的話可否提供範例。謝謝！！
INET.EXECUTE "HTTP://LOCALHOST/TEST.ASP","POST","USERID=SIMON"，但是我的ASP程式卻沒有收到資料請問為什麼?我的ASP程式是USERID=＜%=REQUEST.FORM("USERID")%＞，當我執行VB程式後，結果傳回資料卻只有USERID=，沒有資料，為什麼??INET如何將資料傳送出去??還是VB尚有什麼控制項，或是什麼方法可將資料走HTTP將送到SERVER端，請各位先進救命，如果可以的話可否提供範例。謝謝！！
請教一下：如何用網路卡做資料的傳輸(編號：8732)
請間一下我現在要做三臺電腦透過網路卡及集線器，做資料的傳輸，請間
有什麼方法可以做，WIN NT 4.0提供的DDE可以嗎，如果可以的話，請教一下怎麼做~~~~~~小弟真是無限的感激。
有什麼方法可以做，WIN NT 4.0提供的DDE可以嗎，如果可以的話，請教一下怎麼做~~~~~~小弟真是無限的感激。
物件沒法調整？..(編號：8729)
我想寫一個不受螢幕解析度影響的表單調整副程式...
大概如下：
Public Sub Getform(Gfrm As Form) '取得物件相對位置
ReDim ArrayProportions(0 To Gfrm.Controls.Count - 1)
Dim I As Integer
For I = 0 To Gfrm.Controls.Count - 1
If TypeOf Gfrm.Controls(I) Is Timer Then
Else
With ArrayProportions(I)
.WidthProportions=Gfrm.Controls(I).Width/Gfrm.ScaleWidth
.HeightProportions=Gfrm.Controls(I).Height/Gfrm.ScaleHeight
.LeftProportions=Gfrm.Controls(I).Left/Gfrm.ScaleWidth
.TopProportions=Gfrm.Controls(I).Top/Gfrm.ScaleHeight
End With
End If
Next I
End Sub
...........................................................
Public Sub Changform(Sfrm As Form)'改變表單物件大小
Dim I As Integer
For I = 0 To Sfrm.Controls.Count - 1
If TypeOf Sfrm.Controls(I) Is Timer Then
Else
Sfrm.Controls(I).Move_
ArrayProportions(I).LeftProportions * Sfrm.ScaleWidth, _
ArrayProportions(I).TopProportions * Sfrm.ScaleHeight, _
ArrayProportions(I).WidthProportions * Sfrm.ScaleWidth, _
ArrayProportions(I).HeightProportions * Sfrm.ScaleHeight
End If
Next I
End Sub
在其他表單的 Form_Resize()再以
Getform Me
Changform Me
Maxform Me
呼叫執行....可是執行的結果卻出現Height屬性唯讀..沒法改變的訊息（這樣我物件就沒法調整了啊）...拜託各位高手...指點一下...謝謝...^_^
大概如下：
Public Sub Getform(Gfrm As Form) '取得物件相對位置
ReDim ArrayProportions(0 To Gfrm.Controls.Count - 1)
Dim I As Integer
For I = 0 To Gfrm.Controls.Count - 1
If TypeOf Gfrm.Controls(I) Is Timer Then
Else
With ArrayProportions(I)
.WidthProportions=Gfrm.Controls(I).Width/Gfrm.ScaleWidth
.HeightProportions=Gfrm.Controls(I).Height/Gfrm.ScaleHeight
.LeftProportions=Gfrm.Controls(I).Left/Gfrm.ScaleWidth
.TopProportions=Gfrm.Controls(I).Top/Gfrm.ScaleHeight
End With
End If
Next I
End Sub
...........................................................
Public Sub Changform(Sfrm As Form)'改變表單物件大小
Dim I As Integer
For I = 0 To Sfrm.Controls.Count - 1
If TypeOf Sfrm.Controls(I) Is Timer Then
Else
Sfrm.Controls(I).Move_
ArrayProportions(I).LeftProportions * Sfrm.ScaleWidth, _
ArrayProportions(I).TopProportions * Sfrm.ScaleHeight, _
ArrayProportions(I).WidthProportions * Sfrm.ScaleWidth, _
ArrayProportions(I).HeightProportions * Sfrm.ScaleHeight
End If
Next I
End Sub
在其他表單的 Form_Resize()再以
Getform Me
Changform Me
Maxform Me
呼叫執行....可是執行的結果卻出現Height屬性唯讀..沒法改變的訊息（這樣我物件就沒法調整了啊）...拜託各位高手...指點一下...謝謝...^_^
Datagrid的Save問題(編號：8728)
各位高手好：
請教各位,如何把輸入DataGrid的資料內容存起來,然後再把DataGrid的資料刪除，改下次
再輸入不同的資料.也可以再開啟已存起的資料做修改用.
先謝謝各位!
請教各位,如何把輸入DataGrid的資料內容存起來,然後再把DataGrid的資料刪除，改下次
再輸入不同的資料.也可以再開啟已存起的資料做修改用.
先謝謝各位!
請問如何去控制正在執行程式的scroll bar ??(API 問題,有難度)(編號：8725)
各位高手好!!
小弟正在寫一個程式，希望能控制其心它程式的SCROLL BAR(水平、垂直都要)，小弟用去GetWindow取得正在執行的程式的Hwnd,試了SendMessage 這個API想要去讓正在執行的WORD 的V-SCROLL BAR 移動，做去類似Page Down OR Page Up的動做，但是失敗了。於是我試了VB內SendKeys 可以做到這個效果。找了王國榮先生有類似的範例，但只能擯制同一個程式的Text物件的SCROLL。
請問各位高手，可否告訴小弟解決方法?謝謝,感激不盡.
小弟正在寫一個程式，希望能控制其心它程式的SCROLL BAR(水平、垂直都要)，小弟用去GetWindow取得正在執行的程式的Hwnd,試了SendMessage 這個API想要去讓正在執行的WORD 的V-SCROLL BAR 移動，做去類似Page Down OR Page Up的動做，但是失敗了。於是我試了VB內SendKeys 可以做到這個效果。找了王國榮先生有類似的範例，但只能擯制同一個程式的Text物件的SCROLL。
請問各位高手，可否告訴小弟解決方法?謝謝,感激不盡.
有關API：DestroyWindow的問題.....(編號：8724)
想請教一下：
我並未使用MDI製作表單，而是每一個表單都各自獨立，再用程式去控制一些先後順序，在主表單關閉時，我需要將由我程式開啟之Form全數關閉，於是我就使用Destroywindow這個函數，是可以完全關閉，可是結尾會出現一個應用程式錯誤的訊息框。
訊息如下："0x019b02b3"指令參考的"0xb99c99d04"記憶體。該記憶體不能為"written"。請按[確定]終止程式。
其中在雙引號中的數字或文字都有可能改變，written可能為read，不知道這是發生了什麼問題？我又應該如何解決呢？希望各位高手賜教......
我並未使用MDI製作表單，而是每一個表單都各自獨立，再用程式去控制一些先後順序，在主表單關閉時，我需要將由我程式開啟之Form全數關閉，於是我就使用Destroywindow這個函數，是可以完全關閉，可是結尾會出現一個應用程式錯誤的訊息框。
訊息如下："0x019b02b3"指令參考的"0xb99c99d04"記憶體。該記憶體不能為"written"。請按[確定]終止程式。
其中在雙引號中的數字或文字都有可能改變，written可能為read，不知道這是發生了什麼問題？我又應該如何解決呢？希望各位高手賜教......
請問一下封包程式的問題?有點急(編號：8722)
請問我現在必須要寫網路封包傳送與測試的軟體,請教各位,VB可否寫的出PING這樣的程式,如果可以,大概要如何下手,如果不可,解決方式有其他的方式嗎?謝謝,感激不盡.
為啥連續兩次的sck.SendData, 只會傳送第一次?(編號：8720)
各位先進好:
小弟我寫了一個通訊程式, 其中因為程式步驟的原因,
以致我必須將資料分別傳送.
我在第一次傳送資料後, 便讓傳送端做了簡單的的計算(時間極短),
馬上就再傳送計算結果. 但是, 我發現接受端只能收到第一次的資料. 第二次的資料一律收不到. 而且奇的是, 我每40秒作一次這樣的動作, 接受
端就是只能收到第一次的資料. 我想請問各位, 為啥為這樣呢?
EX.
-------
發送端:
-------
timer1.interval=40
public sub timer1_time()
if srvsck.listen(i),state=sckconnected then
sck.listen(i).senddata strData
end if
call CalculateData
if srvsck.listen(i),state=sckconnected then
sck.listen(i).senddata strData
end if
end sub
-----------------
Tell me why, PLEASE.
小弟我寫了一個通訊程式, 其中因為程式步驟的原因,
以致我必須將資料分別傳送.
我在第一次傳送資料後, 便讓傳送端做了簡單的的計算(時間極短),
馬上就再傳送計算結果. 但是, 我發現接受端只能收到第一次的資料. 第二次的資料一律收不到. 而且奇的是, 我每40秒作一次這樣的動作, 接受
端就是只能收到第一次的資料. 我想請問各位, 為啥為這樣呢?
EX.
-------
發送端:
-------
timer1.interval=40
public sub timer1_time()
if srvsck.listen(i),state=sckconnected then
sck.listen(i).senddata strData
end if
call CalculateData
if srvsck.listen(i),state=sckconnected then
sck.listen(i).senddata strData
end if
end sub
-----------------
Tell me why, PLEASE.
問一個設定的問題??????????(編號：8716)
我想請問一下...如果我想要讓程式有鬧鈴的功能...那設定鬧
鈴時間的程式該怎麼寫????我現在是用InputBox來寫..可是我寫出
來只有一個鬧鈴時間..我是要多個的鬧鈴時間..該怎麼辦才好呢???
鈴時間的程式該怎麼寫????我現在是用InputBox來寫..可是我寫出
來只有一個鬧鈴時間..我是要多個的鬧鈴時間..該怎麼辦才好呢???
看了 Microsoft.Net Framework Beta 1 的感想(編號：8712)
這是可以免費下載的部份，花了幾天看一堆文件/說明/範例/WinDes 以後，對於新增的特性大部份都覺得還不錯，很多以前的無解或很麻煩的問題在裡面都有了方便的解法。不過感覺 VB 改得真的還蠻多的，而跟 C# 好像沒什麼差異，我猜想執行效能大概也是差不多吧？這樣的話，我不曉得 VB 與 C# 倒底有什麼實質上的差異？
Dim FSO As New FileSystemObject(編號：8709)
FSO 需引用其他物件嗎
我加上
Dim FSO As New FileSystemObject
程式無法編譯
ERR: 使用者型態尚未定義
我加上
Dim FSO As New FileSystemObject
程式無法編譯
ERR: 使用者型態尚未定義
安裝問題............!(編號：8708)
請問各位先進:
在安裝軟體時會出現以下的訊息
Unable to load file 'c:\program file\Common Files\system\Ole DB\msdaps.dll' to registerit
執行己完成安裝程式會出 Active X 無法執行
請各位先進指教..
ps1.OS.WIN98
2.NT 可以正常執行
在安裝軟體時會出現以下的訊息
Unable to load file 'c:\program file\Common Files\system\Ole DB\msdaps.dll' to registerit
執行己完成安裝程式會出 Active X 無法執行
請各位先進指教..
ps1.OS.WIN98
2.NT 可以正常執行
vb ( com and Inet)的問題，請問有沒有人會??(編號：8707)
我的程式中
inet1.execute "http://localhost/test.asp","post","userid=simon"
但是我的Asp卻沒有收到資料為什麼??
我的ASP是
userid=＜%=request.form("userid")%＞
有人可以告訴我嗎
inet1.execute "http://localhost/test.asp","post","userid=simon"
但是我的Asp卻沒有收到資料為什麼??
我的ASP是
userid=＜%=request.form("userid")%＞
有人可以告訴我嗎
VB DBGrid(編號：8706)
我想係 DBGrid click 某一行時, 係 text box display 出黎
text1.text = DBGrid.SelText
但係有 delay 出現, why?
when i clicked the second item, it display the previous one
how can i solve it?
thanks
text1.text = DBGrid.SelText
但係有 delay 出現, why?
when i clicked the second item, it display the previous one
how can i solve it?
thanks
Connect SQL Server with RDO(編號：8704)
我用RDO寫好程式連上SQL Server，在有安裝SQL Server(Desktop版,且Win98)可連接上，但在Win95卻無法連上，是不是ODBC版本不對，假如是，我應去何處Download
封裝問題(編號：8703)
我常常遇到寫好一個程式包成可Install封包，但安裝之後發生一些問題，在Win9x的作業系統下有些機器可以安裝有些不能，是不是不行的機器沒安裝一些選項，而導致安裝程式找不到支援的檔案
請問 datareport 做群組分頁(編號：8702)
請問:我想用datareport 做群組分頁來套表,但我新增的section
在執行時一直有問題(有二個以上的群組首頁). 我還想請問大家,
不同的群組分頁,可否從同一table生出,或是有何限制!!!
請大家幫幫忙!!!!
在執行時一直有問題(有二個以上的群組首頁). 我還想請問大家,
不同的群組分頁,可否從同一table生出,或是有何限制!!!
請大家幫幫忙!!!!
尋找的問題(編號：8701)
我有一個尋找的程式(使用 Select * from..... where...)但是我想做成同一欄位可重複尋找，例如我想找 課程資料=90 和 課程資料＞60 的資料，是否可下 ...where 課程資料=90 or ＞60 ????
sorry 有遺漏!! 續上一封 crystal report 8 的問題(編號：8698)
請問善心人士們..我們如何在crystal report 8 多行列印下--去控制每一行的筆數????感謝你
請教快速排序法(編號：8696)
這是在書上所看到的...
1 Sub quicksort(list() As Long, ByVal left As Integer, Bybal Right As Integer)
2 Dim i, j As Integer, pivot As Integer
3 If left ＜ right then
4 i = left : j=right + 1
5 pivot = list(left)
6 Do
7 Do
8 i=i+1
9 Loop While(list(i) ＜ pivot)
10 Do
11 j = j + 1
12 Loop While(List(j) ＜ Pivot
13 If (i ＜ j) Then
14 swap(list(),i ,j)
15 End If
16 Loop While (i ＜ j)
17 swap(list(), left , j)
18 quicksort(list(),left , j-1)
19 quicksort(list(),j+1 , right)
20 End If
21 End Sub
Sub swap(list() As Long, ByVal a, Byval b)
Dim temp As Long
temp = list(a)
list(a) = list(b)
list(b)= temp
End Sub
請問在第4行的地方 i = left : j = right +1,那個:是做什麼用的ㄚ,,?而他怎麼可以在一行中下兩個指令呢.!?.
還有請問他傳入的left 和 right參數是否為LBound(list)與RBound(list)呢..!?如果是的話.那在第12行的While條件式中的list(j)不就會出問題了嗎?..另外第11行的j=j+1是否要改成j=j-1呢..!?
謝謝
1 Sub quicksort(list() As Long, ByVal left As Integer, Bybal Right As Integer)
2 Dim i, j As Integer, pivot As Integer
3 If left ＜ right then
4 i = left : j=right + 1
5 pivot = list(left)
6 Do
7 Do
8 i=i+1
9 Loop While(list(i) ＜ pivot)
10 Do
11 j = j + 1
12 Loop While(List(j) ＜ Pivot
13 If (i ＜ j) Then
14 swap(list(),i ,j)
15 End If
16 Loop While (i ＜ j)
17 swap(list(), left , j)
18 quicksort(list(),left , j-1)
19 quicksort(list(),j+1 , right)
20 End If
21 End Sub
Sub swap(list() As Long, ByVal a, Byval b)
Dim temp As Long
temp = list(a)
list(a) = list(b)
list(b)= temp
End Sub
請問在第4行的地方 i = left : j = right +1,那個:是做什麼用的ㄚ,,?而他怎麼可以在一行中下兩個指令呢.!?.
還有請問他傳入的left 和 right參數是否為LBound(list)與RBound(list)呢..!?如果是的話.那在第12行的While條件式中的list(j)不就會出問題了嗎?..另外第11行的j=j+1是否要改成j=j-1呢..!?
謝謝
網頁上的Crystal Reports Smart Viewers的列印問題(編號：8695)
請問,
在網頁上使用Crystal Reports Smart Viewers
它有提供列印嗎?
若有,請告訴我如叫出此功能.
(我指的不是browser上的列印)
先謝謝各位的幫忙
在網頁上使用Crystal Reports Smart Viewers
它有提供列印嗎?
若有,請告訴我如叫出此功能.
(我指的不是browser上的列印)
先謝謝各位的幫忙
真ㄉ沒有人會這個問題嗎?(編號：8693)
我的程式中,控制到3 台印表機...
但...印來印去,怎會跑出 spool32 這個呢?
於是我在c:\windows\system 中找到spool32.exe
但這要做什麼?
而出現error 的spool32 中有出現 GDI.DLL 和 暫存器相衝...
於是我找 win api ....
找到了...一些相關ㄉapi 但
該如何去排解這常出現 spool32 的問題
但...印來印去,怎會跑出 spool32 這個呢?
於是我在c:\windows\system 中找到spool32.exe
但這要做什麼?
而出現error 的spool32 中有出現 GDI.DLL 和 暫存器相衝...
於是我找 win api ....
找到了...一些相關ㄉapi 但
該如何去排解這常出現 spool32 的問題
VB 程式設計師快速進行軟體測試與維護的利器。(編號：8692)
創執記錄器
它可以協助您在測試VB專案時；能輕鬆的為您找出
那些程式碼片段尚未被測試過。更可以協助您在維
護VB專案時；藉由分析每一列程式碼的執行時間，
輕易的找出執行績效不佳的程式碼片段。讓您進行
執行績效調整更輕鬆。
http://www.infotool.com.tw/
它可以協助您在測試VB專案時；能輕鬆的為您找出
那些程式碼片段尚未被測試過。更可以協助您在維
護VB專案時；藉由分析每一列程式碼的執行時間，
輕易的找出執行績效不佳的程式碼片段。讓您進行
執行績效調整更輕鬆。
http://www.infotool.com.tw/
VB的引號問題(編號：8691)
請問VB要如何顯示單引號('),或雙引號(")
例:在Lable1中想顯示It's Book
VB語法寫成
Label1.Caption = "It's Book"
VB會將單引號(')之號的字當作是註解的文字
例:在Lable2中想顯示2"3
VB語法寫成
Label2.Caption = "2"3"
VB則會出現錯誤訊息
請問我該如何解決此問題?
例:在Lable1中想顯示It's Book
VB語法寫成
Label1.Caption = "It's Book"
VB會將單引號(')之號的字當作是註解的文字
例:在Lable2中想顯示2"3
VB語法寫成
Label2.Caption = "2"3"
VB則會出現錯誤訊息
請問我該如何解決此問題?
ASP,SQL,DELPHI,CrystalReoport 交流區(編號：8690)
ASP,SQL,DELPHI,CrystalReoport 交流區
http://211.72.38.50/null
http://211.72.38.50/null
讀寫INI檔的問題(編號：8688)
我是使用VB6來寫程式的,但當我打算用API讀寫*.INI檔時發現了以下問題
1. 存放要讀入或要寫入資料的String變數都得先行宣告固定長度
2. 存放資料長度的nSize引數亦得先行設定
又,宣告固定長度的String變數時也只能設定常數為其長度,當遇到所要讀或寫入*.INI檔的資料長度不一定時那該怎麼做哩?
是我錯了嗎?還是MICROSOFT搞出來的蟲子????
1. 存放要讀入或要寫入資料的String變數都得先行宣告固定長度
2. 存放資料長度的nSize引數亦得先行設定
又,宣告固定長度的String變數時也只能設定常數為其長度,當遇到所要讀或寫入*.INI檔的資料長度不一定時那該怎麼做哩?
是我錯了嗎?還是MICROSOFT搞出來的蟲子????
安裝SP4時缺少檔案(編號：8687)
我在安裝SP4時缺少下列檔案請問有人願意寄給我嗎?
\VBSP4\WIN32DDCONV.EXE
DDUPD.EXE
SS.EXE
SSUS.DLL
SSSCC.DLL
SSAPI.DLL
SSGUI.DLL
ANALYZE.EXE
SSARC.EXE
SSRESTOR.EXE
\VBSP4\WIN32DDCONV.EXE
DDUPD.EXE
SS.EXE
SSUS.DLL
SSSCC.DLL
SSAPI.DLL
SSGUI.DLL
ANALYZE.EXE
SSARC.EXE
SSRESTOR.EXE
要如何在rdsxxxxx_onreadystatechange裡正確的判斷紀錄已經全讀(編號：8686)
我用rds物件寫遠端存取web資料庫. 但我要如何在rdsxxxx_onreadystatechange事件裡正確的判斷資料已經
全部讀完了呢? 可否請回信者回到我的信箱? 感激不盡!!
全部讀完了呢? 可否請回信者回到我的信箱? 感激不盡!!
真的不會(編號：8684)
我建了個從image1陣列,是從0~17的,用來當做遊戲的子彈
imgSpirit是代表飛機,以下是部分程式碼........
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeySpace
isdown = True
isfire = True
If isfire = True Then start = imgSpirit.Left + imgSpirit.Width / 2
n = n + 1
End Select
End Sub
===========================================================
Private Sub tmrAni_Timer()
If isdown = True Then '是否按了發射飛彈事件
If isfire = True Then
Image1.Item(n).Move start, imgSpirit.Top
Image1.Item(n).Visible = True
isfire = False
End If
isdown = False
End If
Image1.Item(n).Top = Image1.Item(n).Top - 2
End Sub
請問該要加些什麼程式碼,才能使之前每個發射出去的飛彈都能
持續前進,多謝
imgSpirit是代表飛機,以下是部分程式碼........
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeySpace
isdown = True
isfire = True
If isfire = True Then start = imgSpirit.Left + imgSpirit.Width / 2
n = n + 1
End Select
End Sub
===========================================================
Private Sub tmrAni_Timer()
If isdown = True Then '是否按了發射飛彈事件
If isfire = True Then
Image1.Item(n).Move start, imgSpirit.Top
Image1.Item(n).Visible = True
isfire = False
End If
isdown = False
End If
Image1.Item(n).Top = Image1.Item(n).Top - 2
End Sub
請問該要加些什麼程式碼,才能使之前每個發射出去的飛彈都能
持續前進,多謝
請問個位大大??要如何用VB輸入到IE 瀏覽器上的文字輸入匡上(編號：8682)
請問個位大大??......要如何在VBTextbox......輸入一些文字
....在按下一個command 時可以輸入到IE 瀏覽器上的文字輸入匡上
....在按下一個command 時可以輸入到IE 瀏覽器上的文字輸入匡上
程式有問題了!!!!(編號：8681)
我寫了一個時間的程式....
因為我要轉換各國時間..假設時差為10小時..我就用hour+10..
這樣是可以轉換沒錯..但是如果時間為18時轉換後就會變成28時了
有什麼辦法可以使轉換正常呢??如18時轉後會變成4時..請知道的人
告知謝謝..
因為我要轉換各國時間..假設時差為10小時..我就用hour+10..
這樣是可以轉換沒錯..但是如果時間為18時轉換後就會變成28時了
有什麼辦法可以使轉換正常呢??如18時轉後會變成4時..請知道的人
告知謝謝..
Picture Box 和RGB(編號：8679)
請問各位..如果我有一張彩色的圖
我想拆成3張 紅 綠 藍 色彩的圖(就是實際印出來,印在投影片上三張重疊會原色重現,暫時不考慮光線衰減的問題..)
要怎麼做呢 ?..
by Peter ^_^
我想拆成3張 紅 綠 藍 色彩的圖(就是實際印出來,印在投影片上三張重疊會原色重現,暫時不考慮光線衰減的問題..)
要怎麼做呢 ?..
by Peter ^_^
怎樣才能讓ListView物件的捲軸自動的往下跑(編號：8677)
是了,,,vb 的那個listview物件.怎樣才能讓他自動的一直往下,明白我的意識嗎,就是說listview的資料已超過,就像你現在的「記事本」的文書盒那兒一直按enter那他右邊的捲軸是不是一直往下.....就是那個啦.如果是文書盒則
Text1.SelStart = Len(Text1.Text) + 1 對不對
可能ListView怎麼辦.....
Text1.SelStart = Len(Text1.Text) + 1 對不對
可能ListView怎麼辦.....
關於拖曳的問題(編號：8674)
1.將圖片拖曳至右邊由標籤控制項設計之方塊內
2.當圖片被拖曳時,只要碰到方塊周邊,即可鬆開滑鼠鍵,而使圖片放置於方塊內
3.若未放置成功,則圖片自動返回啟始位置
這程式該如何設計請指教!
2.當圖片被拖曳時,只要碰到方塊周邊,即可鬆開滑鼠鍵,而使圖片放置於方塊內
3.若未放置成功,則圖片自動返回啟始位置
這程式該如何設計請指教!
「下拉式表單」和一個「按鍵」作搜尋的動作…特急~(編號：8672)
請問，怎麼用「下拉式表單」和一個「按鍵」作搜尋的動作…
這是我要用來做「資料庫」的，用的來源是SQL…
我的下接式表單有幾個類目，目的是要把在表單中相同類目的人列出來，
例如：在下拉表單中有「O A B AB」這四種血型，選好再按「搜尋」，就在下面的DataGril中把他們列出來…
請問這要怎麼做…很難嗎??請救救我~~!!!
這是我要用來做「資料庫」的，用的來源是SQL…
我的下接式表單有幾個類目，目的是要把在表單中相同類目的人列出來，
例如：在下拉表單中有「O A B AB」這四種血型，選好再按「搜尋」，就在下面的DataGril中把他們列出來…
請問這要怎麼做…很難嗎??請救救我~~!!!
ADO 3265 QUERY?(編號：8667)
DIM RS AS NEW ADODB.RECORDSET
DIM CN AS NEW ADODB.CONNECTION
CN.OPEN ....
rs.CursorLocation = adUseClient
rs.Open Str1,Cn,adOpenStatic,adLockBatchOptimistic, adCmdText
執行至
RS.FIND "AA = 'CC'"
就出現
3265
Item cannot be found in the collection corresponding to the requested name or ordinal
不知如何解決?
DIM CN AS NEW ADODB.CONNECTION
CN.OPEN ....
rs.CursorLocation = adUseClient
rs.Open Str1,Cn,adOpenStatic,adLockBatchOptimistic, adCmdText
執行至
RS.FIND "AA = 'CC'"
就出現
3265
Item cannot be found in the collection corresponding to the requested name or ordinal
不知如何解決?
有人在用[大關] keypro 嗎? for VB(編號：8666)
你們是怎樣的寫法呢?
為什麼我的keypro 和一些主機板的LPT 很不相容呢?
可以post keypro 程式用vb 給我嗎?
謝謝~
為什麼我的keypro 和一些主機板的LPT 很不相容呢?
可以post keypro 程式用vb 給我嗎?
謝謝~
Winsock VS BBS(編號：8663)
我現在在模擬一個telnet程式
但是login完之後到了主選單,就無法讓游標(●)做上下的移動
(A)nnounce 【 精華博物館 】
(B)oards 【 天使塗鴉版 】
●(C)lass 【 隨便亂畫區 】
(T)alk 【 電力生產廠房 】
(U)ser 【 境內證照中心 】
(X)yz 【 資訊中心大樓 】
(G)oodbye 乘雲歸去，下次再見
我試過直接傳送Up鍵的keycode到遠端伺服器...卻失敗了,游標一動也不動 (Winsock.SendData vbKeyUp)
各位高手,能否不吝賜教... 為小弟指點迷津吧,非常謝謝您 ^_^
但是login完之後到了主選單,就無法讓游標(●)做上下的移動
(A)nnounce 【 精華博物館 】
(B)oards 【 天使塗鴉版 】
●(C)lass 【 隨便亂畫區 】
(T)alk 【 電力生產廠房 】
(U)ser 【 境內證照中心 】
(X)yz 【 資訊中心大樓 】
(G)oodbye 乘雲歸去，下次再見
我試過直接傳送Up鍵的keycode到遠端伺服器...卻失敗了,游標一動也不動 (Winsock.SendData vbKeyUp)
各位高手,能否不吝賜教... 為小弟指點迷津吧,非常謝謝您 ^_^
有更簡潔的方式嗎？(編號：8661)
我有個小問題...VB在程式碼裡改變物件的屬性時...如果物件數量很多的話...有比較"簡潔"的方式嗎（如用陣列、迴圈的方式等）？下面是我其中的一段程式碼（真的是又臭又長...很難過說）...
Case "bulk"
Frame1.Enabled = True
Label2.Enabled = True
Label4.Enabled = True
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
Label14.Enabled = True
Label02.Enabled = True
Label01.Enabled = True
Label13.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Case "tanker"
Frame2.Enabled = True
Label3.Enabled = True
Label5.Enabled = True
Option4.Enabled = True
Option5.Enabled = True
Option6.Enabled = True
Label18.Enabled = True
Label16.Enabled = True
Label46.Enabled = True
Label17.Enabled = True
Combo3.Enabled = True
Combo4.Enabled = True
Case "rocargo"
Frame13.Enabled = True
Label30.Enabled = True
Label10.Enabled = True
Option19.Enabled = True
Option20.Enabled = True
Option21.Enabled = True
Label29.Enabled = True
Label27.Enabled = True
Label28.Enabled = True
Label15.Enabled = True
Combo13.Enabled = True
Combo14.Enabled = True
Case "bulk"
Frame1.Enabled = True
Label2.Enabled = True
Label4.Enabled = True
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
Label14.Enabled = True
Label02.Enabled = True
Label01.Enabled = True
Label13.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Case "tanker"
Frame2.Enabled = True
Label3.Enabled = True
Label5.Enabled = True
Option4.Enabled = True
Option5.Enabled = True
Option6.Enabled = True
Label18.Enabled = True
Label16.Enabled = True
Label46.Enabled = True
Label17.Enabled = True
Combo3.Enabled = True
Combo4.Enabled = True
Case "rocargo"
Frame13.Enabled = True
Label30.Enabled = True
Label10.Enabled = True
Option19.Enabled = True
Option20.Enabled = True
Option21.Enabled = True
Label29.Enabled = True
Label27.Enabled = True
Label28.Enabled = True
Label15.Enabled = True
Combo13.Enabled = True
Combo14.Enabled = True
VB 可以做一個像 DOS 時代的虛擬磁碟機嗎 or ....(編號：8660)
如題.....
因我在程式中有固定存取一個大檔案(約100~200MB),而儲存速度非常重要,一定要有檔案名稱,所以只能想到 DOS 時代的虛擬磁碟機,或是還有其他的方法??
因我在程式中有固定存取一個大檔案(約100~200MB),而儲存速度非常重要,一定要有檔案名稱,所以只能想到 DOS 時代的虛擬磁碟機,或是還有其他的方法??
如何用vb繪製公司許多非a4大小之表格文件報表(編號：8659)
請問站長,對於vb要繪製公司許多非a4大小之表格文件報表(類似word文件),除了data report 之外,通常會用何方式逹成,煩請先進們指導,謝謝!
請幫我檢查一下(編號：8658)
A = Text1.Text
B = Text2.Text
C = Text3.Text
x = B ^ 2 - 4 * A * C
If x ＜ 0 Then
Text4.Text = 虛根
Else
If x = 0 Then
Text4.Text = -B / (2 * A)
Else
If x ＞ 0 Then
Text4.Text = (-B + Sqr(x)) / (2 * A)
Text5.Text = (-B - Sqr(x)) / (2 * A)
End If
End If
End If
B = Text2.Text
C = Text3.Text
x = B ^ 2 - 4 * A * C
If x ＜ 0 Then
Text4.Text = 虛根
Else
If x = 0 Then
Text4.Text = -B / (2 * A)
Else
If x ＞ 0 Then
Text4.Text = (-B + Sqr(x)) / (2 * A)
Text5.Text = (-B - Sqr(x)) / (2 * A)
End If
End If
End If
如何將sql資料庫燒錄在光碟裡,讓程式在光碟片執行時沒有錯(編號：8657)
今天,我有請我們班上同學幫忙,他是說利用sql資料庫裡的backup功能,但backup成功後,卻不知如何restore,請問如何解決或有更好的方式能將sql資料庫燒錄在光碟裡,另外再請問一個問題,sql是絕對路徑還是相對路徑。
將visual basic的程式封裝完成後,執行安裝會出現問題？(編號：8655)
我們學校要求製作專題完後，最後要將程式燒錄在光碟上，所以我們將visual basic的程式藉由vb所提供的封裝暨部署精靈這個功能進行封裝，封裝完成後，執行setup的過程中，會出現如下的問題，請問該如何解決？
c:\WinNt\System32\ESPSRV.DLL
目的檔案正被使用中，請確定其他的應用程式已經關閉
安裝程式允許我們略過這個部分，但若不解決此問題，對於將來我們要進行安裝的時候，實在是一大困擾。另外，執行安裝時，我有將底下工具列的sql，按右鍵選擇exit後，進行安裝，但還是會有這樣的問題發生。
c:\WinNt\System32\ESPSRV.DLL
目的檔案正被使用中，請確定其他的應用程式已經關閉
安裝程式允許我們略過這個部分，但若不解決此問題，對於將來我們要進行安裝的時候，實在是一大困擾。另外，執行安裝時，我有將底下工具列的sql，按右鍵選擇exit後，進行安裝，但還是會有這樣的問題發生。
封裝程式(編號：8651)
不好意思~~ 再問一下老掉牙的問題：
可否介紹一下比較好用的封裝軟體，可用來封裝 VB 的程式的
我之前是用 Setup Factory 5005
可是 SF5 本身無法正確支援中文變數，so...
麻煩各為了, 謝謝!!
可否介紹一下比較好用的封裝軟體，可用來封裝 VB 的程式的
我之前是用 Setup Factory 5005
可是 SF5 本身無法正確支援中文變數，so...
麻煩各為了, 謝謝!!
有關在vb6.0上掛MideaPlayer的問題(編號：8650)
我在程式中掛上一個mp3的音樂，但是很奇怪，這個專案只有我先開檔案總管，找到我存的目錄，再開，執行時才有聲音，要不然直接在vb裡開舊檔，執行時就沒聲音了，請問這是為什麼呢??
我用的是SQL，但這有關係嗎??
我用的是SQL，但這有關係嗎??
高手賜教!Vb6 及Clarion database的問題?(編號：8643)
請問有無人識得用Clarion 的Database?
1.如何用Vb6存取Clarion Database?
2.那裏有Clarion download 或購買?
3.有無書籍介紹?
1.如何用Vb6存取Clarion Database?
2.那裏有Clarion download 或購買?
3.有無書籍介紹?
vb6(sp4)中文版寫的程式拿到 NT4(sp4)上會要裝 dll 可以不要嗎?(編號：8642)
vb6(sp4)中文版寫的程式拿到 NT4(sp4)上,會出現msstdfmt.dll未註冊,把msstdfmt.dll檔案copy過去也不行,但是機器是上線的東西不能亂裝,我想問 1.這個dll是做什麼 2.我可以改哪一部份的程式讓他不用的這個dll 3.要如何註冊這個dll 謝謝
ShFileOperation of Shell32.dll(編號：8640)
使用shfileoperation 函數
但執行後出現Dll 進入點無法在 Shell32.dll 中找到
怎麼回事?
請各位高手解答
謝謝
但執行後出現Dll 進入點無法在 Shell32.dll 中找到
怎麼回事?
請各位高手解答
謝謝
請問Crystal Report 的問題(編號：8639)
目前遇到Crystal Report的問題,在report 中有定義page header section及page detail和page footer的格式,但當第二頁的資料沒有detail的資料僅有footer的資料,可是第二頁連表頭也印出來了,請問有解決的方案嗎 ?第二頁不要把page header的表頭印出來.
VB 的版本 : VB6
VB 的版本 : VB6
如何用 VB寫出 收email(包含附件)的程式,懇請幫忙,拜託拜託...(編號：8636)
小弟原本用winsock,POP3的指令格式寫此收email的程式,
但卻不能收附件,不知還有其他的方法可用嗎?
請幫幫忙,謝謝!!
但卻不能收附件,不知還有其他的方法可用嗎?
請幫幫忙,謝謝!!
一個vb的問題......(急)(編號：8633)
問題如下:
通常我們要使用物件,就直接把物件拉到工作區,但我現在想請問有沒有不把物件拉進來,用宣告的方式來宣告那個物件..
舉例來說:
我要使用Inet物件,則我把inet物件拉到Form則inet的所有屬性我都可以用。
但我現在若不把inet物件拉到Form
在程式寫Public inet1 as Inet
則執行時會出現"沒有宣告變數和with區塊變數"
請問該如何解決這個問題....
通常我們要使用物件,就直接把物件拉到工作區,但我現在想請問有沒有不把物件拉進來,用宣告的方式來宣告那個物件..
舉例來說:
我要使用Inet物件,則我把inet物件拉到Form則inet的所有屬性我都可以用。
但我現在若不把inet物件拉到Form
在程式寫Public inet1 as Inet
則執行時會出現"沒有宣告變數和with區塊變數"
請問該如何解決這個問題....
請問command button 是否可以設定快速鍵如:F1, F2.....等按鍵,da(編號：8632)
請問1.command button 是否可以設定快速鍵如:F1, F2.....等按鍵.data report 版面是否可以變更為B4 ,或B5之大小
關於檔案的讀取(編號：8631)
我想把自己最後 16384byte 的資料存入 888.txt 不知道這樣做是否有錯
Option Explicit
Const SelfSize = 16384
Const MySize = 20480
Dim Buff() As Byte
Private Sub Command1_Click()
Open "c:\888.txt" For Binary As #8 '寫入 自己最後 16384 個byte
Seek #8, SelfSize + 1
Put #8, , Buff
Close #8
End Sub
Private Sub Form_Load()
Open App.Path + "\" + App.EXEName + ".exe" For Binary As #77 '打開自己讀取最後 16384 個byte
ReDim Buff(SelfSize - 1)
Seek #77, MySize + 1
Get #77, , Buff
Close #77
End Sub
Option Explicit
Const SelfSize = 16384
Const MySize = 20480
Dim Buff() As Byte
Private Sub Command1_Click()
Open "c:\888.txt" For Binary As #8 '寫入 自己最後 16384 個byte
Seek #8, SelfSize + 1
Put #8, , Buff
Close #8
End Sub
Private Sub Form_Load()
Open App.Path + "\" + App.EXEName + ".exe" For Binary As #77 '打開自己讀取最後 16384 個byte
ReDim Buff(SelfSize - 1)
Seek #77, MySize + 1
Get #77, , Buff
Close #77
End Sub
讀取 MP3 的 id3 tag(編號：8629)
記得以前在 VB討論中心 裡的各個擊破好像有看到相關的文章
但那時我用不到,所以只是看看
現在真的要用了,卻找不到了......
有誰能告訴我是第幾個問題呢??
謝謝啦~
但那時我用不到,所以只是看看
現在真的要用了,卻找不到了......
有誰能告訴我是第幾個問題呢??
謝謝啦~
如何呼叫Windows.hlp [For Win NT 2000](編號：8626)
下列程式碼要呼叫呼叫winnt裡Windows.hlp會產生錯誤
請問各位先進如何 設定有標記●程式碼。謝謝。
Private Sub cmdHelp_Click()
Dim fso As New Scripting.FileSystemObject
Dim lngReturn As Long
Dim strWindowsFolder As String
Dim strSystemFolder As String
Dim strHelpFile As String
Dim strHelpFile_NT4 As String
' For Windows 95,98.
strWindowsFolder = fso.GetSpecialFolder(WindowsFolder)
strHelpFile = strWindowsFolder & "\Help\Windows.hlp"
' For Windows NT, 2000
strSystemFolder = fso.GetSpecialFolder(SystemFolder)
strHelpFile_NT4 = strSystemFolder & "\Windows.hlp"
●lngReturn = WinHelp(Me.hwnd, strHelpFile_NT4, HELP_PARTIALKEY, "ShutDown")
End Sub
請問各位先進如何 設定有標記●程式碼。謝謝。
Private Sub cmdHelp_Click()
Dim fso As New Scripting.FileSystemObject
Dim lngReturn As Long
Dim strWindowsFolder As String
Dim strSystemFolder As String
Dim strHelpFile As String
Dim strHelpFile_NT4 As String
' For Windows 95,98.
strWindowsFolder = fso.GetSpecialFolder(WindowsFolder)
strHelpFile = strWindowsFolder & "\Help\Windows.hlp"
' For Windows NT, 2000
strSystemFolder = fso.GetSpecialFolder(SystemFolder)
strHelpFile_NT4 = strSystemFolder & "\Windows.hlp"
●lngReturn = WinHelp(Me.hwnd, strHelpFile_NT4, HELP_PARTIALKEY, "ShutDown")
End Sub
Inet 元件無法製作 FTP Client application(編號：8623)
我用 Inet 元件製作 FPT 軟體，但在家中自己架設的區域網路，
可以執行也可以Download，但轉移至公司時卻無法連線，公司內
部有 Proxy Server。
可以執行也可以Download，但轉移至公司時卻無法連線，公司內
部有 Proxy Server。
Imgedit存檔問題(編號：8621)
使用Imgedit讀入Tif格式的圖片之後
轉存成Bmp格式
再用Picturebox開啟該bmp檔
卻出現圖片不正確的錯誤訊息
是否是Imgedit.ocx的問題？
轉存成Bmp格式
再用Picturebox開啟該bmp檔
卻出現圖片不正確的錯誤訊息
是否是Imgedit.ocx的問題？
Data Environment 的問題?(編號：8620)
我用DataEnvironment連資料庫,作新增和查詢的功能,用.Addnew 和.Delete 如果用刪除把資料刪光立刻新增會出問題,因為指標停留在-2,而DataEnvironment也找不到Refresh的方法,請問各位有方法可以解決嗎?Thanks!
sorry!再請教一些簡單的問題(編號：8617)
有一些簡單的問題,想請各位高手幫忙:
1.我寫了一支可以scan區域網路內所有電腦名稱和其相對ip的程式,不過是用比較簡單的shell "command.com /c ping -a " &text1 &"＞c:\ip.txt"來寫的,雖然可以用但速度很慢,不知是否有可用的API可用,如何使用?
2.VB內的新增程序中的Property(Public Property Get 程序名稱()和
1.我寫了一支可以scan區域網路內所有電腦名稱和其相對ip的程式,不過是用比較簡單的shell "command.com /c ping -a " &text1 &"＞c:\ip.txt"來寫的,雖然可以用但速度很慢,不知是否有可用的API可用,如何使用?
2.VB內的新增程序中的Property(Public Property Get 程序名稱()和
請問要如何 取得Licence Pack Tool???(編號：8616)
小弟想把OCX掛在網上，但據說要用Licence Pack Tool來制成*.lpk
不知要如何使用以及哪裡可取得....請幫幫忙!謝謝
不知要如何使用以及哪裡可取得....請幫幫忙!謝謝
adodc1.recordset.fields(xxx)...請問xxx如何使用字串變數??(編號：8615)
adodc1.recordset.fields("xxx")...請問xxx如何使用字串變數??
例如:
dim need_help as string
need_help = "求救"
msgbox adodc1.recordset.fields("求救")
!
如何套 need_help -----------------
例如:
dim need_help as string
need_help = "求救"
msgbox adodc1.recordset.fields("求救")
!
如何套 need_help -----------------
請問圖檔中的調色盤是如何使用的?謝謝(編號：8614)
圖檔中的調色盤為此圖檔中所有可能用到的顏色所建的色表, 那是代表圖檔中的每一點的顏色值只要指定是用調色盤中的那一個,就可以了嗎?還是要再次指定顏色值呢?圖檔是如何存的?
如果圖檔中的色表, 和我們螢幕所設的不同, 那會不會造成圖檔顯示錯誤..
假設螢幕的色表為16bits, 那圖檔為8bit(256色)那這樣會不會有問題?
如果圖檔的調色盤和螢幕的一樣, 那圖檔中佔的調色盤空間是否也可以省略不存呢?
問題有點複雜...煩請各位幫幫忙...謝謝!!!
如果圖檔中的色表, 和我們螢幕所設的不同, 那會不會造成圖檔顯示錯誤..
假設螢幕的色表為16bits, 那圖檔為8bit(256色)那這樣會不會有問題?
如果圖檔的調色盤和螢幕的一樣, 那圖檔中佔的調色盤空間是否也可以省略不存呢?
問題有點複雜...煩請各位幫幫忙...謝謝!!!
如何用winsock寫一個寄信程式給notes mail server(編號：8613)
我寫好一個寄信程式...它可以在一般的微軟的作業系統中執行也可以寄到一寫網站上...但是我一值無法連上notes 的mail server 不知識啥問題。。 是notes mail server 的問題..還是可以更改程式解決呢..麻煩大家一下 謝謝
MDIForm如何放置控制項???(編號：8612)
請問：MDIForm裡如何加入一些控制向如CommandButton??
我的方法是用子表單，先再子表單上放一些Button，再從MDIForm上呼叫該子表單。不過，此方法卻有一個問題：當我的MDIForm有MENU時，且MENU又有 "具視窗清單(W)" 時，會SHOW出子表單的Caption...請問，還有什麼方法可解決嗎？或是有什麼方法能不SHOW出子表單的Caption??
謝謝
我的方法是用子表單，先再子表單上放一些Button，再從MDIForm上呼叫該子表單。不過，此方法卻有一個問題：當我的MDIForm有MENU時，且MENU又有 "具視窗清單(W)" 時，會SHOW出子表單的Caption...請問，還有什麼方法可解決嗎？或是有什麼方法能不SHOW出子表單的Caption??
謝謝
急件!!!(編號：8611)
請問各位一下，如何寫出像程式集裡的那個"中文輸入法"~~但我想知道的是英文輸入法，其於功能都差不多，只是把中文改成英文!!!
拜託各位 ~~ ＞＜ ~~
我的期末專題一直沒有頭緒去著手進行，希望大家能救救我 @@
耶誕節過後就要交了~~~各位幫幫我吧
拜託各位 ~~ ＞＜ ~~
我的期末專題一直沒有頭緒去著手進行，希望大家能救救我 @@
耶誕節過後就要交了~~~各位幫幫我吧
關於Crystal Report 8 Chart的問題?(編號：8609)
以下有兩個問題,請問各位高手:
1.有關於Chart的legend,若需成修改成自己定義的內容,7.0版可選擇
Custom Chart 選項自己定義,但8.0無此選項,該如何修改?
2.個人做好之Chart於有安裝8.0版之Crystal Report設計之軟體PC,
執行皆正常,但若安裝於其它無安裝Crystal Report 8之軟體PC
則會出現當機畫面,內容大致如下,craxdrt.dll ...invalid page
fault...Why ? 是不是有見那些必備的元件未齊全?
PS.本人使用VB6.0 sp3 封裝程式封裝,且安裝正常,report Viewer
顯示正常,唯顯示Chart就會當機(於未安裝Crystal Report 8 pc),
測試的每部PC OS 皆為Win98 SE ,Ram 128mb
1.有關於Chart的legend,若需成修改成自己定義的內容,7.0版可選擇
Custom Chart 選項自己定義,但8.0無此選項,該如何修改?
2.個人做好之Chart於有安裝8.0版之Crystal Report設計之軟體PC,
執行皆正常,但若安裝於其它無安裝Crystal Report 8之軟體PC
則會出現當機畫面,內容大致如下,craxdrt.dll ...invalid page
fault...Why ? 是不是有見那些必備的元件未齊全?
PS.本人使用VB6.0 sp3 封裝程式封裝,且安裝正常,report Viewer
顯示正常,唯顯示Chart就會當機(於未安裝Crystal Report 8 pc),
測試的每部PC OS 皆為Win98 SE ,Ram 128mb
求救,一個抓動態網頁資料的問題???(編號：8608)
各位高手你們好,小弟我有一個問題想請教你們???
如何利用VB開發一個抓取動態網頁資料的Active DLL物件,
舉例來說:
set x=server.createobject(物件名.物件名)
x.urlpath="http://railpay.hinet.net/order/order_no1.asp?from_station=台北&to_station=高雄........"
'這是一個台鐵訂票系統的asp位址
result=x.out
^^^^^^
我希望result(x.out)的結果是把"http://railpay.hinet.net/order/order_no1.asp?from...."送出後
,所傳回來的資料,如:
＜html＞
....
訂票錯誤......
....
＜/html＞
我這樣敘述不知各位高手是否了解了,
若了解了,可否提供解決之道????
(亦或介紹製作ASP的Active DLL物件較好的網站...thx)
如何利用VB開發一個抓取動態網頁資料的Active DLL物件,
舉例來說:
set x=server.createobject(物件名.物件名)
x.urlpath="http://railpay.hinet.net/order/order_no1.asp?from_station=台北&to_station=高雄........"
'這是一個台鐵訂票系統的asp位址
result=x.out
^^^^^^
我希望result(x.out)的結果是把"http://railpay.hinet.net/order/order_no1.asp?from...."送出後
,所傳回來的資料,如:
＜html＞
....
訂票錯誤......
....
＜/html＞
我這樣敘述不知各位高手是否了解了,
若了解了,可否提供解決之道????
(亦或介紹製作ASP的Active DLL物件較好的網站...thx)
How can I use VB call VC ? Have any idea or sample.(編號：8607)
I use VB 6.0 and I like to send some parameter to VC ++6.0. How can I do . Thank!
like要如何使用(謝謝你)(編號：8606)
我這邊有一程式要做部份搜尋的功能，此程式已寫成會自動產生亂數姓名，在此程式設計一個Inputbox讓使用者輸入姓名來做搜尋，而現在此程式必須要輸入完整的姓名，才能搜尋到所輸入的姓名，那要如何在能作出部份的功能?部份程式碼如下：Private Sub Command2_Click()
Dim X As String
Dim I, J As Integer
X = InputBox("Input a name")
J = -1
For I = 1 To 15
If myname(I) = X Then
J = I
GoTo show
End If
Next I
show:
Picture1.Cls
If J ＞ 0 Then
Picture1.Print J, myname(J), myscore(J)
Else
Picture1.Print "沒有這個人--＞" & X
End If
End Sub
Dim X As String
Dim I, J As Integer
X = InputBox("Input a name")
J = -1
For I = 1 To 15
If myname(I) = X Then
J = I
GoTo show
End If
Next I
show:
Picture1.Cls
If J ＞ 0 Then
Picture1.Print J, myname(J), myscore(J)
Else
Picture1.Print "沒有這個人--＞" & X
End If
End Sub
怪事...(編號：8605)
怪事...必出於在下才疏學淺...幫幫忙..
下面的程式刪除方面有問題：程式一啟動後，馬上刪除一筆資料，指標居然向後退兩次！？也就是說，程式一啟動後，啥麼都不要動，馬上刪除一筆資料，然後按下前一筆，居然有資料！奇怪了...只有一啟動後馬上刪除會這個樣子耶...
前輩們告訴我為啥麼好ㄇ...
Option Explicit
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Private Sub add_Click()
rs.AddNew
End Sub
Private Sub cancel_Click()
rs.CancelUpdate
End Sub
Private Sub Command1_Click()
rs.MoveFirst
End Sub
Private Sub Command2_Click()
With rs
.MovePrevious
If .BOF Then .MoveFirst
End With
End Sub
Private Sub Command3_Click()
With rs
.MoveNext
If .EOF Then .MoveLast
End With
End Sub
Private Sub Command4_Click()
rs.MoveLast
End Sub
Private Sub delete_Click()
With rs
.delete
.MoveNext
If .EOF Then .MoveLast
End With
End Sub
Private Sub Exit_Click()
End
End Sub
Private Sub Form_Load()
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WINDOWS\Desktop\db1.mdb;Persist Security Info=False"
cn.Open
rs.Open "tb1", cn, adOpenStatic, adLockOptimistic, adCmdTable
Set Text1.DataSource = rs
Set Text2.DataSource = rs
Text1.DataField = "id"
Text2.DataField = "name"
End Sub
Private Sub save_Click()
rs.Update
End Sub
下面的程式刪除方面有問題：程式一啟動後，馬上刪除一筆資料，指標居然向後退兩次！？也就是說，程式一啟動後，啥麼都不要動，馬上刪除一筆資料，然後按下前一筆，居然有資料！奇怪了...只有一啟動後馬上刪除會這個樣子耶...
前輩們告訴我為啥麼好ㄇ...
Option Explicit
Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Private Sub add_Click()
rs.AddNew
End Sub
Private Sub cancel_Click()
rs.CancelUpdate
End Sub
Private Sub Command1_Click()
rs.MoveFirst
End Sub
Private Sub Command2_Click()
With rs
.MovePrevious
If .BOF Then .MoveFirst
End With
End Sub
Private Sub Command3_Click()
With rs
.MoveNext
If .EOF Then .MoveLast
End With
End Sub
Private Sub Command4_Click()
rs.MoveLast
End Sub
Private Sub delete_Click()
With rs
.delete
.MoveNext
If .EOF Then .MoveLast
End With
End Sub
Private Sub Exit_Click()
End
End Sub
Private Sub Form_Load()
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WINDOWS\Desktop\db1.mdb;Persist Security Info=False"
cn.Open
rs.Open "tb1", cn, adOpenStatic, adLockOptimistic, adCmdTable
Set Text1.DataSource = rs
Set Text2.DataSource = rs
Text1.DataField = "id"
Text2.DataField = "name"
End Sub
Private Sub save_Click()
rs.Update
End Sub
小吳近況(編號：8604)
抱歉最近都沒有上來回應文章了。由於工作比較忙，再加上最近一直有人攻擊小弟的防火牆，我的防火牆的設定有些問題無法克服，所以一直無法解決。
我會在最近更換防火牆，希望能讓這個站更加穩定。
小吳最近在做一些 Windows 2000 cluster 及權限設定的程式，看起來很好玩喔! 等告一段落再把心得告訴大家。
我會在最近更換防火牆，希望能讓這個站更加穩定。
小吳最近在做一些 Windows 2000 cluster 及權限設定的程式，看起來很好玩喔! 等告一段落再把心得告訴大家。
************ VC++ Winsock 問題 ?(編號：8603)
請問高手,
VC++ 的 winsock programming
要怎麼偵測 local 的電腦是否已和遠端某主機(如 pop3.kimo.com.tw)
建立聯線 ?
Thanks
chsu@mail.pagic.net
VC++ 的 winsock programming
要怎麼偵測 local 的電腦是否已和遠端某主機(如 pop3.kimo.com.tw)
建立聯線 ?
Thanks
chsu@mail.pagic.net
********** VC++取用不同dialog上元件的方法 ?(編號：8602)
請問高手,
VC++ 某 Dialog 怎麼取用另一 Dialog 上的元件(如 CEdit control) ???
我知道相同 Dialog 可用 GetDlgItem(ID) 得到.
謝謝
chsu@mail.pagic.net
VC++ 某 Dialog 怎麼取用另一 Dialog 上的元件(如 CEdit control) ???
我知道相同 Dialog 可用 GetDlgItem(ID) 得到.
謝謝
chsu@mail.pagic.net
當使用者按下ctrl _ alt _ del....(編號：8600)
當使用者按下 ctrl_alt_del 的時候，win98 會給使用者一個工作管理程式，以便刪除沒有回應的程式！
如果，我想寫一個程式，執行的時候不會出現在這個列表裡可能ㄇ？
也就是說，不希望有使用者故意停止我放在這電腦上執行的程式‧
請多指教！
如果，我想寫一個程式，執行的時候不會出現在這個列表裡可能ㄇ？
也就是說，不希望有使用者故意停止我放在這電腦上執行的程式‧
請多指教！
●[VB6]只知到hDC值,如何取得該圖的 image 物件(編號：8598)
我用 ExtractAssociatedIcon 得到了一個 hIcon 值, 想要加到 ImageList 控制項中
但這個 ImageList.Add 要求我們傳入的是 image 物件
有沒有方法由 hDC 產生 image 物件呢?
or 還有其它方法?
^_^ 謝謝
但這個 ImageList.Add 要求我們傳入的是 image 物件
有沒有方法由 hDC 產生 image 物件呢?
or 還有其它方法?
^_^ 謝謝
Help!!執行AP及註冊ocx(編號：8596)
1.小妹電腦上要註冊vertmenu.ocx, 已把vertmenu.ocxvertmenu.oca放在c:\windows\system下, 但執行redsvr32 vertmenu.ocx時會出現loadlibrary錯誤, 請問要怎麼解決,
2.小妹的一些User執行AP時會出現錯誤5000??, 無法預測的錯誤, 請問各位前輩有哪些原因會造成此error
2.小妹的一些User執行AP時會出現錯誤5000??, 無法預測的錯誤, 請問各位前輩有哪些原因會造成此error
如何動態取消crystal report 的列印按扭?(編號：8594)
小弟目前使用的crystal report版本是7.0版,程式軟體vb6.0企業版sp4,由於系統需要,必須設定使用者是否有列印報表的權限,請問各方前輩,要如何將秀出的報表將其列印功能取消,在vb程式裏要如何設定或是有其他解決的方法,謝謝!
為什麼 Datagrid save 後, 於下次run時會變了picture box?(編號：8592)
為什麼 Datagrid save 後, 於下次run時會變了picture box, 同時所有的code不見了?
寫FAX 傳真的程式(編號：8591)
有沒有人會寫FAX的程式
我寫出來的可以和傳真機連線
但不會送出資料
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 1395
ClientLeft = 60
ClientTop = 345
ClientWidth = 5595
LinkTopic = "Form1"
ScaleHeight = 1395
ScaleWidth = 5595
StartUpPosition = 3 '系統預設值
Begin VB.Frame Frame2
Caption = "Frame2"
Height = 615
Left = 0
TabIndex = 4
Top = 720
Width = 5535
Begin VB.TextBox T
Height = 270
Left = 120
TabIndex = 5
Text = "Text1"
Top = 240
Width = 5295
End
End
Begin VB.Frame Frame1
Caption = "通訊連接埠"
Height = 615
Left = 2040
TabIndex = 2
Top = 0
Width = 1335
Begin VB.ComboBox Combo1
Height = 300
ItemData = "Form1.frx":0000
Left = 120
List = "Form1.frx":000A
TabIndex = 3
Top = 240
Width = 1095
End
End
Begin MSCommLib.MSComm MSComm1
Left = 5040
Top = 120
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
Handshaking = 2
RTSEnable = -1 'True
End
Begin VB.CommandButton Fax
Caption = "開始傳真"
Height = 375
Left = 4200
TabIndex = 1
Top = 120
Width = 855
End
Begin VB.TextBox FaxTel
BeginProperty Font
Name = "新細明體"
Size = 15.75
Charset = 136
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 0
Text = "25115053"
Top = 120
Width = 1815
End
Begin VB.Shape Shape1
FillColor = &H000000C0&
FillStyle = 0 '實心
Height = 375
Left = 3600
Shape = 3 '圓形
Top = 120
Width = 495
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Change()
MSComm1.CommPort = Combo1.Visible + 1
End Sub
Private Sub Fax_Click()
Dim Out(10240) As Byte
Out(0) = &HFF&
For FORS = 1 To 10239
Out(FORS) = 15
Next
Fax.Enabled = False
'MSComm1.Output = "AT" & vbCr
Shape1.FillColor = &HFF00&
'MSComm1.Output = "ATH1" & vbCr
'********************************************************
'&F 載入出廠之配置值
'S0 鈴聲次數進入應答模式 0=關閉
'E0 不要顯示鍵入的指令
'V1 以文字方式顯示結果碼
'Q0 使用結果碼 *AT&FS0=0E0V1Q0
MSComm1.Output = "AT&FS0=0E0V1Q0" & vbCr
DoEvents
T.Text = T.Text & MSComm1.Input
'
MSComm1.Output = "AT" & vbCr
DoEvents
T.Text = T.Text & MSComm1.Input
'I3 顯示晶片組名稱
MSComm1.Output = "ATI3" & vbCr
DoEvents
T.Text = T.Text & MSComm1.Input
'S7 等待遠方載波的時間
'&D3 當DTR 由ON轉OFF則重置數據機
'&K4 開始 XON/XOFF ATS7=255&D3&K4
MSComm1.Output = "ATS7=255&D1" & vbCr
DoEvents
T.Text = T.Text & MSComm1.Input
'X4 偵測有無撥號音
'S8 , 要等待的時間
'M1 撥號時喇叭開著 直到偵測到載波
'L1 音量 3高
MSComm1.Output = "ATX4S8=2M1L3" & vbCr
DoEvents
T.Text = T.Text & MSComm1.Input
'+F
'
MSComm1.Output = "AT+FCLASS=1H1" & vbCr
DoEvents
T.Text = T.Text & MSComm1.Input
'
MSComm1.Output = "ATH" & vbCr
DoEvents
T.Text = T.Text & MSComm1.Input
'******************************************************************
'啟動數據機，並撥電話號碼。
'MSComm1.Output = "ATDT25115053" & vbCr
'MSComm1.Output = "ATDT" & FaxTel.Text & vbCr
'設定為傳真模式 V.29 (9600 BPS FAX)
'MSComm1.Output = "+MS=V29,1,0,0" & vbCr
'DoEvents
'MSComm1.Output = "ATH1" & vbCr
'MSComm1.Output = "AT" & vbCr
'DoEvents
'T.Text = MSComm1.Input
'T.Text = ""
MSComm1.Output = "ATDT 25115053" & vbCrLf
'「AT」指令初始化連接，「D」進行撥號，[T」指定使用音調 (而不是脈衝)。
' 等待資料傳回到序列連接埠
Do
DoEvents
TT$ = MSComm1.Input
Exit Do
Loop Until InStr(TT$, "CONNECT" & vbCrLf) ' 從序列連接埠讀取 "OK" 回應資料
TT$ = ""
Do
DoEvents
TT$ = TT$ & MSComm1.Input
Exit Do
Loop Until InStr(Buffer$, "OK" & vbCrLf) '接通
'If InStr(T.Text, "NO") Then
' MsgBox ("失敗")
' GoTo erring
'End If
'Buffer$ = ""
'輸出到一個終端時必須指定 Return 鍵 (vbCr)。輸出到位元組陣列時，不需要再加一個 Return 字元。
'如果指令被正確處理，傳回的結果碼將是「OK」。檢查結果碼即可確定指令是否被正確處理。
'This entry is in "hex display mode" (see below).
'這個加入是在"16位元展示模示"(看以下)
' Log indicates one byte, 0xff , was read.
' 指示一個字元,0xff,他讀取
'In this case it is the first byte of the
'
' DIS frame from the remote machine.
'在遠方的機械
'傳送位元組陣列資料
MSComm1.Output = TT$ & vbCr
DoEvents
For FORS = 0 To 32000
MSComm1.Output = Out
DoEvents
Next
'
'如前面提到的，每傳送一行都必須以 Return 鍵 (vbCr)結束。
'在上例中，Out 被定義為位元組陣列變數：Dim Out() As Byte。假如它是字串變數，
'則應定義為：Dim Out() As String。
'您可用 OutBufferCount 屬性監看傳送緩衝區中的位元組數目。將該值設定為 0 即可清空傳送緩衝區。
' 等待資料傳回到序列連接埠
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Exit Do
Loop Until InStr(Buffer$, "OK" & vbCrLf) ' 從序列連接埠讀取 "OK" 回應資料
MSComm1.Output = "\r\nOK\r\n" & vbCr
'
MSComm1.Break = True
MSComm1.Output = " AT" & vbCr
T.Text = MSComm1.Input
erring:
'掛斷電話
MSComm1.Output = "ATH0" & vbCr
T.Text = MSComm1.Input
'
MSComm1.Output = "AT" & vbCr
T.Text = MSComm1.Input
Shape1.FillColor = 192
Fax.Enabled = True
End Sub
Private Sub Form_Load()
Combo1.ListIndex = 0
Dim PortValue As Integer
'設定或傳回通訊連接埠的代號，即屬性頁上的「通訊連接埠」。
MSComm1.CommPort = Combo1.ListIndex + 1
'在設計階段，value 可以設定成從 1 到 16 的任何數 (預設值為 1)。
'但是如果用 PortOpen 屬性開啟一個並不存在的連接埠時，
'MSComm 控制項會產生錯誤 68 (裝置無效)。
'警告 必須在開啟連接埠之前，先設定 CommPort 屬性。
'設定或傳回連線速率、同位檢查、資料位元與停止位
'MSComm1.Settings = "9600,N,8,1"
'Settings 屬性可以用來指定傳輸速率、同位檢查、資料位元數和停止位元數。
'按照預設值，傳輸速率將被設定為 9600。同位檢查是用來指定資料是否要進行
'檢查。通常是不需使用，所以設定為「N」。資料位元數指定一個資料區塊的
'位元數。停止位元則是用來指示資料區塊是否已接收完畢。
' 告訴控制項當使用 Input 時，讀取整個暫存區
'MSComm1.InputLen = 0
'設定或傳回通訊埠的狀態 (開啟或關閉)
MSComm1.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
' 關閉序列連接埠
MSComm1.PortOpen = False
End Sub
我寫出來的可以和傳真機連線
但不會送出資料
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 1395
ClientLeft = 60
ClientTop = 345
ClientWidth = 5595
LinkTopic = "Form1"
ScaleHeight = 1395
ScaleWidth = 5595
StartUpPosition = 3 '系統預設值
Begin VB.Frame Frame2
Caption = "Frame2"
Height = 615
Left = 0
TabIndex = 4
Top = 720
Width = 5535
Begin VB.TextBox T
Height = 270
Left = 120
TabIndex = 5
Text = "Text1"
Top = 240
Width = 5295
End
End
Begin VB.Frame Frame1
Caption = "通訊連接埠"
Height = 615
Left = 2040
TabIndex = 2
Top = 0
Width = 1335
Begin VB.ComboBox Combo1
Height = 300
ItemData = "Form1.frx":0000
Left = 120
List = "Form1.frx":000A
TabIndex = 3
Top = 240
Width = 1095
End
End
Begin MSCommLib.MSComm MSComm1
Left = 5040
Top = 120
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
Handshaking = 2
RTSEnable = -1 'True
End
Begin VB.CommandButton Fax
Caption = "開始傳真"
Height = 375
Left = 4200
TabIndex = 1
Top = 120
Width = 855
End
Begin VB.TextBox FaxTel
BeginProperty Font
Name = "新細明體"
Size = 15.75
Charset = 136
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 0
Text = "25115053"
Top = 120
Width = 1815
End
Begin VB.Shape Shape1
FillColor = &H000000C0&
FillStyle = 0 '實心
Height = 375
Left = 3600
Shape = 3 '圓形
Top = 120
Width = 495
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Change()
MSComm1.CommPort = Combo1.Visible + 1
End Sub
Private Sub Fax_Click()
Dim Out(10240) As Byte
Out(0) = &HFF&
For FORS = 1 To 10239
Out(FORS) = 15
Next
Fax.Enabled = False
'MSComm1.Output = "AT" & vbCr
Shape1.FillColor = &HFF00&
'MSComm1.Output = "ATH1" & vbCr
'********************************************************
'&F 載入出廠之配置值
'S0 鈴聲次數進入應答模式 0=關閉
'E0 不要顯示鍵入的指令
'V1 以文字方式顯示結果碼
'Q0 使用結果碼 *AT&FS0=0E0V1Q0
MSComm1.Output = "AT&FS0=0E0V1Q0" & vbCr
DoEvents
T.Text = T.Text & MSComm1.Input
'
MSComm1.Output = "AT" & vbCr
DoEvents
T.Text = T.Text & MSComm1.Input
'I3 顯示晶片組名稱
MSComm1.Output = "ATI3" & vbCr
DoEvents
T.Text = T.Text & MSComm1.Input
'S7 等待遠方載波的時間
'&D3 當DTR 由ON轉OFF則重置數據機
'&K4 開始 XON/XOFF ATS7=255&D3&K4
MSComm1.Output = "ATS7=255&D1" & vbCr
DoEvents
T.Text = T.Text & MSComm1.Input
'X4 偵測有無撥號音
'S8 , 要等待的時間
'M1 撥號時喇叭開著 直到偵測到載波
'L1 音量 3高
MSComm1.Output = "ATX4S8=2M1L3" & vbCr
DoEvents
T.Text = T.Text & MSComm1.Input
'+F
'
MSComm1.Output = "AT+FCLASS=1H1" & vbCr
DoEvents
T.Text = T.Text & MSComm1.Input
'
MSComm1.Output = "ATH" & vbCr
DoEvents
T.Text = T.Text & MSComm1.Input
'******************************************************************
'啟動數據機，並撥電話號碼。
'MSComm1.Output = "ATDT25115053" & vbCr
'MSComm1.Output = "ATDT" & FaxTel.Text & vbCr
'設定為傳真模式 V.29 (9600 BPS FAX)
'MSComm1.Output = "+MS=V29,1,0,0" & vbCr
'DoEvents
'MSComm1.Output = "ATH1" & vbCr
'MSComm1.Output = "AT" & vbCr
'DoEvents
'T.Text = MSComm1.Input
'T.Text = ""
MSComm1.Output = "ATDT 25115053" & vbCrLf
'「AT」指令初始化連接，「D」進行撥號，[T」指定使用音調 (而不是脈衝)。
' 等待資料傳回到序列連接埠
Do
DoEvents
TT$ = MSComm1.Input
Exit Do
Loop Until InStr(TT$, "CONNECT" & vbCrLf) ' 從序列連接埠讀取 "OK" 回應資料
TT$ = ""
Do
DoEvents
TT$ = TT$ & MSComm1.Input
Exit Do
Loop Until InStr(Buffer$, "OK" & vbCrLf) '接通
'If InStr(T.Text, "NO") Then
' MsgBox ("失敗")
' GoTo erring
'End If
'Buffer$ = ""
'輸出到一個終端時必須指定 Return 鍵 (vbCr)。輸出到位元組陣列時，不需要再加一個 Return 字元。
'如果指令被正確處理，傳回的結果碼將是「OK」。檢查結果碼即可確定指令是否被正確處理。
'This entry is in "hex display mode" (see below).
'這個加入是在"16位元展示模示"(看以下)
' Log indicates one byte, 0xff , was read.
' 指示一個字元,0xff,他讀取
'In this case it is the first byte of the
'
' DIS frame from the remote machine.
'在遠方的機械
'傳送位元組陣列資料
MSComm1.Output = TT$ & vbCr
DoEvents
For FORS = 0 To 32000
MSComm1.Output = Out
DoEvents
Next
'
'如前面提到的，每傳送一行都必須以 Return 鍵 (vbCr)結束。
'在上例中，Out 被定義為位元組陣列變數：Dim Out() As Byte。假如它是字串變數，
'則應定義為：Dim Out() As String。
'您可用 OutBufferCount 屬性監看傳送緩衝區中的位元組數目。將該值設定為 0 即可清空傳送緩衝區。
' 等待資料傳回到序列連接埠
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Exit Do
Loop Until InStr(Buffer$, "OK" & vbCrLf) ' 從序列連接埠讀取 "OK" 回應資料
MSComm1.Output = "\r\nOK\r\n" & vbCr
'
MSComm1.Break = True
MSComm1.Output = " AT" & vbCr
T.Text = MSComm1.Input
erring:
'掛斷電話
MSComm1.Output = "ATH0" & vbCr
T.Text = MSComm1.Input
'
MSComm1.Output = "AT" & vbCr
T.Text = MSComm1.Input
Shape1.FillColor = 192
Fax.Enabled = True
End Sub
Private Sub Form_Load()
Combo1.ListIndex = 0
Dim PortValue As Integer
'設定或傳回通訊連接埠的代號，即屬性頁上的「通訊連接埠」。
MSComm1.CommPort = Combo1.ListIndex + 1
'在設計階段，value 可以設定成從 1 到 16 的任何數 (預設值為 1)。
'但是如果用 PortOpen 屬性開啟一個並不存在的連接埠時，
'MSComm 控制項會產生錯誤 68 (裝置無效)。
'警告 必須在開啟連接埠之前，先設定 CommPort 屬性。
'設定或傳回連線速率、同位檢查、資料位元與停止位
'MSComm1.Settings = "9600,N,8,1"
'Settings 屬性可以用來指定傳輸速率、同位檢查、資料位元數和停止位元數。
'按照預設值，傳輸速率將被設定為 9600。同位檢查是用來指定資料是否要進行
'檢查。通常是不需使用，所以設定為「N」。資料位元數指定一個資料區塊的
'位元數。停止位元則是用來指示資料區塊是否已接收完畢。
' 告訴控制項當使用 Input 時，讀取整個暫存區
'MSComm1.InputLen = 0
'設定或傳回通訊埠的狀態 (開啟或關閉)
MSComm1.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
' 關閉序列連接埠
MSComm1.PortOpen = False
End Sub
How to use the activex control share to client on the intern(編號：8588)
Dear Sir:
Sorr~
How to use the activex control share to client on the internet .
When I do it .
The error message which security is alway show
I don't know to handle it .
I already found many web ..........................
So
I wish you can help me ......................
Thanks~
Sorr~
How to use the activex control share to client on the internet .
When I do it .
The error message which security is alway show
I don't know to handle it .
I already found many web ..........................
So
I wish you can help me ......................
Thanks~
再問一次RecordSet.CancelUpdate後資料殘留在TextBox要如何解決?(編號：8586)
試了很多方法..例如再使用者修改前就先把所有值存入Array中,等CelcleUpdate再存回TextBox中,可是實際執行時這樣的方法又會造成程式的Error..請問大家都是如何解決的呢..!?我為了這個問題已經想了好久了..總是想不通..誰來幫幫我ㄚ..!!謝謝
如何將Form所顯示的資料傳給Access2000的表單？(編號：8584)
我現在做一個程式，算出了我要的結果，但是我想要運算結果傳到
Access，請問要如何做？有兩個欄位，一個是日期，一個是假日名稱(我現在是用print來檢視結果而已)，煩請幫忙，謝謝。
Access，請問要如何做？有兩個欄位，一個是日期，一個是假日名稱(我現在是用print來檢視結果而已)，煩請幫忙，謝謝。
如何將Store Procedure 應用到Crystal Report???(編號：8583)
請問,如何能夠將已經在SQL寫好的Store Procedure引用到
Crystal Report當中呢???
我試過,似乎只能引用到table 而已,但應該是可以引用Store Procedure的吧...
Crystal Report當中呢???
我試過,似乎只能引用到table 而已,但應該是可以引用Store Procedure的吧...
在程式中使用RecordSet.AddNew大量新增資料,會多一筆空白資料(編號：8580)
程式如下
strASQL = "Delete * FROM TableA"
conn.Execute strASQL
strSQL= "SELECT FieldA,FieldB,FieldC FROM TableA"
rs.open strSQL,conn
While EOF(1)
Get #1,,MyRecord
rs.AddNew
rs!FieldA=MyRecordA
rs!FieldB=MyRecordB
rs!FieldC=MyRecordC
rs.Update
Wend
只是我用這種方法去新增資料,每次都會多出一筆空資料而FieldC為數字型態,每次新增到最後一筆都會發生類型不符的錯誤..
另外我這樣做的目的是要更新TableA中的資料
謝謝
strASQL = "Delete * FROM TableA"
conn.Execute strASQL
strSQL= "SELECT FieldA,FieldB,FieldC FROM TableA"
rs.open strSQL,conn
While EOF(1)
Get #1,,MyRecord
rs.AddNew
rs!FieldA=MyRecordA
rs!FieldB=MyRecordB
rs!FieldC=MyRecordC
rs.Update
Wend
只是我用這種方法去新增資料,每次都會多出一筆空資料而FieldC為數字型態,每次新增到最後一筆都會發生類型不符的錯誤..
另外我這樣做的目的是要更新TableA中的資料
謝謝
列印連續標籤(編號：8579)
抱歉前幾天POST沒人回我,所以再試一次
請問我使用Print.print列印連續標籤
假設我有200筆資料,當印到100筆時卡紙
我如何再從第100筆開始繼續列印呢?
還是有其他方法可行呢?
謝謝
請問我使用Print.print列印連續標籤
假設我有200筆資料,當印到100筆時卡紙
我如何再從第100筆開始繼續列印呢?
還是有其他方法可行呢?
謝謝
ADO 連接SQL SERVER常有timeout expired run time error:(編號：8578)
Hi
最近常發現存取資料庫的時候會有timeout expired run time error: '2147217871我查過KnowlegedBase原因為:ADO連接sql server已達到resource limit無result return!!
可是sql server的資源使用率不應該這樣就用完!!
我應該從哪裡去解決這樣的問題呢??
最近常發現存取資料庫的時候會有timeout expired run time error: '2147217871我查過KnowlegedBase原因為:ADO連接sql server已達到resource limit無result return!!
可是sql server的資源使用率不應該這樣就用完!!
我應該從哪裡去解決這樣的問題呢??
Question on service pack(編號：8577)
我的環境是 VB6.0 + SP4, 我的問題如下:
How can I use back VB6.0 only without Service pack.
If this can, how to config it?
How can I use back VB6.0 only without Service pack.
If this can, how to config it?
Refresh in datagrid(編號：8576)
Why I can't refresh the data immediately when I use SQL to change the records? (I use ADODC + datagrid ). Do you have any suggestions?
笨笨的問題:有關vb的picutre控制項(編號：8575)
在下要用vb做一個game,想用imagelist做出角色行動的動畫,不過...竟然不會用...嗚嗚...實在太笨了,....言歸正傳,在下用imagelist先load入了4幅同一大小的bmp,分別給予1-4的index編號.然後想在picture1中載入imagelist中的bmp,用哪一句程式碼?請眾高手教教路^^在下感激不盡^^
question on client/server(編號：8574)
Excuse me, if I want to access the database in the client/server system, what should I take care about? Moreover, could you please give me some examples? You can send them through the e-mail. Thank you very much.
為什麼這一條有錯??(編號：8573)
我是想用DataGrid把資料,
依照國文的成績由大到小排列.
我是這樣寫的:
Adodc1.RecordSource=select * From 一年級成績表 Order By 國文
Adodc1.Refresh
為什麼他會出現:
["預設無效的SQL指令..."SELECT"...."] 的錯誤訊息??
依照國文的成績由大到小排列.
我是這樣寫的:
Adodc1.RecordSource=select * From 一年級成績表 Order By 國文
Adodc1.Refresh
為什麼他會出現:
["預設無效的SQL指令..."SELECT"...."] 的錯誤訊息??
DataGrid的水平捲軸(Hsrollbar)的問題!?(編號：8572)
請問各位,目前我的DataGrid的欄位共27欄
假設我輸到第一筆資料的最後一欄(Col Index=26)的時候
在26欄輸完後,按下Enter
我想讓
(1)DataGrid的水平捲軸移至最左方,因為到最後一欄時
水平捲軸位置已在後面
而且
(2)輸入焦點移至第二筆資料的第4欄(Col Index=3)
下列程式碼已可做到(2)的功能
但我不知如何"用程式碼控制"DataGrid的水平軸位置移至最左方
所以才上來請教大家,謝謝抽空回答!!
Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn And DataGrid1.Col = 26 Then
DataGrid1.Col = 3
Adodc1.Recordset.MoveNext
DataGrid1.SetFocus
End If
End Sub
假設我輸到第一筆資料的最後一欄(Col Index=26)的時候
在26欄輸完後,按下Enter
我想讓
(1)DataGrid的水平捲軸移至最左方,因為到最後一欄時
水平捲軸位置已在後面
而且
(2)輸入焦點移至第二筆資料的第4欄(Col Index=3)
下列程式碼已可做到(2)的功能
但我不知如何"用程式碼控制"DataGrid的水平軸位置移至最左方
所以才上來請教大家,謝謝抽空回答!!
Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn And DataGrid1.Col = 26 Then
DataGrid1.Col = 3
Adodc1.Recordset.MoveNext
DataGrid1.SetFocus
End If
End Sub
下拉式選單問題....(編號：8571)
我現在想用下拉式選單...轉換各國的時間..程式該怎麼寫才好呢..
是用TIMER還是COMBO1...???
我如果想要設定多個鬧鈴時間..程式該如何寫才好呢????
是用TIMER還是COMBO1...???
我如果想要設定多個鬧鈴時間..程式該如何寫才好呢????
請問 DataGrid~~~(編號：8570)
請問一下～
如何 click DataGrid 的某一欄位後
能把相同 column 的欄位都做反白～
就類似當有資料時按 DataGrid 左邊箭頭的那樣子
謝謝～～～
如何 click DataGrid 的某一欄位後
能把相同 column 的欄位都做反白～
就類似當有資料時按 DataGrid 左邊箭頭的那樣子
謝謝～～～
●請問ListView控制項中的icon執行時可以更新嗎?●(編號：8569)
因為想寫一個類似檔案總管的component...
我使用 ListView 做檔案列表...而ListView中的icon必須使用 ImageList Control
但因為檔案關聯的icon是在Run Time是才 call API 得知的...
可是 ImageList 又不准在 Run Time 新增 圖示...*%(&#(^#^%^&$.....
有沒有什麼方法可以解決這個問題呢?
在這先謝謝啦! ^_^
我使用 ListView 做檔案列表...而ListView中的icon必須使用 ImageList Control
但因為檔案關聯的icon是在Run Time是才 call API 得知的...
可是 ImageList 又不准在 Run Time 新增 圖示...*%(&#(^#^%^&$.....
有沒有什麼方法可以解決這個問題呢?
在這先謝謝啦! ^_^
請問，如何讓電腦發出音符DO,MI...鋼琴的聲音(編號：8568)
請問，如何讓電腦發出音符DO,MI...鋼琴的聲音就是可以按按鍵就可以出聲音，或是按滑鼠,就能出樂器的聲音..., 特別是我用.0.........，請大師幫幫忙...
too many user task(編號：8566)
個位高手:
您們好.有個問題請教.
我用msadodc.ocx及msdtgrd.ocx進行數據庫資料的顯示時,
檔refresh達到一定次數時,adodc會提示"too many user task."
的錯誤信息.請問原因何在?
您們好.有個問題請教.
我用msadodc.ocx及msdtgrd.ocx進行數據庫資料的顯示時,
檔refresh達到一定次數時,adodc會提示"too many user task."
的錯誤信息.請問原因何在?
使用VB直接列印Access的報表(編號：8565)
我使用Vb直接呼叫Access的Report，但是使用下面的方法，在執行時，預覽畫面閃一下就消失了 。
請問
1 這是那理有誤呢？
2 若要在開啟預覽畫面後，按下確定後才開始列印，應如何設定。
寫法如下：
Dim ac As Access.Application
Set ac = New Access.Application
ac.OpenCurrentDatabase ("C:\My Documents\My Webs\mis.mdb")
ac.DoCmd.OpenReport "電腦狀況處理表", acViewPreview
ac.Visible = True
ac.CloseCurrentDatabase
謝謝。
請問
1 這是那理有誤呢？
2 若要在開啟預覽畫面後，按下確定後才開始列印，應如何設定。
寫法如下：
Dim ac As Access.Application
Set ac = New Access.Application
ac.OpenCurrentDatabase ("C:\My Documents\My Webs\mis.mdb")
ac.DoCmd.OpenReport "電腦狀況處理表", acViewPreview
ac.Visible = True
ac.CloseCurrentDatabase
謝謝。
大量資料如何分筆顯示?有何較好的資料結構的書?(編號：8564)
1..如有大量資料..如何一次只顯示10筆,待要看其他資料時在顯示下10筆呢.!?...不是我不去想.而是想不出來..
2請教市面上有什麼資料解構的書比較淺顯易懂的呢?!..入門用的..謝謝
2請教市面上有什麼資料解構的書比較淺顯易懂的呢?!..入門用的..謝謝
如何做出一程式....詳細如內容....(編號：8562)
就是是否能教我一個VB6的程式....
就是輸入一個數值....然後找出它的質因數....
對於我這初學者....實在是很難讓人做出....希望各位高手指教....
就是輸入一個數值....然後找出它的質因數....
對於我這初學者....實在是很難讓人做出....希望各位高手指教....
MCSD証照(編號：8560)
美國微軟的認証考試MCSD，目前在台灣依然少有人有此証照；不比MCSE，MCSE的証照已越來越不值錢了，在軟體業界---MCSD，謂為高薪的保証。
考MCSD，Transcender 為黃金寶典(問問內行的人就可得知)在下特別遠赴美國，跑去買，閱讀了之後，在下輕輕鬆鬆的考過MCSD，且程式設計的功力遠比過去來的強；今小弟特別廉價賣給各位。
MCSD考四科：
SQL Server 7.0 Design & Impl. (70-029)
Visual Basic 6.0 - Desktop (70-176)
Visual Basic 6.0 - Distributed (70-175)
Defining Solution Architectures (70-100)
原版的Transcender，無法在中文的Windows作業系統執行，
小弟特附上Windows98英文版(美國人不願意亞洲人，出現許多MCSD，所以就在Transcender上動手腳，無法在中文的Windows98執行)
(一)
MCSD的Transcender七片裝，原價數萬元，小弟只賣2000元(光碟燒錄，郵差代收貨價，並附送一片英文Win98)。
(二)
另小弟有Visual Studio 9片裝，只賣1500元。
(三)
Visual Basic 6 中文企業版(包含MSDN)，共四片裝；Dreamweaver 3.0一片裝，PhotoImpact 5.0一片裝，只賣1000元
(四)
Windows 2000 Server 兩片裝及Windows Professional一片裝，Windows me一片裝；總共只賣1000元
若有意訂購者，來信請寫下所欲購買的軟體是第一項，第二項，第三項或第四項。全部購買者，小弟只收4500元，且送一片1998年當時市面上所有的網頁程式與工具(相當具有收長藏與紀念的價值)及近三個月內流行歌手的音樂。
欲訂購者請留下列資料，mail給小弟
trustme007@hotmail.com
1. 中文姓名 :
2. 電 話:
3. E-mail:
4. 收貨地址(最好白天有人在):
5.郵遞區號
小弟收到您的來信，當立即回信與您，謝謝。
考MCSD，Transcender 為黃金寶典(問問內行的人就可得知)在下特別遠赴美國，跑去買，閱讀了之後，在下輕輕鬆鬆的考過MCSD，且程式設計的功力遠比過去來的強；今小弟特別廉價賣給各位。
MCSD考四科：
SQL Server 7.0 Design & Impl. (70-029)
Visual Basic 6.0 - Desktop (70-176)
Visual Basic 6.0 - Distributed (70-175)
Defining Solution Architectures (70-100)
原版的Transcender，無法在中文的Windows作業系統執行，
小弟特附上Windows98英文版(美國人不願意亞洲人，出現許多MCSD，所以就在Transcender上動手腳，無法在中文的Windows98執行)
(一)
MCSD的Transcender七片裝，原價數萬元，小弟只賣2000元(光碟燒錄，郵差代收貨價，並附送一片英文Win98)。
(二)
另小弟有Visual Studio 9片裝，只賣1500元。
(三)
Visual Basic 6 中文企業版(包含MSDN)，共四片裝；Dreamweaver 3.0一片裝，PhotoImpact 5.0一片裝，只賣1000元
(四)
Windows 2000 Server 兩片裝及Windows Professional一片裝，Windows me一片裝；總共只賣1000元
若有意訂購者，來信請寫下所欲購買的軟體是第一項，第二項，第三項或第四項。全部購買者，小弟只收4500元，且送一片1998年當時市面上所有的網頁程式與工具(相當具有收長藏與紀念的價值)及近三個月內流行歌手的音樂。
欲訂購者請留下列資料，mail給小弟
trustme007@hotmail.com
1. 中文姓名 :
2. 電 話:
3. E-mail:
4. 收貨地址(最好白天有人在):
5.郵遞區號
小弟收到您的來信，當立即回信與您，謝謝。
MCSD証照(編號：8559)
美國微軟的認証考試MCSD，目前在台灣依然少有人有此証照；不比MCSE，MCSE的証照已越來越不值錢了，在軟體業界---MCSD，謂為高薪的保証。
考MCSD，Transcender 為黃金寶典(問問內行的人就可得知)在下特別遠赴美國，跑去買，閱讀了之後，在下輕輕鬆鬆的考過MCSD，且程式設計的功力遠比過去來的強；今小弟特別廉價賣給各位。
MCSD考四科：
SQL Server 7.0 Design & Impl. (70-029)
Visual Basic 6.0 - Desktop (70-176)
Visual Basic 6.0 - Distributed (70-175)
Defining Solution Architectures (70-100)
原版的Transcender，無法在中文的Windows作業系統執行，
小弟特附上Windows98英文版(美國人不願意亞洲人，出現許多MCSD，所以就在Transcender上動手腳，無法在中文的Windows98執行)
(一)
MCSD的Transcender七片裝，原價數萬元，小弟只賣2000元(光碟燒錄，郵差代收貨價，並附送一片英文Win98)。
(二)
另小弟有Visual Studio 9片裝，只賣1500元。
(三)
Visual Basic 6 中文企業版(包含MSDN)，共四片裝；Dreamweaver 3.0一片裝，PhotoImpact 5.0一片裝，只賣1000元
(四)
Windows 2000 Server 兩片裝及Windows Professional一片裝，Windows me一片裝；總共只賣1000元
若有意訂購者，來信請寫下所欲購買的軟體是第一項，第二項，第三項或第四項。全部購買者，小弟只收4500元，且送一片1998年當時市面上所有的網頁程式與工具(相當具有收長藏與紀念的價值)及近三個月內流行歌手的音樂。
欲訂購者請留下列資料，mail給小弟
trustme007@hotmail.com
1. 中文姓名 :
2. 電 話:
3. E-mail:
4. 收貨地址(最好白天有人在):
5.郵遞區號
小弟收到您的來信，當立即回信與您，謝謝。
考MCSD，Transcender 為黃金寶典(問問內行的人就可得知)在下特別遠赴美國，跑去買，閱讀了之後，在下輕輕鬆鬆的考過MCSD，且程式設計的功力遠比過去來的強；今小弟特別廉價賣給各位。
MCSD考四科：
SQL Server 7.0 Design & Impl. (70-029)
Visual Basic 6.0 - Desktop (70-176)
Visual Basic 6.0 - Distributed (70-175)
Defining Solution Architectures (70-100)
原版的Transcender，無法在中文的Windows作業系統執行，
小弟特附上Windows98英文版(美國人不願意亞洲人，出現許多MCSD，所以就在Transcender上動手腳，無法在中文的Windows98執行)
(一)
MCSD的Transcender七片裝，原價數萬元，小弟只賣2000元(光碟燒錄，郵差代收貨價，並附送一片英文Win98)。
(二)
另小弟有Visual Studio 9片裝，只賣1500元。
(三)
Visual Basic 6 中文企業版(包含MSDN)，共四片裝；Dreamweaver 3.0一片裝，PhotoImpact 5.0一片裝，只賣1000元
(四)
Windows 2000 Server 兩片裝及Windows Professional一片裝，Windows me一片裝；總共只賣1000元
若有意訂購者，來信請寫下所欲購買的軟體是第一項，第二項，第三項或第四項。全部購買者，小弟只收4500元，且送一片1998年當時市面上所有的網頁程式與工具(相當具有收長藏與紀念的價值)及近三個月內流行歌手的音樂。
欲訂購者請留下列資料，mail給小弟
trustme007@hotmail.com
1. 中文姓名 :
2. 電 話:
3. E-mail:
4. 收貨地址(最好白天有人在):
5.郵遞區號
小弟收到您的來信，當立即回信與您，謝謝。
請教教我好嗎....問題:印表機....(編號：8557)
請高手指導我好嗎?
我在程式中,有控制到2台以上的印表機...
但切換印表機列印過不到十分鐘分,就會出現一個 SPOOL32
這個錯誤~~~
這是?? 請問該如何處理呢~~~
且每當我的程式出現這問題後,我的程式就會當機....
這該如何解決呢...??
請回給我的e-mail 好嗎...
謝謝....
我在程式中,有控制到2台以上的印表機...
但切換印表機列印過不到十分鐘分,就會出現一個 SPOOL32
這個錯誤~~~
這是?? 請問該如何處理呢~~~
且每當我的程式出現這問題後,我的程式就會當機....
這該如何解決呢...??
請回給我的e-mail 好嗎...
謝謝....
請問一個控制項??????(編號：8555)
請問各位大大:
那裡可找到具有箭頭的直線(line)這種控制項呢??????
類似此形狀:-------＞
(vb內建的line控制項不具有箭頭)急需!!!!!!
若須購買也可,請各位大大能告知,謝謝...........
那裡可找到具有箭頭的直線(line)這種控制項呢??????
類似此形狀:-------＞
(vb內建的line控制項不具有箭頭)急需!!!!!!
若須購買也可,請各位大大能告知,謝謝...........
一個不可思議的問題, 請各位高手細細推敲 ! ! !(編號：8554)
以下這個程式當表單第一次載入, 然後離開, 該資料夾不會殘餘任何的 .ldb 檔案, 但是當表單第二次載入, 然後離開, 該資料夾竟然會殘留 inventor.ldb, 以後每次的情形同第二次(請注意: 這個程式是由另外一個表單呼叫, 所以 Form_Unload 之後, 螢幕只會返回呼叫它的表單, 但是呼叫它的表單沒有任何功能, 也絕對與資料庫無關, 只有一些 Command Button 而已!
程式碼如下:
Dim con_Finger As New ADODB.Connection
Dim con_Inventor As New ADODB.Connection
Dim rs_Finger As New ADODB.Recordset
Dim rs_Inventor As New ADODB.Recordset
Private Sub Form_Load()
con_Finger.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\xxx.mdb;Jet OLEDB:Database Password=123456;"
rs_Finger.CursorLocation = adUseClient
rs_Finger.Open "select userid, name, level_flag from mainbase order by level_flag asc, userid asc", con_Finger, adOpenKeyset, adLockPessimistic
con_Inventor.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\yyy.mdb"
End Sub
Private Sub cmdReturn_Click()
con_Finger.Close
Set con_Finger = Nothing
con_Inventor.Close
Set con_Inventor = Nothing
Unload Me
End Sub
請各位 VB 資料庫的絕頂高手賜教, 告訴我為什麼會這樣! 因為我已經困惑了將近十幾天了, 拜託!
程式碼如下:
Dim con_Finger As New ADODB.Connection
Dim con_Inventor As New ADODB.Connection
Dim rs_Finger As New ADODB.Recordset
Dim rs_Inventor As New ADODB.Recordset
Private Sub Form_Load()
con_Finger.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\xxx.mdb;Jet OLEDB:Database Password=123456;"
rs_Finger.CursorLocation = adUseClient
rs_Finger.Open "select userid, name, level_flag from mainbase order by level_flag asc, userid asc", con_Finger, adOpenKeyset, adLockPessimistic
con_Inventor.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\yyy.mdb"
End Sub
Private Sub cmdReturn_Click()
con_Finger.Close
Set con_Finger = Nothing
con_Inventor.Close
Set con_Inventor = Nothing
Unload Me
End Sub
請各位 VB 資料庫的絕頂高手賜教, 告訴我為什麼會這樣! 因為我已經困惑了將近十幾天了, 拜託!
sorry!請教一個簡單的問題(編號：8553)
請教各位高手:datagrid和APEX dbgrid在使用時後面都會有一些空白的
部份,如果我想要讓grid的大小和table大小一樣,那麼我應該如何做呢?
部份,如果我想要讓grid的大小和table大小一樣,那麼我應該如何做呢?
如何關閉已開啟(Unload)MDIchild Forms ,但MDIform不結束?(編號：8552)
請問一下各位高手,當我選擇登出應用系統時,如何將已開啟而未
Unload 的MDIchild Forms關閉,但MDIform不結束?
Unload 的MDIchild Forms關閉,但MDIform不結束?
查詢資料的問題?(編號：8549)
各位先進,我有一個adodc1的物件也連到資料庫了,我用SQL的語法作查詢
Adodc1.CommandType = adCmdText
SQL = "Select * From mytable Where cname = '" & Trim(userinput) & "'"
Adodc1.RecordSource = SQL
Adodc1.Refresh
我要在查不到資料時,回到原紀錄(類似bookmark的功能)
要怎麼作比較好呢?(是不是要將SQL查到的資料放到一個NEW ADODC
呢?),THanks!
Adodc1.CommandType = adCmdText
SQL = "Select * From mytable Where cname = '" & Trim(userinput) & "'"
Adodc1.RecordSource = SQL
Adodc1.Refresh
我要在查不到資料時,回到原紀錄(類似bookmark的功能)
要怎麼作比較好呢?(是不是要將SQL查到的資料放到一個NEW ADODC
呢?),THanks!
請問如何在VB表單內異動OLE控制項內的嵌入內容??(編號：8548)
大愚(我)想在VB表單內,動態異動表單內的OLE控制項嵌入物件,已查詢OLE的方法,似乎都沒有這個功能.
能否請教各位先進如何處理? 或是可達到此目的的其他方法,或有哪些資料可參考.
謝謝!!
能否請教各位先進如何處理? 或是可達到此目的的其他方法,或有哪些資料可參考.
謝謝!!
請問如何改變search path?(編號：8546)
請問如何用VB 可以馬上改變現有系統的search path 而無需重新啟動電腦?
在dos prompt 打完set path只對該dos prompt 的執行程式有效,
要怎樣才能馬上對所有程式有效呢?
在dos prompt 打完set path只對該dos prompt 的執行程式有效,
要怎樣才能馬上對所有程式有效呢?
如何使用crystal report 7.0報表，直接抓取設定的變數，依每筆累(編號：8545)
我在報表內設定一個變數值，其值之後有一個累加值，我如何可利用這個變數去做累加並顯示於後
如下 *
金額 數量 累加 數量
1200 100 1200 100
1000 110 2200 210
-500 -40 1700 170
如何計算其累加值(不另行作table去計算)
如下 *
金額 數量 累加 數量
1200 100 1200 100
1000 110 2200 210
-500 -40 1700 170
如何計算其累加值(不另行作table去計算)
VB如何設定Access2000的密碼???(編號：8544)
請問:我們如何在VB裡完成Access2000資料庫的密碼設定??
因為我發現，用jro修復後所產生的新資料庫，不會保留原先舊資料庫的密碼...
因為我發現，用jro修復後所產生的新資料庫，不會保留原先舊資料庫的密碼...
不好意思..請問調整時間?????(編號：8543)
非常不好意思...請問一下..我的時鐘為什麼不能調整時間...
只要一調整馬上會變回系統的時間..是哪裡出錯了ㄇ....
請知道的人告訴我...請順便告訴我程式碼好嗎??謝謝.
再請問一下..我的鬧鐘沒辦法用別的鈴聲..為什麼??如果要用別的鈴聲..程式該怎麼寫..我想用多個鈴聲.不只一個..而且還可以配合不同的鬧鈴時間..這又該怎麼做呢??還請知道的各位高手告知...謝謝
只要一調整馬上會變回系統的時間..是哪裡出錯了ㄇ....
請知道的人告訴我...請順便告訴我程式碼好嗎??謝謝.
再請問一下..我的鬧鐘沒辦法用別的鈴聲..為什麼??如果要用別的鈴聲..程式該怎麼寫..我想用多個鈴聲.不只一個..而且還可以配合不同的鬧鈴時間..這又該怎麼做呢??還請知道的各位高手告知...謝謝
請教高手(編號：8542)
Private Sub() ?如遇到重覆的值,如何使其重新再取一次,
cc = 0 而不會造成無窮回圈
Do While cc ＜ 5
Call call1
value = lk
cc = cc + 1
End If
Loop
sub call1()
randomize
lk=fix((25-1+1))*rnd)+1
end sub
cc = 0 而不會造成無窮回圈
Do While cc ＜ 5
Call call1
value = lk
cc = cc + 1
End If
Loop
sub call1()
randomize
lk=fix((25-1+1))*rnd)+1
end sub
請教高手(編號：8541)
Private Sub() ?如遇到重覆的值,如何使其重新再取一次,
cc = 0 而不會造成無窮回圈
Do While cc ＜ 5
Call call1
value = lk
cc = cc + 1
End If
Loop
sub call1()
randomize
lk=fix((25-1+1))*rnd+1
end sub
cc = 0 而不會造成無窮回圈
Do While cc ＜ 5
Call call1
value = lk
cc = cc + 1
End If
Loop
sub call1()
randomize
lk=fix((25-1+1))*rnd+1
end sub
此問題特別歡迎 wave 解惑 !!!(編號：8539)
1.請問各位高手一個問題, 當我使用 ado 物件後, 也執行了 close , set ... = nothing, 但是為什麼當該表單已經載出記憶體後, 我用檔案總管仍然會看到 該資料庫(Access) 的 .ldb 檔案呢? 因為我想在其他的程式執行 copy 或 name ... as .... 等的功能! 但是資料庫如果使用中, 這些動作是無法允許的? 是否有什麼屬性或程式是我忽略的呢?
2. 請問 DAO 的查詢結果如果無法用 Data Grid 顯示, 是否有其他方法可以顯示呢?
請各位幫我解惑一下吧
2. 請問 DAO 的查詢結果如果無法用 Data Grid 顯示, 是否有其他方法可以顯示呢?
請各位幫我解惑一下吧
關於MsHFlexGrid所在列之背景顏色(編號：8536)
我已經將Grid的BackColorSel做設定了
當我在Grid上點選資料我選的那一列背景顏色也會跟著變
當我用程式控制上下筆移動時rowsel有跟著變...
可是所在列之背景顏色卻不會跟著變
請問如何才會讓MsHFlexGrid上rowsel那一列的BackColor改變顏色
當我在Grid上點選資料我選的那一列背景顏色也會跟著變
當我用程式控制上下筆移動時rowsel有跟著變...
可是所在列之背景顏色卻不會跟著變
請問如何才會讓MsHFlexGrid上rowsel那一列的BackColor改變顏色
如何加速ListView(編號：8532)
小弟在listview裡add 了8000筆資料,用迴圈
每一筆都還有10個subitems
結果花了13秒(在pii-350 128mb ram)
有沒有辦法更快呢??
還是有什麼物件可以替代listview用來秀我的資料呢??
麻煩指點一二,謝謝!!
每一筆都還有10個subitems
結果花了13秒(在pii-350 128mb ram)
有沒有辦法更快呢??
還是有什麼物件可以替代listview用來秀我的資料呢??
麻煩指點一二,謝謝!!
Crystal8 如何在列印過程中額外加入title(編號：8531)
請教諸位有心人士 已經設定好recoedsetS 給crystal--8 我們如何 在crystal列印過程從中再額外加入我們要的text 例如 txt五專..1機械五甲'2機械四甲'3機械三甲 /// txt二技..1中文一甲'2中文一乙 PS:txt*為我們要額外加入的txt
肉腳又來問問題了！(編號：8530)
請問一下！我做了一個程式，會顯示二個表單，但我希望我把第二個表單縮小到windows快捷列的時候，第一個表單不會跟著移動，而希望它繼續留在桌面上，只要第二個表單縮下去就好，這樣我該下什麼指令呢？
使用 ado 後, 當表單執行 Form_Unload 事件, 仍然無法離線資料庫(編號：8529)
請問各位高手一個問題, 當我使用 ado 物件後, 也執行了 close , set ... = nothing, 但是為什麼當該表單已經載出記憶體後, 我用檔案總管仍然會看到 該資料庫(Access) 的 .ldb 檔案呢? 因為我想在其他的程式執行 copy 或 name ... as .... 等的功能! 但是資料庫如果使用中, 這些動作是無法允許的? 是否有什麼屬性或程式是我忽略的呢?
請各位幫我解惑一下吧?
請各位幫我解惑一下吧?
急,VB--Excel的傳輸問題...(編號：8527)
我寫了一段呼叫Excel的程式：
Private Sub Command1_Click()
Dim objExcel As Object, objWorkbook As Object, objWorksheet As Object
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add
Set objWorksheet = objWorkbook.Worksheets(1)
objExcel.Visible = True
objWorksheet.Cells(1, 1) = "大家好"
Range("A2:E2").Select
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
End Sub
當我執行時，第一次沒有問題，可是當我關閉Excel，再按一次時，
VB發出訊息：
執行階段錯誤'1004':
'Range'方法('_Global'物件)失敗
怎麼辦？請問如何處理?
Private Sub Command1_Click()
Dim objExcel As Object, objWorkbook As Object, objWorksheet As Object
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add
Set objWorksheet = objWorkbook.Worksheets(1)
objExcel.Visible = True
objWorksheet.Cells(1, 1) = "大家好"
Range("A2:E2").Select
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
End Sub
當我執行時，第一次沒有問題，可是當我關閉Excel，再按一次時，
VB發出訊息：
執行階段錯誤'1004':
'Range'方法('_Global'物件)失敗
怎麼辦？請問如何處理?
DATA REPORT 列印欄位??(編號：8523)
請問: 我有一個欄位(性別)只存放 0 或 1 , 分別代表女或男,
如何在DATA REPORT 列印時把讀取到的 0 變成 女 , 1 變成 男
然後列印在報表上, 以下是我下的語法:
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Set Rs = Cn.Execute("SELECT NAME,性別 FROM 資料庫 ORDER BY 性別")
SET DATAREPORT1.DataSource = Rs
要在那裡做判斷才能把要性別欄的0或1 改成女或男呢??
如何在DATA REPORT 列印時把讀取到的 0 變成 女 , 1 變成 男
然後列印在報表上, 以下是我下的語法:
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Set Rs = Cn.Execute("SELECT NAME,性別 FROM 資料庫 ORDER BY 性別")
SET DATAREPORT1.DataSource = Rs
要在那裡做判斷才能把要性別欄的0或1 改成女或男呢??
請問在VB中呼叫MTS元件交易的問題!(編號：8522)
請問各位先進，我在VB程式碼中(有引用COM+ Service Type Library)利用GetObjectContext來呼叫元件，程式碼如下：
Dim testObj As Test.Func
Dim ctx As ObjectContext
Set ctx = GetObjectContext
Set testObj = ctx.CreateInstance("Test.Func")
請問為什麼都會發生『沒有設定物件變數或With區塊變數』
的錯誤訊息!謝謝!!
Dim testObj As Test.Func
Dim ctx As ObjectContext
Set ctx = GetObjectContext
Set testObj = ctx.CreateInstance("Test.Func")
請問為什麼都會發生『沒有設定物件變數或With區塊變數』
的錯誤訊息!謝謝!!
滑鼠訊息攔截一問(編號：8521)
最近在寫一個功能，就是利用listview顯示資料，希望在按下滑鼠右鍵之時，可以同時選到點選的物件又同時彈跳出自訂的功能表列(就像平時使用檔案總管那樣的功能)，按下滑鼠右鍵彈跳出自訂功能表列已經完成，可是無法選擇點到的物件(它會留在原Setfocus的物件)，故我試著攔截滑鼠訊息，使滑鼠右鍵功能和左鍵功能相同，可是這樣它就不會彈跳出自訂功能表了，我必須在原程式加入怎樣的判斷或做怎樣的修改才能同時完成這兩項功能呢？？請各位高手指教一下，以下附上相關程式碼：
Private Sub Form_Load()
preWinProc = GetWindowLong(ListView1.hwnd, GWL_WNDPROC)
SetWindowLong ListView1.hwnd, GWL_WNDPROC, AddressOf WndProc
End Sub
模組內宣告
Public Const WM_RBUTTONDOWN = &H204 '宣告WM_RButtondown為滑鼠右鍵按下的值
Public Const WM_LBUTTONDOWN = &H201 '宣告WM_LButtondown為滑鼠左鍵按下的值
Public Const GWL_WNDPROC = (-4)
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Function WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim K1 As Long
Select Case Msg
Case 516
Msg = WM_LBUTTONDOWN
End Select
WndProc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
End Function
Private Sub Form_Load()
preWinProc = GetWindowLong(ListView1.hwnd, GWL_WNDPROC)
SetWindowLong ListView1.hwnd, GWL_WNDPROC, AddressOf WndProc
End Sub
模組內宣告
Public Const WM_RBUTTONDOWN = &H204 '宣告WM_RButtondown為滑鼠右鍵按下的值
Public Const WM_LBUTTONDOWN = &H201 '宣告WM_LButtondown為滑鼠左鍵按下的值
Public Const GWL_WNDPROC = (-4)
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Function WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim K1 As Long
Select Case Msg
Case 516
Msg = WM_LBUTTONDOWN
End Select
WndProc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
End Function
database.dll(編號：8519)
今天我用crystal report7.0 oledb 中 sqloledb 抓sql server的資料,若在主機上沒問題,但在98且沒安裝任何資料庫系統上會出現database.dll的錯誤,請問如何解決?
環境是vb6.0,ado2.1
環境是vb6.0,ado2.1
請問有何較好的日期輸入物件(編號：8518)
請問有什麼比較好用的日期輸入物件呢.?!..因為VB6內建了一個..日期輸入的物件..是不錯用啦..只不過其日期不能空白ㄟ..!!..那我用MaskEditBox的話,和資料庫連結又會有問題(常常下了Recordset.Update後,資料還是沒寫入資料庫中)還有另外一堆問題,實在是很煩,請問有何較好用的物件呢!?.謝謝
adcFetchAsync 和 adcFetchBackground的差異?(編號：8516)
我很想比較這兩個在RDS中FetchOptions的屬性值, 它們到底
哪裡不一樣啊? 我看了MSDN中的解說, 並作了實驗之後我反而
覺得莫名其妙, 請各位先進回答回答我這無知小子吧.
哪裡不一樣啊? 我看了MSDN中的解說, 並作了實驗之後我反而
覺得莫名其妙, 請各位先進回答回答我這無知小子吧.
使用Data Evironment時，如何設定子指令的RrecordSet(編號：8514)
當我使用Data Evironment時，由於需要而設成了父子指令，並用DataGrid，來顯示資料；
可是卻發覺只能設父指令的RecordSet，而無法設定子指令的RrecordSet，也就是說，我無法針對子指令的資料表操作，
請問各位先進們，告訴我應如何設定子指令的RecordSet。 謝謝！
可是卻發覺只能設父指令的RecordSet，而無法設定子指令的RrecordSet，也就是說，我無法針對子指令的資料表操作，
請問各位先進們，告訴我應如何設定子指令的RecordSet。 謝謝！
如何在程式結束後記錄資料?(編號：8511)
請問如何在程式結束後記錄資料?
比如說我做了一個可以預覽列印的程式，可以設定左、右、上、下邊界，而一開始程式預設為1.5CM，如果使用者更改其值的話則下次執行程式時其值為使用者更新的值而不是預設的1.5CM...
我是個初學者
請告訴我應該朝那方面去做或觀念即可
請別告訴我完整的答案，我想自己去想(這樣才會進步啊!)
拜託!拜託~~感激不盡
比如說我做了一個可以預覽列印的程式，可以設定左、右、上、下邊界，而一開始程式預設為1.5CM，如果使用者更改其值的話則下次執行程式時其值為使用者更新的值而不是預設的1.5CM...
我是個初學者
請告訴我應該朝那方面去做或觀念即可
請別告訴我完整的答案，我想自己去想(這樣才會進步啊!)
拜託!拜託~~感激不盡
如何建立office 2000 Word 物件?(編號：8510)
當我用Office97時,以下的Code是能夠執行的
Dim mWord As Word.Application
Set mWord = New Word.Application
但當我轉用了Office2000後,執行以上的Code時,
卻產生了Error ---＞ 『Automation 錯誤』.
是否Office2000不是這樣Create一個Word 物件?
那又如何建立呢?
Dim mWord As Word.Application
Set mWord = New Word.Application
但當我轉用了Office2000後,執行以上的Code時,
卻產生了Error ---＞ 『Automation 錯誤』.
是否Office2000不是這樣Create一個Word 物件?
那又如何建立呢?
請問下拉式表單..鈴聲的問題.....???請幫忙..(編號：8508)
我問了很多的網站...都沒人回答我..所以就來這裡詢問了...
1.如果我想用下拉式表單來轉換各國的時間..要怎麼寫.....
2.我的時鐘想可以設定多個鬧鈴時間.and多種鈴聲...該怎麼做.
鈴聲該怎麼加入才好呢.??
請知道的人告訴我... 拜託了...
1.如果我想用下拉式表單來轉換各國的時間..要怎麼寫.....
2.我的時鐘想可以設定多個鬧鈴時間.and多種鈴聲...該怎麼做.
鈴聲該怎麼加入才好呢.??
請知道的人告訴我... 拜託了...
drivelistbox(編號：8507)
因之前我是用一個硬碟分割成三個
c :
d : [LIN1]
e : [LIN1]
但用在drivelistbox上
Path = Text1.Text
If Right$(Path, 1) ＜＞ "\" Then
Path = Text1.Text & "\"
Text1.Text = Text1.Text & "\"
End If
就說找不到路徑
＞___＜
幫幫忙
謝謝
c :
d : [LIN1]
e : [LIN1]
但用在drivelistbox上
Path = Text1.Text
If Right$(Path, 1) ＜＞ "\" Then
Path = Text1.Text & "\"
Text1.Text = Text1.Text & "\"
End If
就說找不到路徑
＞___＜
幫幫忙
謝謝
VB如何控制Excel的字體大小及框線格式(編號：8506)
請問利用VB(6.0+SP4)開啟Excel之後，要下何指令，才能讓Excel的字體大小，變成我要的，如12--＞9。而框線能夠直接畫好，不用再設定？請指教，感激不盡.....
偶又來了！(編號：8502)
這次我想問的是，因為我寫了一段if ... then else 的敘述，只要對了就顯示***不對的話顯示***，但我想讓程式在執行完***的對話方塊後，會原畫面重新執行一開始的步驟，（因為使用者的值不是電腦符合的答案，所以必須重來一遍，直到對了為止），請問我讓如何做呢？
安裝檔所產生的錯誤該如何避免?(編號：8501)
我將自己寫的程式用VB封裝精靈封裝好...然後試著安裝,結果安裝時常會發生一些錯誤, 尤其在已有安裝VB的電腦上更是問題多~ 我想應該是其中某些元件己安裝在電腦中且執行吧......有人能告訴我該如何解決嗎?
例: 錯誤: C:\WINNT\system32\VB6CHT.DLL
錯誤: 目的檔案正被使用中。請確定已關閉所有其它的應用程
式。
錯誤: 在 'C:\WINNT\System32\msado20.tlb' 中無法找到
DllRegisterServer() 的進入點,在此過程中:
DllSelfRegister: "C:\WINNT\System32\msado20.tlb"
錯誤: 註冊檔案「C:\WINNT\System32\msado20.tlb」時，發生
錯誤
例: 錯誤: C:\WINNT\system32\VB6CHT.DLL
錯誤: 目的檔案正被使用中。請確定已關閉所有其它的應用程
式。
錯誤: 在 'C:\WINNT\System32\msado20.tlb' 中無法找到
DllRegisterServer() 的進入點,在此過程中:
DllSelfRegister: "C:\WINNT\System32\msado20.tlb"
錯誤: 註冊檔案「C:\WINNT\System32\msado20.tlb」時，發生
錯誤
請問我的vb6.0在連結access時無法啟動含密碼的資料庫(編號：8497)
請問我的vb6.0在連結access時無法啟動含密碼的資料庫，其訊息為工作群組不見了，或資料庫以獨佔式開啟。重灌vb後卻發現prject中的dataenvironmrne及datareport不見了，只能從別的地吁叫，該如何是如好?....
想知道如何使用keyboard(編號：8496)
各位我的問題是這樣的.....
我正在寫一個交通燈的program
老師吩咐我們當program 被run時
只按keyboard的 TAB 鍵就可以轉燈.....
因為我是初哥....
就連loop我也不知如何使用......
各位可以幫我一把嗎?
下面是我寫的「不清不楚」未完成program的部份....
請指點指點
Private Sub Command1_Click()
End
End Sub
Private Sub Command1_KeyPress(KeyAscii As Integer)
If (KeyAscii = 9) Then
For N = 1 To 50000
Shape1.BackColor = QBColor(12)
Shape2.BackColor = QBColor(8)
Shape3.BackColor = QBColor(8)
DoEvents
Next N
For N = 1 To 50000
Shape1.BackColor = QBColor(12)
Shape2.BackColor = QBColor(14)
Shape3.BackColor = QBColor(8)
DoEvents
Next N
For N = 1 To 50000
Shape1.BackColor = QBColor(8)
Shape2.BackColor = QBColor(8)
Shape3.BackColor = QBColor(10)
DoEvents
Next N
For N = 1 To 50000
Shape1.BackColor = QBColor(8)
Shape2.BackColor = QBColor(14)
Shape3.BackColor = QBColor(8)
DoEvents
Next N
For N = 1 To 50000
Shape1.BackColor = QBColor(12)
Shape2.BackColor = QBColor(8)
Shape3.BackColor = QBColor(8)
DoEvents
Next N
DoEvents
KeyAscii = keyacii + 1
Else
Exit Sub
End If
End Sub
我正在寫一個交通燈的program
老師吩咐我們當program 被run時
只按keyboard的 TAB 鍵就可以轉燈.....
因為我是初哥....
就連loop我也不知如何使用......
各位可以幫我一把嗎?
下面是我寫的「不清不楚」未完成program的部份....
請指點指點
Private Sub Command1_Click()
End
End Sub
Private Sub Command1_KeyPress(KeyAscii As Integer)
If (KeyAscii = 9) Then
For N = 1 To 50000
Shape1.BackColor = QBColor(12)
Shape2.BackColor = QBColor(8)
Shape3.BackColor = QBColor(8)
DoEvents
Next N
For N = 1 To 50000
Shape1.BackColor = QBColor(12)
Shape2.BackColor = QBColor(14)
Shape3.BackColor = QBColor(8)
DoEvents
Next N
For N = 1 To 50000
Shape1.BackColor = QBColor(8)
Shape2.BackColor = QBColor(8)
Shape3.BackColor = QBColor(10)
DoEvents
Next N
For N = 1 To 50000
Shape1.BackColor = QBColor(8)
Shape2.BackColor = QBColor(14)
Shape3.BackColor = QBColor(8)
DoEvents
Next N
For N = 1 To 50000
Shape1.BackColor = QBColor(12)
Shape2.BackColor = QBColor(8)
Shape3.BackColor = QBColor(8)
DoEvents
Next N
DoEvents
KeyAscii = keyacii + 1
Else
Exit Sub
End If
End Sub
How to use the .DLL files send the ADODB.Connection object t(編號：8492)
How to use the .DLL files send the ADODB.Connection object to the ASP files ???
回應:VB上不了檯面..(編號：8491)
很多您要做的功能...
不是VB不行..而是您的功力及認知不足吧...
小弟目前...雖說是用BCB在開發..但對小弟來說..
並沒有差...公司用那一套..我就用而已..
程式語言一樣...怎麼開發出的產品優劣立見..??
可能是logic有差..但小弟認為這是用心的問題..
internet方面..Winsock OCX不強!?..沒關係..
Windows Socket API讓您call~~
MultiMedia方面...M$也提供相當多的function/subroutine了..
自從VB可以call API...VB就開始加強database..
到現在...很多朋友都覺得不錯~~
VB+SDK可以開發太多的東西了...
希望大家一起加油~~^_^~~
P.S OS是root(不考慮Framework)..多少了解...
問問題才不會太糗...對日後寫作也很有幫助~~^_^~~
不是VB不行..而是您的功力及認知不足吧...
小弟目前...雖說是用BCB在開發..但對小弟來說..
並沒有差...公司用那一套..我就用而已..
程式語言一樣...怎麼開發出的產品優劣立見..??
可能是logic有差..但小弟認為這是用心的問題..
internet方面..Winsock OCX不強!?..沒關係..
Windows Socket API讓您call~~
MultiMedia方面...M$也提供相當多的function/subroutine了..
自從VB可以call API...VB就開始加強database..
到現在...很多朋友都覺得不錯~~
VB+SDK可以開發太多的東西了...
希望大家一起加油~~^_^~~
P.S OS是root(不考慮Framework)..多少了解...
問問題才不會太糗...對日後寫作也很有幫助~~^_^~~
How to use SSTAB?(編號：8489)
I've use the sstab to divide several pages. However, I don't know how to control the tab gets the focus. Can anyone help me?
datagrid further question(編號：8487)
Excuse me, how can I perfrom the following actions:
1. Query by SQL and put the result in datagrid
2. Click any one of the row an then update the data ( only one data need to update in each record )
1. Query by SQL and put the result in datagrid
2. Click any one of the row an then update the data ( only one data need to update in each record )
請問 Seagate Crystal report 8.0 之CD Key....(編號：8486)
請問哪位先進能否提供 Seagate Crystal report 8.0 之CD Key....
拜託請 Mail 給小弟好嗎？謝謝您！
拜託請 Mail 給小弟好嗎？謝謝您！
datagrid question(編號：8485)
Can any one has method to make the datagrid the most left column (That's is user press it, the whole row wil be highlighted) invisible.
網路....VB....8255.........救人喔~~~~(編號：8484)
我想做一個網頁...在網頁上可控制Sever端的電腦來做I/0的輸出..
這程式是要用VB來寫的....我Sever端的電腦和馬達是用8255來做介面....
請問要如何著手呢???
又或是有何書籍可供參考呢???
拜託....請教教我吧~~~~~
這程式是要用VB來寫的....我Sever端的電腦和馬達是用8255來做介面....
請問要如何著手呢???
又或是有何書籍可供參考呢???
拜託....請教教我吧~~~~~
ADODC with datagrid question(編號：8483)
Excuse me, how can I control the datagrid linked with adodc and cancel the linkage of them by using code?
請問 ADODC 更新資料錄市時 都是套用SQL語法嗎??(編號：8482)
請問 ADODC 更新資料錄市時 都是套用SQL語法嗎??
因為 我用 ADODC + DATAGRID 時 開啟一個 單一欄位的資料表時
新增數筆資料 若是 有資料相同時 只要刪其中一個 就會錯誤
同樣的 TABLE 用ACCESS 開啟 就不會有問題??
有解決之道嗎 ??
因為 我用 ADODC + DATAGRID 時 開啟一個 單一欄位的資料表時
新增數筆資料 若是 有資料相同時 只要刪其中一個 就會錯誤
同樣的 TABLE 用ACCESS 開啟 就不會有問題??
有解決之道嗎 ??
help! debug program(編號：8480)
Option Explicit 'Must Declare all variables,
'I think that it is good practice
Option Base 1 'For simplicity,
'make array index start at 1 To n
Sub Perm(A() As String, m, n As Integer)
Dim i As Integer
Dim Temp As String
If m = 1 Then
PrintPerm A, n 'Print out the permutations
Else
For i = 1 To m
Temp = A(i)
A(i) = A(m) 'Exchange A(i) and A(m), could
'have made a Sub To Do this
A(m) = Temp
Perm A, m - 1, n 'Recursive Function call
Temp = A(m)
A(m) = A(i) 'Exchange A(m) and A(i)
A(i) = Temp
Next i
End If
End Sub
Private Sub Command1_Click()
Dim i As Integer
n = Len(Text1.Text)
ReDim strArray(n) As String
For i = 1 To n
strArray(i) = Mid(Text1.Text, i, 1)
Next i
' strArray(1) = "a"
' strArray(2) = "b" 'Initialize array With abcdcfg
' strArray(3) = "c" 'Create a text box To input other strings
' strArray(4) = "d"
' strArray(5) = "e"
' strArray(6) = "f"
' strArray(7) = "g"
Perm strArray(), m, n 'Of course you could use variables For this
Print n & "份資料排列" & n & "! = "; F(n)
End Sub
Public Sub PrintPerm(A() As String, n As Integer)
Dim i As Integer
Dim strVar As String
For i = 1 To n
strVar = strVar & (A(i))
Next i
List1.AddItem strVar
End Sub
Function F(n)
If n = 0 Then ' 當 N=0 時，F(N) = 1
F = 1
Else
F = n * F(n - 1) ' 當 N＞0 時，F(N) = N*F(N-1)
End If ' 以上的 F(N-1) 即為遞迴呼叫
End Function
'I think that it is good practice
Option Base 1 'For simplicity,
'make array index start at 1 To n
Sub Perm(A() As String, m, n As Integer)
Dim i As Integer
Dim Temp As String
If m = 1 Then
PrintPerm A, n 'Print out the permutations
Else
For i = 1 To m
Temp = A(i)
A(i) = A(m) 'Exchange A(i) and A(m), could
'have made a Sub To Do this
A(m) = Temp
Perm A, m - 1, n 'Recursive Function call
Temp = A(m)
A(m) = A(i) 'Exchange A(m) and A(i)
A(i) = Temp
Next i
End If
End Sub
Private Sub Command1_Click()
Dim i As Integer
n = Len(Text1.Text)
ReDim strArray(n) As String
For i = 1 To n
strArray(i) = Mid(Text1.Text, i, 1)
Next i
' strArray(1) = "a"
' strArray(2) = "b" 'Initialize array With abcdcfg
' strArray(3) = "c" 'Create a text box To input other strings
' strArray(4) = "d"
' strArray(5) = "e"
' strArray(6) = "f"
' strArray(7) = "g"
Perm strArray(), m, n 'Of course you could use variables For this
Print n & "份資料排列" & n & "! = "; F(n)
End Sub
Public Sub PrintPerm(A() As String, n As Integer)
Dim i As Integer
Dim strVar As String
For i = 1 To n
strVar = strVar & (A(i))
Next i
List1.AddItem strVar
End Sub
Function F(n)
If n = 0 Then ' 當 N=0 時，F(N) = 1
F = 1
Else
F = n * F(n - 1) ' 當 N＞0 時，F(N) = N*F(N-1)
End If ' 以上的 F(N-1) 即為遞迴呼叫
End Function
我有一個 listbox ......(編號：8478)
我有一個ListBox,裡面有學生的姓名.
如何在點選後,使TextBox中的資料自動跑到某生的成績.
也就是使DataGrid自動跳到某一行???
如何在點選後,使TextBox中的資料自動跑到某生的成績.
也就是使DataGrid自動跳到某一行???
如何用c來寫計算成積系統?(編號：8477)
這個問題可能比較幼稚，但希望各位高手不吝賜教....多謝各位!
如何可以用c來寫一個計算成積系統呢?
這可系統可以將各學生的分數輸入後，列出他們各科合計的平均分數，並出現等級(a,b,c...)，最後還可以將學生的名次依序排列出來.....
有沒有高手可以給點賜教呢? 可否寄一個關於成積表方面的程式範例給我呢?
如何可以用c來寫一個計算成積系統呢?
這可系統可以將各學生的分數輸入後，列出他們各科合計的平均分數，並出現等級(a,b,c...)，最後還可以將學生的名次依序排列出來.....
有沒有高手可以給點賜教呢? 可否寄一個關於成積表方面的程式範例給我呢?
如何去計算 程式的 running time (ms)(編號：8476)
我目前都是用 timer() 去取得前後時間
再去相減. 但我發現其實它的解析度不夠高,
有蠻大的誤差。有無任何 api function能
提供這個功能?
不知大家對這個 topic有何看法?
再去相減. 但我發現其實它的解析度不夠高,
有蠻大的誤差。有無任何 api function能
提供這個功能?
不知大家對這個 topic有何看法?
為什麼dataenvironment沒有辨法show出資料?(編號：8475)
請問各位高手,為什麼datagrid的屬性視窗內設定datasource(dataenvironment1)和datamember(command1)的屬性時可以show出資料,但是在程式內設定:set datagrid1.datasource=dataenvironment1
datagrid1.member=command1
卻show不出資料呢?
datagrid1.member=command1
卻show不出資料呢?
有興趣寫遊戲的朋友不妨看看此書(編號：8474)
VISUAL BASIC 遊戲設計實務
文魁資訊股份有限公司
位元文化 編著
作者 林新德
可能自己見認少吧,以中文書,而又是和遊戲製作有關的VB書實在太少,覺得這本的內容不錯,有興趣的朋友不妨看看,但要有一些基本VB概念。
（有一些DIRECT X的範例,
香港的朋友可以到黃金找找看）
文魁資訊股份有限公司
位元文化 編著
作者 林新德
可能自己見認少吧,以中文書,而又是和遊戲製作有關的VB書實在太少,覺得這本的內容不錯,有興趣的朋友不妨看看,但要有一些基本VB概念。
（有一些DIRECT X的範例,
香港的朋友可以到黃金找找看）
利用stored produre傳參數欄位到crystal report ,如何在crystal (編號：8473)
利用(SQL)stored procedure傳參數欄位到crystal report ,如何在crystal report上取得的參數欄位??
怎樣可以disable Alt-F4 及其相關功能?(編號：8471)
Hi,
我本身是用Access 97 加上 VBA 去編寫我的Database, 所以每馮要開這database 時就要先啟動Access的shell.
而問題就是Access本身視窗的右上角有 "x" 的關閉鍵, 但我本身已有設定好的Process去關閉database,
所以若user 按了access 本身的 "x" 鍵就會跳過了我本身設定的process.
想問問有什麼成法可以disable 這個鍵?
曾試過使用你在網頁內 'disable 關閉鍵' 的文章但這 procedure 只適用於access 內的form, 不是 access 本身.
懇請賜教.
Joshua
我本身是用Access 97 加上 VBA 去編寫我的Database, 所以每馮要開這database 時就要先啟動Access的shell.
而問題就是Access本身視窗的右上角有 "x" 的關閉鍵, 但我本身已有設定好的Process去關閉database,
所以若user 按了access 本身的 "x" 鍵就會跳過了我本身設定的process.
想問問有什麼成法可以disable 這個鍵?
曾試過使用你在網頁內 'disable 關閉鍵' 的文章但這 procedure 只適用於access 內的form, 不是 access 本身.
懇請賜教.
Joshua
ASP的問題(編號：8469)
各位好:
請教ASP高手，比如我寫的ASP網頁有二張圖片，一張是A,一張是B
如出現A的相片，那跑馬燈(用TEXTBOX))就出現A相片人的資料一直在迴旋.
如出現B的相片,那跑馬燈就出現B相片人的資料一直在迴旋.
請教高手該如何寫呢?
因我寫到的無論相片是A還是B而跑馬燈不會轉變資料,一直是A相片的資料.
多指教,先在此謝謝!
請教ASP高手，比如我寫的ASP網頁有二張圖片，一張是A,一張是B
如出現A的相片，那跑馬燈(用TEXTBOX))就出現A相片人的資料一直在迴旋.
如出現B的相片,那跑馬燈就出現B相片人的資料一直在迴旋.
請教高手該如何寫呢?
因我寫到的無論相片是A還是B而跑馬燈不會轉變資料,一直是A相片的資料.
多指教,先在此謝謝!
請問 VC++ winsocket programming(編號：8468)
請問 VC++ winsocket programming
用CSocket,CSocketFile,CArchive 適合來和任意主機溝通嗎?
還是用請問 CAsyncSocket 比較好呢 ?
請問高手是用什麼來寫 winsock programming ?
Thanks
用CSocket,CSocketFile,CArchive 適合來和任意主機溝通嗎?
還是用請問 CAsyncSocket 比較好呢 ?
請問高手是用什麼來寫 winsock programming ?
Thanks
Data\Fax modem vs Voice modem(編號：8467)
透過 modem play/recode voice 一定得用 voice modem ?
若如此 請問
1:那家廠牌 voice modem 適合
2:一台價格?
3:程式是參考 netpoint/modemtools 之 ocx
請問有誰用此ocx 配合 voice modem 之成功案例?
若如此 請問
1:那家廠牌 voice modem 適合
2:一台價格?
3:程式是參考 netpoint/modemtools 之 ocx
請問有誰用此ocx 配合 voice modem 之成功案例?
用option來選擇要show的form(編號：8461)
用option來選擇要show的form，當option第一次被點選的時候是show出原始的form，但是當option第二次以後被點選，則show出經過前一次修改後的form，而不是原始的form
SQL敘述(編號：8459)
以下是我SQL敘述,請問各位大賢,如何下MoDetail.DateID條件但所有Kind.KindID都要出來----------------------------------------------------------------------------------------------------
SELECT Kind.KindID, Kind.KindName, MoDetail.GoodsID, Goods.GoodsName1,MoDetail.Remark, MoDetail.SupID, MoDetail.OrdID, MoDetail.DateID
FROM MoDetail INNER JOIN
Goods ON MoDetail.GoodsID = Goods.GoodsID RIGHT OUTER JOIN
Kind ON Goods.KindID = Kind.KindID
SELECT Kind.KindID, Kind.KindName, MoDetail.GoodsID, Goods.GoodsName1,MoDetail.Remark, MoDetail.SupID, MoDetail.OrdID, MoDetail.DateID
FROM MoDetail INNER JOIN
Goods ON MoDetail.GoodsID = Goods.GoodsID RIGHT OUTER JOIN
Kind ON Goods.KindID = Kind.KindID
英文Window從ASP顯示日期格式如何改變成YYYY/MM/DD(編號：8453)
因為作業系統為英文ASP從資料庫抓取日期格式的資料時都會顯示成
MM/DD/YYYY!!如何將其顯示成YYYY/MM/DD
我有在控制台的日期格式設定設可是不行
有可能是在IIS內部設定嗎!!!
MM/DD/YYYY!!如何將其顯示成YYYY/MM/DD
我有在控制台的日期格式設定設可是不行
有可能是在IIS內部設定嗎!!!
Visual Studio 6.0 Service Pack 4(編號：8452)
請問 Visual Studio 6.0 Service Pack 4 有修正那些東西呢？
可以舉例嗎？不知道各位覺得 Visual Studio 6.0 Service Pack 4
因不因該裝呢？
可以舉例嗎？不知道各位覺得 Visual Studio 6.0 Service Pack 4
因不因該裝呢？
請問離開程式時是否儲存判斷～(編號：8448)
請問各位高手：
當我離開某一程式時，要出現一提示訊息，
判斷使用者是否要儲存所做的變更
我的條件是用此表單的所有物件（TEXTBOX、LISTBOX）
是否不等於空值
請問我應該如何下這判斷的指令？
之前是有想到用IF一個個去判斷是否為空字串
但由於物件過多，
所以判斷句變的有一長串
請問是否有較好的方式呢？
萬分感謝～～～
當我離開某一程式時，要出現一提示訊息，
判斷使用者是否要儲存所做的變更
我的條件是用此表單的所有物件（TEXTBOX、LISTBOX）
是否不等於空值
請問我應該如何下這判斷的指令？
之前是有想到用IF一個個去判斷是否為空字串
但由於物件過多，
所以判斷句變的有一長串
請問是否有較好的方式呢？
萬分感謝～～～
高手救命!!請問資料表名稱要如何修改(編號：8447)
以下是程式碼
但但她確不動作且告訴我錯了了!請問正確的語法??救人喔!!
Set Ws = DBEngine.Workspaces(0)
Set db1 = Ws.OpenDatabase(App.Path + "\.\TTT.MDB")
db1.Execute "ALTER TABLE [新資料表] RENAME COLUMN [待修改資料欄] TO [更改資料欄]", dbSQLPassThrough
但但她確不動作且告訴我錯了了!請問正確的語法??救人喔!!
Set Ws = DBEngine.Workspaces(0)
Set db1 = Ws.OpenDatabase(App.Path + "\.\TTT.MDB")
db1.Execute "ALTER TABLE [新資料表] RENAME COLUMN [待修改資料欄] TO [更改資料欄]", dbSQLPassThrough
如何判斷是否為完全平方呀??(編號：8445)
我用sqr開平方,我只要完全平方的,要如何判段??
比如:
for i =1 to 1000
num=sqr(i)
我要怎麼列出一到一千是完全平的???
謝謝..
一個笨笨的新手
比如:
for i =1 to 1000
num=sqr(i)
我要怎麼列出一到一千是完全平的???
謝謝..
一個笨笨的新手
請給予指教一下...不然我就被當定了..謝謝.(編號：8443)
大家好ㄚ.... 我手頭上有2個報告~ 但是我不會寫.. 一個是.."魔術方塊"~利用3*3or4*4的矩陣使該矩陣~橫的.直的.斜的~都等於一個數字另一個是"萬年曆"~是輸入想查看的年~它就會把整年的日期~推算出來.. 希望大家能幫幫忙.. 如果可以的話請寄e.mail給我~謝謝大家嘍~^^
另外..這是"魔術方塊"的一些程式..但是卻不能執行~請各為幫幫忙~告訴我是那邊出錯了~好嗎??謝謝各位嘍..^^
Option Explicit
Dim Rows As Integer
Dim Columns As Integer
Dim Magic()
Dim row As Integer
Dim col As Integer
Dim Length As Integer
Private Sub cmdEdit_Click()
Dim number
number = Val(InputBox("Please input ONE ODD Integer you want to make A MAGIC SQUARE ?"))
ReDim Magic(1 To number, 1 To number)
row = 1
col = Round(number / 2)
Magic(row, col) = 1
For Length = 2 To Sqr(number)
If (Length ＞ number) And (Length Mod number = 1) Then
row = row + 1
If row ＞ number Then
row = 1
End If
Magic(row, col) = Length
Else
row = row - 1
If row = 0 Then
row = number
End If
col = col + 1
If col = number + 1 Then
col = 1
End If
Magic(row, col) = Length
End If
Next Length
Print
Print "This is the MAGIC SQURE of ',number,' you want !!!"
Print
For row = 1 To number
For col = 1 To number
Print Magic(row, col)
Next col
Next row
End Sub
另外..這是"魔術方塊"的一些程式..但是卻不能執行~請各為幫幫忙~告訴我是那邊出錯了~好嗎??謝謝各位嘍..^^
Option Explicit
Dim Rows As Integer
Dim Columns As Integer
Dim Magic()
Dim row As Integer
Dim col As Integer
Dim Length As Integer
Private Sub cmdEdit_Click()
Dim number
number = Val(InputBox("Please input ONE ODD Integer you want to make A MAGIC SQUARE ?"))
ReDim Magic(1 To number, 1 To number)
row = 1
col = Round(number / 2)
Magic(row, col) = 1
For Length = 2 To Sqr(number)
If (Length ＞ number) And (Length Mod number = 1) Then
row = row + 1
If row ＞ number Then
row = 1
End If
Magic(row, col) = Length
Else
row = row - 1
If row = 0 Then
row = number
End If
col = col + 1
If col = number + 1 Then
col = 1
End If
Magic(row, col) = Length
End If
Next Length
Print "This is the MAGIC SQURE of ',number,' you want !!!"
For row = 1 To number
For col = 1 To number
Print Magic(row, col)
Next col
Next row
End Sub
如何在播放AVI影片視窗中,加入中心十字線(編號：8442)
目前我拿到一張影像卡 upmost 301b,可以用ccd抓影像
影像卡附一個簡單的sdk發展工具,我使用vb6.0,可以compile及執行
執行的時候,好像是在播AVI畫面,只不過影像是由ccd來的.我想在視窗中加上十字線,但是不管我畫什麼東西在視窗上,
就是看不到改變,好像這個視窗不歸我管似的,而且在單步執行的時候,也不會影響視窗的執行,一般的程式,應該會停下來等我們單步執行才對,我真的百思不解,是否有人曾經有撰寫類似程式的經驗,能稍微指點一下,謝謝您
影像卡附一個簡單的sdk發展工具,我使用vb6.0,可以compile及執行
執行的時候,好像是在播AVI畫面,只不過影像是由ccd來的.我想在視窗中加上十字線,但是不管我畫什麼東西在視窗上,
就是看不到改變,好像這個視窗不歸我管似的,而且在單步執行的時候,也不會影響視窗的執行,一般的程式,應該會停下來等我們單步執行才對,我真的百思不解,是否有人曾經有撰寫類似程式的經驗,能稍微指點一下,謝謝您
如何用動態的物件名稱?類似javascript的eval~~~(編號：8441)
我用Control.add動態建立物件~好像不能建立陣列物件...
所以用變數控制~例如:text1,text2,text3.........
但之後要使用物件屬性時不知如何像javascript用eval來取字串最
後結果.....
例如:text & i.text=""
這樣的寫法是不行的...有人知道怎麼解決嗎??
謝謝~~~
所以用變數控制~例如:text1,text2,text3.........
但之後要使用物件屬性時不知如何像javascript用eval來取字串最
後結果.....
例如:text & i.text=""
這樣的寫法是不行的...有人知道怎麼解決嗎??
謝謝~~~
~~誰能幫幫我呀，我是個VB的新手.......(編號：8440)
請問各位高手:
我的學校作業要做兩個小程式，一個是類似小畫家的畫直線程式，
另一個是井字遊戲（只要連成一線就無法動了），可是我不知道該如
何寫，如果你知道的話，可以告訴我嗎？謝謝～～
我的學校作業要做兩個小程式，一個是類似小畫家的畫直線程式，
另一個是井字遊戲（只要連成一線就無法動了），可是我不知道該如
何寫，如果你知道的話，可以告訴我嗎？謝謝～～
Sheridan 倒閉了 ???!!!!(編號：8439)
販售 Data Widgets 的公司 (SSCommand 系列的那家),是否掛掉了呢? 我想要買 Data Widgets 和 Calendar Widgets , 發了數封 mail
全都石沉大海 ,越洋電話亦不通.
Sheridan 到底出了什麼事呢 ?
全都石沉大海 ,越洋電話亦不通.
Sheridan 到底出了什麼事呢 ?
請問API的ExitWindowsEx(編號：8437)
1.請問這個API的四個參數:EWX_LOGOFFS
EWX_SHUTDOWN
EWX_REBOOT
EWX_FORCE
上面四個參數都是重新開機,但是差別在那裡?
2.另外有沒有關閉WINDOWS的API呢?如何使用呢?
3.我想寫一支可以關閉區域網路內某一台WIN98的電腦應該如何寫呢?
以上問題如果有人知道的話可以回答我嗎?THANK YOU!
EWX_SHUTDOWN
EWX_REBOOT
EWX_FORCE
上面四個參數都是重新開機,但是差別在那裡?
2.另外有沒有關閉WINDOWS的API呢?如何使用呢?
3.我想寫一支可以關閉區域網路內某一台WIN98的電腦應該如何寫呢?
以上問題如果有人知道的話可以回答我嗎?THANK YOU!
如何偵測滑鼠所click 的是那個form and 那個物件的name(編號：8436)
我看過VB心得寫作陳威文先生的hook中的how to chang msgbox 的yes and no 的更改名稱(真是厲害)，但如果今天是要找滑鼠所click的是(那個form and 那個物件)的name呢??應該如何做??是要call 那個API呢??
希望那個先知如知道如何下手請指導一下。謝謝
希望那個先知如知道如何下手請指導一下。謝謝
資料庫..disconnection..connection...form拖曳(編號：8434)
ㄟ....查過之前各位老大門精心討論出來的filecopy 結果
一定要先把dataenvironment connection 給停掉
利用 xx.close set xx = nothing
但...怎麼用..我都得到object variable or with block variable not set ..run time error 91
那....資料庫用到一半..想改路徑..是不是也要先停掉在改路徑呢?
還有..最後一個笨問題...我把form 上面那條藍色的bar 給拿掉..
以至於form 不能用滑鼠拖來脫去的...
請問有啥補救方法嗎?(不要那個有點醜醜的藍色的bar )
先謝謝各為了-_-
一定要先把dataenvironment connection 給停掉
利用 xx.close set xx = nothing
但...怎麼用..我都得到object variable or with block variable not set ..run time error 91
那....資料庫用到一半..想改路徑..是不是也要先停掉在改路徑呢?
還有..最後一個笨問題...我把form 上面那條藍色的bar 給拿掉..
以至於form 不能用滑鼠拖來脫去的...
請問有啥補救方法嗎?(不要那個有點醜醜的藍色的bar )
先謝謝各為了-_-
編譯之後的軟體會因環境不同而不能執行??(編號：8433)
我將編譯過後的程式掛在別的電腦上
但是RUN的時候它顯示因缺少檔案而不能執行
有的是.OCX..有的是.DLL
之後我就在那台電腦上灌了VB..就能RUN了
但是畫面的尺寸卻亂掉了..我只得在那台電腦修改尺寸再編譯一次
才回復正常
我的問題是:
1.別的環境沒有灌VB的話就無法執行編譯後的程式嗎??
2.為什麼畫面的尺寸會亂掉..有無程式碼去控制畫面的最大化??
3.是不是最大化之後畫面在別台電腦上也不會亂掉呢??
不好意思..請賜教..謝謝
但是RUN的時候它顯示因缺少檔案而不能執行
有的是.OCX..有的是.DLL
之後我就在那台電腦上灌了VB..就能RUN了
但是畫面的尺寸卻亂掉了..我只得在那台電腦修改尺寸再編譯一次
才回復正常
我的問題是:
1.別的環境沒有灌VB的話就無法執行編譯後的程式嗎??
2.為什麼畫面的尺寸會亂掉..有無程式碼去控制畫面的最大化??
3.是不是最大化之後畫面在別台電腦上也不會亂掉呢??
不好意思..請賜教..謝謝
Sorry! Doevents的另類問題(編號：8432)
對不起, 我知道這裡是VB的討論區, 但是否有那位高手可回答, 謝謝! 另也向版主說聲對不起! 請原諒一下. 問題是:VB中的DoEvents 命令,在 Delphi 中的相對指令是何, 請問一下,謝謝!
MDAC 2.6 中文亂碼(編號：8430)
在 Win2000 英文版 + sp1 之後若未安裝 MDAC 2.6 中文版會有中文亂碼產生, 而且會出現 update 錯誤(有時候不會), 原因不明(應該是MDAC版本錯亂了).
sp4 與 access 2000(編號：8429)
vb無法使用access 2000,應該是很多人心中的遺憾,這個遺憾在sp4出來後已獲得解決,但在vb環境下使用access 2000的資料庫正常,編譯成執行檔後卻出現 "無法載入ISAM" ,這應該是access 2000的資料庫格式無法在編譯成執行檔後被辨認,如何解決呢?
請知曉者,麻煩告知!!謝謝!!
請知曉者,麻煩告知!!謝謝!!
中文軟體鍵盤再問,請眾高手幫忙!!!!!!!(編號：8428)
請問是否可將 IME StatusWindows (顯示目前輸入方式的視窗)隱藏不顯示,
或是改成自己設計的畫面!! 謝謝幫忙!!!!!!
或是改成自己設計的畫面!! 謝謝幫忙!!!!!!
如何在html使用telnet?(編號：8426)
如何在html或coldfusion中使用telnet并將用戶名(login)和密碼傳遞過去﹖即﹕登錄到主機上時不需再輸用戶名和密碼(二者已知)。(已有連接方式在此＜a href="telnet://206.25.269.456"＞dfdf＜/a＞)
希望Microsoft看到...(編號：8424)
Dear Microsoft..
369該適用所有學生...
今天在kimo看到udn的news
http://news.kimo.com.tw/2000/12/13/technology/udn/817288.html
拜託..啥咪中小學生用PowerPoint...
國中都有 MCP 了....鼓勵我們用正版.....快推出吧...
by Peter ^_^
369該適用所有學生...
今天在kimo看到udn的news
http://news.kimo.com.tw/2000/12/13/technology/udn/817288.html
拜託..啥咪中小學生用PowerPoint...
國中都有 MCP 了....鼓勵我們用正版.....快推出吧...
by Peter ^_^
請問:SQL 資料庫備份於磁帶(編號：8423)
我的資料庫建立於SQL 7.0 上, 需要用VB程式來做備份, 當我的磁帶是空的時, 備份都沒問題, 但是如果磁帶已有備份的資料, 而要再備份時就會產生 "逾期過時" 的錯誤訊息, 我已將 COMMAND.TIMEOUT 設為 120 了, 還是會有相同的情況(資料庫共30個左右),有誰知道這是怎麼回事呢?
究竟要用哪一個版本才能公開發賣或使用!?(編號：8420)
剛剛看了先先的doc.發覺某些vb所寫出的program是不能發售，又或者不能公開，究竟哪一個版才能做到以上的條件呢?是企業版?
另外企業版和專業版有沒有分別?
另外企業版和專業版有沒有分別?
程式封裝...跑出資料庫(編號：8419)
ㄟ...標題可能怪怪的....
我想請教的是....我把我的程式安裝...然後使用者去安裝這個程式後....連同的把我內建的資料庫也釋放出來..放在同個資料夾
(就好像剛安裝遊戲...遊戲內啥都沒有...一去執行遊戲後..跑出一堆..log files ..或是紀錄成績的那些檔案..或是...安裝玩遊戲..本身就把log files 釋放出來..然後去玩遊戲..資料就會自動紀錄再 log files 裡面)呃....不知道我這樣說輕不清楚＞_＜...
請問解決方法是在封裝時候..把資料庫加入就ok了嗎?
謝謝...
我想請教的是....我把我的程式安裝...然後使用者去安裝這個程式後....連同的把我內建的資料庫也釋放出來..放在同個資料夾
(就好像剛安裝遊戲...遊戲內啥都沒有...一去執行遊戲後..跑出一堆..log files ..或是紀錄成績的那些檔案..或是...安裝玩遊戲..本身就把log files 釋放出來..然後去玩遊戲..資料就會自動紀錄再 log files 裡面)呃....不知道我這樣說輕不清楚＞_＜...
請問解決方法是在封裝時候..把資料庫加入就ok了嗎?
謝謝...
難題!!!! 如何取用control array 中的 control(編號：8418)
For example
Dim sckSVR as winsock
index=3
load sckSVR(1)
load sckSVR(2)
load sckSVR(3)
'--- Unload
unload sckSVR(2)
如何refer to sckSVR array 的item 2 --- 原sckSVR(3)
sckSVR.item(2) or sckSVR(2) will be ERROR!
Please provide your advanced opinions, TKS very much
TONY
Dim sckSVR as winsock
index=3
load sckSVR(1)
load sckSVR(2)
load sckSVR(3)
'--- Unload
unload sckSVR(2)
如何refer to sckSVR array 的item 2 --- 原sckSVR(3)
sckSVR.item(2) or sckSVR(2) will be ERROR!
Please provide your advanced opinions, TKS very much
TONY
請問一個資料庫的問題(編號：8416)
請問如果當我用 ADODC(不是 Data Environment, 也不是 ADO) 的時
候, 是處於作用中, 但是我在執行 kill, Name xxx as yyy 的時候,
他會出現 "沒有使用權限" 這個錯誤訊息, 是否因為資料庫已開啟,
所以出現這個訊息, 如果是的話, 我該如何才能解決這個問題, 如
果不是, 請問還有其他原因嗎
請各位高手幫幫我吧!
候, 是處於作用中, 但是我在執行 kill, Name xxx as yyy 的時候,
他會出現 "沒有使用權限" 這個錯誤訊息, 是否因為資料庫已開啟,
所以出現這個訊息, 如果是的話, 我該如何才能解決這個問題, 如
果不是, 請問還有其他原因嗎
請各位高手幫幫我吧!
關於封包的問題(編號：8415)
如果我的程式需要使用子資料夾的檔案(如圖片、音效等)，
如果封包以後，再安裝程式時，我希望這些子資料夾和裡面
的檔案能全部安裝到指定的資料夾內，請問程式要如何寫呢？ 謝謝啦！！ 我的程式碼如下！
(假如我的圖片(1.jpg)放在子資料夾(123)裡面)
Dim dir as string
-----------------------
Private sub form_load()
dir = APP.path
End Sub
-----------------------
Private sub form_Click()
dim temp as String
temp=dir + "\123"
Pic.Picture=loadpicture(temp+"1.jpg")
End Sub
雖然程式譯成執行檔以後，使用上是沒問題的。
不過把程式封包後，在安裝時只會把 1.JPG 安裝到
你所希望放這軟體的主資料夾，而不是安裝到123的
子資料夾內，所以造成執行時找不到圖片的錯誤！
如果封包以後，再安裝程式時，我希望這些子資料夾和裡面
的檔案能全部安裝到指定的資料夾內，請問程式要如何寫呢？ 謝謝啦！！ 我的程式碼如下！
(假如我的圖片(1.jpg)放在子資料夾(123)裡面)
Dim dir as string
-----------------------
Private sub form_load()
dir = APP.path
End Sub
-----------------------
Private sub form_Click()
dim temp as String
temp=dir + "\123"
Pic.Picture=loadpicture(temp+"1.jpg")
End Sub
雖然程式譯成執行檔以後，使用上是沒問題的。
不過把程式封包後，在安裝時只會把 1.JPG 安裝到
你所希望放這軟體的主資料夾，而不是安裝到123的
子資料夾內，所以造成執行時找不到圖片的錯誤！
請問下列字串代表含意？(編號：8414)
Private Const aa As String = "^\w+((-\w+)!(\.\w+))*\@\w+((\.!-)\w+)*\.\w+$"
後面那一串是做啥用的呀！
後面那一串是做啥用的呀！
請問一下 S Q L語法該如何下，前面才會出現，1 ，2 ，3 ........(編號：8413)
請問一下我語法該如何下，前面才會出現，1 ，2 ，3 ........
1 s885401 陳析
2 s885402 陳B
3 s885403 陳A
. . .
1 s885401 陳析
2 s885402 陳B
3 s885403 陳A
. . .
Crystal Report 8.0(編號：8412)
請問我已經安裝了Crystal Report 8.0,但是為什麼在VB的Add in裡面找不到Report Designer呢?我是否需要手動安裝什麼元件呢?謝謝
mshflexgrid與dataenvironment問題(編號：8410)
table中欄位型態為single(access mdb)
使用mshflexgrid與dataenvironment連結,且grid有band
執行時grid欄位出現4.5999999(table內資料為4.5)
3.4000001(.............3.4)
如何解決?
使用mshflexgrid與dataenvironment連結,且grid有band
執行時grid欄位出現4.5999999(table內資料為4.5)
3.4000001(.............3.4)
如何解決?
如何使用列印出image.picture(編號：8407)
我使用了Command Dialog的函數..
程式如下..
CmDialog1.CancelError = True
On Error GoTo errhandler
CmDialog1.ShowPrinter
For i = 1 To CmDialog1.Copies
Printer.Print ImageBase.Picture
Next i
Printer.EndDoc
errhandler:
Exit Sub
卻無法列印..
請問高手應如何解決...
程式如下..
CmDialog1.CancelError = True
On Error GoTo errhandler
CmDialog1.ShowPrinter
For i = 1 To CmDialog1.Copies
Printer.Print ImageBase.Picture
Next i
Printer.EndDoc
errhandler:
Exit Sub
卻無法列印..
請問高手應如何解決...
為何 z 不見了(編號：8404)
vb6 enterprise
nt4 + sp5
sql 7.0
為何我在 sql 中建的欄位是 zf_ser
在開發時執行沒有錯誤
但在包裝到另一台 98 時，要刪除資料時，會說找不到這一欄 f_ser 其實是有的
nt4 + sp5
sql 7.0
為何我在 sql 中建的欄位是 zf_ser
在開發時執行沒有錯誤
但在包裝到另一台 98 時，要刪除資料時，會說找不到這一欄 f_ser 其實是有的
vb make成exe 時產生的error(編號：8401)
在將專案要make成exe時會出現
"permission denied"的error message
錯誤的程式行如下
Set rsUserFunctions = aaConnection.OpenResultset(strQuery, rdOpenStatic)
它的錯誤字是OpenResultset
到底是哪裡出錯,我覺得好像不是程式的問題!
有人遇過嗎?可否幫我解答!!
Thanks!!
"permission denied"的error message
錯誤的程式行如下
Set rsUserFunctions = aaConnection.OpenResultset(strQuery, rdOpenStatic)
它的錯誤字是OpenResultset
到底是哪裡出錯,我覺得好像不是程式的問題!
有人遇過嗎?可否幫我解答!!
Thanks!!
資料庫放在server為何速度慢這麼多?(編號：8400)
資料庫內容7000筆公文內容
利用access2000放在本機,執行速度,可以。
但放置server端nt4.0, 利用sql7.0 或網路磁碟讀取7000筆的公文資料表時大約要40秒才會讀出,有何改善方法,或是正確作法?
請指點,謝謝!
利用access2000放在本機,執行速度,可以。
但放置server端nt4.0, 利用sql7.0 或網路磁碟讀取7000筆的公文資料表時大約要40秒才會讀出,有何改善方法,或是正確作法?
請指點,謝謝!
如何傳遞資料給另一個程式？(編號：8398)
如果我從VB程式中,call另一隻編譯過的程式.exe，如何得知它執行的狀況，假設我有設一個變數來存它的結果，那如何從我的主程式中得知變數的結果呢？ 謝謝...
有點困擾(編號：8396)
請問一下，我們在輸入地方如果輸入16.3，可是程式中要將他分解成加法就像解是1+6+3這個答案=9，要如何去做~~~
那如果我要取前兩位的數16.3則答案1+6=7那要如何做出它，
我試了一下總是掛了。拜託各位幫我吧！~~~~^-^
那如果我要取前兩位的數16.3則答案1+6=7那要如何做出它，
我試了一下總是掛了。拜託各位幫我吧！~~~~^-^
幫幫我吧..................................(編號：8395)
有誰能幫幫我..................................
幫我找兩種程式語言並且說明此功能 好嗎..........
P.S如果願意幫我著,請在12月30日以前,傳E-mail給我.
我的是E-mail:7075296@kimo.com.tw. 我將會十分的感謝你
幫我找兩種程式語言並且說明此功能 好嗎..........
P.S如果願意幫我著,請在12月30日以前,傳E-mail給我.
我的是E-mail:7075296@kimo.com.tw. 我將會十分的感謝你
about access text file(編號：8394)
我是VB的初學者. 我想請教各位怎樣可以一行一行地讀入 ".txt" 的檔案內資料. 把有用的資料暫時記下. 直到EOF時把該資料output 到另一".txt"的檔案.
請教一個很急的資料庫問題(編號：8389)
各位先進..小弟有一個問題想請教
我有三個欄位..值不能重覆
我在做edit的動作的時候
我先把指標指向要edit的資料index
然後再以要修改的新值下去資料庫找有無重覆的值
如果找到就 msgbox("已有相同的資料")
找不到就做edit的動作..
除了在後端定義值為唯一的方法外
我能不能用程式控制的方式去達成
我語法應該怎麼寫..請幫幫忙
我有三個欄位..值不能重覆
我在做edit的動作的時候
我先把指標指向要edit的資料index
然後再以要修改的新值下去資料庫找有無重覆的值
如果找到就 msgbox("已有相同的資料")
找不到就做edit的動作..
除了在後端定義值為唯一的方法外
我能不能用程式控制的方式去達成
我語法應該怎麼寫..請幫幫忙
ImmGetCandidateList 問題, 請眾高手幫助!!!!!!(中文軟體鍵盤)(編號：8388)
我要用 VB 開發一中文 Software Keyboard 來取代系統的 Software Keyboard, 利用 IMM & IME API 中
ImmGetCandidateList 及相關 API 可以"注音符號"當輸入 取得相關中文字集, 但不希望系統的
Candidate Windows 顯示, 請問眾高手是否知道如何處理 , 謝謝幫忙!!!!!!
ImmGetCandidateList 及相關 API 可以"注音符號"當輸入 取得相關中文字集, 但不希望系統的
Candidate Windows 顯示, 請問眾高手是否知道如何處理 , 謝謝幫忙!!!!!!
執行階段錯誤126(編號：8386)
請問"執行階段錯誤126"代表什麼意思? 我查過MSDN都找不到
"執行階段錯誤126"的解釋,所以請各位專家高手幫忙解答! 謝謝!
之前我寫一個udpClient連線udpServer互送message的簡單程式,
全部都是用內建函數完成,但做成直執行檔之後,執行一送資料,在
client接到message後就會連帶發生"執行階段錯誤126"的訊息,
最後我在程式中,(任何地方)加入一行 On Error Resume Next
程式就不會在跳出"執行階段錯誤126"的訊息,至今程式還未有
不正常過,雖然程式問題解決了.但是我還是想知道 "126"到底
是什麼錯誤? 請各位幫忙解決我心中的疑惑!!!謝謝!!!
"執行階段錯誤126"的解釋,所以請各位專家高手幫忙解答! 謝謝!
之前我寫一個udpClient連線udpServer互送message的簡單程式,
全部都是用內建函數完成,但做成直執行檔之後,執行一送資料,在
client接到message後就會連帶發生"執行階段錯誤126"的訊息,
最後我在程式中,(任何地方)加入一行 On Error Resume Next
程式就不會在跳出"執行階段錯誤126"的訊息,至今程式還未有
不正常過,雖然程式問題解決了.但是我還是想知道 "126"到底
是什麼錯誤? 請各位幫忙解決我心中的疑惑!!!謝謝!!!
急急急急!!! 救命!!(編號：8385)
Hi!! 各位先進, 大家好!! , 請教一問題:
1. recordset.find (此recordset 是select 自 Access *.mdb 之資料) , 此一 function 經測試為大小寫不分 ,
請問有否方法可補救 , 急急急急!!! 救命!! (經測試為 *.mdb之問題)
2. recordset.find (此recordset 為透過 MTS 所產生) , 此一 function 經測試為大小寫不分 ,
請問有否方法可補救 , 急急急急!!! 救命!! (經測試為 VB recordset.find之問題)
ps : 後端為 ORACLE 8.1.x , 前端為 VB6.0
請各位先進 , 救救我!!
1. recordset.find (此recordset 是select 自 Access *.mdb 之資料) , 此一 function 經測試為大小寫不分 ,
請問有否方法可補救 , 急急急急!!! 救命!! (經測試為 *.mdb之問題)
2. recordset.find (此recordset 為透過 MTS 所產生) , 此一 function 經測試為大小寫不分 ,
請問有否方法可補救 , 急急急急!!! 救命!! (經測試為 VB recordset.find之問題)
ps : 後端為 ORACLE 8.1.x , 前端為 VB6.0
請各位先進 , 救救我!!
DataGrid控制項使用出現的訊息(編號：8384)
各位高手好，我在使用DataGrid中出現了一個訊息"Multiple-step operation generated errors. Check each status value.",雖然程式出現了這一段訊息，但是按下確定後，仍會正常執行，不會中斷不算錯誤，但是使用上應該不容許這樣的訊息窗出現，因為它沒有任何的錯誤碼，所以我不知道它究竟代表什麼意義，想請教各位高手，不知道有人可以告訴我這個訊息窗是什麼意思？而且應該要如何消除它呢？，附上一段這裡執行的程式碼。
Private Sub DataGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If DataGrid1.Col = 1 Then
Set Sele_Prod = New Recordset
Sele_Prod.Open "Select * from prod'", cn_mei, adOpenStatic
Sele_Prod.MoveFirst
DataGrid1.Columns(1).Text = Sele_Prod.Fields("A1").Value
DataGrid1.Columns(2).Text = Sele_Prod.Fields("A2").Value
DataGrid1.Columns(4).Text = Sele_Prod.Fields("A3").Value
DataGrid1.Columns(3).Text = 0
DataGrid1.Col = 3
DataGrid1.SetFocus
End IF
End IF
End Sub
Private Sub DataGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If DataGrid1.Col = 1 Then
Set Sele_Prod = New Recordset
Sele_Prod.Open "Select * from prod'", cn_mei, adOpenStatic
Sele_Prod.MoveFirst
DataGrid1.Columns(1).Text = Sele_Prod.Fields("A1").Value
DataGrid1.Columns(2).Text = Sele_Prod.Fields("A2").Value
DataGrid1.Columns(4).Text = Sele_Prod.Fields("A3").Value
DataGrid1.Columns(3).Text = 0
DataGrid1.Col = 3
DataGrid1.SetFocus
End IF
End IF
End Sub
請問一個設計元件上棘手的問題?(編號：8379)
我有設計一個元件使用在監控外部設備的驅動程式,我加上一些屬性,
其中當使用者讀寫這些屬性時,元件中之程式還必須去執行一些其他
副程式,可是我在Property Get,Property Let中加入副程式時,當我
設計階段拉入使用時確會會發生錯誤,因為此使元件中的這段程式竟然就被執行,(因為此副程式在設計不可以執行,其與使用MScomm有關,若執行會發生錯誤),請問我應該如何解決這樣的問題,謝謝.
其中當使用者讀寫這些屬性時,元件中之程式還必須去執行一些其他
副程式,可是我在Property Get,Property Let中加入副程式時,當我
設計階段拉入使用時確會會發生錯誤,因為此使元件中的這段程式竟然就被執行,(因為此副程式在設計不可以執行,其與使用MScomm有關,若執行會發生錯誤),請問我應該如何解決這樣的問題,謝謝.
借用MSDN帳號(編號：8378)
各位先進:
不好意思!
誰可以借我MSDN帳號
Microsoft Online ID 及 Password
我要下載Visual Studio.NET Beta 1用用看~!!謝謝!!!
不好意思!
誰可以借我MSDN帳號
Microsoft Online ID 及 Password
我要下載Visual Studio.NET Beta 1用用看~!!謝謝!!!
how to use forpro's cdx index file(編號：8376)
請問有人知道 如何設定ado 使用foxpro's .cdx 嗎?
我目前用dao 去開dbf 無法使用cdx 導致速度太慢,因為要與舊系統相容. 我知道codebase 可以做到,有人能提供其他的意見嗎?
能不用odbc 最好.
我目前用dao 去開dbf 無法使用cdx 導致速度太慢,因為要與舊系統相容. 我知道codebase 可以做到,有人能提供其他的意見嗎?
能不用odbc 最好.
Textbox question(編號：8373)
Excuse me, I want to ask if I want to use code to add some words in the textbox that enable the multi-line, then how can I jump to the next line and input the words again in the next line?
請問有沒有人會使用 vb 控制 Windows Media Encoder(編號：8369)
在下碰到一點困難，不知何方高手可為在下解惑？
如何使用 vb call Windows Media Encoder DLL檔
將 *.wav 檔轉檔及壓縮成 *.wma 檔
或是有執行檔可以直接下參數轉檔？
希望有高手能為我解惑！
如何使用 vb call Windows Media Encoder DLL檔
將 *.wav 檔轉檔及壓縮成 *.wma 檔
或是有執行檔可以直接下參數轉檔？
希望有高手能為我解惑！
怎麼安裝目錄啊?(封裝暨部署精靈)(編號：8367)
請教各位先進:
在安裝(封裝暨部署精靈)中, 我無法安裝一整個目錄; 因為我的程式必須使用某一個目錄下所有的圖片(約有300多張), 如果我一個一個選會死人的, 更何況我的圖片資料夾有20個之多. 請各位教教我吧!!!
在安裝(封裝暨部署精靈)中, 我無法安裝一整個目錄; 因為我的程式必須使用某一個目錄下所有的圖片(約有300多張), 如果我一個一個選會死人的, 更何況我的圖片資料夾有20個之多. 請各位教教我吧!!!
Open VB project會有error log!!(編號：8366)
用vb5.0開專案,內有多個from,若開from會有一些log
以下是其內容,有沒有人能幫我解答,到底是少裝了control
還是有其他問題,謝謝!!
Line 106: Property OleObjectBlob in lstAdvSelect could not be set.
Line 106: Cannot load control lstAdvSelect; license not found.
Line 352: Property OleObjectBlob in lstSelect could not be set.
Line 352: Cannot load control lstSelect; license not found.
以下是其內容,有沒有人能幫我解答,到底是少裝了control
還是有其他問題,謝謝!!
Line 106: Property OleObjectBlob in lstAdvSelect could not be set.
Line 106: Cannot load control lstAdvSelect; license not found.
Line 352: Property OleObjectBlob in lstSelect could not be set.
Line 352: Cannot load control lstSelect; license not found.
SQL 語法問題!!(編號：8365)
為何以下 SQL 指令會錯誤?
rs.open "select * from rs where getdate()-joindate＞=60",db
說明:
我要選出所有加入會員超過 60 天的會員資料 !
rs.open "select * from rs where getdate()-joindate＞=60",db
說明:
我要選出所有加入會員超過 60 天的會員資料 !
SQL 語法問題!!(編號：8364)
為何以下 SQL 指令會錯誤?
rs.open "select * from rs where getdate()-joindate＞=60",db
說明:
我要選出所有加入會員超過 60 天的會員資料 !
rs.open "select * from rs where getdate()-joindate＞=60",db
說明:
我要選出所有加入會員超過 60 天的會員資料 !
MSHFlexGrid...HeaderCaption...?(編號：8363)
我要把mshflexGrid的headercaption原為table中的欄位名稱變更With MSHFlexGrid1.
.ColHeaderCaption(0, 1) = "縣市名稱"
.ColHeaderCaption(1, 0) = "鄉鎮名稱"
.ColHeaderCaption(2, 0) = "村里名稱"
End With (使用Band0,Band1,Band2)
以上句子為何.ColHeaderCaption(0, 1) = "縣市名稱"執行時Grid
還是出現原table.filed名??
.ColHeaderCaption(0, 1) = "縣市名稱"
.ColHeaderCaption(1, 0) = "鄉鎮名稱"
.ColHeaderCaption(2, 0) = "村里名稱"
End With (使用Band0,Band1,Band2)
以上句子為何.ColHeaderCaption(0, 1) = "縣市名稱"執行時Grid
還是出現原table.filed名??
如何平順的播放一連串的陣列(編號：8362)
因為學校的關係, 要寫一個特殊的MPEG播放程式
目前寫到已解出各個PICTURE的資料陣列, 但要如何把他們
平順的播放在螢幕上, 用picturebox.Pset非常慢, 有沒有快速的方法
謝謝您的回答
目前寫到已解出各個PICTURE的資料陣列, 但要如何把他們
平順的播放在螢幕上, 用picturebox.Pset非常慢, 有沒有快速的方法
謝謝您的回答
小精靈.....(編號：8361)
我們老師期末作業 叫我們寫個遊戲
我覺得小精靈不錯....所以想寫
基本的我去控制小精靈我已會寫了....
但現在有些問題....
就是當小精靈不幸被魔王碰到時,就會消失(魔王是由電腦控制隨機亂跑的),請問該如何寫才能達到此功能?????
謝謝~~~~~~
我覺得小精靈不錯....所以想寫
基本的我去控制小精靈我已會寫了....
但現在有些問題....
就是當小精靈不幸被魔王碰到時,就會消失(魔王是由電腦控制隨機亂跑的),請問該如何寫才能達到此功能?????
謝謝~~~~~~
Win2000 print dialog 設定問題??(編號：8355)
VB6.0,我用commondialog叫出print dialog改變幾個設定值如彩色改單色等,但我改變的設定值都無法save起來(Win98下可以),我已經將PrinterDefault設為true了....請問要如何解決啊??
利用vb尋找已經產生的結果(編號：8354)
將vb設計成某一個應用程式執行前參數的輸入介面，當所有參數都輸入完畢之後，就呼叫此一應用程式進行計算，在不同的階段，會有不同的結果產生(比如說：result1.txt....)。那請問如何利用vb來偵測該階段的結果是否產生，以進行下一部的工作。
如何在IE 中將兩個window 的資料互傳!!!!!!!!!(編號：8353)
小弟利用asp 寫一個web的應用程式，有個地方，小弟欲在ie 中開啟一個小的ie視窗subwindow(利用openWindow)後，能在subwindow中(textbox)輸入一些值，按個鈕可將值傳回主視窗的textbox中，但不影響主視窗中其他欄已輸入的值，有沒有人會做的，指點一下小弟吧，謝謝!!!
[請教] ADO 可否不透過 ODBC 資料來源管理員更新 Excel/dBaseIV(編號：8350)
(VB5)
我自己很少用資料庫, 所以我也不確定...
我用 ADO 處理 Access 時, 即使 ODBC 資料來源管理員未做任何設定, 均可直接更新欄位
ex. RecordSet.Update FieldName, Value
但 Excel/DBaseIV 不行, 只要執行更新, 均會踢出更新失敗那個錯誤代碼, 經查 MSDN 後, 概略的意思是 Excel 要用 ODBC 資料來源管理員中設定, 並 DSN 檔中要設定 Excel 欄位可讀寫, dBaseIV 則未提, 想來可能接近!
目前我改用 Data 控制項來處理, 不過還是想知道, ADO 可否不透過 ODBC 資料來源管理員更新 Excel/dBaseIV!
ps:
OS: Win98 SE
Visual Basic: 5.0 SP3 企業版
ADO: 2.5 中文版
我自己很少用資料庫, 所以我也不確定...
我用 ADO 處理 Access 時, 即使 ODBC 資料來源管理員未做任何設定, 均可直接更新欄位
ex. RecordSet.Update FieldName, Value
但 Excel/DBaseIV 不行, 只要執行更新, 均會踢出更新失敗那個錯誤代碼, 經查 MSDN 後, 概略的意思是 Excel 要用 ODBC 資料來源管理員中設定, 並 DSN 檔中要設定 Excel 欄位可讀寫, dBaseIV 則未提, 想來可能接近!
目前我改用 Data 控制項來處理, 不過還是想知道, ADO 可否不透過 ODBC 資料來源管理員更新 Excel/dBaseIV!
ps:
OS: Win98 SE
Visual Basic: 5.0 SP3 企業版
ADO: 2.5 中文版
如何將屬性反向?(編號：8349)
如何將屬性反向
ex: text1.enabled = true 除了將 text1.enabled = false 外
還有其他寫法嗎!?類似 not....... 其它方法,Thanks!
ex: text1.enabled = true 除了將 text1.enabled = false 外
還有其他寫法嗎!?類似 not....... 其它方法,Thanks!
我都是CAD/CAM 他那種ㄉ註冊碼跟註冊機 都粉少--看內容(編號：8341)
BobCad-Cam V16.0 demo
Inplot 1.0a
TwinCAD V3.1
CAM Expert 1.0 Beta Trial
Inplot 1.0a
TwinCAD V3.1
CAM Expert 1.0 Beta Trial
高手..高手...快快救救我吧.....(編號：8340)
目前在利用VB6結合EXCEL
想要用INPUTBOX輸入數字來控制EXCEL的工作列數,
請問要怎做咧??
還有,在EXCEL結合VBA中,如何設定RANGE的範圍是變數,
並非固定的範圍,請問要怎做咧??
想要用INPUTBOX輸入數字來控制EXCEL的工作列數,
請問要怎做咧??
還有,在EXCEL結合VBA中,如何設定RANGE的範圍是變數,
並非固定的範圍,請問要怎做咧??
How To Release Memory(編號：8339)
I got a little problem that is "How To Release Memory" !
Does any ideal for this subject ...
Thanks a lot (Best have source code)
I use VB6.0C + SP3 In Windows NT 2000
Does any ideal for this subject ...
Thanks a lot (Best have source code)
I use VB6.0C + SP3 In Windows NT 2000
訂閱：
文章 (Atom)