【VB6】自制旋钮控件

这个是旋钮控件，用于调整数值。
其中旋钮的把手的形状、大小都是可以调整的。你也可以不显示把手。
那个小红点也是可以选择是否显示的。
旋钮的旋转范围也是可以调整的。
此外就是，旋钮的刻度的显示密度也是可调的。
为了保证画风不和Windows界面冲突，绘制旋钮用的颜色都是取自系统颜色（比如按钮表面、按钮暗阴影、按钮亮阴影等颜色）。

[Visual Basic] 纯文本查看 复制代码

001	VERSION 5.00

002	Begin VB.UserControl Knob

003	ClientHeight    =   2415

004	ClientLeft      =   0

005	ClientTop       =   0

006	ClientWidth     =   2430

007	ScaleHeight     =   161

008	ScaleMode       =   3  'Pixel

009	ScaleWidth      =   162

010	Begin VB.PictureBox picKnob

011	Align           =   1  'Align Top

012	AutoRedraw      =   -1  'True

013	Height          =   1335

014	Left            =   0

015	ScaleHeight     =   85

016	ScaleMode       =   3  'Pixel

017	ScaleWidth      =   158

018	TabIndex        =   0

019	Top             =   0

020	Width           =   2430

021	Begin VB.PictureBox picBase

022	AutoRedraw      =   -1  'True

023	BorderStyle     =   0  'None

024	Height          =   495

025	Left            =   0

026	ScaleHeight     =   33

027	ScaleMode       =   3  'Pixel

028	ScaleWidth      =   33

029	TabIndex        =   1

030	Top             =   0

031	Visible         =   0   'False

032	Width           =   495

033

End

034

End

035

End

036	Attribute VB_Name = "Knob"

037	Attribute VB_GlobalNameSpace = False

038	Attribute VB_Creatable = True

039	Attribute VB_PredeclaredId = False

040	Attribute VB_Exposed = False

041	'==============================================================================

042	'作者：0xAA55

043	'论坛：[url]http://www./[/url]

044	'版权所有 (C) 2013-2015 技术宅的结界

045	'请保留原作者信息，否则视为侵权。

046	'------------------------------------------------------------------------------

047	Option Explicit

048

049	Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long

050

051	Private Const Knob_PI As Double = 3.14159265358979

052	Private m_Rad As Double

053	Private m_Max As Long

054	Private m_Value As Long

055	Private m_Steps As Long

056	Private m_MaxAng As Double

057	Private m_MinAng As Double

058	Private m_MouseDown As Boolean

059	Private m_MouseAngle As Double

060	Private m_BaseRad As Double

061	Private m_HandleRad As Double

062	Private m_DrawGrad As Boolean

063	Private m_DrawPoint As Boolean

064	Private m_DrawRaisedHandle As Boolean

065	Private m_RaisedHandleWidth1 As Double

066	Private m_RaisedHandleWidth2 As Double

067

068	Event Click()

069	Attribute Click.VB_Description = "Triggerd when clicked."

070	Attribute Click.VB_UserMemId = -600

071	Event DblClick()

072	Attribute DblClick.VB_Description = "Triggerd when double clicked."

073	Attribute DblClick.VB_UserMemId = -601

074	Event Change(ByVal OldValue As Long, ByVal NewValue As Long)

075	Attribute Change.VB_Description = "Triggerd when the value was changed."

076	Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

077	Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

078	Attribute MouseMove.VB_UserMemId = -606

079	Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

080	Attribute MouseUp.VB_UserMemId = -607

081	Event KeyDown(KeyCode As Integer, Shift As Integer)

082	Attribute KeyDown.VB_UserMemId = -602

083	Event KeyPress(KeyAscii As Integer)

084	Attribute KeyPress.VB_UserMemId = -603

085	Event KeyUp(KeyCode As Integer, Shift As Integer)

086	Attribute KeyUp.VB_UserMemId = -604

087

088

'绘制旋钮

089	Private Sub DrawKnob()

090	DrawBaseCircle '先绘制底座圆圈

091	DrawHandle '然后绘制“把手”

092

End Sub

093

094

'绘制圆圈底座

095	Private Sub DrawBaseCircle()

096	If m_Rad <= 0 Then Exit Sub

097

098	'用picBase来存住底座圆圈的图像

099	picBase.Cls

100

101	If m_DrawGrad Then

102

'画刻度

103	picBase.DrawWidth = 1

104	Dim Ang As Long

105	For Ang = 0 To m_Steps - 1

106	Dim CA As Double, CX As Double, CY As Double

107	CA = m_MinAng + (m_MaxAng - m_MinAng) * Ang / (m_Steps - 1) + Knob_PI * 0.5 '刻度的角度

108	CX = Cos(CA)

109	CY = Sin(CA)

110	picBase.Line (m_Rad + CX * m_Rad * m_BaseRad, m_Rad + CY * m_Rad * m_BaseRad)-(m_Rad + CX * m_Rad, m_Rad + CY * m_Rad) '画辐射线

111

Next

112

End If

113

114

'画底座

115	picBase.DrawWidth = 3

116	DrawLightedCircle picBase, m_Rad, m_Rad, m_Rad * m_BaseRad - 1, GetSysColor(vb3DHighlight And &HFF&), GetSysColor(vb3DDKShadow And &HFF&)

117	picBase.DrawWidth = 2

118	DrawLightedCircle picBase, m_Rad, m_Rad, m_Rad * m_BaseRad - 3, GetSysColor(vb3DLight And &HFF&), GetSysColor(vbButtonShadow And &HFF&)

119

End Sub

120

121	'绘制带光照处理的圆圈

122	Private Sub DrawLightedCircle(Targ As PictureBox, ByVal X As Double, ByVal Y As Double, ByVal Radius As Double, ByVal Color1 As Long, ByVal Color2 As Long)

123	Dim Ang As Double

124	Dim R1 As Long, G1 As Long, B1 As Long

125	Dim R2 As Long, G2 As Long, B2 As Long

126	Dim DotVal As Double, XV As Double, YV As Double, RV As Long, GV As Long, BV As Long

127

128

'画笔的开始位置

129	Targ.CurrentX = X + Radius

130	Targ.CurrentY = Y

131

132

'颜色1

133	R1 = Color1 And &HFF

134	G1 = (Color1 And &HFF00&) \ &H100

135	B1 = (Color1 And &HFF0000) \ &H10000

136

137

'颜色2

138	R2 = Color2 And &HFF

139	G2 = (Color2 And &HFF00&) \ &H100

140	B2 = (Color2 And &HFF0000) \ &H10000

141

142	'以像素为单位画一圈

143	For Ang = 0 To Knob_PI * 2 Step 1 / Radius

144	XV = Cos(Ang)

145	YV = Sin(Ang)

146	DotVal = (XV + YV + 1) * 0.5 '与光线方向(1,1)做点乘，然后将[-1,1]变换到[0,1]

147	RV = R1 + (R2 - R1) * DotVal '颜色插值

148	GV = G1 + (G2 - G1) * DotVal

149	BV = B1 + (B2 - B1) * DotVal

150	Targ.Line -(X + XV * Radius, Y + YV * Radius), RGB(RV, GV, BV)

151

Next

152

End Sub

153

154	Private Sub DrawLighedLine(Targ As PictureBox, ByVal X1 As Double, ByVal Y1 As Double, ByVal X2 As Double, ByVal Y2 As Double, ByVal Color1 As Long, ByVal Color2 As Long)

155	On Error Resume Next

156	Dim DirX As Double, DirY As Double, DirL As Double

157	DirX = X2 - X1

158	DirY = Y2 - Y1

159	DirL = Sqr(DirX * DirX + DirY * DirY)

160

161	DirX = DirX / DirL

162	DirY = DirY / DirL

163

164	Dim NorX As Double, NorY As Double

165	NorX = -DirY

166	NorY = DirX

167

168	Dim R1 As Long, G1 As Long, B1 As Long

169	Dim R2 As Long, G2 As Long, B2 As Long

170	Dim DotVal As Double, RV As Long, GV As Long, BV As Long

171

172

'颜色1

173	R1 = Color1 And &HFF

174	G1 = (Color1 And &HFF00&) \ &H100

175	B1 = (Color1 And &HFF0000) \ &H10000

