提供小吳 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 .
使用到WebBrowser1元件(編號：9090)
請教高手
用途---用vb開啟製作好的網頁再本機的路徑
我有使用到WebBrowser1元件.把我做好的網頁呼叫出來
我想這樣就沒有IE的畫面
那我封裝成執行檔且要燒錄到光碟執行
問題1.
需要註冊SHDOCVW.DLL嗎
那要執行的那臺電腦ie版本有沒有影響呢 如IE4.0 IE5.0 IE5.5
問題2.
或者還需要其他的輔助檔案
請教知道這方面的高手指點 謝謝
用途---用vb開啟製作好的網頁再本機的路徑
我有使用到WebBrowser1元件.把我做好的網頁呼叫出來
我想這樣就沒有IE的畫面
那我封裝成執行檔且要燒錄到光碟執行
問題1.
需要註冊SHDOCVW.DLL嗎
那要執行的那臺電腦ie版本有沒有影響呢 如IE4.0 IE5.0 IE5.5
問題2.
或者還需要其他的輔助檔案
請教知道這方面的高手指點 謝謝
請問:如何以Byte方式將檔案透過專線傳輸至另一檔案!(編號：9088)
內容： 目前以 open 之 Binary Mode 開啟循序檔,用 input(byte,#1) 取data(以 Hex 碼) ;用 open 之 output Mode 開啟輸出檔 ,以 print #2,input(byte,#1) ; 語法寫入輸出檔.當所傳檔案為文字檔時皆正確 ,但在傳 .exe , .avi , .mdb , .rar 之測試檔時,都有內容減少 ,請問如何克服! Thanks
有關crviewer之問題(編號：9087)
請問1, crviewer 之enableclose button 已設為true,為何用rviewer開啟crystal報表時,close button("X")仍然為灰色無法使用
2.crviewer 開啟crystal 報表時可不可以預先設定比例大小%
2.crviewer 開啟crystal 報表時可不可以預先設定比例大小%
SQL建一個TABLE的命令如何使用呢?(編號：9086)
小弟想在SQL 7.0裡CREATE NEW TABLE
但書上都只介紹SELECT/UPDATE/INSERT...
VB能夠在執行時建一個TABLE及欄位在MS SQL7.0 DATABASE嗎?
相關的SQL COMMAND該如何使用呢??
請大家指點.謝謝!
但書上都只介紹SELECT/UPDATE/INSERT...
VB能夠在執行時建一個TABLE及欄位在MS SQL7.0 DATABASE嗎?
相關的SQL COMMAND該如何使用呢??
請大家指點.謝謝!
給TAN--查詢太過複雜(編號：9083)
在您的範例中,我還是沒有看到您的程式和那一個元件(如TextBox)作繫結,所以您在程式中所作的addnew與update動作是沒有意義的!
因為您根本就沒有[指定任何一個Fieldsh的值]!!
以下是比較完整的程式碼
Option Explicit
Dim bk As Variant
-----------------------------
Private Sub Command5_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
Command6.Enabled = True
Command5.Enabled = False
End Sub
Private Sub Command6_Click()
Adodc1.Recordset.Update
Command6.Enabled = False
Command5.Enabled = True
End Sub
Private Sub Command7_Click()
公共意外P.Show
End Sub
Private Sub Command8_Click()
bk = Adodc1.Recordset.Bookmark
Command6.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command8.Enabled = True
Text2.SetFocus
End Sub
Private Sub Command9_Click()
If MsgBox("您確定要刪除這筆資料嗎?", vbYesNo, "刪除資料") = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
End If
End Sub
Private Sub Command10_Click()
Command5.Caption = "新增"
Command6.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
End Sub
Private Sub Command11_Click()
Adodc1.Recordset.Update
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = False
Command8.Enabled = False
End Sub
Private Sub Command12_Click()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
Command11.Enabled = True
End Sub
Private Sub Text11_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text11.Text = Val(Text10.Text) * 4
End Sub
Private Sub Text13_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text13.Text = Val(Text12.Text) * 5
End Sub
Private Sub Text15_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text15.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text7.Text) + Val(Text9.Text) + Val(Text11.Text) + Val(Text13.Text)
End Sub
Private Sub Text17_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text17.Text = Val(Text16.Text) * 1
End Sub
Private Sub Text19_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text19.Text = Val(Text18.Text) * 2
End Sub
Private Sub Text21_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text21.Text = Val(Text20.Text) * 3
End Sub
Private Sub Text23_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text23.Text = Val(Text22.Text) * 3
End Sub
Private Sub Text25_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text25.Text = Val(Text24.Text) * 4
End Sub
Private Sub Text27_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text27.Text = Val(Text26.Text) * 5
End Sub
Private Sub Text29_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text29.Text = Val(Text17.Text) + Val(Text19.Text) + Val(Text21.Text) + Val(Text23.Text) + Val(Text25.Text) + Val(Text27.Text)
End Sub
Private Sub Text3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text3.Text = Val(Text2.Text) * 1
End Sub
Private Sub Text5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text5.Text = Val(Text4.Text) * 2
End Sub
Private Sub Text7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text7.Text = Val(Text6.Text) * 3
End Sub
Private Sub Text9_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text9.Text = Val(Text8.Text) * 3
End Sub
因為您根本就沒有[指定任何一個Fieldsh的值]!!
以下是比較完整的程式碼
Option Explicit
Dim bk As Variant
-----------------------------
Private Sub Command5_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
Command6.Enabled = True
Command5.Enabled = False
End Sub
Private Sub Command6_Click()
Adodc1.Recordset.Update
Command6.Enabled = False
Command5.Enabled = True
End Sub
Private Sub Command7_Click()
公共意外P.Show
End Sub
Private Sub Command8_Click()
bk = Adodc1.Recordset.Bookmark
Command6.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command8.Enabled = True
Text2.SetFocus
End Sub
Private Sub Command9_Click()
If MsgBox("您確定要刪除這筆資料嗎?", vbYesNo, "刪除資料") = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
End If
End Sub
Private Sub Command10_Click()
Command5.Caption = "新增"
Command6.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
End Sub
Private Sub Command11_Click()
Adodc1.Recordset.Update
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = False
Command8.Enabled = False
End Sub
Private Sub Command12_Click()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
Command11.Enabled = True
End Sub
Private Sub Text11_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text11.Text = Val(Text10.Text) * 4
End Sub
Private Sub Text13_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text13.Text = Val(Text12.Text) * 5
End Sub
Private Sub Text15_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text15.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text7.Text) + Val(Text9.Text) + Val(Text11.Text) + Val(Text13.Text)
End Sub
Private Sub Text17_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text17.Text = Val(Text16.Text) * 1
End Sub
Private Sub Text19_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text19.Text = Val(Text18.Text) * 2
End Sub
Private Sub Text21_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text21.Text = Val(Text20.Text) * 3
End Sub
Private Sub Text23_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text23.Text = Val(Text22.Text) * 3
End Sub
Private Sub Text25_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text25.Text = Val(Text24.Text) * 4
End Sub
Private Sub Text27_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text27.Text = Val(Text26.Text) * 5
End Sub
Private Sub Text29_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text29.Text = Val(Text17.Text) + Val(Text19.Text) + Val(Text21.Text) + Val(Text23.Text) + Val(Text25.Text) + Val(Text27.Text)
End Sub
Private Sub Text3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text3.Text = Val(Text2.Text) * 1
End Sub
Private Sub Text5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text5.Text = Val(Text4.Text) * 2
End Sub
Private Sub Text7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text7.Text = Val(Text6.Text) * 3
End Sub
Private Sub Text9_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text9.Text = Val(Text8.Text) * 3
End Sub
控制網路卡問題?(重貼)(編號：9082)
抱歉再貼一次詢問是否有網友能幫忙解決以下問題,我目前電腦上插有1張以上的網路卡,我使用winsock元件傳送資料,而且我必須控制資料從指定的網路卡送出,因為這是用於測試系統,請問我應該如何做,才能使資料從指定的網路卡送出,如果不行,還有其他的方式作到嗎?謝謝.
vb5與vb6的問題(編號：9081)
1.我裝vb6，如果安裝vb5寫的程式，它所附的dll,ocx
有可能覆蓋vb6同名的dll,ocx嗎?
2.如果反安裝vb寫的程式,可能移除vb6的dll,ocx嗎?
有可能覆蓋vb6同名的dll,ocx嗎?
2.如果反安裝vb寫的程式,可能移除vb6的dll,ocx嗎?
麻煩各位幫我看一下SHAPE(編號：9080)
各位好我用ADODB連結DataRepor用SHAPE做分組
我想將客戶名稱顯示在群組頁首並將銷貨資料表
資料顯示在詳細資訊區
依下列程式客戶名稱可以顯示在群組頁首但奇怪
只能每次顯示一筆資料麻煩各為教我一下
SQL = "SHAPE {SELECT 銷貨日期,產品名稱,產品規格," _
& "訂購數量,金額,合計FROM 銷貨資料表" _
& "WHERE 客戶名稱='" & na & "'AND 銷貨日期＞=#" _
& dtp & "# } AS Insub " _
& "APPEND ({SELECT 客戶名稱 " _
& "FROM 客戶資料表 } AS Inter " _
& "RELATE 客戶名稱 TO 客戶名稱) "
我想將客戶名稱顯示在群組頁首並將銷貨資料表
資料顯示在詳細資訊區
依下列程式客戶名稱可以顯示在群組頁首但奇怪
只能每次顯示一筆資料麻煩各為教我一下
SQL = "SHAPE {SELECT 銷貨日期,產品名稱,產品規格," _
& "訂購數量,金額,合計FROM 銷貨資料表" _
& "WHERE 客戶名稱='" & na & "'AND 銷貨日期＞=#" _
& dtp & "# } AS Insub " _
& "APPEND ({SELECT 客戶名稱 " _
& "FROM 客戶資料表 } AS Inter " _
& "RELATE 客戶名稱 TO 客戶名稱) "
製成執行檔怎麼這麼難~!為什麼會出現找不到可安裝的ISAM?(編號：9076)
拜託大家幫個忙吧!!我的作業系統是WINDOWS 2000 ,VB6+SP4+ACCESS2000
當我的程式作成執行檔後,想要執行看看,確出現
"找不到可安裝的ISAM"
我有看過這個討論區所有相關"ISAM"的討論,但是還是看不懂
,我知道這可能與"設定使用元件"有關,但是我就是不知道是那個呀!!
拜託~!幫我看看吧,我可以把原始檔寄給您們,可以試試幫我封裝看看嗎?
非常謝謝!!
當我的程式作成執行檔後,想要執行看看,確出現
"找不到可安裝的ISAM"
我有看過這個討論區所有相關"ISAM"的討論,但是還是看不懂
,我知道這可能與"設定使用元件"有關,但是我就是不知道是那個呀!!
拜託~!幫我看看吧,我可以把原始檔寄給您們,可以試試幫我封裝看看嗎?
非常謝謝!!
Microdoft Media Player(編號：9075)
請問各位高手~~
我目前寫了一個撥放程式
但我不知如何讓我的跑馬燈在Media Player
之上顯示我曾嘗試許多方法但都無效
所以請高手教教我ㄅ....
我目前寫了一個撥放程式
但我不知如何讓我的跑馬燈在Media Player
之上顯示我曾嘗試許多方法但都無效
所以請高手教教我ㄅ....
給阿Joy及全體的網友的建議！！！！！！！！！！！！！！！！(編號：9073)
其實妳應該詳細列出妳的需求項目.
比如說:
1.套表的需求是否應用在現有印刷格式的報表紙上??
2.還是要產生一個報表檔後,轉送給某一個人或地方經審核核可後(或需要時)再印出(也有可能走workflow進行公文旅行!)
3.或是要生一個Excel檔,僅供後續特定功能性用途!!
順便要在這裡說明的是:
1.如果要網友幫忙,應該詳細的描述設計需求項目
2.尤其重用的是設計這支程式的"目的"
3.如果只是單方面的提出部分程式碼的問題,實在今人難以回答!!因為要回答的內容,有時候可以寫上一本書,甚至更多本!!
4.最好能像描述某案發現場一樣,一點點線索都不能省略!!
5.因為,有能力回答的人,實際上都是有經驗的人,所以回答前的思考,必須需依妳提的線索,以便[重建案發現場],才能逐一找出妳的問題的真正目的,判斷出妳的需求,如此才能回答.而回答的內容才能切切妳的需求所在!!
6.通常網友會回答的字數,理論上應該是發問人的一半,甚至更少才對!!但實際上剛反過來,難怪沒有網友要回答了(因為無從回答起之故)!!
7.如果有程式碼,最好能附上片斷,以利進行更細部的幫助.
8.而不是來來回回的問題往返,反而愈來愈來偏離主題(像我之前參與的[電梯]一樣,問題不但沒幫人解決,反而搭出別的話題來,使我感到非常不好意思!),而把別人重要而尚未解決的問題給捲到後.....面去了!!
9.有許多網友，有希望人能"教他"一些....的,其實在網路上網友能幫忙得上的真的有限,大部分是觀念的指引或相關參考資料的提供或告知所在位置."教",以目前論壇的功能,能力著實是單薄了點.
10.我一直希望能弄個站,提供一個交談式介面(有點像尋寶圖),讓找解答的人能在不發問的情況下,得到幫助(功課一定要作,老是看解答是不行,因為我也害了不少同事,他們是平時不買書也懶得看書及資料,都是等到有問題要解決時才來問我,問題是處理掉了,但他們看似把問題解決了也學會了[這一招],但我認為[這一招]也沒讓他們長進多少!!,因為這個問題的解法不只[一招],也許[另一招更高招],可省了日的維護或...)
總之,別人回答妳的問題,如果只是應聲答數!其實對您的幫忙是有限的!!
希望小吳站長不會介意才是！！
比如說:
1.套表的需求是否應用在現有印刷格式的報表紙上??
2.還是要產生一個報表檔後,轉送給某一個人或地方經審核核可後(或需要時)再印出(也有可能走workflow進行公文旅行!)
3.或是要生一個Excel檔,僅供後續特定功能性用途!!
順便要在這裡說明的是:
1.如果要網友幫忙,應該詳細的描述設計需求項目
2.尤其重用的是設計這支程式的"目的"
3.如果只是單方面的提出部分程式碼的問題,實在今人難以回答!!因為要回答的內容,有時候可以寫上一本書,甚至更多本!!
4.最好能像描述某案發現場一樣,一點點線索都不能省略!!
5.因為,有能力回答的人,實際上都是有經驗的人,所以回答前的思考,必須需依妳提的線索,以便[重建案發現場],才能逐一找出妳的問題的真正目的,判斷出妳的需求,如此才能回答.而回答的內容才能切切妳的需求所在!!
6.通常網友會回答的字數,理論上應該是發問人的一半,甚至更少才對!!但實際上剛反過來,難怪沒有網友要回答了(因為無從回答起之故)!!
7.如果有程式碼,最好能附上片斷,以利進行更細部的幫助.
8.而不是來來回回的問題往返,反而愈來愈來偏離主題(像我之前參與的[電梯]一樣,問題不但沒幫人解決,反而搭出別的話題來,使我感到非常不好意思!),而把別人重要而尚未解決的問題給捲到後.....面去了!!
9.有許多網友，有希望人能"教他"一些....的,其實在網路上網友能幫忙得上的真的有限,大部分是觀念的指引或相關參考資料的提供或告知所在位置."教",以目前論壇的功能,能力著實是單薄了點.
10.我一直希望能弄個站,提供一個交談式介面(有點像尋寶圖),讓找解答的人能在不發問的情況下,得到幫助(功課一定要作,老是看解答是不行,因為我也害了不少同事,他們是平時不買書也懶得看書及資料,都是等到有問題要解決時才來問我,問題是處理掉了,但他們看似把問題解決了也學會了[這一招],但我認為[這一招]也沒讓他們長進多少!!,因為這個問題的解法不只[一招],也許[另一招更高招],可省了日的維護或...)
總之,別人回答妳的問題,如果只是應聲答數!其實對您的幫忙是有限的!!
希望小吳站長不會介意才是！！
訂閱：
文章 (Atom)