意思如下：在窗体上添加Shape控件设置它的Shape属性,就可以了;Shape1.Shape=0'（缺省值）矩形Shape1.Shape=1'正方形Shape1.Shape=2'椭圆形Shape1.Shape=3'圆形Shape1.Shape=4'圆角矩形Shape1.Shape=5'圆角正方形。
如果你想改变shape1(1)的颜色，就这么做：Private Sub Command1_Click()Shape1(1).FillColor = RGB(255, 255, 0)End SubPrivate Sub Command1_Click()fso Shape1.Item.FillColor = RGB(255, 255, 0)fso Shape1.FillColor = RGB(255, 255, 0)End Sub加以提示 这样做 就OK了 有什么问题...
要深入理解“如果shape参数中包含特殊值-1，维度的尺寸在数组总大小保持不变的基础上进行计算”的含义，我们可以通过一个具体的例子来说明。假设原始数组的维度为(3,2,3)，数组总大小为18。使用shape参数为(2，-1)进行reshape操作，第一维度值为2，为了保持数组总大小不变，即为18，需要计算出第二维...
-1的意思是没有指定，而是根据另一个维度指定的数量进行分割。比如一个10*10的array，[2, -1]就是说两行，列数是10*10/2
当shape1的顶在shape2的高之内并且左边在shape2的长之内或右边在shape2的长之内，shape1.visabled=false，shape2.visabled=false 注：这应该是最简单的办法。子弹只有一个，但按下发射键后子弹会再次移动 子弹
一、控件 1、示范图，直接画个图，然后加载到 Picture1 中。2、灯。圆形，用 Shape 控件，组不组控件数组随意。3、倒计时。用 Label 控件。4、按钮。我这里用的是二个 Check 控件。内容：自动，手动。另 手动中所示二个按钮，使用的是 Option 。关闭按钮，使用的才是：Command 5、另放一个计时...
你想做游戏吗？呵呵~用Form的键盘事件吧，比如KeyDown：把上面的代码放至此事件中即可，Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)shape1.left=shape1.left-50 End Sub 但还有比较复杂的方法，参看“参考资料”参考资料：http://534994635.blog.163.com/blog/static/483763592010...
代码比较复杂Shape1是时钟的一个框,是Shape控件,设置 Height 1455 Width 1575LineHour,LineMinute,LineSecond分别为时,分,秒针,为Line控件Label3,Label6,Label9,Label12为Label控件,分别为3.6.912点的显示数字再画个Timer控件,Interval设置为1000以上控件位置随便放,代码里调整Form_Load事件里写Shape1....
HScroll1_Change 里面编写的代码 你的程序里面有这么一句 Private Sub HScroll1_Change(Index As Integer)而 "HScroll1_Change (Index)"这条命令就是让电脑执行 "Private Sub HScroll1_Change(Index As Integer)"这句话后面的代码 也就是把 Shape1 的填充色设成你想要的颜色,也就是下面这几句 ...