August 12, A simple VB applet written in the afternoon of 2018, mainly used to display pre-set text when recording on the computer screen, just like movie subtitles.
You need to prepare the text in the XYShowLabel.txt file in the application directory in advance. Press the right arrow key (→) to turn down.
Main interface form file (main.frm):
VERSION 5.00 Begin VB.Form main BorderStyle = 1 'Fixed Single ClientHeight = 1215 ClientLeft = 45 ClientTop = 375 ClientWidth = 13170 MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 1215 ScaleWidth = 13170 StartUpPosition = 2 '屏幕中心 Begin VB.Label out Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "User:Leisureeen" BeginProperty Font Name = "宋体" Size = 48 Charset = 134 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 975 Left = 0 TabIndex = 0 Top = 120 Width = 13095 End End Attribute VB_Name = "main" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False 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 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 Private outTmp As String Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) On Error Resume Next Dim capTmp As String If KeyCode = 37 Then capTmp = VBA.InputBox("Please Set the Title.", "Setting", main.Caption) If Len(capTmp) > 1 Then main.Caption = capTmp ElseIf KeyCode = 39 Then Line Input #1, outTmp If out.Caption <> outTmp Then out.Caption = outTmp End If End Sub Private Sub Form_Load() Dim colorTmp As Long On Error Resume Next If Dir(App.Path & "\XYShowLabel.txt") = "" Then MsgBox "Please ADD a file named ""XYShowLabel.txt"".", 16, "ERROR" End End If Me.BackColor = RGB(0, 38, 0) SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, &H2 Or &H1 Me.Caption = "Designer:Leisureeen" colorTmp = GetWindowLong(Me.hwnd, -20) colorTmp = colorTmp Or &H80000 SetWindowLong Me.hwnd, -20, colorTmp SetLayeredWindowAttributes Me.hwnd, Me.BackColor, 38, 1 Open App.Path & "\XYShowLabel.txt" For Input As #1 End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Close End End Sub