176

177

'颜色2

178	R2 = Color2 And &HFF

179	G2 = (Color2 And &HFF00&) \ &H100

180	B2 = (Color2 And &HFF0000) \ &H10000

181

182	DotVal = (NorX + NorY + 1) * 0.5 '与光线方向(1,1)做点乘，然后将[-1,1]变换到[0,1]

183	RV = R1 + (R2 - R1) * DotVal '颜色插值

184	GV = G1 + (G2 - G1) * DotVal

185	BV = B1 + (B2 - B1) * DotVal

186

187	Targ.DrawWidth = 2

188	Targ.Line (X1, Y1)-(X2, Y2), RGB(RV, GV, BV)

189

End Sub

190

191

'画“把手”

192	Private Sub DrawHandle()

193	If m_Rad <= 0 Then Exit Sub

194

195	Dim Ang As Double

196	Ang = ValueToAngle(m_Value, m_Max) '旋钮的角度

197

198	'先把画好的底座盖上去

199	picKnob.PaintPicture picBase.Image, 0, 0

200

201

'画凸起的把手

202	If m_DrawRaisedHandle Then DrawRHandle

203

204

'画小圆点

205	If m_DrawPoint Then

206	picKnob.DrawWidth = 1

207	If m_MouseDown Then '鼠标按下的时候，填充颜色

208	picKnob.FillStyle = vbSolid

209	picKnob.FillColor = vbHighlight

210

Else

211	picKnob.FillStyle = 1

212

End If

213	picKnob.Circle (m_Rad + Cos(Ang) * m_Rad * m_BaseRad * 0.5, m_Rad + Sin(Ang) * m_Rad * m_BaseRad * 0.5), 2, vbRed

214

End If

215

End Sub

216

217

'画凸起的把手

218	Private Sub DrawRHandle()

219	picKnob.DrawWidth = 2

220

221	Dim Ang As Double

222	Ang = ValueToAngle(m_Value, m_Max) '旋钮的角度

223

224	Dim BaseRad As Double

225	BaseRad = m_Rad * m_BaseRad * m_HandleRad

226

227

'正向

228	Dim DirX As Double, DirY As Double

229	DirX = Cos(Ang)

230	DirY = Sin(Ang)

231

232

'侧向

233	Dim SideX As Double, SideY As Double

234	SideX = -DirY

235	SideY = DirX

236

237	Dim RHW1 As Double, RHW2 As Double

238	RHW1 = m_RaisedHandleWidth1 * BaseRad

239	RHW2 = m_RaisedHandleWidth2 * BaseRad

240

241	Dim BackL As Double, FrontL As Double

242	FrontL = Sqr(BaseRad * BaseRad - RHW1 * RHW1)

243	BackL = Sqr(BaseRad * BaseRad - RHW2 * RHW2)

244

245	Dim Color1 As Long, Color2 As Long

246	Color1 = GetSysColor(vb3DHighlight And &HFF&)

247	Color2 = GetSysColor(vb3DDKShadow And &HFF&)

248

249	Dim PtX(3) As Double

250	Dim PtY(3) As Double

251

252	PtX(0) = m_Rad + DirX * FrontL + SideX * RHW1

253	PtY(0) = m_Rad + DirY * FrontL + SideY * RHW1

254	PtX(1) = m_Rad + DirX * FrontL - SideX * RHW1

255	PtY(1) = m_Rad + DirY * FrontL - SideY * RHW1

256	PtX(2) = m_Rad - DirX * BackL + SideX * RHW2

257	PtY(2) = m_Rad - DirY * BackL + SideY * RHW2

258	PtX(3) = m_Rad - DirX * BackL - SideX * RHW2

259	PtY(3) = m_Rad - DirY * BackL - SideY * RHW2

260

261	DrawLighedLine picKnob, PtX(0), PtY(0), PtX(1), PtY(1), Color1, Color2

262	DrawLighedLine picKnob, PtX(1), PtY(1), PtX(3), PtY(3), Color1, Color2

263	DrawLighedLine picKnob, PtX(3), PtY(3), PtX(2), PtY(2), Color1, Color2

264	DrawLighedLine picKnob, PtX(2), PtY(2), PtX(0), PtY(0), Color1, Color2

