📄 frmdi_do.frm
字号:
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 19
Left = 3120
Shape = 2 'Oval
Top = 7320
Width = 300
End
Begin VB.Shape Shape2
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 19
Left = 2280
Shape = 2 'Oval
Top = 7320
Width = 300
End
Begin VB.Shape Shape1
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 19
Left = 1440
Shape = 2 'Oval
Top = 7320
Width = 300
End
Begin VB.Shape Shape4
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 18
Left = 3960
Shape = 2 'Oval
Top = 6960
Width = 300
End
Begin VB.Shape Shape3
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 18
Left = 3120
Shape = 2 'Oval
Top = 6960
Width = 300
End
Begin VB.Shape Shape2
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 18
Left = 2280
Shape = 2 'Oval
Top = 6960
Width = 300
End
Begin VB.Shape Shape1
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 18
Left = 1440
Shape = 2 'Oval
Top = 6960
Width = 300
End
Begin VB.Shape Shape4
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 17
Left = 3960
Shape = 2 'Oval
Top = 6600
Width = 300
End
Begin VB.Shape Shape3
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 17
Left = 3120
Shape = 2 'Oval
Top = 6600
Width = 300
End
Begin VB.Shape Shape2
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 17
Left = 2280
Shape = 2 'Oval
Top = 6600
Width = 300
End
Begin VB.Shape Shape1
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 17
Left = 1440
Shape = 2 'Oval
Top = 6600
Width = 300
End
Begin VB.Shape Shape4
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 16
Left = 3960
Shape = 2 'Oval
Top = 6240
Width = 300
End
Begin VB.Shape Shape3
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 16
Left = 3120
Shape = 2 'Oval
Top = 6240
Width = 300
End
Begin VB.Shape Shape2
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 16
Left = 2280
Shape = 2 'Oval
Top = 6240
Width = 300
End
Begin VB.Shape Shape1
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 16
Left = 1440
Shape = 2 'Oval
Top = 6240
Width = 300
End
Begin VB.Shape Shape4
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 15
Left = 3960
Shape = 2 'Oval
Top = 5880
Width = 300
End
Begin VB.Shape Shape3
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 15
Left = 3120
Shape = 2 'Oval
Top = 5880
Width = 300
End
Begin VB.Shape Shape2
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 15
Left = 2280
Shape = 2 'Oval
Top = 5880
Width = 300
End
Begin VB.Shape Shape1
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 15
Left = 1440
Shape = 2 'Oval
Top = 5880
Width = 300
End
Begin VB.Shape Shape4
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 14
Left = 3960
Shape = 2 'Oval
Top = 5520
Width = 300
End
Begin VB.Shape Shape3
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 14
Left = 3120
Shape = 2 'Oval
Top = 5520
Width = 300
End
Begin VB.Shape Shape2
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 14
Left = 2280
Shape = 2 'Oval
Top = 5520
Width = 300
End
Begin VB.Shape Shape1
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 14
Left = 1440
Shape = 2 'Oval
Top = 5520
Width = 300
End
Begin VB.Shape Shape4
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 13
Left = 3960
Shape = 2 'Oval
Top = 5160
Width = 300
End
Begin VB.Shape Shape3
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 13
Left = 3120
Shape = 2 'Oval
Top = 5160
Width = 300
End
Begin VB.Shape Shape2
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 13
Left = 2280
Shape = 2 'Oval
Top = 5160
Width = 300
End
Begin VB.Shape Shape1
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 13
Left = 1440
Shape = 2 'Oval
Top = 5160
Width = 300
End
Begin VB.Shape Shape4
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 12
Left = 3960
Shape = 2 'Oval
Top = 4800
Width = 300
End
Begin VB.Shape Shape3
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 12
Left = 3120
Shape = 2 'Oval
Top = 4800
Width = 300
End
Begin VB.Shape Shape2
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 12
Left = 2280
Shape = 2 'Oval
Top = 4800
Width = 300
End
Begin VB.Shape Shape1
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 12
Left = 1440
Shape = 2 'Oval
Top = 4800
Width = 300
End
Begin VB.Shape Shape4
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 11
Left = 3960
Shape = 2 'Oval
Top = 4440
Width = 300
End
Begin VB.Shape Shape3
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 11
Left = 3120
Shape = 2 'Oval
Top = 4440
Width = 300
End
Begin VB.Shape Shape2
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 11
Left = 2280
Shape = 2 'Oval
Top = 4440
Width = 300
End
Begin VB.Shape Shape1
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 11
Left = 1440
Shape = 2 'Oval
Top = 4440
Width = 300
End
Begin VB.Shape Shape4
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 10
Left = 3960
Shape = 2 'Oval
Top = 4080
Width = 300
End
Begin VB.Shape Shape3
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 10
Left = 3120
Shape = 2 'Oval
Top = 4080
Width = 300
End
Begin VB.Shape Shape2
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 10
Left = 2280
Shape = 2 'Oval
Top = 4080
Width = 300
End
Begin VB.Shape Shape1
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 10
Left = 1440
Shape = 2 'Oval
Top = 4080
Width = 300
End
Begin VB.Shape Shape4
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
BorderStyle = 0 'Transparent
FillStyle = 0 'Solid
Height = 300
Index = 9
Left = 3960
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -