VBA_FORM.frm 1.0 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546
  1. VERSION 5.00
  2. Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} VBA_FORM
  3. Caption = "Hello_VBA"
  4. ClientHeight = 3165
  5. ClientLeft = 45
  6. ClientTop = 390
  7. ClientWidth = 4710
  8. OleObjectBlob = "VBA_FORM.frx":0000
  9. StartUpPosition = 1 '所有者中心
  10. End
  11. Attribute VB_Name = "VBA_FORM"
  12. Attribute VB_GlobalNameSpace = False
  13. Attribute VB_Creatable = False
  14. Attribute VB_PredeclaredId = True
  15. Attribute VB_Exposed = False
  16. Private Sub CB_BZCC_Click()
  17. Tools.尺寸标注
  18. End Sub
  19. Private Sub CB_ECWZ_Click()
  20. Tools.填入居中文字 "你好 CorelVBA!"
  21. End Sub
  22. Private Sub CB_JDZP_Click()
  23. Tools.角度转平
  24. End Sub
  25. Private Sub CB_PLBZ_Click()
  26. Tools.批量标注
  27. End Sub
  28. Private Sub CB_PLWZ_Click()
  29. Tools.批量居中文字 "CorelVBA批量文字"
  30. End Sub
  31. Private Sub CB_VBA_Click()
  32. MsgBox "你好 CorelVBA!"
  33. End Sub
  34. Private Sub CB_VBA_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  35. CB_VBA.BackColor = RGB(255, 0, 0)
  36. End Sub
  37. Private Sub ZNQZ_Click()
  38. Tools.智能群组
  39. End Sub