265

266

End Sub

267

268	'将数值转换为用于显示的角度值

269	Private Function ValueToAngle(ByVal Value_ As Long, ByVal MaxValue_ As Long) As Double

270	If MaxValue_ Then ValueToAngle = m_MinAng + (m_MaxAng - m_MinAng) * Value_ / MaxValue_ + Knob_PI * 0.5

271	End Function

272

273	'将角度值转换为数值

274	Private Function AngleToValue(ByVal Angle As Double) As Long

275	If m_MaxAng = 0 Then Exit Function

276	Angle = Angle - Knob_PI * 0.5

277	While Angle < 0

278	Angle = Angle + Knob_PI * 2

279

Wend

280	While Angle > Knob_PI * 2

281	Angle = Angle - Knob_PI * 2

282

Wend

283	AngleToValue = (Angle - m_MinAng) * m_Max / (m_MaxAng - m_MinAng)

284	End Function

285

286	'控件改变大小，重建底座图

287	Private Sub picBase_Resize()

288	DrawBaseCircle

289

End Sub

290

291

'鼠标单击操作

292	Private Sub picKnob_Click()

293	RaiseEvent Click

294

End Sub

295

296

'鼠标双击操作

297	Private Sub picKnob_DblClick()

298	RaiseEvent DblClick

299

End Sub

300

301

'键盘按下操作

302	Private Sub picKnob_KeyDown(KeyCode As Integer, Shift As Integer)

303	RaiseEvent KeyDown(KeyCode, Shift)

304

End Sub

305

306

'键盘打字操作

307	Private Sub picKnob_KeyPress(KeyAscii As Integer)

308	RaiseEvent KeyPress(KeyAscii)

309

End Sub

310

311

'键盘弹起操作

312	Private Sub picKnob_KeyUp(KeyCode As Integer, Shift As Integer)

313	RaiseEvent KeyUp(KeyCode, Shift)

314

End Sub

315

316

'鼠标按下操作

317	Private Sub picKnob_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

318	m_MouseDown = True

319	m_MouseAngle = GetAngle(X - m_Rad, Y - m_Rad) - ValueToAngle(m_Value, m_Max)

320	DrawHandle

321	RaiseEvent MouseDown(Button, Shift, X, Y)

322

End Sub

323

324

'鼠标移动操作

325	Private Sub picKnob_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

326	If m_MouseDown Then

327	Dim NewAng As Double, OldVal As Long

328	NewAng = GetAngle(X - m_Rad, Y - m_Rad) - m_MouseAngle

329	OldVal = m_Value

330	m_Value = AngleToValue(NewAng)

331	If m_Value > m_Max Then m_Value = m_Max

332	If m_Value < 0 Then m_Value = 0

333	picKnob.ToolTipText = m_Value

334	DrawHandle

335	RaiseEvent MouseMove(Button, Shift, X, Y)

336	If OldVal <> m_Value Then

337	RaiseEvent Change(OldVal, m_Value)

338	m_MouseAngle = GetAngle(X - m_Rad, Y - m_Rad) - ValueToAngle(m_Value, m_Max)

339	ElseIf m_Value = 0 Or m_Value = m_Max Then

340	m_MouseAngle = GetAngle(X - m_Rad, Y - m_Rad) - ValueToAngle(m_Value, m_Max)

341

End If

342

End If

343

End Sub

344

345

'鼠标松开操作

346	Private Sub picKnob_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

347	m_MouseDown = False

348	DrawHandle

349	RaiseEvent MouseUp(Button, Shift, X, Y)

350

End Sub

351

352	Private Sub picKnob_Resize()

353	picBase.Move 0, 0, picKnob.ScaleWidth, picKnob.ScaleHeight

354	DrawHandle

355

End Sub

356

357

'控件初始化

358	Private Sub UserControl_Initialize()

359	UserControl_Resize

360

End Sub

361

362	Private Sub UserControl_InitProperties()

363	m_Max = 100

364	m_Value = 100

365	m_Steps = 3

366	m_BaseRad = 0.75

367	m_HandleRad = 0.8

368	m_MinAng = Knob_PI / 3

