자동 저장 기능이 있는 VB 텍스트 편집 도구

VB로 텍스트 편집 도구를 편집하고 자동으로 저장할 수 있습니다

프로그래밍을 배우고 싶다면 메모장 코드를 탐색해보세요. 참고할 수 있는 관련 리소스가 온라인에 많이 있습니다. 그러나 개인적인 용도로만 사용하는 경우 간단히 VBS 스크립트를 작성하고 Ctrl+S를 눌러 저장 작업을 수행할 수 있습니다.

코드는 다음과 같습니다. 실행하려면 start.vbs를 클릭하고, 종료하려면 stop.vbs를 클릭하세요.

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

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

Do

WScript.Sleep 1000*60 '1분 1회

s.SendKeys＂^s＂

루프

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

set ws=createobject("wscript.shell")

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

VB에서 자동 조판을 구현하는 방법

특별한 요구 사항이 없으면 회전 방법을 따르세요.

A B C D E

1일차 오전 근무 Midnight 근무 휴식 휴식

2일차 휴식 오전 근무 Midnight 근무 휴식

3일차 휴식 휴식 오전 근무 Midnight 근무 Night 근무

4일차 야간근무 휴식 휴식 오전근무 정오근무

5일차 심야근무 휴식 휴식 오전근무

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

6일차 오전 근무 Midnight 근무 휴식 휴식

7일차 휴식 오전 근무 Midnight 근무 야간 근무 휴식

8일 휴식 휴식 오전 근무 Midnight 근무 Night 근무

9일차 야간근무 휴식 휴식 오전근무 정오근무

10일차 심야근무 휴식 휴식 오전근무

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

......

5일의 라운드에서 6일차는 1일차가 반복되고, 7일차는 2일차가 반복되는 것을 알 수 있습니다...

한 달의 일정을 폼에 직접 출력하는 방법을 먼저 설명드리겠습니다!

옵션 명시

비공개 하위 명령1_Click()

Dim d(1 ~ 5)를 문자열로

Dim MaxDay를 정수로

Dim i를 정수로

Dim j를 정수로

Dim LS를 문자열로

d(1) = "오전 근무"

d(2) = "중산층"

d(3) = "야간 근무"

d(4) = "휴식"

d(5) = "휴식"

MaxDay = Val(InputBox（＂월의 일수를 입력해주세요!＂))

"A", "B", "C", "D", "E"를 인쇄하세요

For i = 1 To MaxDay

내가 5보다 크다면

j = i Mod 5

j = 0이면 j = 5

그밖에

j = 나

끝나면

디버그.인쇄 j, d(j)

인쇄 d(j),

i Mod 5 = 0이면

인쇄

LS = d(1)

j = 1 대 4

d(j) = d(j + 1)

다음제이

d(5) = LS

끝나면

다음엔 나

끝 서브

ASCII 코드에 따라 텍스트 상자의 내용을 정렬하는 VB 프로그램

양식에 텍스트 상자 text1과 버튼 command1을 배치합니다

코드는 다음과 같습니다

옵션 명시

비공개 하위 명령1_Click()

Text1 = 파이수(Text1)

끝 서브

개인 함수 Paixu(ByVal Str As String) As String

Dim AscCode()를 정수로

정수로 Dim tCode

Dim n As Integer

Dim i를 정수로, j를 정수로

n = 렌(Str)

ReDim AscCode(n)

For i = 1 To n

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

다음엔 나

For i = 1 To n - 1

For j = i + 1 To n

'미만 숫자는 큰 것에서 작은 순으로 정렬되고, 초과 기호는 작은 것에서 큰 순으로 정렬됩니다

AscCode(i) tCode = AscCode(i)인 경우

AscCode(i) = AscCode(j)

AscCode(j) = tCode

끝나면

다음제이

다음엔 나

For i = 1 To n

Paixu = Paixu & Chr(AscCode(i))

다음엔 나

기능 종료

사용시에는 다음 함수 paixu를 직접 호출하시면 됩니다. 중국어도 병음순으로 배열되어 있습니다(다음문자는 다름)

위 내용은 자동 저장 기능이 있는 VB 텍스트 편집 도구의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!