VB.net与VB不同。
成都创新互联公司是一家专业提供茫崖企业网站建设,专注与成都做网站、网站制作、成都外贸网站建设、H5建站、小程序制作等业务。10年已为茫崖众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。
VB.net已经有专门绘图的类。
可以定义笔刷然后用Drawing类中的方法绘制。
Private Sub DrawEllipse()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
Private Sub DrawRectangle()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
DrawMode 属性:返回或设置一个值,以决定图形方法的输出外观或者 Shape 及 Line 控件的外观。
语法:object.DrawMode [= number]
DrawMode 属性语法包含下面部分:
部分 描述:object 对象表达式,其值是“应用于”列表中的一个对象。
Number 整型值,指定外观,“设置值”中有详细描述。
Private Sub Form_Load
DrawWidth = 10 ' 设置 DrawWidth.
End Sub
Private Sub Form_Click ()
Static M As Integer ' 当前 DrawMode 的设置值.
ForeColor = QBColor(Int(Rnd * 15)) ' 选择一种颜色.
M = ((M + 1) Mod 16) + 1 ' 使 DrawMode 小于或等于 16.
DrawMode = M ' 设置 DrawMode.
扩展资料:
有些属性可以在设计时通过属性窗口来设置,不用编写任何代码;而有些属性则必须通过编写代码,在运行程序的同时进行设置。可以在运行时读取和设置取值的属性成为读写属性,只能读取的属性成为只读属性。
在 Visual Basic.NET程序设计中,对象中还可以包含头,手,腿,脚等部位,其中的每个部位又可以单独作为作为被研究的对象。在 Visual Basic.NET程序设计中,整个应用程序就是一个对象,应用程序中又包含着窗体(Form),命令按钮(Command),菜单(Menu)等对象。
参考资料来源:百度百科-Visual Basic
改成:
For i As Integer = 0 To buffer.Length - 1
checksum = checksum Xor Asc(buffer(i))
Next