VB design watch hands walking, VB registry improve the accuracy of the hands

dim rr as object, mn as integer, regpath

private sub check1_click()regpath = "hkey_current_user\control panel\mouse\"

if = 0 then

set rr = createobject("")regpath & "mousespeed", "0"

regpath & "mousethreshold1", "0"

regpath & "mousethreshold2", "0"

elseif = 1 then

set rr = createobject("")regpath & "mousespeed", "1"

regpath & "mousethreshold1", "6"

regpath & "mousethreshold2", "10"

end if

end sub

Set these 3 values and you need to log out or restart for them to take effect.

private sub form_load()= "During the Qingming Festival, it rained a lot" & vbcrlf & "Pedestrians on the road want to break their souls; " & vbcrlf & "By asking where the restaurant is" & vbcrlf & "The shepherd boy refers to Xinghua Village. "

end sub

private sub option1_click()= "The cursor is moved to the start of the text"

0end sub

private sub option2_click()= "The cursor is moved to the end of the text"

len(end sub

private sub option3_click()dim i as integer

dim j as integer

j = 3 'If you want to move to the first few lines, j will give the value of several ="The cursor is moved to the beginning of the 3rd line of text"

for i = 1 to len(

if mid(, i, 2) = chr(13) &chr(10) then

j = j - 1

if j <= 1 then

i + 1exit sub

end if

end if

next i

end sub

private sub option4_click()dim i as integer

dim j as integer

dim temp as integer

j = 3 'If you want to select the number of rows, j will give the value of several ="Select all characters on the third line"

for i = 1 to len(

if mid(, i, 2) = chr(13) &chr(10) then

j = j - 1

if j = 1 then

i + 1temp = i

end if

if j = 0 then

i - temp

exit sub

end if

end if

next i

end sub

private sub option5_click()= "All characters are selected"

0= len(

end sub

These properties of the text box: you can use a statement to achieve the selected content;

--Select the beginning of the Chinese book, which is an integer, starting from 0--- the length of the Chinese book (number of characters).

And to display the selected effect, you also need to execute its method of getting focus:

1. Cursor at the beginning of the text.

02, the cursor is at the end of the text.

len(3, the cursor at the beginning of the third line.

Critically, the line separator is the carriage return (line break) symbol, and the constant representation of vb is vbcrlf, which is 2 characters.

dim s as integer

dim l as integer

s = instr(,"By asking where the restaurant is") -1l = len("By asking where the restaurant is")

s=l4, all text selected.

I won't introduce it, right?

The simplest clock.

Control: 1 timer.

label 1.

1 commandbutton.

**：private sub command1_click()= true

end sub

private sub form_load()= true

end sub

private sub timer1_timer()= time

end sub

The calculator is even simpler, except for the complexity of the calculator, there is no difficulty, and I have done it many times.

What do you want? Do you want one with integrals and elementary functions? Or is it just a simple four-rule operation?

Why make your own? It's not just a matter of just doing one program, it's also about using a database, which is a bit difficult for a non-computer person. There are ready-made ones available on the Internet, do you have a NetEase mailbox?

If not, apply for one, in the treasure box of the mailbox, there is a financial easy, you use it as a ledger is very convenient, of course, the premise is that your home can access the Internet.

VB does not support direct memory operations.

You're pretty much the same, as long as you can use it.

Are your requests sorted by fractions alone?