数学上不是有斜二测画法,算好坐标即可画出
成都创新互联是一家专业提供碑林企业网站建设,专注与成都网站建设、成都网站制作、H5高端网站建设、小程序制作等业务。10年已为碑林众多企业、政府机构等服务。创新互联专业网站制作公司优惠进行中。
或者用AnyCAD的.Net图形控件
也可以调用matlab 实现
通过注册表添加
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
以我的知识我只能说这些了
记得VB6当中有Shape控件,但是VB.net里这个控件不存在了。
提个思路:使用Picture控件或Label控件,通过代码在控件里绘图想要的图形,可以试试。
Imports System.Drawing
Imports System.Drawing.Drawing2D
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim g As Graphics = PictureBox1.CreateGraphics
Dim hs As HatchStyle = HatchStyle.Cross
Dim sb As HatchBrush = New HatchBrush(hs, Color.Black, Color.White)
Dim p(3) As Point
p(0).X = 100
p(0).Y = 50
p(1).X = 0
p(1).Y = 100
p(2).X = 200
p(2).Y = 100
p(3).X = 100
p(3).Y = 50
g.FillPolygon(sb, p)
g.DrawPolygon(Pens.Black, p)
End Sub
End Class