VB.net中怎么通过代码对textbox中的font下的各个属性进行修改？
通过下面的方法从代码中设置字体:
TextBox1.Font = New Font("Arial", 16, FontStyle.Bold) 'Arial字体,大小:16,粗体
'TextBox1.Font = New Font("Arial", 16, FontStyle.Italic) 'Arial字体,大小:16,斜体
'TextBox1.Font = New Font("Arial", 16, FontStyle.Regular) 'Arial字体,大小:16,正常
'TextBox1.Font = New Font("Arial", 16, FontStyle.Strikeout) 'Arial字体,大小:16,删除线
'TextBox1.Font = New Font("Arial", 16, FontStyle.Underline) 'Arial字体,大小:16,下划线
TextBox1.ForeColor = Color.Red '前景色
我简单写一个,供你参考,字体的名字可以在控件的font属性里找到.
Private Sub Form_Load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.ListIndex = 0
End Sub
Private Sub Combo1_Click()
If Combo1.Text = "1" Then
RichTextBox1.SelFontName = "Stylus BT"
RichTextBox1.SelFontSize = 10
End If
If Combo1.Text = "2" Then
RichTextBox1.SelFontName = "CommercialScript BT"
RichTextBox1.SelFontSize = 14
End If
If Combo1.Text = "3" Then
RichTextBox1.SelFontName = "Segoe"
RichTextBox1.SelFontSize = 18
End If
If Combo1.Text = "4" Then
RichTextBox1.SelFontName = "Nina"
RichTextBox1.SelFontSize = 24
End If
End Sub
注意2点, 首先combobox的事件选用 click,而非双击默认到的change事件中,因为change是通过改变项的内容引发. 其次你需要在 RichTextBox1 的属性里找到 HideSelection 属性,改成 false,不然你会误以为拖动combobox之后richtextbox1中的文字没有被选中.其实还是保持选中状态的,这里改成false比较直观.
通过下面的方法进行修改：
TextBox1.Font = New Font("Arial", 16, FontStyle.Bold) 'Arial字体,大小:16,粗体
'TextBox1.Font = New Font("Arial", 16, FontStyle.Italic) 'Arial字体,大小:16,斜体
'TextBox1.Font = New Font("Arial", 16, FontStyle.Regular) 'Arial字体,大小:16,正常
'TextBox1.Font = New Font("Arial", 16, FontStyle.Strikeout) 'Arial字体,大小:16,删除线
'TextBox1.Font = New Font("Arial", 16, FontStyle.Underline) 'Arial字体,大小:16,下划线
TextBox1.ForeColor = Color.Red '前景色
通过下面的方法从代码中设置字体:
TextBox1.Font = New Font("Arial", 16, FontStyle.Bold) 'Arial字体,大小:16,粗体
'TextBox1.Font = New Font("Arial", 16, FontStyle.Italic) 'Arial字体,大小:16,斜体
'TextBox1.Font = New Font("Arial", 16, FontStyle.Regular) 'Arial字体,大小:16,正常
'TextBox1.Font = New Font("Arial", 16, FontStyle.Strikeout) 'Arial字体,大小:16,删除线
'TextBox1.Font = New Font("Arial", 16, FontStyle.Underline) 'Arial字体,大小:16,下划线
TextBox1.ForeColor = Color.Red '前景色
通过下面的方法从代码中设置字体:
TextBox1.Font = New Font("Arial", 16, FontStyle.Bold) 'Arial字体,大小:16,粗体
'TextBox1.Font = New Font("Arial", 16, FontStyle.Italic) 'Arial字体,大小:16,斜体
'TextBox1.Font = New Font("Arial", 16, FontStyle.Regular) 'Arial字体,大小:16,正常
'TextBox1.Font = New Font("Arial", 16, FontStyle.Strikeout) 'Arial字体,大小:16,删除线
'TextBox1.Font = New Font("Arial", 16, FontStyle.Underline) 'Arial字体,大小:16,下划线
TextBox1.ForeColor = Color.Red '前景色
VB.net中怎么通过代码对textbox中的font下的各个属性进行修改？视频
相关评论：
冯治钩通过下面的方法进行修改：TextBox1.Font = New Font("Arial", 16, FontStyle.Bold) 'Arial字体,大小:16,粗体'TextBox1.Font = New Font("Arial", 16, FontStyle.Italic) 'Arial字体,大小:16,斜体'TextBox1.Font = New Font("Arial", 16, FontStyle.Regular) 'Arial字体,大小:16...
冯治钩通过下面的方法从代码中设置字体:TextBox1.Font = New Font("Arial", 16, FontStyle.Bold) 'Arial字体,大小:16,粗体 'TextBox1.Font = New Font("Arial", 16, FontStyle.Italic) 'Arial字体,大小:16,斜体 'TextBox1.Font = New Font("Arial", 16, FontStyle.Regular) 'Arial字...
冯治钩然后在From1[设计]的属性面板最上方的下拉框中寻找该控件，查看Location.X, Location.Y的值，就知道它在哪个位置了。至于代码是属于哪个控件的事件处理的，在窗体设计器中顶部可见。当编辑Label1的代码时，顶部会显示控件名称和事件名称。
冯治钩1，把你的textbox的Multiline改成True（如果此处不修改你后面修改大小的时候只能修改width，而不能修改height），如果希望自动修改height，你的字体也要修改 2,添加这句代码(假设你要修改大小的textbox就是textbox1)：TextBox1.Location = New System.Drawing.Point(5, 20) '5, 20是你定义的针对窗体...
冯治钩下右；如果你说的是控件对齐窗体的话，那么直接修改控件的Location属性就可以了。比如一个按钮控件实例btn需要位于窗体正中，那么，代码应该写成：Dim x, y As Integer x = (Me.Width - btn.Width) \/ 2 y = (Me.Height - btn.Height) \/ 2 btn.Location = New System.Drawing.Point(x, y)
冯治钩Start()方法
冯治钩从“工具箱”上点右键选择添加引用，选择你编译好的控件.dll，添加好了，直接拖到窗口设计视图上就可以了
冯治钩第一种方法：'读取D:\\Temp目录下所有文件完整路径名称 Dim pathArray As String() = IO.Directory.GetFiles("D:\\Temp")'历遍文件完整路径 For Each path As String In pathArray '获取完整路径下的文件名称，添加到ListBox1 ListBox1.Items.Add(IO.Path.GetFileName(path))Next 第二种方法：'...
冯治钩Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click PictureBox1.Image = Image.FromFile("E:\\wgc\\2.jpg")End Sub
冯治钩Public Class Form1 Dim SourceDir, DestDir As String Dim SourceLen As Integer '返回文件夹大小 Private Function GetFolderSize(ByVal DirPath As String, Optional ByVal IncludeSubFolders As Boolean = True) As Long Dim lngDirSize As Long Dim objFileInfo As FileInfo Dim objDir As ...
