台灣最大程式設計社群網站
∣
免費加入會員
∣登入
∣回首頁∣
您好
線上人數
1187
會員總數:
246322
討論主題:
189850
討論區
程式下載/上傳
科技新聞
專欄文章
會員中心
加值服務
外包接案
求職求才
登入
登出
歡迎您
免費
加入會員
討論區選單
新手必讀
我要提問!!
討論區
個人討論區
我的關注主題
我的黑名單
討論區EP英雄榜
專家等級說明
討論區常見問題
兌換發問點數QP
扣點申請加值服務
申請版主
開發工具
ASP
ASP.NET
C#
VB.NET
VB6
C/C++
PHP
Java
Java Script/ Node.js
AJAX / JSON / jQuery
其他語言
行動裝置開發
Android APP 開發
iOS APP/ swift 開發
Windows Phone APP
資料庫
ACCESS
MS SQL
MySQL
Oracle
其他DB
多媒體 / 網管
CSS/HTML5/Bootstarp
影像處理
office VBA / WinOS
Windows 伺服器
Linux / Unix
網管 / 資安 / VM
硬體 / 週邊 / 其他
綜合
求職求才
外包接案
心情甘苦談
網站經營 / 合夥 / 證照
建言 / 公告
文章區
專欄文章
科技新聞
Blog精華文章
討論區列表
>>
VB6
>> checkbox已經取消勾選,線依然存在
[]
[
我要回覆
]
1
checkbox已經取消勾選,線依然存在
價值 : 50 QP
點閱數:462 回應數:1
樓主
林杰立
0
1
34
0
發送站內信
checkbox已經取消勾選,線依然存在
要的動作是取消勾選,線跟著消失
Private Sub Check2_Click()
If Check2.Value = 1 Then
Line (6240, 3600)-(6240, 4060)
Else
Line (0, 0)-(0, 0)
End If
End Sub
這是我目前的程式碼,嘗試了很多,cls會全部清掉,這不是我需要的
求高手解答
搜尋相關Tags的文章:
[ vb6 checkbox ] ,
[ 線 ] ,
本篇文章發表於2020-02-22 22:13
1樓
最有價值解答
Jones
'方法之一: If Check2.Value = 1 Then Me.Line (100, 100)-(600, 2600), 0 Else Me.Line (100, 100)-(600, 2600), Me.Point(300, 300) '畫和底色一樣的線就像擦掉一樣 End If
本篇文章回覆於2020-05-12 17:52
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
1
回覆
如要回應,請先
登入
.
|
網站導覽
|
網站介紹
|
4P點數說明
|
電子報
|
小舖活動
|
大事紀
|
廣告刊登
|
常見問題
|
聯絡我們
|
版權所有 ©copyright 2000 All Rights Reserved