📄 mdtv.frm
字号:
VERSION 5.00
Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll"
Object = "{CFCDAA00-8BE4-11CF-B84B-0020AFBBCCFA}#1.0#0"; "rmoc3260.dll"
Begin VB.Form Form1
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
ClientHeight = 6330
ClientLeft = 75
ClientTop = -495
ClientWidth = 8850
ControlBox = 0 'False
Icon = "MdTv.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6330
ScaleWidth = 8850
ShowInTaskbar = 0 'False
Begin VB.Timer Timer3
Interval = 2000
Left = 0
Top = 2880
End
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 10
Left = 0
Top = 1920
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 10
Left = 0
Top = 1080
End
Begin VB.PictureBox Pb
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Enabled = 0 'False
Height = 5070
Left = 0
Picture = "MdTv.frx":0442
ScaleHeight = 5070
ScaleWidth = 5325
TabIndex = 0
Top = 0
Width = 5325
Begin VB.PictureBox Pv
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
Enabled = 0 'False
ForeColor = &H80000008&
Height = 1965
Index = 1
Left = 2040
ScaleHeight = 1935
ScaleWidth = 3120
TabIndex = 14
Top = 840
Visible = 0 'False
Width = 3150
Begin RealAudioObjectsCtl.RealAudio rm
Height = 1335
Left = 0
TabIndex = 20
Top = 0
Width = 2895
_ExtentX = 5106
_ExtentY = 2355
AUTOSTART = 0 'False
SHUFFLE = 0 'False
PREFETCH = 0 'False
NOLABELS = 0 'False
CONTROLS = "imagewindow"
LOOP = 0 'False
NUMLOOP = 0
CENTER = 0 'False
MAINTAINASPECT = 0 'False
BACKGROUNDCOLOR = "#000000"
End
End
Begin VB.PictureBox Pt
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00000000&
BorderStyle = 0 'None
Height = 2250
Left = 960
Picture = "MdTv.frx":5869C
ScaleHeight = 2250
ScaleWidth = 4065
TabIndex = 11
Top = 1320
Width = 4065
End
Begin VB.PictureBox Pv
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
Enabled = 0 'False
ForeColor = &H80000008&
Height = 3975
Index = 0
Left = 75
ScaleHeight = 3945
ScaleWidth = 1065
TabIndex = 8
Top = 735
Visible = 0 'False
Width = 1095
Begin WMPLibCtl.WindowsMediaPlayer wmp
Height = 1080
Left = 0
TabIndex = 15
Top = 0
Width = 2460
URL = ""
rate = 1
balance = 0
currentPosition = 0
defaultFrame = ""
playCount = 1
autoStart = -1 'True
currentMarker = 0
invokeURLs = 0 'False
baseURL = ""
volume = 100
mute = 0 'False
uiMode = "none"
stretchToFit = -1 'True
windowlessVideo = 0 'False
enabled = 0 'False
enableContextMenu= -1 'True
fullScreen = 0 'False
SAMIStyle = ""
SAMILang = ""
SAMIFilename = ""
captioningID = ""
enableErrorDialogs= 0 'False
_cx = 4339
_cy = 1905
End
End
Begin VB.PictureBox Ps
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00000000&
Enabled = 0 'False
ForeColor = &H80000008&
Height = 225
Left = 75
ScaleHeight = 195
ScaleWidth = 5145
TabIndex = 6
Top = 4775
Width = 5175
Begin VB.Label LblCs
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Dancing with Wolves Workgroup. Copyright(C) 2005-2006"
ForeColor = &H0000FFFF&
Height = 180
Left = 150
TabIndex = 7
Top = 15
Width = 4860
End
End
Begin VB.Label LblDT
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Date Time"
Enabled = 0 'False
ForeColor = &H00000000&
Height = 180
Left = 3510
TabIndex = 19
Top = 540
Width = 810
End
Begin VB.Label LblEnd
BackStyle = 0 'Transparent
Height = 255
Left = 4590
MouseIcon = "MdTv.frx":764FE
TabIndex = 18
Top = 225
Width = 255
End
Begin VB.Label LblFull
BackStyle = 0 'Transparent
Height = 255
Left = 4290
MouseIcon = "MdTv.frx":76650
TabIndex = 17
Top = 225
Width = 255
End
Begin VB.Label LblMin
BackStyle = 0 'Transparent
Height = 255
Left = 3990
MouseIcon = "MdTv.frx":767A2
TabIndex = 16
Top = 240
Width = 255
End
Begin VB.Label LblRight
BackColor = &H00000000&
BackStyle = 0 'Transparent
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 1305
MouseIcon = "MdTv.frx":768F4
MousePointer = 99 'Custom
TabIndex = 13
Top = 225
Width = 255
End
Begin VB.Label LblLeft
BackColor = &H00000000&
BackStyle = 0 'Transparent
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 960
MouseIcon = "MdTv.frx":76A46
MousePointer = 99 'Custom
TabIndex = 12
Top = 225
Width = 255
End
Begin VB.Label vZoom
BackStyle = 0 'Transparent
ForeColor = &H00FF0000&
Height = 255
Index = 1
Left = 2700
MouseIcon = "MdTv.frx":76B98
MousePointer = 99 'Custom
TabIndex = 10
Top = 225
Width = 255
End
Begin VB.Label vZoom
BackStyle = 0 'Transparent
ForeColor = &H00FF0000&
Height = 255
Index = 0
Left = 2340
MouseIcon = "MdTv.frx":76CEA
MousePointer = 99 'Custom
TabIndex = 9
Top = 225
Width = 255
End
Begin VB.Label LblVol2
BackStyle = 0 'Transparent
Height = 255
Left = 1995
MouseIcon = "MdTv.frx":76E3C
MousePointer = 99 'Custom
TabIndex = 5
Top = 225
Width = 255
End
Begin VB.Label LblVol1
BackStyle = 0 'Transparent
Height = 255
Left = 1650
MouseIcon = "MdTv.frx":76F8E
MousePointer = 99 'Custom
TabIndex = 4
Top = 225
Width = 255
End
Begin VB.Label LblSlt
BackStyle = 0 'Transparent
Height = 255
Left = 3060
MouseIcon = "MdTv.frx":770E0
MousePointer = 99 'Custom
TabIndex = 3
Top = 225
Width = 255
End
Begin VB.Label LblPause
BackStyle = 0 'Transparent
Height = 255
Left = 615
MouseIcon = "MdTv.frx":77232
MousePointer = 99 'Custom
TabIndex = 2
Top = 225
Width = 255
End
Begin VB.Label LblPlay
BackStyle = 0 'Transparent
Height = 255
Left = 270
MouseIcon = "MdTv.frx":77384
MousePointer = 99 'Custom
TabIndex = 1
Top = 225
Width = 255
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mX, mY, mV As Integer '窗体移到控制
Dim Vol As Integer '音量
Dim mvFlag As Integer '信息移到方向
Dim sT As String '显示信息
Private Sub Form_Load()
If App.PrevInstance Then End
App.Title = "梦碟网视"
aPath = App.Path
If Right(aPath, 1) <> "\" Then aPath = aPath + "\"
Me.Width = Pb.Width
Me.Height = Pb.Height
Me.Left = (Screen.Width - Me.Width) \ 2
Me.Top = (Screen.Height - Me.Height) \ 2
For i = 0 To 1
Pv(i).Left = 75
Pv(i).Top = 735
Pv(i).Height = 3975
Pv(i).Width = 5170
Next
fName1 = aPath + App.EXEName + "_v.pyw"
fName2 = aPath + App.EXEName + "_d.pyw"
fNameb = aPath + App.EXEName + "_b.pyw"
fName = fName1
Pt.Left = (Pb.Width - Pt.Width) \ 2
Pt.Top = (Pb.Height - Pt.Height) \ 2 + 150
mvFlag = -1
LblDT.Caption = Date$ & "," & Time$
wmp.Width = 0: wmp.Height = 0
rm.Width = 0: rm.Height = 0
SetFormTop Me, True
End Sub
Private Sub Form_Resize()
On Error Resume Next
wmp.Width = Pv(0).Width
wmp.Height = Pv(0).Height * vZooms
wmp.Left = (Pv(0).Width - wmp.Width) \ 2
wmp.Top = (Pv(0).Height - wmp.Height) \ 2
rm.Width = Pv(0).Width
rm.Height = Pv(0).Height * vZooms
rm.Left = (Pv(0).Width - rm.Width) \ 2
rm.Top = (Pv(0).Height - rm.Height) \ 2
Me.Refresh
End Sub
Private Sub LblEnd_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then End
End Sub
Private Sub LblEnd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
LblDT.Caption = "提示： 退出播放软件"
End Sub
Private Sub LblFull_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If Button <> 1 Then Exit Sub
If Pv(0).Visible = True Then
wmp.fullScreen = True
End If
If Pv(1).Visible = True Then
rm.SetFullScreen
End If
Timer1.Enabled = False
End Sub
Private Sub LblFull_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
LblDT.Caption = "提示： 切换全屏模式"
End Sub
Private Sub LblLeft_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If mLen > 0 Then
mp = mPos / mLen
If Button = 1 Then
mp = mp - 0.05
Else
mp = mp - 0.01
End If
If mp < 0 Then mp = 0
If Pv(0).Visible = True Then
wmp.Controls.currentPosition = mp * mLen
End If
If Pv(1).Visible = True Then
rm.SetPosition mp * mLen
End If
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -