vb.net 画四角形

goodday

1. Private Sub Form1_paint(byval sender as object, byval e as system.windows.forms.paintEventArgs) handle MyBase.paint
   
2. Dim g as Graphic = e.Graphic
   
3. Dim P as Pen = New Pen(color.blue,5)
   
4. g.DrawRectangle(P,120,120,150,150)
   
5. g.Dispose()
   
6. End sub

复制代码

把form1 的  MyBase.paint set 进去
Private Sub Form1_paint(byval sender as object, byval e as system.windows.forms.paintEventArgs) handle MyBase.paint

定义一个 Graphic
Dim g as Graphic = e.Graphic
定义一个 Pen 蓝色，5的粗线
Dim P as Pen = New Pen(color.blue,5)
g 的地方用p 的笔来画  第一个 xy 点 120 120  和到 第二个 xy 点 150 150
g.DrawRectangle(P,120,120,150,150)
释放 g
g.Dispose()

End sub

for .net
要引进
system.drawing.drawing2d
system.drawing.text
system.drawing

[ 本帖最后由 goodday 于 2008-7-6 12:48 PM 编辑 ]

goodhermit95

walao
那么麻烦啊

goodhermit95

其实可以在vb.net 用 vb6的插件

goodday

能的 我的空才写 近期很忙
下礼拜 要出国 公干

goodhermit95

wow...
其实很简单的
不过在vb。net等很久

goodday

你找　ｉｎｔｅｒｏｐ　ｃｏｍ　
在　ｍｓｄｎ　里　
能把　ｃｏｍ　转　到　．ｎｅｔ　ｃｌａｓｓ　的

goodhermit95

我懂，在打开COM DIALOG等差不多 30分钟 = =

goodday

我的 xps 1 分钟也不用
em0041
满意   满意
em0023

goodday

我的是把 activex 的 com  转 到时 .net net class
不用 axinterop 的 中间 人

直接 变成 .net 的 dll 了

也会快过你的  tls

goodhermit95

打错，是30秒……