VB.Net中的图形和对象

NewSun99 2003-06-22 07:04:42
我的问题描述如下:
1、在窗体上最好能动态生成或画出800个左右矩形格(做为容器)
2、每个矩形格里能放置两种不同类型对象(即1中所说容器的原因)。
3、这两种不同的对象能单独的或者一起在这800个矩形格里拖放
4、当鼠标在一个矩形框上停留,如果该矩形框内不为空(即有对象时),能有一个提示信息产生。
5、这个图形最好能打印、缩放
... ...
初学者,望大家详细指教
...全文
55 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
midfly 2003-08-14
  • 打赏
  • 举报
回复
俺是VB的初学者 这方面问题俺也弄不明白 所以俺来帮你顶 跟着学

嘿嘿 最后别忘了给俺点分 鼓励俺一下~
NoReady 2003-08-14
  • 打赏
  • 举报
回复
up
szch 2003-08-14
  • 打赏
  • 举报
回复
你想自己写一个GRID?
dotnba 2003-08-13
  • 打赏
  • 举报
回复
顶也是支持
NewSun99 2003-06-29
  • 打赏
  • 举报
回复
UP
NewSun99 2003-06-25
  • 打赏
  • 举报
回复
谢谢各位的解答。主要是CSDN不能上传图片,要是有图片辅助描述我的问题就清楚了。
1、正方形的格子(每个格子都有唯一标识)其实是作为一个容器
2、在这个容器里可以存放两种对象。这两种对象既可以单独存放,也可以一起存放在一个格子内。
其实主要就是这个方面,自动生成格子(对象容器),然后对象(生成的)可以在这些格子中拖动。
maochilong 2003-06-24
  • 打赏
  • 举报
回复
学习
up
Montaque 2003-06-24
  • 打赏
  • 举报
回复
你的问题还不是很清楚。
生成800个举行很简单,就是调用gdi+
如果你的screen的resolution是800*600的话,就看不出效果来了。

下面的例子画200个举行。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim RecCount As Integer = 200
Dim GridWidth, GridHeiht, StepWidth, StepHeight As Integer
Dim i, j As Integer
Dim g As Graphics = Me.CreateGraphics
Dim rndTest As New System.Random

GridWidth = 10 '格子的大小
GridHeiht = 10
StepWidth = 2 '格子的间隔
StepHeight = 2

For i = 0 To RecCount
For j = 0 To RecCount
g.DrawRectangle(New Pen(Color.FromArgb(rndTest.Next(0, 255), rndTest.Next(0, 255), rndTest.Next(0, 255))), New Rectangle(GridWidth * i + StepWidth * i, GridHeiht * j + StepHeight * j, GridWidth, GridHeiht))
Next
Next
g.Dispose()
End Sub
kuailexq2000 元老 2003-06-24
  • 打赏
  • 举报
回复
step1 动态生成1 picture ,生成object1,object2 in picture ,
step2 for i=0 to 800
step3 if select the object1 place1 drag to the place2 place1.object1.visible=false,place2.object1.visible=true,
step4 just visible
youngby 2003-06-22
  • 打赏
  • 举报
回复
gui高级编程

WROX

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