07-05-2021
05:30 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-05-2021
05:30 AM
Private Sub ButtonCancel_Click()
UB_UpdateFromDrawing = ""
UB_UpdateToDrawing = ""
Unload Me
End Sub
Private Sub ButtonYes_Click()
UB_UpdateFromDrawing = CB_UpdateFromDrawing.Value
UB_UpdateToDrawing = CB_UpdateToDrawing.Value
Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
Private Sub UserForm_Initialize()
For i = LBound(OpeningFileArr) To UBound(OpeningFileArr)
CB_UpdateFromDrawing.AddItem OpeningFileArr(i)
Next
For i = LBound(OpeningFileArr) To UBound(OpeningFileArr)
CB_UpdateToDrawing.AddItem OpeningFileArr(i)
Next
UpdateBlockV2.Caption = "(TB) Update Block From Other Drawing V2.0"
CB_UpdateFromDrawing.Value = OpeningFileArr(0)
CB_UpdateToDrawing.Value = OpeningFileArr(0)
End Sub