如何用VB實現:用鼠標拖動畫出實圓和各種虛圓。

Dim s為布爾值，ci為整數，xianxing為整數，xiankuan為整數

Dim x0為單個，y0為單個

私有子命令1_Click()

s =真

命令1。啟用=假

末端接頭

私有子窗體_Load()

Dim b

B =數組(“透明”、“實線”、“虛線”、“點劃線”、“點劃線”、“兩點鏈”)

Frame1。移動100，100，1300，3500

Frame1。Caption = "線型"

框架2。移動寬度- 1500，100，1300，3500

框架2。Caption = "線條寬度"

對於i = 0到5

選項1(i)。移動100，300 + i * 500，1100，300

選項1(i)。標題= b(壹)

選項2(壹)。移動100，500 + i * 500，800，300

選項2(壹)。caption = I+1 & amp；"點寬度"

接下來我

Shape1(0)。可見=假

Shape1(1)。可見=假

s = 0

ci = -1

命令1。Caption = "開始畫圓"

命令1。ToolTipText = "單擊按鈕並在表單中按下鼠標左鍵作為圓心，並將其拖動到半徑處釋放鼠標左鍵。"

末端接頭

私有子窗體_MouseDown(按鈕為整數，Shift為整數，X為單值，Y為單值)

如果s和Button = 1，則

x0 = X

y0 = Y

ci = ci + 1

如果ci & gt然後加載Shape1(ci)

Shape1(ci)。可見=真

Shape1(ci)。BorderStyle =先行

Shape1(ci)。移動x0，y0，0，0

Shape1(ci)。形狀= 3

Shape1(ci)。BorderWidth =先寬

如果…就會結束

末端接頭

private Sub Form _ MouseMove(Button為整數，Shift為整數，X為Single，Y為Single)

如果s和Button = 1，則

banjing = Sqr((x0-X)*(x0-X)+(y0-Y)*(y0-Y))

Shape1(ci)。移動x0 -搬經，y0 -搬經，2 *搬經，2 *搬經

如果…就會結束

末端接頭

私有子窗體_MouseUp(Button為整數，Shift為整數，X為Single，Y為Single)

命令1。啟用=真

s =假

末端接頭

私有子選項1_Click(索引為整數)

對於i = 0到5

如果選項1(i ),則先行= i

接下來我

如果i = 1，那麽

框架2。啟用=真

其他

框架2。啟用=假

先寬= 1

如果…就會結束

末端接頭

私有子選項2_Click(索引為整數)

對於i = 0到5

如果選項2(i)則先款= 1 + i

接下來我

末端接頭

界面有點復雜:

壹個按鈕，兩個框架，第壹個框架六個選項1 * * *第二個框架六個選項2。

上一篇:安徽省計算機二級考試時間和科目是什麽

下一篇:0x02 d579db指令引用的0x02 d579db存儲器。無法讀取內存。