IF語句確定Me.Cancel選項

Question

我正在嘗試根據傳入表單的值來控制ESC操作。

Private Sub SetDefault(ByVal myDefaultBtn As Button) 
    If Id = "1" Then Me.CancelButton = Button3 
    If Id = "2" Then Me.CancelButton = Button1 
    If Id = "" Then Me.CancelButton = Button3 
End Sub 

是否有可能做我正在嘗試的？目前這似乎並沒有工作...

下面我附加了我的代碼的大部分視角。

Public Class Issue_Detail 
Private DayName As String 

Dim Val As String = "" 
Dim User As String = "" 
Dim Days As String = "" 
Dim Id As String = "" 
Public Sub New(val As String) 
    InitializeComponent() 
    Me.Val = val 
End Sub 

Public Sub New(val As String, user As String, Days As String, Id As String) 
    Me.New(val) 
    Me.User = user 
    Me.Days = Days 
    Me.Id = Id 
End Sub 
Public Property iassist As String 
Public Property Day As String 
Private Sub SetDefault(ByVal myDefaultBtn As Button) 
    If Id = "1" Then Me.CancelButton = Button3 
    If Id = "2" Then Me.CancelButton = Button1 
    If Id = "" Then Me.CancelButton = Button3 
End Sub 
Private Sub Issue_Detail_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

Answer 1

通過將下面的代碼放到我的MyBase.Load Sub中，它給了我需要的結果。

If Id = "1" Then Me.CancelButton = Button2 
    If Id = "2" Then Me.CancelButton = Button1 
    If Id = "" Then Me.CancelButton = Button3