369	m_MaxAng = Knob_PI * 5 / 3

370	m_DrawGrad = True

371	m_DrawPoint = True

372	m_DrawRaisedHandle = True

373	m_RaisedHandleWidth1 = 0.3

374	m_RaisedHandleWidth2 = 0.3

375

End Sub

376

377	Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

378	m_Max = PropBag.ReadProperty("Max", m_Max)

379	m_Value = PropBag.ReadProperty("Value", m_Value)

380	m_Steps = PropBag.ReadProperty("Steps", m_Steps)

381	m_BaseRad = PropBag.ReadProperty("BaseRadius", m_BaseRad)

382	m_HandleRad = PropBag.ReadProperty("HandleRadius", m_HandleRad)

383	m_MinAng = PropBag.ReadProperty("MinAngle", m_MinAng)

384	m_MaxAng = PropBag.ReadProperty("MaxAngle", m_MaxAng)

385	m_DrawGrad = PropBag.ReadProperty("DrawGraduation", m_DrawGrad)

386	m_DrawPoint = PropBag.ReadProperty("DrawPoint", m_DrawPoint)

387	m_DrawRaisedHandle = PropBag.ReadProperty("DrawRaisedHandle", m_DrawRaisedHandle)

388	m_RaisedHandleWidth1 = PropBag.ReadProperty("RaisedHandleWidth1", m_RaisedHandleWidth1)

389	m_RaisedHandleWidth2 = PropBag.ReadProperty("RaisedHandleWidth2", m_RaisedHandleWidth2)

390	picKnob.BorderStyle = PropBag.ReadProperty("BorderStyle", picKnob.BorderStyle)

391	m_Rad = picKnob.ScaleHeight \ 2

392

DrawKnob

393

End Sub

394

395	Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

396	PropBag.WriteProperty "Max", m_Max

397	PropBag.WriteProperty "Value", m_Value

398	PropBag.WriteProperty "Steps", m_Steps

399	PropBag.WriteProperty "BaseRadius", m_BaseRad

400	PropBag.WriteProperty "HandleRadius", m_HandleRad

401	PropBag.WriteProperty "MinAngle", m_MinAng

402	PropBag.WriteProperty "MaxAngle", m_MaxAng

403	PropBag.WriteProperty "DrawGraduation", m_DrawGrad

404	PropBag.WriteProperty "DrawPoint", m_DrawPoint

405	PropBag.WriteProperty "DrawRaisedHandle", m_DrawRaisedHandle

406	PropBag.WriteProperty "RaisedHandleWidth1", m_RaisedHandleWidth1

407	PropBag.WriteProperty "RaisedHandleWidth2", m_RaisedHandleWidth2

408	PropBag.WriteProperty "BorderStyle", picKnob.BorderStyle

409

End Sub

410

411

'控件改变大小

412	Private Sub UserControl_Resize()

413	If Width > Height Then

414	Width = Height

415

Exit Sub

416	ElseIf Width < Height Then

417	Height = Width

418

Exit Sub

419

End If

420	picKnob.Height = ScaleHeight

421	m_Rad = picKnob.ScaleHeight \ 2

422

DrawKnob

423

End Sub

424

425

'取得角度

426	Private Function GetAngle(ByVal X As Double, ByVal Y As Double) As Double

427	'X为Cos计算出来的，Y为Sin计算出来的

428	If X > 0 Then

429	GetAngle = Atn(Y / X)

430	ElseIf X < 0 Then

431	GetAngle = Atn(Y / X) + Knob_PI

432	ElseIf Y > 0 Then

433	GetAngle = Knob_PI / 2

434	ElseIf Y < 0 Then

435	GetAngle = Knob_PI * 3 / 2

436

End If

437	End Function

438

439	'边框属性，继承的PictureBox的边框属性

440	Property Get BorderStyle() As Long

441	Attribute BorderStyle.VB_Description = "The style of the border. Same as PictureBox."

442	Attribute BorderStyle.VB_ProcData.VB_Invoke_Property = ";外观"

443	Attribute BorderStyle.VB_UserMemId = -504

444	BorderStyle = picKnob.BorderStyle

445	End Property

446

