|
|
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = TitleMaster
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Private Sub 絙腹2_Click()
Call 絙腹
End Sub
Private Sub 礶掸2_Click()
Call 礶掸
End Sub
Private Sub 倔ブ揽2_Click()
Call 倔ブ揽
End Sub
Private Sub 堵︹2_Click()
Call 堵︹
End Sub
Private Sub フ︹2_Click()
Call フ︹
End Sub
Private Sub ?︹2_Click()
Call ?︹
End Sub
Private Sub 厚︹2_Click()
Call 厚︹
End Sub
Private Sub 屡︹2_Click()
Call 屡︹
End Sub
Private Sub 獵屡︹2_Click()
Call 獵屡︹
End Sub
Private Sub 档?︹2_Click()
Call 档?︹
End Sub
Private Sub 独︹2_Click()
Call 独︹
End Sub
Private Sub η︹2_Click()
Call η︹
End Sub
Private Sub 挡?2_Click()
Call 挡?
End Sub
Sub 絙腹()
SlideShowWindows(Index:=1).View.PointerType = ppSlideShowPointerArrow
End Sub
Sub 倔ブ揽()
On Error GoTo 0
Select Case Val(Application.Version)
Case 5
SlideShowWindows(Index:=1).View.EraseDrawing
Case 7
SlideShowWindows(Index:=1).View.EraseDrawing
Case 8
SlideShowWindows(Index:=1).View.EraseDrawing
Case 9
SlideShowWindows(Index:=1).View.EraseDrawing
Case 10
SlideShowWindows(Index:=1).View.EraseDrawing
Case Else
SlideShowWindows(Index:=1).View.PointerType = ppSlideShowPointerEraser
End Select
End Sub
Sub 堵︹()
With SlideShowWindows(Index:=1).View
.PointerColor.RGB = RGB(Red:=0, Green:=0, Blue:=0)
.PointerType = ppSlideShowPointerPen
End With
End Sub
Sub フ︹()
With SlideShowWindows(Index:=1).View
.PointerColor.RGB = RGB(Red:=255, Green:=255, Blue:=255)
.PointerType = ppSlideShowPointerPen
End With
End Sub
Sub ?︹()
With SlideShowWindows(Index:=1).View
.PointerColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
.PointerType = ppSlideShowPointerPen
End With
End Sub
Sub 厚︹()
With SlideShowWindows(Index:=1).View
.PointerColor.RGB = RGB(Red:=0, Green:=255, Blue:=0)
.PointerType = ppSlideShowPointerPen
End With
End Sub
Sub 屡︹()
With SlideShowWindows(Index:=1).View
.PointerColor.RGB = RGB(Red:=0, Green:=0, Blue:=255)
.PointerType = ppSlideShowPointerPen
End With
End Sub
Sub 獵屡︹()
With SlideShowWindows(Index:=1).View
.PointerColor.RGB = RGB(Red:=0, Green:=255, Blue:=255)
.PointerType = ppSlideShowPointerPen
End With
End Sub
Sub 档?︹()
With SlideShowWindows(Index:=1).View
.PointerColor.RGB = RGB(Red:=255, Green:=0, Blue:=255)
.PointerType = ppSlideShowPointerPen
End With
End Sub
Sub 独︹()
With SlideShowWindows(Index:=1).View
.PointerColor.RGB = RGB(Red:=255, Green:=255, Blue:=0)
.PointerType = ppSlideShowPointerPen
End With
End Sub
Sub η︹()
With SlideShowWindows(Index:=1).View
.PointerColor.RGB = RGB(Red:=160, Green:=160, Blue:=160)
.PointerType = ppSlideShowPointerPen
End With
End Sub
Sub 挡?()
SlideShowWindows(Index:=1).View.Exit
End Sub
TitleMaster.rar
(698 Bytes, 下载次数: 16)
|
|
