Alat penyuntingan teks VB dengan fungsi auto-simpan

Edit alat penyunting teks dengan VB dan boleh menyimpan secara automatik

Jika anda ingin belajar pengaturcaraan, anda boleh cuba meneroka kod notepad. Terdapat banyak sumber berkaitan dalam talian untuk rujukan. Walau bagaimanapun, jika ia hanya untuk kegunaan peribadi, anda boleh menulis skrip VBS dan melakukan operasi simpan dengan menekan Ctrl+S.

Kod adalah seperti berikut Simpan sebagai nama fail yang sepadan. Jika anda ingin menjalankan, klik start.vbs, dan untuk menamatkan, klik stop.vbs

'******** start.vbs ************

Set s = WScript.CreateObject(＂Wscript.Shell＂)

Lakukan

WScript.Tidur 1000*60 '1 min sekali

s.SendKeys＂^s＂

Gelung

'******** stop.vbs *********

tetapkan ws=createobject(＂wscript.shell＂)

ws.run "taskkill /f /im wscript.exe"

Bagaimana untuk merealisasikan tetapan taip automatik dalam vb

Jika tiada syarat khas, ikut sahaja kaedah putaran:

A B C D E

Hari 1 Shif pagi Shif tengah malam Rehat Rehat

Hari 2 Rehat Shift pagi Shift tengah malam Rehat

Hari 3 Rehat Rehat Shift pagi Shift tengah malam Shift malam

Hari 4 Syif malam Rehat Rehat Shif pagi Syif tengah hari

Hari 5 Syif tengah malam Rehat Rehat Shif pagi

================================================ =

Hari 6 Shif pagi Shif tengah malam Rehat Rehat

Hari 7 Rehat Shift pagi Shift tengah malam Shift malam Rehat

Hari 8 Rehat Rehat Shift pagi Shift tengah malam Shift malam

Hari 9 Syif malam Rehat Rehat Shif pagi Syif tengah hari

Hari 10 Syif tengah malam Rehat Rehat Shif pagi

================================================ =

......

Boleh didapati dalam pusingan 5 hari, hari ke-6 berulang hari ke-1, hari ke-7 ulang hari ke-2,...

Biar saya terangkan dahulu cara mengeluarkan jadual sebulan secara terus pada borang!

Pilihan Eksplisit

Sub Perintah Peribadi1_Klik()

Malapkan d(1 Hingga 5) Sebagai Rentetan

Malapkan MaxDay Sebagai Integer

Malapkan i Sebagai Integer

Malapkan j Sebagai Integer

Malapkan LS Sebagai Rentetan

d(1) = "syif pagi"

d(2) = "Kelas menengah"

d(3) = "Syif malam"

d(4) = "rehat"

d(5) = "rehat"

MaxDay = Val(InputBox（＂Sila masukkan bilangan hari dalam bulan!＂)）

Cetak "A", "B", "C", "D", "E"

Untuk i = 1 Hingga MaxDay

Jika saya > 5 Maka

j = i Mod 5

Jika j = 0 Maka j = 5

Lain

j = i

Tamat Jika

Nyahpepijat.Cetak j, d(j)

Cetak d(j),

Jika saya Mod 5 = 0 Kemudian

Cetak

LS = d(1)

Untuk j = 1 Hingga 4

d(j) = d(j + 1)

Seterusnya j

d(5) = LS

Tamat Jika

Seterusnya i

Tamat Sub

Program VB untuk menyusun kandungan dalam kotak teks mengikut kod ASCII

Letak kotak teks teks1 dan butang arahan1 dalam borang

Kod adalah seperti berikut

Pilihan Eksplisit

Sub Perintah Peribadi1_Klik()

Teks1 = Paixu(Teks1)

Tamat Sub

Fungsi Peribadi Paixu(ByVal Str Sebagai Rentetan) Sebagai Rentetan

Malapkan AscCode() Sebagai Integer

Malapkan Kod Sebagai Integer

Malap n Sebagai Integer

Malapkan i Sebagai Integer, j Sebagai Integer

n = Len(Str)

ReDim AscCode(n)

Untuk i = 1 Hingga n

AscCode(i) = Asc(Mid(Str, i, 1))

Seterusnya i

Untuk i = 1 Hingga n - 1

Untuk j = i + 1 Kepada n

'Yang kurang daripada nombor diisih dari besar ke kecil, dan lebih besar daripada tanda diisih dari kecil ke besar

Jika AscCode(i) tCode = AscCode(i)

AscCode(i) = AscCode(j)

AscCode(j) = tCode

Tamat Jika

Seterusnya j

Seterusnya i

Untuk i = 1 Hingga n

Paixu = Paixu & Chr(AscCode(i))

Seterusnya i

Fungsi Tamat

Apabila menggunakannya, panggil sahaja fungsi berikut paixu secara terus bahasa Cina juga disusun mengikut urutan pinyin (aksara polifonetik adalah berbeza)

Atas ialah kandungan terperinci Alat penyuntingan teks VB dengan fungsi auto-simpan. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!