The question of VB form Who s going to do me a favor

Updated on technology 2024-06-14
12 answers
  1. Anonymous users2024-02-11

    Upstairs is not good, because hide is just hidden, and if you want to turn it off completely, you have to uninstall it.

    Therefore, it should be written like this:

    private sub command1_click()unload form1

    end sub

    This will allow you to close form1

  2. Anonymous users2024-02-10

    private sub command1_click()unload form1

    end sub

    In form2, end should be used in closing events

  3. Anonymous users2024-02-09

    D bar b is wrong, ture is wrong, the topic is really tricky.

    I've tested d right.

  4. Anonymous users2024-02-08

    Oh, it should be "true.""

    So, a b is not right.

    C is a string, D is right.

  5. Anonymous users2024-02-07

    If it's a single choice, I'm sure D is correct, because I've seen something like that in programming textbooks. I'm not sure about anything else.

    But can you tell me why it's bright? I think so.

  6. Anonymous users2024-02-06

    Brothers should be b!

    How do you take VB and try it! Just get it.

  7. Anonymous users2024-02-05

    With a slight modification, you can use the backspace key to delete data!

    private sub form_load()= 0

    end sub

    private sub text1_keypress(keyascii as integer)

    if keyascii <>8 then

    a = len(

    k = val(

    if a mod 3 = k + 1) *2) mod 3 then= &

    len(end if

    a = len(

    if a > 0 then

    if a mod 15 = 0 and k = 0 then= k + 1

    len(else if a mod 17 = 15 and k > 0 then

    k + 1len(end if

    end if

    end if

    end if

    end sub

    If you meet your requirements, there will be 2 spaces for every 15 characters.

  8. Anonymous users2024-02-04

    It can be a little complicated, but it definitely works.

    private sub command1_click()dim s as string

    s = text1

    text1 =

    dim a() as string

    redim a(1 to len(s)) as stringfor i = 1 to len(s)

    a(i) =mid(s, i, 1)

    text1 = text1 + a(i)

    if i mod 2 = 0 then text1 = text1 +

    nextend sub

  9. Anonymous users2024-02-03

    private sub command1_click()t = timer

    dodoevents

    loop until timer > t + 3 '3 seconds, unit: seconds, you can change it yourself, for example, you can have a decimal point!

    Your ** process! )

    end sub

  10. Anonymous users2024-02-02

    private declare sub sleep lib "kernel32" (byval dwmilliseconds as long)'API Declarations.

    private sub command1 click()sleep (3000)'milliseconds3000, i.e. 3 secondscall mysub' to run functions and procedures.

    end sub

    private sub mysub()

    msgbox "Run with a 3 second delay"

    end sub

  11. Anonymous users2024-02-01

    Let the button execute the event? What do you mean......

    Do you use a timer?

  12. Anonymous users2024-01-31

    The control is not registered, run regsvr32 to register the control.

Related questions
9 answers2024-06-14

awesome means super, super, super... Colloquially. It's like you've suddenly seen an alien!! >>>More

41 answers2024-06-14

That.. May like you. You may also want to help her with the G number. >>>More

7 answers2024-06-14

Personal secret - Zhang Liangying.

Feel that happiness is all around you. >>>More

10 answers2024-06-14

Off topic: If you see only one deduction, it can only mean that your financial software is junk or your accountant is lazy. >>>More

11 answers2024-06-14

There are a lot of people like this, and you shouldn't be overly upset. >>>More