447	Property Let BorderStyle(ByVal NewBorderStyle As Long)

448	picKnob.BorderStyle = NewBorderStyle

449	m_Rad = picKnob.ScaleHeight \ 2

450

DrawKnob

451	PropertyChanged "BorderStyle"

452	End Property

453

454	'旋钮的数值，取值0到Max

455	Property Get Value() As Long

456	Attribute Value.VB_Description = "The value of the knob."

457	Attribute Value.VB_ProcData.VB_Invoke_Property = ";行为"

458	Attribute Value.VB_UserMemId = 0

459	Value = m_Value

460	End Property

461

462	Property Let Value(ByVal NewValue As Long)

463	If NewValue < 0 Then

464	m_Value = 0

465	ElseIf NewValue > m_Max Then

466	m_Value = m_Max

467

Else

468	m_Value = NewValue

469

End If

470	DrawHandle

471	PropertyChanged "Value"

472	End Property

473

474	'旋钮的数值的最大值

475	Property Get Max() As Long

476	Attribute Max.VB_Description = "The maximum value"

477	Attribute Max.VB_ProcData.VB_Invoke_Property = ";行为"

478	Max = m_Max

479	End Property

480

481	Property Let Max(ByVal NewMaxValue As Long)

482	If NewMaxValue < 0 Then

483

m_Max = 0

484

Else

485	m_Max = NewMaxValue

486

End If

487	If m_Value > m_Max Then m_Value = m_Max

488

DrawKnob

489	PropertyChanged "Max"

490	End Property

491

492

'旋钮的最小角度

493	Property Get MinAngle() As Double

494	Attribute MinAngle.VB_Description = "The minimum angle the knob can turn."

495	Attribute MinAngle.VB_ProcData.VB_Invoke_Property = ";外观"

496	MinAngle = m_MinAng * 180 / Knob_PI

497	End Property

498

499	Property Let MinAngle(ByVal NewMinAngle As Double)

500	m_MinAng = NewMinAngle * Knob_PI / 180

501	While m_MinAng > Knob_PI * 2

502	m_MinAng = m_MinAng - Knob_PI * 2

503

Wend

504	While m_MinAng < 0

505	m_MinAng = m_MinAng + Knob_PI * 2

506

Wend

507	If m_MaxAng < m_MinAng Then

508	Dim Temp As Double

509	Temp = m_MaxAng

510	m_MaxAng = m_MinAng

511	m_MinAng = Temp

512

End If

513

DrawKnob

514	PropertyChanged "MinAngle"

515	End Property

516

517

'旋钮的最大角度

518	Property Get MaxAngle() As Double

519	Attribute MaxAngle.VB_Description = "The maximum angle the knob can turn."

520	Attribute MaxAngle.VB_ProcData.VB_Invoke_Property = ";外观"

521	MaxAngle = m_MaxAng * 180 / Knob_PI

522	End Property

523

524	Property Let MaxAngle(ByVal NewMaxAngle As Double)

525	m_MaxAng = NewMaxAngle * Knob_PI / 180

526	While m_MaxAng > Knob_PI * 2

527	m_MaxAng = m_MaxAng - Knob_PI * 2

528

Wend

529	While m_MaxAng < 0

530	m_MaxAng = m_MaxAng + Knob_PI * 2

531

Wend

532	If m_MinAng > m_MaxAng Then

533	Dim Temp As Double

534	Temp = m_MaxAng

535	m_MaxAng = m_MinAng

536	m_MinAng = Temp

537

End If

538

DrawKnob

539	PropertyChanged "MaxAngle"

540	End Property

541

542

'旋钮的刻度的密度

543	Property Get Steps() As Long

544	Attribute Steps.VB_Description = "The steps of the graduation."

545	Attribute Steps.VB_ProcData.VB_Invoke_Property = ";外观"

546	Steps = m_Steps

547	End Property

548

549	Property Let Steps(ByVal NewSteps As Long)

550	If NewSteps > m_Max Then

551	m_Steps = m_Max

552	ElseIf NewSteps < 0 Then

553	m_Steps = 0

554

Else

555	m_Steps = NewSteps

556

End If

557

DrawKnob

558	PropertyChanged "Steps"

559	End Property

560

