vb 这个如何改

来源：百度知道 编辑：UC知道 时间：2024/05/17 08:46:23
Dim StrIn As String
Private Sub Form_Load()
Inet1.Execute "http://img.lingd.net/att.php?id=********", "GET"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
If State = 12 Then
StrIn = Inet1.GetChunk(0, icString)
Text1.Text = StrIn
End If
End Sub
现在要把Text1.Text = StrIn写到Private Sub Form_Load()下该如何写，因为将来要在Form_Load()下比较一些数据，该如何写
Public StrIn As String
Private Sub Form_Load()
Inet1.Execute "http://img.lingd.net/att.php?id=***********", "GET"
Text1.Text = StrIn
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
If State = 12 Then
StrIn = Inet1.GetChunk(0, icString)
End If
End Sub
这么写不行，不出数据的

Public Strln As String
Private Sub Form_Load()
Text1.Text = StrIn
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
If State = 12 Then
StrIn = Inet1.GetChunk(0, icString)
Text1.Text = StrIn
End If
End Sub

试试

如果你把Dim Strln As String 改成 Public Strln As String

在整个程序中,你可以在任何地方赋值与取值了!

不过要注意,别在其它地方再Dim Strln As String了,否则把原先的值又清空了.
Public Strln As String
Private Sub Form_Load()
Text1.Text = StrIn
End Sub

你已经将StrIn 变量设置为全局变量了 你要在form_load 比较数据 直接比较就可以了 Text1.Text = StrIn的赋值不用写到form该过程里