vb的ui源碼

『壹』 vb 快速的取得網頁源碼和提取其中內容

如下函數可以實現你要的功能：
Function TestRegExp(ByVal myString$, ByVal myPattern$, Optional myMark$ = "gimt", Optional myRepString$)
If myString = "" Or myPattern = "" Then
TestRegExp = ""
Debug.Print "數據不能為空"
Exit Function
End If
'Create objects.
Dim objRegExp As RegExp
Dim objMatch As Match
Dim colMatches As MatchCollection
Dim RetStr As String

Set objRegExp = New RegExp
' 正則式
objRegExp.Pattern = myPattern
'IIf(InStr(myPattern, "s") <> 0, "", myPattern)

' 是否區分大小寫
objRegExp.IgnoreCase = IIf(InStr(LCase$(myMark), "i") > 0, True, False)

' 是否全局
objRegExp.Global = IIf(InStr(LCase$(myMark), "g") > 0, True, False)

' 是否換行
objRegExp.MultiLine = IIf(InStr(LCase$(myMark), "m") > 0, True, False)
If objRegExp.Test(myString) Then
If InStr(myMark, "r") > 0 Then
Debug.Print "正在替換"
RetStr = objRegExp.Replace(myString, myRepString)
Debug.Print IIf(RetStr <> "", "替換結果" & Left(RetStr, 10), "沒搜索到可替換字元")
Else
Debug.Print "正在搜索"
Set colMatches = objRegExp.Execute(myString) ' Execute search.
'MsgBox colMatches.Count
For Each objMatch In colMatches ' Iterate Matches collection.
'RetStr = RetStr & objMatch.FirstIndex
RetStr = RetStr & objMatch.Value & vbCrLf
Next
Debug.Print IIf(RetStr <> "", "搜索結果" & Left(RetStr, 10), "沒搜索到匹配結果")
End If
Else
RetStr = ""
Debug.Print "沒找到任何匹配結果,請檢查正則式的是否正確"
End If
TestRegExp = RetStr
End Function

『貳』 用VB製作一個記事本 完整的源代碼 界面設計

其實不就是一個簡單的文本編輯器嗎？http://www.moon-soft.com/download/download.asp?id=1952&no=0
下載看看

『叄』 VB：如何通過VB獲取某個網站的所有頁面源代碼

兩種實現方式：
1、先用WebBrowser控制項、iNet控制項或xmlhttp組件獲取網站首頁代碼（這個網上有一大堆介紹，就不啰嗦了），然後分析代碼，找出其中的超鏈接，然後再逐個獲取其頁面代碼，這里要注意的是，要區分外鏈和內鏈，外鏈就不要去獲取代碼了（否則的話如果網站上有個網路的鏈接，那麼你的程序就要去獲取網路的頁面了）；另外還要控制獲取的層數（比如說一級子頁面是第二層，二級子頁面是第三層），否則的話遇到大型網站你的程序很可能進入死循環。
2、利用瀏覽器的緩存來獲取，主要是IE的緩存。windows系統有專門的對IE緩存進行讀寫操作的API函數。要想獲取某個網站的源碼，可以用IE打開這個網站，然後把裡面的鏈接都手工點擊一遍，使頁面代碼能被IE自動放入緩存文件夾中即可。當然，如果網站比較大，這個過程可能會比較繁復。然後再通過程序遍歷IE的整個緩存系統，把與該網站相關的所有資源都提取出來。通過這種方法，不但可以提取HTML代碼，還有js代碼、css代碼，以及頁面上的所有圖片、動畫、視頻等資源。我個人比較喜歡這種方法。

『肆』 這些vb源碼什麼意思

這段代碼應該這樣理解：
窗體上有三個文本框。在第一個文本框里輸入需要執行的代碼，在第二個文本框里輸入需要返回的代碼，然後點擊按鈕1
這時候就執行你列出的程序：首先在str字元串中生成一段「函數」的代碼如下：
Function ReturnThis（）
……'這里就是Text1的內容
ReturnThis = ……'這里就是 Text2的內容
End Function
再下面一段就是執行這段函數代碼了（具體地說很復雜，但我還是先說說）
這樣的代碼經常會出錯，所以先設置錯誤收集（ On Error GoTo Err_Exit
），這里你抄寫錯誤，在最後多了個冒號。
然後創建一個對象，設置這個對性的語言屬性為vb腳本語言，設置對象的代碼，執行這個對象並將結果寫入text3，釋放這個對象。
再下面，就是上面出錯的時候的處理了。實質就是在立即窗口實處錯誤代碼（Sc.Error.Number）和錯誤提示（Sc.Error.Description）、錯誤位置（Sc.Error.Line ）

另說一下你研究的比較深了，已經不是新手。

『伍』 求vb.net的源代碼，最好說明其解決問題，越多越好，滿意加50分。

下面這段代碼，是我用來計算每個月存500元進銀行，連續30年，最後連本帶利能有多少錢。這裡面涉及復利計算。界面中右邊的文本框用來輸出每一次計算的結果。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim nianxian As Integer '年限變數

Dim dingcun As Integer '定存變數

Dim fuli_big As Long '大復利

Dim fuli_small As Long '小復利

Dim i As Integer '循環變數

Dim DATAstring As String '數據字元串

nianxian = Val(年限_TextBox.Text)

