vb60源码

‘壹’ 请问如何用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编写60进制计算器

此题关键是10进制与60进制数的转换。
第一步：不妨用0－9用相应的数字代表，abcdefghijklmnopqrstuvwxyz代表10－35，ABCDEFGH（去掉I）JKLMN（去掉O）PQRSTUVWXYZ代表36－埋帆粗59。
第二步：10进制数与60进制数的转换程序
第三步：本程序只做了加法，你可以试着做减法或乘除法。

Dim Sixty(60) As String

Private Function TtoS(X As Double) As String
Dim TS_1 As Long '整数部分
Dim TS_2 As Single '小数弯镇部分
Dim TS_3 As Integer '用十进制数表示一位60进制数
Dim TS_4 As Integer '循环变量
TS_1 = Int(X)
TS_2 = X - TS_1
Do While TS_1 >轿棚 0
TS_3 = TS_1 Mod 60
TS_1 = TS_1 \ 60
TtoS = Sixty(TS_3) & TtoS
Loop
If TtoS = "" Then TtoS = "0"
If TS_2 > 10 ^ -5 Then
TtoS = TtoS & "."
Do While TS_2 > 10 ^ -5 And TS_4 < 5
TS_4 = TS_4 + 1
TS_3 = Int(TS_2 * 60)
TS_2 = TS_2 * 60 - TS_3
TtoS = TtoS & Sixty(TS_3)
Loop
End If
End Function

Private Function StoT(X As String) As Double
Dim ST_1 As String '整数部分
Dim ST_2 As String '小数部分
Dim ST_3 As Integer '循环变量
Dim ST_4 As Integer '循环变量和临时记录
ST_4 = InStr(X, ".")
If ST_4 = 0 Then
ST_1 = X
Else
ST_1 = Left(X, ST_4 - 1)
ST_2 = Right(X, Len(X) - ST_4)
End If
For ST_4 = 1 To Len(ST_1)
For ST_3 = 0 To 59
If Mid(ST_1, Len(ST_1) - ST_4 + 1, 1) = Sixty(ST_3) Then Exit For
Next
StoT = StoT + ST_3 * 60 ^ (ST_4 - 1)
Next
For ST_4 = 1 To Len(ST_2)
For ST_3 = 0 To 59
If Mid(ST_2, ST_4, 1) = Sixty(ST_3) Then Exit For
Next
StoT = StoT + ST_3 / (60 ^ ST_4)
Next
End Function

Private Sub Command1_Click()
Dim A As String, B As String
A = InputBox("请输入第一个数", "输入", "BHa.7mN02")
B = InputBox("请输入第二个数", "输入", "aBi7.3N")
Text1.Text = A & "+" & B & "=" & TtoS(StoT(A) + StoT(B))
End Sub

Private Sub Form_Load()
Dim I As Integer
For I = 0 To 59
Select Case I
Case Is < 10
Sixty(I) = I
Case 10 To 35
Sixty(I) = Chr(87 + I)
Case 36 To 43
Sixty(I) = Chr(29 + I)
Case 44 To 48
Sixty(I) = Chr(30 + I)
Case 49 To 59
Sixty(I) = Chr(31 + I)
End Select
Next
End Sub

‘叁’ 如何把VB6.0工程转换至Visual Studio 2013的工程（暂不考虑源代码的转换）

VB60 首先转换为 VB2005 然后才能漏轮册转换为 VB2008(或VB2010或VB2013)，因为只有VB2005有将VB6.0升级到VB2005的功能，桐衡其他程序VB版本没有，但VB2008、VB2010、VB2013都能够兼容VB2005。
转换后，界面基本变化不太大，但代码很多需要在转换后的VB程返宏序中重新编辑。

‘肆’ VB如何通过工程查看源代码，如图，这个样子的

如果这个程序带工程文件，你找到.vbp文件双击打开，然后在各窗体双击查看代码。
如果没有工程文件，你可以自己建一个工程文件，然兄凯后把这些窗体文件加入。
如果不想建你可以直接双击某个窗体文件，胡谈也能打开，打开后双击窗体，可以看到代码。裤尘碰

‘伍’ 高中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 6.0 XMLHTTP获取网页源代码 不完整

还有这种事呀！
应该是<>4这句，提前用exit function退出了

‘柒’ VB 获取网页源码 你的这个是怎么解决的.能和我说一下吗.谢谢

1、提取：用这个vb小程序可以！