重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Sub Main()
创新互联专注于临漳网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供临漳营销型网站建设,临漳网站制作、临漳网页设计、临漳网站官网定制、微信小程序开发服务,打造临漳网络公司原创品牌,更为您提供临漳网站排名全网营销落地服务。
Dim Ispath As String
Console.Write("请输入目录:")
Ispath = Console.ReadLine()
Do While (Not Directory.Exists(Trim(Ispath)))
Console.WriteLine("你输入的目录不存在,请检查重新输入.")
Console.Write("请输入目录:")
Ispath = Console.ReadLine()
Loop
Console.WriteLine("目录为:{0}", Ispath)
Console.ReadLine()
End Sub
Public Class Form2
Dim test As String
Public Sub New(ByVal _test As String)
test = _test
End Sub
End Class
Form1 中 New Form2("abc") 即可传参给 Form2 中的 test。
但在 VB.NET 中,没必要这么麻烦,只需要声明为 Public,即可直接方法,如:
Public Class Form2
Public test As String
End Class
Form1 中直接 Form2.test = "abc" 即可。
Private Sub Text1_Change()
For x = 0 To List1.ListCount - 1
If Text1.Text = List1.List(x) Then
List1.Selected(x) = True
End If
Next x
End Sub
这个从网页用js处理body的onClick事件比较容易,用vb的话找webBrowser控件的相应方法,如果没有的话恐怕只能做hook了.