561	'旋钮的圆盘的半径比例

562	Property Get BaseRadius() As Double

563	Attribute BaseRadius.VB_Description = "The radius of the base circle."

564	Attribute BaseRadius.VB_ProcData.VB_Invoke_Property = ";外观"

565	BaseRadius = m_BaseRad

566	End Property

567

568	Property Let BaseRadius(ByVal NewBaseRadius As Double)

569	If NewBaseRadius < 0 Then

570	m_BaseRad = 0

571

Else

572	m_BaseRad = NewBaseRadius

573

End If

574

DrawKnob

575	PropertyChanged "BaseRadius"

576	End Property

577

578	'旋钮的把手的半径比例

579	Property Get HandleRadius() As Double

580	Attribute HandleRadius.VB_Description = "The radius(or length) of the raised handle."

581	Attribute HandleRadius.VB_ProcData.VB_Invoke_Property = ";外观"

582	HandleRadius = m_HandleRad

583	End Property

584

585	Property Let HandleRadius(ByVal NewHandleRadius As Double)

586	If NewHandleRadius < 0 Then

587	m_HandleRad = 0

588

Else

589	m_HandleRad = NewHandleRadius

590

End If

591	DrawHandle

592	PropertyChanged "HandleRadius"

593	End Property

594

595

'是否绘制刻度

596	Property Get DrawGraduation() As Boolean

597	Attribute DrawGraduation.VB_Description = "Draw the graduation if it was true."

598	Attribute DrawGraduation.VB_ProcData.VB_Invoke_Property = ";外观"

599	DrawGraduation = m_DrawGrad

600	End Property

601

602	Property Let DrawGraduation(ByVal NewVal As Boolean)

603	m_DrawGrad = NewVal

604

DrawKnob

605	PropertyChanged "DrawGraduation"

606	End Property

607

608

'是否绘制刻度

609	Property Get DrawPoint() As Boolean

610	Attribute DrawPoint.VB_Description = "Draw the red point if it was true."

611	Attribute DrawPoint.VB_ProcData.VB_Invoke_Property = ";外观"

612	DrawPoint = m_DrawPoint

613	End Property

614

615	Property Let DrawPoint(ByVal NewVal As Boolean)

616	m_DrawPoint = NewVal

617	DrawHandle

618	PropertyChanged "DrawPoint"

619	End Property

620

621	'是否显示凸起的把手

622	Property Get DrawRaisedHandle() As Boolean

623	Attribute DrawRaisedHandle.VB_Description = "Draw the raised handle if it was true."

624	Attribute DrawRaisedHandle.VB_ProcData.VB_Invoke_Property = ";外观"

625	DrawRaisedHandle = m_DrawRaisedHandle

626	End Property

627

628	Property Let DrawRaisedHandle(ByVal NewVal As Boolean)

629	m_DrawRaisedHandle = NewVal

630	DrawHandle

631	PropertyChanged "DrawRaisedHandle"

632	End Property

633

634	'凸起的把手的宽度1

635	Property Get RaisedHandleWidth1() As Double

636	Attribute RaisedHandleWidth1.VB_Description = "The width of the raised handle."

637	Attribute RaisedHandleWidth1.VB_ProcData.VB_Invoke_Property = ";外观"

638	RaisedHandleWidth1 = m_RaisedHandleWidth1

639	End Property

640

641	Property Let RaisedHandleWidth1(ByVal NewVal As Double)

642	m_RaisedHandleWidth1 = NewVal

643	DrawHandle

644	PropertyChanged "RaisedHandleWidth1"

645	End Property

646

647	'凸起的把手的宽度2

648	Property Get RaisedHandleWidth2() As Double

649	Attribute RaisedHandleWidth2.VB_Description = "The width of the raised handle."

650	Attribute RaisedHandleWidth2.VB_ProcData.VB_Invoke_Property = ";外观"

651	RaisedHandleWidth2 = m_RaisedHandleWidth2

652	End Property

653

654	Property Let RaisedHandleWidth2(ByVal NewVal As Double)

655	m_RaisedHandleWidth2 = NewVal

656	DrawHandle

657	PropertyChanged "RaisedHandleWidth2"

658	End Property