home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1998 November
/
VPR9811A.BIN
/
VPR_DATA
/
Program
/
Vb
/
FormPref.frm
< prev
next >
Wrap
Text File
|
1998-08-31
|
14KB
|
486 lines
VERSION 5.00
Begin VB.Form FormPref
BorderStyle = 4 '固定ﾂｰﾙ ｳｨﾝﾄﾞｳ
Caption = "設定パネル"
ClientHeight = 4980
ClientLeft = 1650
ClientTop = 2070
ClientWidth = 3135
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4980
ScaleWidth = 3135
ShowInTaskbar = 0 'False
Begin VB.CheckBox CheckFS
Caption = "行頭の不可視文字を削除"
Height = 255
Left = 120
TabIndex = 33
Top = 3120
Width = 2415
End
Begin VB.CommandButton CommandPreset
Caption = "既定値のセット"
Height = 375
Left = 1560
TabIndex = 32
Top = 4560
Width = 1455
End
Begin VB.TextBox TextChar
Alignment = 1 '右揃え
Height = 270
Left = 360
TabIndex = 30
Text = "Text1"
Top = 4080
Width = 495
End
Begin VB.CheckBox CheckChar
Caption = "単一文字だけの行を独立"
Height = 300
Left = 120
TabIndex = 29
Top = 3840
Width = 2415
End
Begin VB.CheckBox CheckURL
Caption = "URL行を独立"
Height = 255
Left = 120
TabIndex = 28
Top = 3600
Width = 1455
End
Begin VB.CheckBox CheckCR
Caption = "改行だけの行を特別扱い"
Height = 255
Left = 120
TabIndex = 27
Top = 3360
Width = 2295
End
Begin VB.CheckBox Check3
Caption = "●"
Height = 255
Index = 6
Left = 1560
TabIndex = 26
Top = 2760
Width = 615
End
Begin VB.CheckBox Check3
Caption = "○"
Height = 255
Index = 5
Left = 840
TabIndex = 25
Top = 2760
Width = 615
End
Begin VB.CheckBox Check3
Caption = "▼"
Height = 255
Index = 4
Left = 120
TabIndex = 24
Top = 2760
Width = 615
End
Begin VB.CheckBox Check3
Caption = "★"
Height = 255
Index = 3
Left = 2280
TabIndex = 23
Top = 2520
Width = 615
End
Begin VB.CheckBox Check3
Caption = "■"
Height = 255
Index = 2
Left = 1560
TabIndex = 22
Top = 2520
Width = 615
End
Begin VB.CheckBox Check3
Caption = "＞"
Height = 255
Index = 1
Left = 840
TabIndex = 21
Top = 2520
Width = 615
End
Begin VB.CheckBox Check3
Caption = ">"
Height = 255
Index = 0
Left = 120
TabIndex = 20
Top = 2520
Width = 615
End
Begin VB.CheckBox Check2
Caption = ">"
Height = 255
Index = 7
Left = 2280
TabIndex = 18
Top = 1800
Width = 615
End
Begin VB.CheckBox Check2
Caption = "＞"
Height = 255
Index = 6
Left = 1560
TabIndex = 17
Top = 1800
Width = 615
End
Begin VB.CheckBox Check2
Caption = "」"
Height = 255
Index = 5
Left = 840
TabIndex = 16
Top = 1800
Width = 615
End
Begin VB.CheckBox Check2
Caption = "）"
Height = 255
Index = 4
Left = 120
TabIndex = 15
Top = 1800
Width = 615
End
Begin VB.CheckBox Check2
Caption = ")"
Height = 255
Index = 3
Left = 2280
TabIndex = 14
Top = 1560
Width = 615
End
Begin VB.CheckBox Check2
Caption = "."
Height = 255
Index = 2
Left = 1560
TabIndex = 13
Top = 1560
Width = 615
End
Begin VB.CheckBox Check2
Caption = "．"
Height = 255
Index = 1
Left = 840
TabIndex = 12
Top = 1560
Width = 615
End
Begin VB.CheckBox Check2
Caption = "。"
Height = 255
Index = 0
Left = 120
TabIndex = 11
Top = 1560
Width = 615
End
Begin VB.CheckBox Check1
Caption = "タブコード"
Height = 255
Index = 8
Left = 1560
TabIndex = 8
Top = 840
Width = 1215
End
Begin VB.CheckBox Check1
Caption = "※"
Height = 255
Index = 7
Left = 840
TabIndex = 7
Top = 840
Width = 615
End
Begin VB.CheckBox Check1
Caption = "●"
Height = 255
Index = 6
Left = 120
TabIndex = 6
Top = 840
Width = 615
End
Begin VB.CheckBox Check1
Caption = "○"
Height = 255
Index = 5
Left = 2280
TabIndex = 5
Top = 600
Width = 615
End
Begin VB.CheckBox Check1
Caption = "▼"
Height = 255
Index = 4
Left = 1560
TabIndex = 4
Top = 600
Width = 615
End
Begin VB.CheckBox Check1
Caption = "★"
Height = 255
Index = 3
Left = 840
TabIndex = 3
Top = 600
Width = 615
End
Begin VB.CheckBox Check1
Caption = "■"
Height = 255
Index = 2
Left = 120
TabIndex = 2
Top = 600
Width = 615
End
Begin VB.CheckBox Check1
Caption = "半角スペース"
Height = 255
Index = 1
Left = 1560
TabIndex = 1
Top = 360
Width = 1455
End
Begin VB.CheckBox Check1
Caption = "全角スペース"
Height = 255
Index = 0
Left = 120
TabIndex = 0
Top = 360
Width = 1455
End
Begin VB.Label Label4
Caption = "文字以上連続したときに処理"
Height = 255
Left = 840
TabIndex = 31
Top = 4200
Width = 2295
End
Begin VB.Label Label3
Caption = "特定の文字が行頭の時に、行末に改行を付加"
Height = 375
Left = 120
TabIndex = 19
Top = 2160
Width = 2895
End
Begin VB.Label Label2
Caption = "特定の文字が行末の時に、行末に改行を付加"
Height = 375
Left = 120
TabIndex = 10
Top = 1200
Width = 2895
End
Begin VB.Label Label1
Caption = "特定の文字が行頭の時に、前の行の行末に改行を付加"
Height = 375
Left = 120
TabIndex = 9
Top = 0
Width = 2895
End
End
Attribute VB_Name = "FormPref"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const valCheck1MAX = 8
Const valCheck2MAX = 7
Const valCheck3MAX = 6
Sub getPref(strCond1() As String, strCond2() As String, strCond3() As String, booFS As Boolean, booCR As Boolean, booURL As Boolean, booChar As Boolean, valChar As Integer)
Dim l As Integer
Dim temp As String
For l = 0 To valCheck1MAX
If Check1(l).Value Then
temp = Check1(l).Caption
Else
temp = "無効"
End If
Select Case temp
Case "全角スペース"
temp = " "
Case "半角スペース"
temp = " "
Case "タブコード"
temp = vbTab
End Select
strCond1(l) = temp
Next l
For l = 0 To valCheck2MAX
If Check2(l).Value Then
temp = Check2(l).Caption
Else
temp = "無効"
End If
strCond2(l) = temp
Next l
For l = 0 To valCheck3MAX
If Check3(l).Value Then
temp = Check3(l).Caption
Else
temp = "無効"
End If
strCond3(l) = temp
Next l
booFS = CheckFS.Value
booCR = CheckCR.Value
booURL = CheckURL.Value
booChar = CheckChar.Value
valChar = Val(TextChar)
End Sub
Private Sub Check1_Click(Index As Integer)
SaveSetting App.Title, Check1(Index).Name, Index, Check1(Index).Value
End Sub
Private Sub Check2_Click(Index As Integer)
SaveSetting App.Title, Check2(Index).Name, Index, Check2(Index).Value
End Sub
Private Sub Check3_Click(Index As Integer)
SaveSetting App.Title, Check3(Index).Name, Index, Check3(Index).Value
End Sub
Private Sub CheckChar_Click()
SaveSetting App.Title, CheckChar.Name, 0, CheckChar.Value
End Sub
Private Sub CheckFS_Click()
SaveSetting App.Title, CheckFS.Name, 0, CheckFS.Value
End Sub
Private Sub CheckCR_Click()
SaveSetting App.Title, CheckCR.Name, 0, CheckCR.Value
End Sub
Private Sub CheckURL_Click()
SaveSetting App.Title, CheckURL.Name, 0, CheckURL.Value
End Sub
Private Sub TextChar_Change()
SaveSetting App.Title, TextChar.Name, 0, TextChar.Text
End Sub
Private Sub CommandPreset_Click()
Check1(0).Value = 1 '全角スペース
Check1(1).Value = 1 '半角スペース
Check1(2).Value = 1 '■
Check1(3).Value = 1 '★
Check1(4).Value = 1 '▼
Check1(5).Value = 1 '○
Check1(6).Value = 1 '●
Check1(7).Value = 1 '※
Check1(8).Value = 1 'タブコード
Check2(0).Value = 1 '。
Check2(1).Value = 1 '．
Check2(2).Value = 1 '.
Check2(3).Value = 0 ')
Check2(4).Value = 0 '）
Check2(5).Value = 0 '」
Check2(6).Value = 0 '＞
Check2(7).Value = 0 '>
Check3(0).Value = 1 '>
Check3(1).Value = 1 '＞
Check3(2).Value = 1 '■
Check3(3).Value = 1 '★
Check3(4).Value = 1 '▼
Check3(5).Value = 1 '○
Check3(6).Value = 1 '●
CheckFS.Value = 0
CheckCR.Value = 1
CheckURL.Value = 1
CheckChar.Value = 1
TextChar.Text = 10
Dim l As Integer
For l = 0 To valCheck1MAX
SaveSetting App.Title, Check1(l).Name, l, Check1(l).Value
Next l
For l = 0 To valCheck2MAX
SaveSetting App.Title, Check2(l).Name, l, Check2(l).Value
Next l
For l = 0 To valCheck3MAX
SaveSetting App.Title, Check3(l).Name, l, Check3(l).Value
Next l
SaveSetting App.Title, CheckFS.Name, 0, CheckFS.Value
SaveSetting App.Title, CheckCR.Name, 0, CheckCR.Value
SaveSetting App.Title, CheckURL.Name, 0, CheckURL.Value
SaveSetting App.Title, CheckChar.Name, 0, CheckChar.Value
SaveSetting App.Title, TextChar.Name, 0, TextChar.Text
End Sub
Private Sub Form_Load()
Dim l As Integer
Top = GetSetting(App.Title, Me.Name, "Top", 0)
Left = GetSetting(App.Title, Me.Name, "Left", 0)
For l = 0 To valCheck1MAX
Check1(l).Value = GetSetting(App.Title, Check1(l).Name, l, 0)
Next
For l = 0 To valCheck2MAX
Check2(l).Value = GetSetting(App.Title, Check2(l).Name, l, 0)
Next
For l = 0 To valCheck3MAX
Check3(l).Value = GetSetting(App.Title, Check3(l).Name, l, 0)
Next
CheckCR.Value = GetSetting(App.Title, CheckCR.Name, 0, 0)
CheckURL.Value = GetSetting(App.Title, CheckURL.Name, 0, 0)
CheckChar.Value = GetSetting(App.Title, CheckChar.Name, 0, 0)
TextChar.Text = GetSetting(App.Title, TextChar.Name, 0, 0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.Title, Me.Name, "Top", Top
SaveSetting App.Title, Me.Name, "Left", Left
Unload FormMain
End Sub
