正文
vb.net绘制到屏幕 vbs绘制界面
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
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 num 200 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数据。
3.直接建立在.NET的框架结构上,因此开发人员可以充分利用所有.NET平台特性,也可以与其他的.NET语言交互。
4.为Windows应用程序提供了XCOPY部署,开发者不再需要为DLL的版本问题担忧。
vb.net 怎么在屏幕打点
画点:
在PictureBox的Paint事件里面:
dim myGraphics=e.Graphics
Dim myPointArray As Point() = {New Point(0, 0), New Point(50, 30), New Point(30, 60)}
myGraphics.DrawPolygon(myPen, myPointArray)
画圆:
Dim g As Graphics
g = PictureBox1.CreateGraphics
g.FillEllipse(Brushes.Red, x, y, 10, 10)
关于vb.net绘制到屏幕和vbs绘制界面的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。