
VB2008如何在窗口上显示文字
2个回答
展开全部
人家问的显示文字啊,和图片什么关系?和自动关机什么关系?楼上不是复制粘贴骗分的吧?
楼主,你是想在From1上显示文字吗?在工具箱—公共控件栏目里,拖一个Lable控件到From1上去就可以了,然后在Lable控件的属性窗口,设置Text属性,输入你想你要的文字。
如果你想绘制Form1,不用其它控件直接在窗口上显示文字,那就:
'Panit事件(绘制Form1窗口的时候发生)
Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim a As String = "你想显示的文字"
Dim b As New Font(Me.Font, FontStyle.Regular) '实例化Font类,这个有13个构造函数,去MSDN慢慢看
Me.CreateGraphics.DrawString(a, b, Brushes.Black, 30.0F, 30.0F) '调用Form1的创建图形函数的指定位置绘制字符串过程,有6个重载,慢慢看
End Sub
楼主,你是想在From1上显示文字吗?在工具箱—公共控件栏目里,拖一个Lable控件到From1上去就可以了,然后在Lable控件的属性窗口,设置Text属性,输入你想你要的文字。
如果你想绘制Form1,不用其它控件直接在窗口上显示文字,那就:
'Panit事件(绘制Form1窗口的时候发生)
Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim a As String = "你想显示的文字"
Dim b As New Font(Me.Font, FontStyle.Regular) '实例化Font类,这个有13个构造函数,去MSDN慢慢看
Me.CreateGraphics.DrawString(a, b, Brushes.Black, 30.0F, 30.0F) '调用Form1的创建图形函数的指定位置绘制字符串过程,有6个重载,慢慢看
End Sub
展开全部
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'如果你是要在窗口中显示图片
PictureBox1.Load("图片路径")
'如果你是要在其他程序(如图片传真查看器)里显示
Shell("图片路径 ")
End Sub
另外只要在窗口中插入Timer控件就可以自动关机了
属性里设置interval为5000,然后代码里输入
me.close就行了
把分给我!!!
'如果你是要在窗口中显示图片
PictureBox1.Load("图片路径")
'如果你是要在其他程序(如图片传真查看器)里显示
Shell("图片路径 ")
End Sub
另外只要在窗口中插入Timer控件就可以自动关机了
属性里设置interval为5000,然后代码里输入
me.close就行了
把分给我!!!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询