大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
textalign属性!~
在靖西等地区,都构建了全面的区域性战略布局,加强发展的系统性、市场前瞻性、产品创新能力,以专注、极致的服务理念,为客户提供成都网站制作、成都做网站 网站设计制作按需定制制作,公司网站建设,企业网站建设,品牌网站制作,营销型网站建设,外贸网站建设,靖西网站建设费用合理。
TextBox2.TextAlign = HorizontalAlignment.Center
TextBox2.TextAlign = HorizontalAlignment.Left
TextBox2.TextAlign = HorizontalAlignment.Right
文本加粗是只读属性 你只可以在设计画面里修改!~
font.Bold 这个是自体加粗
1.选中要替换文本框中文字直接出入即可.
2.从textbox的属性中设置:双击textbox1,打开其代码框在光标处输入TextBox1.Text = "你好!",你好是输入的内容.
完善下上边仁兄的!!!
Public Class Form1
'注意下边的事件是Paint,而不是Load!!
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim A As String = "文字"
Dim B As Font
B = New Font("simson", 30, FontStyle.Regular, GraphicsUnit.Document)
Me.CreateGraphics.DrawString(A, B, Brushes.Black, 20, 20)
End Sub
End Class
用fckEditor吧,什么语言都支持
(1)fckEditor是有上传本地图片的功能的,找找说明看就明白了
(2)fckEditor的功能按钮可以配置,要用成什么样子自己配就好了
很久没有上这里了,今天看到了这个问题,尝试做了一个;
本例以源文本框TextBox1全部文字作为拖放文字为例,实现拖放
1、向一个窗体中添加两个文本框,分别名为TextBox1,TextBox2。注意:把TextBox2控件的AllowDrop属性设置成True,这点不要遗漏。
2、完整的代码如下:
Public Class Form1
Private MouseIsDown As Boolean = False
Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
'设置一个标志以显示鼠标已按下。
MouseIsDown = True
End Sub
Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove
If MouseIsDown Then
'开始拖动(将TextBox1的文本内容作为拖放内容)。
TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy)
End If
MouseIsDown = False
End Sub
Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter
'检查正在被拖放的数据的格式。
If (e.Data.GetDataPresent(DataFormats.Text)) Then
'显示复制光标(表示是拖放行为)。
e.Effect = DragDropEffects.Copy
Else
'显示不放置光标(表示不是拖放行为)。
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop
'粘贴文本(将拖放内容作为TextBox2的文本内容)。
TextBox2.Text = e.Data.GetData(DataFormats.Text)
End Sub
End Class
你可以在窗体上放一个lable控件,取名叫lable1,
那么实现方式就是:
private
sub
form_load()
lable1.text="今天天气很好";
end
sub
你可以试试