dingcun = Val(定存_TextBox.Text)

DATAstring = ""

For i = 1 To nianxian

fuli_small = dingcun * (1 + 0.1875)

dingcun = fuli_small

fuli_big = fuli_big + fuli_small

DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)

'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)

Next

'fuli_big = fuli_small

TextBox1.Text = DATAstring

結果_TextBox.Text = Str(fuli_big) + "元"

End Sub

『陸』 什麼是VB源碼

這個詞分為兩部分來解釋。
第一、VB
VB可以是指一種計算機語言，是Visual Basic的縮寫，由美國微軟公司開發；也可以指用來進行VB語言開發的開發平台，比如MicroSoft Visual Basic 6.0

計算機語言分為最早的也是最基本的機器語言（二進制語言）、低級語言（匯編）、高級語言（VB、C、C++、C#）。其中執行效率最高的是機器語言，它不需要編譯可以直接被機器讀懂。效率最低的是高級語言，它需要經過編譯甚至多次編譯才能轉變為機器語言。但是高級語言是最接近自然語言的（如：英語），因此被廣泛的使用。

第二、源碼
類似的，用英語書寫的可以用來交流的文字片斷叫做文章，那麼用VB語言來書寫的可以被計算機編譯平台理解的文字片斷就叫做VB代碼了。
那麼如果有一個程序，是使用VB語言來寫成的，那麼這些VB語言就叫做該程序的VB源碼

不知道這樣解釋樓主能不能理解

『柒』 請問如何用VB獲取網頁源碼

使用Inet控制項獲取網頁源碼。

Internet Transfer 控制項實現了兩種廣泛使用的 Internet 協議： 超文本傳送協議（HyperText Transfer
Protocol）(HTTP) 和文件傳送協議（File Transfer Protocol） (FTP)。使用 Internet Transfer
控制項可以通過 OpenURL 或 Execute 方法連接到任何使用這兩個協議的站點並檢索文件。

PrivateSubCommand1_Click()
DimstrhtmlAsString
DimSTRURLAsString
STRURL="http://www..com"
strhtml=Inet1.OpenURL(STRURL)
Text1=strhtml
EndSub

『捌』 VB怎樣設計一簡易UI

可以試試用VB的shell 函數運行程序

Shell("craft_oper.exed:dataTester_barcode1.XML")

『玖』 高中VB編程的一些源代碼

uEnd是用戶定義捕捉VB輸出框(MsgBox)按下按鈕事件一個變數.即你的原代碼 MsgBox "您確定要離開嗎?", vbYesNo + vbQuestion, "離開程序"
執行按vbYes或vbNo按鈕的結果參數值返回給程序以便執行下一代碼.當然你不用這變數也能做到,但按鈕需按兩次:
Private Sub Command2_Click()
MsgBox "您確定要離開嗎?", vbYesNo + vbQuestion, "離開程序"
If MsgBox("您確定要離開嗎?", vbYesNo + vbQuestion, "離開程序") = vbYes Then
End
End If
End Sub

uEnd = MsgBox("您確定要離開嗎?", vbYesNo + vbQuestion, "離開程序")
上句代碼實際上可看作VB輸出框執行結果賦值於uEnd, = 號在VB6.0中本身就應該看為賦值號.而且程序代碼簡潔明了,不易寫錯.

下面參考MSDN的有關MsgBox說明:
MsgBox 函數
在對話框中顯示消息，等待用戶單擊按鈕，並返回一個 Integer 告訴用戶單擊哪一個按鈕。

MsgBox 函數示例
本示例使用 MsgBox 函數，在具有「是」及「否」按鈕的對話框中顯示一條嚴重錯誤信息。示例中的預設按鈕為「否」，MsgBox 函數的返回值視用戶按哪一個鈕而定。本示例假設 DEMO.HLP 為一幫助文件，其中有一個內容代碼為 1000。

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' 定義信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定義按鈕。
Title = "MsgBox Demonstration" ' 定義標題。
Help = "DEMO.HLP" ' 定義幫助文件。
Ctxt = 1000 ' 定義標題
' 上下文。
' 顯示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用戶按下「是」。
MyString = "Yes" ' 完成某操作。
Else ' 用戶按下「否」。
MyString = "No" ' 完成某操作。
End If

感謝你發的短消息!

該回答在由回答者修改過

『拾』 VB怎麼獲取網頁源碼

1）使用MICROSOFT INTERNET TRANSFER CONTROL的，代碼如下：
Dim strhtml As String
Dim STRURL As String
STRURL="http://www.sijiqing.com"
strhtml = Inet1.OpenURL(STRURL)

2）用System.Net命空間下的HttpWebRequest來取得，代碼如下：
Dim url As String=" http://mgxx520.blog.com.cn" ' 網址
Dim httpReq As System.Net.HttpWebRequest
Dim httpResp As System.Net.HttpWebResponse
Dim httpURL As New System.Uri(url)
httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
httpReq.Method = "GET"
httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
httpReq.KeepAlive = False ' 獲取或設置一個值，該值指示是否與 Internet資源建立持久連接。
Dim reader As StreamReader = _
New StreamReader(httpResp.GetResponseStream,
System.Text.Encoding.GetEncoding(-0))
Dim respHTML As String = reader.ReadToEnd() 'respHTML就是網頁源代碼.