809
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub PrintText(ByVal x As Long, ByVal y As Long, ByVal Text As String)
Dim i As Long
Dim j As Long
Me.ForeColor = vbBlack
For i = -1 * Screen.TwipsPerPixelX To Screen.TwipsPerPixelX
For j = -1 * Screen.TwipsPerPixelY To Screen.TwipsPerPixelY
If (i > (-1 * Screen.TwipsPerPixelX / 3) And i < Screen.TwipsPerPixelX / 3) Or (j > (-1 * Screen.TwipsPerPixelY / 3) And j < Screen.TwipsPerPixelY / 3) Then
Me.ForeColor = vbWhite
Else
Me.ForeColor = vbBlack
End If
If i <> 0 Or j <> 0 Then Me.CurrentX = x + i: Me.CurrentY = y + j: Me.Print Text
Next
Next
Me.ForeColor = vbWhite
Me.CurrentX = x
Me.CurrentY = y
Me.Print Text
End Sub
Private Sub Form_Load()
Me.ScaleMode = 1 ' vbPixels
Me.AutoRedraw = True
Me.BackColor = &H40C0
Me.Font.Name = "黑体"
Me.Font.Size = 36
Me.Cls
PrintText 20 * Screen.TwipsPerPixelX, 20 * Screen.TwipsPerPixelY, "VB制作视频叠加字幕"
End Sub
Option Explicit
Private Sub PrintText(ByVal x As Long, ByVal y As Long, ByVal Text As String)
Dim i As Long
Dim j As Long
Me.ForeColor = vbBlack
For i = -1 To 1
For j = -1 To 1
If (i <> 0) Or (j <> 0) Then
Me.CurrentX = x + (i * 2)
Me.CurrentY = y + (j * 2)
Me.Print Text
End If
Next
Next
Me.ForeColor = vbWhite
Me.CurrentX = x
Me.CurrentY = y
Me.Print Text
End Sub
Private Sub Form_Load()
Me.ScaleMode = vbPixels
Me.AutoRedraw = True
Me.BackColor = &H40C0
Me.Font.Name = "黑体"
Me.Font.Size = 36
Me.Cls
PrintText 20, 20, "本字幕"
End Sub