锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net绘制到屏幕 vbs绘制界面

IT技术窗口

VB.NET怎么在屏幕上画一个逐渐变大的空心圈？在窗体上拉一个Timer控件 ， enabled设为true，Interval设为20 。完整代码如下：Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics As System.Drawing.Graphics
Dim num As Integer = 1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Refresh() '清屏
formGraphics = Me.CreateGraphics()
formGraphics.DrawEllipse(myPen, New Rectangle(100, 100, num, num)) '在坐标(100,100)的位置画圆
If num200 Then'如果大于200则停止画圆
myPen.Dispose()
formGraphics.Dispose()
Timer1.Enabled = False
Else
num = num + 1
End If
End Sub
VB.NET,现在屏幕上加各样的东西 。求大侠帮忙创建好的第一个窗口中 放入下面代码
Public Class Form1
Private Sub 消息内容框_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 消息内容框.SelectedIndexChanged
'MsgBox(消息内容框.SelectedItem)
消息内容 = 消息内容框.SelectedItem '赋值内容
显示窗口.Hide()
显示窗口.Show() '显示窗口
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
显示窗口.Location = New Point(0, 0) '把窗口移动到 左上角
显示窗口.Size = New Point(600, 100) '设置显示内容窗口大小
显示窗口.FormBorderStyle = Windows.Forms.FormBorderStyle.None '把窗口设置为无边框
显示窗口.TopMost = True '把窗口置顶
End Sub
End Class
再添加个窗口 窗口名称 为 ：显示窗口
好了再复制下面代码
Public Class 显示窗口
Private Sub 显示窗口_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.DrawString(消息内容, New Font("黑体", 30, FontStyle.Bold), Brushes.Blue, 0, 0)
End Sub
End Class
最后加个类模块
Module 公有变量声明模块
Public 消息内容 As String
.
End Module
希望能帮到vb.net绘制到屏幕你 我用VS2005 帮vb.net绘制到屏幕你调试好了
vb.net桌面中bitmap类如何直接绘制到屏幕?可以直接显示vb.net绘制到屏幕的 。vb.net绘制到屏幕你看下面vb.net绘制到屏幕的示例vb.net绘制到屏幕，使用vb.net画的齿轮vb.net绘制到屏幕：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
b = New Bitmap(PictureBox1.Width, PictureBox1.Height)
g = Graphics.FromImage(b)
'g.RotateTransform(90)
g.Clear(Color.White)
g.TranslateTransform(PictureBox1.Width / 2, PictureBox1.Height / 2)
g.ScaleTransform(1, -1)
'g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
DrawCL(g, New PointF(Val(TextBox1.Text), Val(TextBox2.Text)), Val(TextBox3.Text), Val(TextBox4.Text), Val(TextBox5.Text), Val(TextBox6.Text), Val(TextBox7.Text), Val(TextBox8.Text), Val(TextBox9.Text))
DrawCL(g, New PointF(Val(TextBox18.Text), Val(TextBox17.Text)), Val(TextBox16.Text), Val(TextBox15.Text), Val(TextBox14.Text), Val(TextBox13.Text), Val(TextBox12.Text), Val(TextBox11.Text), Val(TextBox10.Text))
PictureBox1.Image = b
End Sub
vb.net中怎么可以让窗体全屏显示？Me.Height = My.Computer.Screen.Bounds.Height
Me.Width = My.Computer.Screen.Bounds.Width
这是设置窗体的长宽和屏幕的分辨率一样大?。嗟庇谌?。
如果Me.WindowState=FormWindowState.Maximized的话，只是单纯的将窗体最大化，但恢复窗口大小后窗体的大小实际上还和原来一样大 。
VB.NET的特点
1.真正成为面向对象以及支持继承性的语言 。
2.窗体设计器支持可视化继承，并且包含了许多新的特性，比如自动改变窗体大小、资源本地化支持、数据类工具内在支持XML数据 。

推荐阅读


上一篇：linux重启网关命令，linux重启网络服务的命令

下一篇：童年飞行小游戏，童年飞行小游戏大全