vb.net旋转 vb60转net

VB.NET加载时等待光标Me.Cursor = System.Windows.Forms.Cursors.WaitCursor '光标变成漏斗状
'加载耗时较长的函数
Me.Cursor = System.Windows.Forms.Cursors.Default '光标恢复正常
大佬们~VisualStudio中vb.net如何画三角函数图像?VB系统的坐标原点在左上角,X轴的正方向是水平向右,而Y轴的正方向是垂直向下 。所以 , 要绘制三角函数的曲线,自己可以通过改变点坐标的方法来实现,当然,VB.NET提供了相应的方法可以来实现坐标变换,也可以通过VB.Net的Graphics类提供的平移、旋转等转换来实现 。
下面是我通过自己变换实现的示例,提供参考;我的环境是VB.NET 2010
Imports System.Math
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'1,获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = PictureBox1.CreateGraphics
'2,定义一个Pen对象,用于绘制图形(轮廓线)
Dim MyPen As New Pen(Color.Black, 1)
'3,定义一个Brush对象,用于填充图形(如果需要填充的话)
Dim MyBrush As New SolidBrush(Color.Orange)
MyGraphics.DrawLine(MyPen, 0, 200, 700, 200)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'1 , 获得一个Graphics对象
【vb.net旋转 vb60转net】Dim MyGraphics As Graphics
MyGraphics = PictureBox1.CreateGraphics
'2,定义一个Pen对象,用于绘制图形(轮廓线)
Dim MyPen As New Pen(Color.Black, 1)
'3,定义一个Brush对象,用于填充图形(如果需要填充的话)
Dim MyBrush As New SolidBrush(Color.Orange)
'声明横向和纵向比例变量
Dim Heng As Integer = 20
Dim Zong As Integer = 50
'先获得正弦值,保存到点坐标数组
Dim MyPoints(700) As Point
Dim i As Integer
For i = 0 To 700
MyPoints(i) = New Point(i * Heng, 200Sin(i) * Zong)
Next
'采用绘制光滑线连接点的方式绘制曲线
MyGraphics.DrawCurve(MyPen, MyPoints)
End Sub
End Class
显示的效果图:
如何用VB程序令一张图片随着倒计时一秒一秒的转动,转动角度是时钟秒针每秒转动的角度6°这个相对你来说真的有点难,要么用pset一点一点的画,要么用API函数 。建议你作以下考虑:
采用一个进度条来动态显示
采用图片上来滚动来动态显示
画一个表盘来动态显示
个人觉得用第二种 , 也就是窗体上一个图片框,里面三张图片分别画着所有的时,分,秒,然后根据设定,调整三张图片的坐标 , 使之正好显示设定的值 。开始计时后,按时间调整图片坐标慢慢滚动 。
我这是基于VB6来说,如果高版本的VB.Net可以旋转控件或其中的图片 , 则另当别论 。
怎样用vb.net作一个指针转动的钟表?(可设置时间日期,有闹铃功能)你需要会用GDI ,也就是那个System.Drawing命名空间下的类.
给你说个思路,设Timer,到时间就用Form.Invalidate()函数重画窗口,在重画窗口的Form_Paint事件下面编写代码得到当前时间,再根据当前时间用GDI 画时钟.
关于vb.net旋转和vb60转net的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。

    推荐阅读