ªð¦^¦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 : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD