首页  >  文章  >  电脑教程  >  自动保存功能的VB文本编辑工具

自动保存功能的VB文本编辑工具

WBOY
WBOY转载
2024-01-23 15:12:191297浏览

自动保存功能的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中文网其他相关文章!

声明:
本文转载于:docexcel.net。如有侵权,请联系admin@php.cn删除