自動儲存功能的VB文字編輯工具

用VB編輯文字編輯工具且可以自動儲存

如果你想學習編程，可以試著探索一下notepad的程式碼。網路上有很多相關資源可供參考。不過，如果只是為了方便個人使用，你可以簡單地寫一個VBS腳本，透過按Ctrl S來實現保存操作。

程式碼如下，分別儲存為對應檔名，想執行點start.vbs，結束點stop.vbs

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

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

Do

WScript.Sleep 1000*60 '1 min 一次

s.SendKeys ＂^s＂

Loop

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

set ws=createobject(＂wscript.shell＂)

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

vb如何實現自動排版

如果沒有特殊要，那就按照輪流的方法去實現好了：

A B C D E

第 1天 早班 中班 夜班 休息 休息

第 2天 休息 早班 中班 夜班 休息

第 3天 休息 休息 早班 中班 夜間班

第 4天 夜間休息 休息 早班 中班

第 5天 中班 夜班 休息 休息 早班

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

第 6天 早班 中班 夜班 休息 休息

第 7天 休息 早班 中班 夜班 休息

第 8天 休息 早班 中班 夜間班

第 9天 夜間休息 休息 早班 中班

第10天 中班 夜班 休息 休息 早班

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

......

可以發現，5天一個輪次，第6天重複第1天的，第7天重複第2天的，...

我先說明直接在窗體上輸出一個月的安排吧！

Option Explicit

Private Sub Command1_Click()

Dim d(1 To 5) As String

Dim MaxDay As Integer

Dim i As Integer

Dim j As Integer

Dim LS As String

d(1) = ＂早班＂

d(2) = ＂中班＂

d(3) = ＂夜班＂

d(4) = ＂休息＂

d(5) = ＂休息＂

MaxDay = Val(InputBox（＂請輸入當月天數！＂））

Print ＂A＂, ＂B＂, ＂C＂, ＂D＂, ＂E＂

For i = 1 To MaxDay

#If i > 5 Then

j = i Mod 5

If j = 0 Then j = 5

Else

j = i

End If

Debug.Print j, d(j)

#Print d(j),

If i Mod 5 = 0 Then

Print

LS = d(1)

For j = 1 To 4

d(j) = d(j 1)

Next j

d(5) = LS

End If

Next i

End Sub

vb給文字方塊中的內容按ASCII碼排列的程式

窗體中放置一個文字方塊text1 一個按鈕 command1

程式碼如下

Option Explicit

Private Sub Command1_Click()

Text1 = Paixu(Text1)

End Sub

Private Function Paixu(ByVal Str As String) As String

Dim AscCode() As Integer

Dim tCode As Integer

#Dim n As Integer

Dim i As Integer, j As Integer

n = Len(Str)

ReDim AscCode(n)

For i = 1 To n

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

Next i

For i = 1 To n - 1

For j = i 1 To n

'小於號按由大到小排，大於號按從小到大排

If AscCode(i) tCode = AscCode(i)

AscCode(i) = AscCode(j)

AscCode(j) = tCode

#End If

Next j

Next i

For i = 1 To n

Paixu = Paixu & Chr(AscCode(i))

Next i

End Function

使用的時候直接呼叫後面的函數paixu就可以了 漢語也是按拼音順序排（多音字有異）

以上是自動儲存功能的VB文字編輯工具的詳細內容。更多資訊請關注PHP中文網其他相關文章！