VB.net中如何画图？

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

VB6中的form1.circle (100,200),rgb(0,255,0)的语句如何在VB中使用啊？

急用啊！！！！！！！！

解析:

VB与VB不同。

VB已经有专门绘图的类。

可以定义笔刷然后用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

你去查查书吧，书上挺详细的，在这说不好说，你先在项目里引用。然后 Dim acadapp As AcadApplication Dim acaddoc As AcadDocument On Error Resume Next AcadApp = GetObject(, "AutoCAD.Application") If Err.Number Then Err.Clear() AcadApp = CreateObject("AutoCAD.Application") If Err.Number Then MsgBox("不能运行AutoCAD,请检查是否安装了AutoCAD") Exit Sub End If End If AcadApp.Visible = True '界面可视

通过注册表添加

HKEY_CLASSES_ROOT

中添加 项 名字格式 .*（如 .rar）

在该项的 默认值处 数据 随便输 但是 最好有意义的字符

在这个主项下在创建一个项 名字是 你先前在默认处输入的字符

在该项的默认处输入的是 这个扩展名的介绍

在该项下创建名为

DefaultIcon

Shell

ShellEx

三个项

DefaultIcon的默认值是图标文件的地址和索引

如 "E:\a.exe,0"

在Shell的默认值处 天 Open

该键下创建 Open项

其默认值是 在右键菜单中的首项的名字

在这个项下创建一个 command的项 在默认值处

"程序的地址" 命令行参数 "%1"(这个是要打开的文件地址 %1是由系统指定）如 "E:\a.exe" "%1"

或 "D:\Xmp\bin\Xmp.exe" /play "%1" /openfrom WndExplr /startfrom LocalFile

以我的知识我只能说这些了

---