📄 module1.bas
字号:
Attribute VB_Name = "Module1"
Option Explicit
'使窗口在最上层。
Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
'移动窗口
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2
Public Declare Function CreatePolygonRgn _
Lib "gdi32" _
( _
lpPoint As POINTAPI, ByVal nCount As Long, _
ByVal nPolyFillMode As Long _
) As Long
Public Type POINTAPI
X As Long
Y As Long
End Type
'------------------------------------------------
'以上为声明CreatePolygonRgn函数和它需要的POINTAPI类型
Public Declare Function SetWindowRgn _
Lib "user32" _
( _
ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean _
) As Long
Public Const ALTERNATE = 1
'------------------------------------------
''以上为声明SetWindowRgn函数和它需要的常量
Public Sub Poly(f As Form)
Dim hdc1 As Long
Dim rec(24) As POINTAPI
rec(0).X = 10
rec(0).Y = 78
rec(1).X = 13
rec(1).Y = 72
rec(2).X = 18
rec(2).Y = 67
rec(3).X = 32
rec(3).Y = 60
rec(4).X = 58
rec(4).Y = 59
rec(5).X = 85
rec(5).Y = 45
rec(6).X = 87
rec(6).Y = 37
rec(7).X = 95
rec(7).Y = 23
rec(8).X = 122
rec(8).Y = 8
rec(9).X = 251
rec(9).Y = 14
rec(10).X = 262
rec(10).Y = 21
rec(11).X = 268
rec(11).Y = 29
rec(12).X = 271
rec(12).Y = 40
rec(13).X = 270 '
rec(13).Y = 435
rec(14).X = 265
rec(14).Y = 445
rec(15).X = 254
rec(15).Y = 453
rec(16).X = 246
rec(16).Y = 455
rec(17).X = 119
rec(17).Y = 461
rec(18).X = 94
rec(18).Y = 446
rec(19).X = 86
rec(19).Y = 426
rec(20).X = 60
rec(20).Y = 412
rec(21).X = 32
rec(21).Y = 412
rec(22).X = 15
rec(22).Y = 401
rec(23).X = 11
rec(23).Y = 390
hdc1 = CreatePolygonRgn(rec(0), 24, ALTERNATE)
SetWindowRgn f.hWnd, hdc1, True
End Sub
Public Sub bianji(f As Form5)
Dim hdc1 As Long
Dim rec(22) As POINTAPI
rec(0).X = 20
rec(0).Y = 34
rec(1).X = 24
rec(1).Y = 20
rec(2).X = 35
rec(2).Y = 12
rec(3).X = 524
rec(3).Y = 12
rec(4).X = 531
rec(4).Y = 16
rec(5).X = 538
rec(5).Y = 28
rec(6).X = 538
rec(6).Y = 428
rec(7).X = 533
rec(7).Y = 438
rec(8).X = 521
rec(8).Y = 444
rec(9).X = 342
rec(9).Y = 444
rec(10).X = 346
rec(10).Y = 491
rec(11).X = 354
rec(11).Y = 501
rec(12).X = 381
rec(12).Y = 511
rec(13).X = 381
rec(13).Y = 520
rec(14).X = 179
rec(14).Y = 520
rec(15).X = 180
rec(15).Y = 513
rec(16).X = 208
rec(16).Y = 501
rec(17).X = 214
rec(17).Y = 491
rec(18).X = 219
rec(18).Y = 444
rec(19).X = 39
rec(19).Y = 444
rec(20).X = 26
rec(20).Y = 436
rec(21).X = 20
rec(21).Y = 425
hdc1 = CreatePolygonRgn(rec(0), 22, ALTERNATE)
SetWindowRgn f.hWnd, hdc1, True
End Sub
Public Sub liulan(f As Form)
Dim hdc1 As Long
Dim rec(26) As POINTAPI
rec(0).X = 10
rec(0).Y = 34
rec(1).X = 11
rec(1).Y = 24
rec(2).X = 15
rec(2).Y = 17
rec(3).X = 22
rec(3).Y = 13
rec(4).X = 30
rec(4).Y = 13
rec(5).X = 384
rec(5).Y = 13
rec(6).X = 389
rec(6).Y = 17
rec(7).X = 393
rec(7).Y = 22
rec(8).X = 395
rec(8).Y = 31
rec(9).X = 395
rec(9).Y = 311
rec(10).X = 392
rec(10).Y = 316
rec(11).X = 398
rec(11).Y = 318
rec(12).X = 355
rec(12).Y = 318
rec(13).X = 350
rec(13).Y = 307
rec(14).X = 345
rec(14).Y = 287
rec(15).X = 338
rec(15).Y = 283
rec(16).X = 228
rec(16).Y = 283
rec(17).X = 228
rec(17).Y = 309
rec(18).X = 181
rec(18).Y = 309
rec(19).X = 179
rec(19).Y = 283
rec(20).X = 68
rec(20).Y = 284
rec(21).X = 60
rec(21).Y = 290
rec(22).X = 56
rec(22).Y = 307
rec(23).X = 48
rec(23).Y = 320
rec(24).X = 18
rec(24).Y = 319
rec(25).X = 10
rec(25).Y = 313
hdc1 = CreatePolygonRgn(rec(0), 26, ALTERNATE)
SetWindowRgn f.hWnd, hdc1, True
End Sub
Public Sub chaxun(f As Form)
Dim hdc1 As Long
Dim rec(24) As POINTAPI
rec(0).X = 3
rec(0).Y = 27
rec(1).X = 5
rec(1).Y = 8
rec(2).X = 11
rec(2).Y = 11
rec(3).X = 22
rec(3).Y = 9
rec(4).X = 375
rec(4).Y = 9
rec(5).X = 382
rec(5).Y = 12
rec(6).X = 387
rec(6).Y = 20
rec(7).X = 387
rec(7).Y = 310
rec(8).X = 382
rec(8).Y = 314
rec(9).X = 378
rec(9).Y = 314
rec(10).X = 352
rec(10).Y = 314
rec(11).X = 343
rec(11).Y = 303
rec(12).X = 339
rec(12).Y = 281
rec(13).X = 330
rec(13).Y = 281
rec(14).X = 221
rec(14).Y = 279
rec(15).X = 221
rec(15).Y = 305
rec(16).X = 173
rec(16).Y = 305
rec(17).X = 172
rec(17).Y = 280
rec(18).X = 62
rec(18).Y = 279
rec(19).X = 54
rec(19).Y = 282
rec(20).X = 48
rec(20).Y = 305
rec(21).X = 38
rec(21).Y = 317
rec(22).X = 8
rec(22).Y = 314
rec(23).X = 3
rec(23).Y = 309
hdc1 = CreatePolygonRgn(rec(0), 24, ALTERNATE)
SetWindowRgn f.hWnd, hdc1, True
End Sub
Public Sub guanyu(f As Form)
Dim hdc1 As Long
Dim rec(21) As POINTAPI
rec(0).X = 12
rec(0).Y = 32
rec(1).X = 13
rec(1).Y = 24
rec(2).X = 15
rec(2).Y = 20
rec(3).X = 23
rec(3).Y = 15
rec(4).X = 364
rec(4).Y = 15
rec(5).X = 370
rec(5).Y = 19
rec(6).X = 372
rec(6).Y = 29
rec(7).X = 372
rec(7).Y = 303
rec(8).X = 368
rec(8).Y = 311
rec(9).X = 359
rec(9).Y = 315
rec(10).X = 238
rec(10).Y = 315
rec(11).X = 243
rec(11).Y = 354
rec(12).X = 262
rec(12).Y = 362
rec(13).X = 264
rec(13).Y = 369
rec(14).X = 124
rec(14).Y = 369
rec(15).X = 123
rec(15).Y = 363
rec(16).X = 147
rec(16).Y = 352
rec(17).X = 152
rec(17).Y = 315
rec(18).X = 24
rec(18).Y = 315
rec(19).X = 17
rec(19).Y = 311
rec(20).X = 12
rec(20).Y = 303
hdc1 = CreatePolygonRgn(rec(0), 21, ALTERNATE)
SetWindowRgn f.hWnd, hdc1, True
End Sub
Public Sub pingguo(f As Form)
Dim hdc1 As Long
Dim rec(53) As POINTAPI
rec(0).X = 23
rec(0).Y = 111
rec(1).X = 25
rec(1).Y = 110
rec(2).X = 40
rec(2).Y = 92
rec(3).X = 56
rec(3).Y = 83
rec(4).X = 75
rec(4).Y = 77
rec(5).X = 93
rec(5).Y = 75
rec(6).X = 107
rec(6).Y = 79
rec(7).X = 121
rec(7).Y = 88
rec(8).X = 130
rec(8).Y = 92
rec(9).X = 136
rec(9).Y = 81
rec(10).X = 141
rec(10).Y = 55
rec(11).X = 149
rec(11).Y = 38
rec(12).X = 158
rec(12).Y = 26
rec(13).X = 182
rec(13).Y = 13
rec(14).X = 190
rec(14).Y = 9
rec(15).X = 198
rec(15).Y = 8
rec(16).X = 198
rec(16).Y = 30
rec(17).X = 192
rec(17).Y = 47
rec(18).X = 183
rec(18).Y = 61
rec(19).X = 171
rec(19).Y = 70
rec(20).X = 159
rec(20).Y = 79
rec(20).X = 137
rec(20).Y = 82
rec(21).X = 131
rec(21).Y = 92
rec(22).X = 150
rec(22).Y = 93
rec(23).X = 173
rec(23).Y = 85
rec(24).X = 197
rec(24).Y = 79
rec(25).X = 216
rec(25).Y = 78
rec(26).X = 232
rec(26).Y = 82
rec(27).X = 260
rec(27).Y = 105
rec(28).X = 270
rec(28).Y = 117
rec(29).X = 244
rec(29).Y = 150
rec(30).X = 236
rec(30).Y = 170
rec(31).X = 242
rec(31).Y = 211
rec(32).X = 254
rec(32).Y = 223
rec(33).X = 269
rec(33).Y = 233
rec(34).X = 268
rec(34).Y = 241
rec(35).X = 269
rec(35).Y = 277
rec(36).X = 256
rec(36).Y = 294
rec(37).X = 240
rec(37).Y = 311
rec(38).X = 218
rec(38).Y = 327
rec(39).X = 186
rec(39).Y = 328
rec(40).X = 151
rec(40).Y = 317
rec(41).X = 142
rec(41).Y = 317
rec(42).X = 121
rec(42).Y = 327
rec(43).X = 95
rec(43).Y = 327
rec(44).X = 73
rec(44).Y = 317
rec(45).X = 49
rec(45).Y = 293
rec(46).X = 35
rec(46).Y = 268
rec(47).X = 22
rec(47).Y = 243
rec(48).X = 10
rec(48).Y = 208
rec(49).X = 7
rec(49).Y = 181
rec(50).X = 8
rec(50).Y = 158
rec(51).X = 11
rec(51).Y = 138
rec(52).X = 16
rec(52).Y = 123
hdc1 = CreatePolygonRgn(rec(0), 53, ALTERNATE)
SetWindowRgn f.hWnd, hdc1, True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -