Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
buianhtuan.cdt
in reply to: Anonymous

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