※ 引述《kenny719 (Chia-Jen Lo在2A)》之铭言： Dim MyColor As Long '宣告颜色变数 Private Sub Form_Load() '表单开启时会触发 MsgBox "请在表单内移动滑鼠，按着滑数左键可画出线条" '显示弹跳视窗 MyColor = 0& '将颜色变数预设为黑色 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '滑鼠在视窗移动实触发 If Button = 1 Then Line -(X, Y), MyColor '假如按下滑鼠做键则画线 Form1.CurrentX = X '设定下次横向起始位置 Form1.CurrentY = Y '设定下次纵向起始位置 End Sub Private Sub Option1_Click(Index As Integer) '点选 Option1 阵列物件时触发 Select Case Index '判断被点的是哪一个 Case 0 '如果是第0个被点 MyColor = RGB(0, 0, 0) '将颜色变数设为黑色 Case 1 '如果是第1个被点 MyColor = RGB(255, 255, 255) '将颜色变数设为白色 Case 2 '如果是第2个被点 MyColor = RGB(128, 128, 128) '接下来依此类推(颜色自己试了就知道罗) Case 3 MyColor = RGB(255, 0, 0) Case 4 MyColor = RGB(255, 128, 0) Case 5 MyColor = RGB(255, 255, 0) Case 6 MyColor = RGB(0, 255, 0) Case 7 MyColor = RGB(0, 0, 255) Case 8 MyColor = RGB(128, 0, 255) Case 9 MyColor = RGB(128, 0, 128) End Select End Sub : 以上的程式码使用了什麽？ : 请我翻译 解释一下 拜托 对了...不用谢谢我 我只是不希望以後厉害的人越来越多而已XD -- 《我的Blog》http://clubtblog.blogspot.com/ 你的资料如下 (这是控制码，每个人都会看到自己的资料) 《ＩＤ昵称》 () 《上站次数》次 《文章篇数》篇 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 220.136.54.135 ※ 编辑: ClubT 来自: 220.136.54.135 (06/19 14:12)