none
程式問題 RRS feed

  • 問題

  • Private Sub Command1_Click()
    Command2.Caption = Command1.Caption
    Command1.Caption = ""

    End Sub

    Private Sub Command2_Click()
    Command1.Caption = Command2.Caption
    Command2.Caption = ""

    End Sub

    Private Sub Form_Load()
    SetC1 = Command1.Caption
    SetC2 = Command2.Caption
    If C1 And C2 = "" Then Form1.Caption = "我在這裡呀!呵呵!"


    End Sub

    我想做一個按command1button時,command1的字會走到command2button。但我發覺若按得太快時,兩個按鈕都變成空白。所以我寫了

    Private Sub Form_Load()
    SetC1 = Command1.Caption
    SetC2 = Command2.Caption
    If C1 And C2 = "" Then Form1.Caption = "我在這裡呀!呵呵!"


    End Sub

    但我發覺沒有用的,可否指點一下,謝~!

    2006年6月4日 上午 01:15

解答

  • ...

    那你就用 If 或是 Enable 來處理阿~

    ex.

    Private Sub Command2_Click()

    Command1.Enable = True
    Command2.Enable = False
    Command1.Caption = Command2.Caption
    Command2.Caption = ""

    End Sub

    Private Sub Command2_Click()

    If Len(Command.Caption) > 0 Then
       Command1.Caption = Command2.Caption
       Command2.Caption = ""
    End If

    End Sub

    2006年6月4日 上午 10:02
    版主

所有回覆

  • 請解釋:但我發覺若按得太快時,兩個按鈕都變成空白。

    另外 Form_Load 貼兩次要幹嘛?

    2006年6月4日 上午 04:15
    版主
  • 第二次貼的是我想重申用那堆碼來做成form1.caption變更。..'

    當我按兩個鍵太快時,其間程式會慢起來,便有機會將兩鍵變成空白..因為我的碼是

    Command1.Caption=Command2.Caption

    但其實我只要按Command2 button而令到兩個鍵變成空白..

    請問如何解決呢?

    2006年6月4日 上午 04:22
  • ...

    那你就用 If 或是 Enable 來處理阿~

    ex.

    Private Sub Command2_Click()

    Command1.Enable = True
    Command2.Enable = False
    Command1.Caption = Command2.Caption
    Command2.Caption = ""

    End Sub

    Private Sub Command2_Click()

    If Len(Command.Caption) > 0 Then
       Command1.Caption = Command2.Caption
       Command2.Caption = ""
    End If

    End Sub

    2006年6月4日 上午 10:02
    版主