VB.Net 2008 ListBox使用技巧:
With Me.ListBox1.Items
.Add("1")
.Add("2")
.Add("3")
.Add("4")
.Add("5")
.Add("6")
.Add("7")
.Add("8")
End With
设置和改变字体:
ByVal e As System.EventArgs) Handles MenuItemFont.Click
With Me.FontDialog1
.FixedPitchOnly = False
.MaxSize = 30
.MinSize = 1
.ShowApply = True
.ShowColor = True
.ShowEffects.ToString()
.ShowHelp = True
End With
If Me.FontDialog1.ShowDialog() = DialogResult.OK Then
Me.控件.SelectionColor = Me.FontDialog1.Color
Me.控件.SelectionFont = Me.FontDialog1.Font
End If
在线工具--把C#代码转换成VB.NET代码:
有不少朋友在网上找资料时经常会遇到想要VB.NET的代码,但却只有C#的代码。本人有一个在线工具,使用方便。
支持:C#---> VB.NET
VB.NET--->C#
地址(C#---> VB.
NET):
developerfusion.co.uk/utilities/convertcsharptovb.aspx
地址(VB.NET--->C#):
developerfusion.co.uk/utilities/convertvbtocsharp.aspx
推荐一款羽量级的编程工具:
SharpDevelop 3.0 是 SharpDevelop 2.2 的后续版本,可以支持MS.NET FR 3.5版本,完美兼容VS2008的解决
方案,是编写.NET程序的羽量级工具!
bibidu/fileview-496055.html
用VB自制简单的网页浏览器
Private Sub Command1_Click()
WebBrowser1.Navigate Text1.Text'转到
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "hao123"
Me.WindowState = vbMaximized
End Sub
Private Sub Form_Resize() '控件跟着窗体最大化
WebBrowser1.Top = Text1.Height + 1
WebBrowser1.Left = 0
WebBrowser1.Height = Me.Height - Text1.Height - 1
WebBrowser1.Width = Me.Width - 80
End Sub
VB图片浏览器制作:
Caption属性为“图片浏览器”,BorderStyle属性为3,即窗体大小不能改变。
2.设置Label1的属性为“当前驱动器”,Label2的属性为“当前目录”,Label3的属性为“当前文件”;Label4的属性为“当前图像”,Label5的属性为“当前文件路径”。
3.设置Text1的Text属性为空。
4.设置Image1的Stretch属性为True,即所装入的图形能够缩放以适应图像框大小。
5.设置Command1的Caption属性为“确定”,Command2的Caption属性为“退出”。
具体的
程序源代码如下:
Private Sub Command1_Click()
Image1.Picture=LoadPicture(Text1.Text)’当单击“确定”时,文本框中的文件在图像框中显示出来
End Sub
Private Sub Command2_Click()’当单击“退出”时,弹出是否退出
系统对话框
Dim exi As String
exi=MsgBox(“您真的想退出吗?”,vbYesNo+vbQuestion+vbDefaultButton1,“退出”)
If exi=vbYes Then
End
End If
End Sub
Private Sub Dir1_Change()
File1.Path=Dir1’当目录发生变化时,文件列表框
中的文件也相应变化
End Sub
Private Sub Drive1_Change()
Dir1.Path=Drive1’当驱动器变化时,目录列表也相应变化
End Sub
Private Sub File1_Click()
Text1.Text=File1.Path+“\”+File1’用来在文本框中显示被选中的图形名
End Sub
Private Sub File1_DblClick()
Image1.Picture=LoadPicture(File1.Path+“\”+File1)’当双击文件
列表中的文件时,文件在图像框中显示出来
End Sub
Private Sub Form_Load()
Command1.Enabled=False’在未选择图形文件时“确定”按钮不可用
File1.Pattern=“*.bmp;*.jpg;*.ico;*.cur”’在文件列表框中显示扩展名为.BMP、.JPG、.ICO、.CUR的文件
End Sub
Private Sub Text1_Change()
Command1.Enabled=True’当文本框中的内容变化时使“确定”按钮可用
End Sub