ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó§PÂ_TextBox¤¤µL¿é¤J­È

[µo°Ý] ¦p¦ó§PÂ_TextBox¤¤µL¿é¤J­È

­n§PÂ_TextBox1, TextBox3µL¿é¤J­È, §Ú¨Ï¥Î"<>0"°µ§PÂ_¦¡, ½Ð°Ý¦³¨ä¥L§ó¦nªº¼gªk¶Ü?
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        rpm = Val(TextBox1.Text)
        fan = Val(TextBox2.Text)
        pk = Val(TextBox3.Text)
        n = Val(TextBox4.Text)
        If rpm <> 0 Or pk <> 0 Then
            Exit Sub
        Else
            n = pk * 60 / rpm
        End If
    End Sub

¥i¥H¥Îlen()¨ç¼Æ¨Ó§PÂ_

TOP

TextBox1.Text <> ""

TOP

¥ÎLen(rpm)>0¨Ó§PÂ_¡A­Ó¤H¸gÅç·|¤ñ¸û¦n¤@¨Ç¡C

TOP

Trim(Text1.Value) = vbNullString

TOP

¥»©«³Ì«á¥Ñ ychuang ©ó 2017-7-2 23:22 ½s¿è

¤U­±³sµ²¦³«Ü¦h¤èªk»P°Q½×:
https://
social.msdn.microsoft.com/Forums/zh-TW/ed212512-c417-4a55-a9ff-8bec944d6259/textbox?forum=236

§Ú¨SÅv­­µo³sµ²°Ú!!!½Ð¦Û¤v±µÀs¤@¤U^^"

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD