【VB开源代码栏目提醒】：本文主要为网学会员提供fDialogEx.frm，希望对需要fDialogEx.frm网友有所帮助，学习一下!
VERSION 5.00
Begin VB.Form fDialogEx
BorderStyle = 0 'None
ClientHeight = 3915
ClientLeft = 0
ClientTop = 0
ClientWidth = 2445
ClipControls = 0 'False
ControlBox = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 261
ScaleMode = 3 'Pixel
ScaleWidth = 163
ShowInTaskbar = 0 'False
Begin VB.Frame fraPreview
BorderStyle = 0 'None
Height = 3285
Left = 45
TabIndex = 0
Top = 450
Width = 2445
Begin VB.Frame fraJPEGOptions
BorderStyle = 0 'None
Height = 420
Left = -135
TabIndex = 6
Top = 2880
Width = 2505
Begin VB.HScrollBar sbQuality
Height = 225
LargeChange = 5
Left = 1095
Max = 100
TabIndex = 8
TabStop = 0 'False
Top = 60
Value = 90
Width = 1020
End
Begin VB.Label lblQualityV
Alignment = 1 'Right Justify
Caption = "90"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 1740
TabIndex = 9
Top = 75
Width = 690
End
Begin VB.Label lblQuality
Caption = "JPEG quality"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 135
TabIndex = 7
Top = 75
Width = 1425
End
End
Begin VB.CheckBox chkFitMode
Alignment = 1 'Right Justify
Caption = "Fit mode"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1410
TabIndex = 5
TabStop = 0 'False
Top = 2340
Width = 900
End
Begin iBMP.ucCanvas Preview
Height = 2310
Left = 0
TabIndex = 3
TabStop = 0 'False
Top = 0
Width = 2310
_ExtentX = 4075
_ExtentY = 4075
End
Begin VB.Label lblSize
Caption = "Size:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 0
TabIndex = 4
Top = 2355
Width = 1335
End
End
Begin VB.CheckBox chkPreview
Caption = "Preview"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 45
TabIndex = 1
TabStop = 0 'False
Top = 120
Width = 975
End
Begin VB.Label lblWait
Alignment = 1 'Right Justify
Caption = "Wait..."
Height = 180
Left = 1455
TabIndex = 2
Top = 120
Visible = 0 'False
Width = 915
End
End
Attribute VB_Name = "fDialogEx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'================================================
' fDialogEx form
' Last revision: 2003.11.02
'================================================
Option Explicit
Private Sub Form_Load()
With fMain
'-- Get last status
chkPreview = IIf(.DialogPreview, 1, 0)
chkFitMode = IIf(.DialogFitMode, 1, 0)
Preview.FitMode = .DialogFitMode
sbQuality = .DialogJPEGquality
End With
End Sub
Private Sub chkPreview_Click()
If (chkPreview = 0) Then
Call Preview.DIB.Destroy
Call Preview.Resize
lblSize = "Size:"
End If
fMain.DialogPreview = CBool(chkPreview)
End Sub
Private Sub chkFitMode_Click()
Preview.FitMode = CBool(chkFitMode)
Call Preview.Resize
fMain.DialogFitMode = CBool(chkFitMode)
End Sub
Private Sub sbQuality_Change()
lblQualityV = sbQuality
fMain.DialogJPEGquality = sbQuality
End Sub
Private Sub sbQuality_Scroll()
Call sbQuality_Change
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call Preview.DIB.Destroy
End Sub
上一篇：
DataYG.cpp
下一篇：
如何在现代企业发展和推行绿色供应链
2013-9-1
