P.S.我是一个写代码很懒的孩纸,懒得写函数,也懒得加注释,敬请谅解😂
-
添加CommonControls部件组和CommonDialog部件,如图
-
新建Form1,toolbar名为tb(8个key,名为copy,cut,lock,turn,open,font,olor,save),夜间模式check名为night,两个普通对话框:C和cbk,放大镜按钮置顶,名为tr,新建Timer1,四瓣花设置按钮名为settingS,状态栏名为st,文本框名为Cont,后置Label “读取文件线程洪荒之力爆发中…”
-
整理后如下:
-
加入如下代码:
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST& = -1
Private Const SWP_NOSIZE& = &H1
Private Const SWP_NOMOVE& = &H2
'''''''''''''
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_ALPHA = &H2
Const LWA_COLORKEY = &H1
'前面是API声明
Private Sub Cont_Change()
saved = False
End Sub
Private Sub Form_Load()
Load mdd
saved = True
tred = False
Form1.Caption = "日志编辑器 " & Trim$(Str$(App.Major)) & "." & Format$(App.Minor, "##00") & "." & Format$(App.Revision, "0000")
On Error GoTo 55
Open App.Path & "\bkcolor-in-log.ini" For Input As #1
Input #1, bkc
Close #1
On Error GoTo 55
Open App.Path & "\frcolor-in-log.ini" For Input As #2
Input #2, frc
Close #2
Cont.ForeColor = frc
On Error GoTo 55
Open App.Path & "\font-in-log.ini" For Input As #3
On Error GoTo 55
Line Input #3, ft
On Error GoTo 55<