[RESOLVED]Text1.text + Enabled + True? [PART 2!]

[Ellis Dee]

You can do it as a one-liner:

Private Sub TextBox1_Change()
    Command1.Enabled = (Len(TextBox1.Text) >= 10)
End Sub

Of course, I don't usually do it with only a single line. Anytime I set a control property in a procedure that can fire a bunch of times in quick succession, I tend to only set it if it has changed:

Private Sub TextBox1_Change()
    Dim blnEnabled As Boolean
    
    blnEnabled = (Len(TextBox1.Text) >= 10)
    With Command1
        If .Enabled <> blnEnabled Then .Enabled = blnEnabled 
    End With
End Sub

I do this because I'm irrationally averse to flicker.

[Lukeidiot]

Cool, and thanks very much.

But, how can i display a MsgBox if they try to use "cmdEmail"

Heres an example of my code for "cmdEmail"

Private Sub cmdEmail_Click()
    Dim strResult As String
    Dim strURL As String
    
    If (Len(txtcomment.Text) <= 16) Then
    MsgBox "Please enter a comment of atleast 16 characters", vbExclamation
    
    'Enter URL to your PHP file.
    strURL = "http://www.lukeidiot.com/********.php"
    
    strResult = Inet1.OpenURL**************************
    
    If strResult = "Success" Then
        MsgBox "Successfully sent", vbInformation
    ElseIf strResult = "Failure" Then
        MsgBox "Error Sending", vbExclamation
    Else
        MsgBox "No/unknown response", vbQuestion
    End If
    Unload Me
End Sub

Note: The line of code that says

If (Len(txtcomment.Text) <= 16) Then
    MsgBox "Please enter a comment of atleast 16 characters", vbExclamation

Was my theory, and doesnt work. How can i go about displaying the message box when the user doesnt have 16 letters?

[Ellis Dee]

Private Sub cmdEmail_Click()
    Dim strURL As String
    
    If Len(txtcomment.Text) <= 16 Then
        MsgBox "Please enter a comment of atleast 16 characters", vbExclamation
    Else
        'Enter URL to your PHP file.
        strURL = "http://www.lukeidiot.com/********.php"
        
        Select Case Inet1.OpenURL**************************
            Case "Success": MsgBox "Successfully sent", vbInformation
            Case "Failure": MsgBox "Error Sending", vbExclamation
            Case Else: MsgBox "No/unknown response", vbQuestion
        End Select
        Unload Me
    End If
End Sub