home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 January (DVD) / VPR980100.ISO / OLS / WIN16 / ESAVER04 / ESAVER04.LZH / ESSRC04.LZH / ESSETUP.FRM < prev    next >
Text File  |  1995-06-03  |  10KB  |  307 lines
  1. VERSION 2.00
  2. Begin Form ESSetup 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  '固定(2重線)
  5.    Caption         =   "えぐぜせ～ば～の設定"
  6.    ForeColor       =   &H00808080&
  7.    Height          =   3660
  8.    Icon            =   ESSETUP.FRX:0000
  9.    Left            =   690
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3300
  14.    ScaleWidth      =   4440
  15.    Top             =   675
  16.    Width           =   4560
  17.    Begin CommandButton btnRunSetUp 
  18.       Caption         =   "設定"
  19.       FontBold        =   0   'False
  20.       FontItalic      =   0   'False
  21.       FontName        =   "標準ゴシック"
  22.       FontSize        =   12
  23.       FontStrikethru  =   0   'False
  24.       FontUnderline   =   0   'False
  25.       Height          =   375
  26.       Left            =   3360
  27.       TabIndex        =   11
  28.       Top             =   2160
  29.       Width           =   975
  30.    End
  31.    Begin CommandButton btnDelelte 
  32.       Caption         =   "削除"
  33.       FontBold        =   0   'False
  34.       FontItalic      =   0   'False
  35.       FontName        =   "標準ゴシック"
  36.       FontSize        =   12
  37.       FontStrikethru  =   0   'False
  38.       FontUnderline   =   0   'False
  39.       Height          =   375
  40.       Left            =   3360
  41.       TabIndex        =   10
  42.       Top             =   1680
  43.       Width           =   975
  44.    End
  45.    Begin ListBox lstRunFileName 
  46.       FontBold        =   0   'False
  47.       FontItalic      =   0   'False
  48.       FontName        =   "標準ゴシック"
  49.       FontSize        =   9.75
  50.       FontStrikethru  =   0   'False
  51.       FontUnderline   =   0   'False
  52.       Height          =   1980
  53.       Left            =   120
  54.       TabIndex        =   9
  55.       Top             =   1200
  56.       Width           =   3135
  57.    End
  58.    Begin CommandButton btnCancel 
  59.       Cancel          =   -1  'True
  60.       Caption         =   "取消"
  61.       FontBold        =   0   'False
  62.       FontItalic      =   0   'False
  63.       FontName        =   "標準ゴシック"
  64.       FontSize        =   12
  65.       FontStrikethru  =   0   'False
  66.       FontUnderline   =   0   'False
  67.       Height          =   375
  68.       Left            =   3360
  69.       TabIndex        =   8
  70.       Top             =   600
  71.       Width           =   975
  72.    End
  73.    Begin CommandButton btnEND 
  74.       Caption         =   "終了"
  75.       FontBold        =   0   'False
  76.       FontItalic      =   0   'False
  77.       FontName        =   "標準ゴシック"
  78.       FontSize        =   12
  79.       FontStrikethru  =   0   'False
  80.       FontUnderline   =   0   'False
  81.       Height          =   375
  82.       Left            =   3360
  83.       TabIndex        =   4
  84.       Top             =   120
  85.       Width           =   975
  86.    End
  87.    Begin CommandButton btnAdd 
  88.       Caption         =   "追加"
  89.       FontBold        =   0   'False
  90.       FontItalic      =   0   'False
  91.       FontName        =   "標準ゴシック"
  92.       FontSize        =   12
  93.       FontStrikethru  =   0   'False
  94.       FontUnderline   =   0   'False
  95.       Height          =   375
  96.       Left            =   3360
  97.       TabIndex        =   1
  98.       Top             =   1200
  99.       Width           =   975
  100.    End
  101.    Begin Label lblAbout 
  102.       BackStyle       =   0  '透明
  103.       Caption         =   "えぐぜせーばー　Ver0.4"
  104.       FontBold        =   0   'False
  105.       FontItalic      =   0   'False
  106.       FontName        =   "標準ゴシック"
  107.       FontSize        =   9.75
  108.       FontStrikethru  =   0   'False
  109.       FontUnderline   =   0   'False
  110.       Height          =   255
  111.       Index           =   3
  112.       Left            =   840
  113.       TabIndex        =   7
  114.       Top             =   225
  115.       Width           =   2055
  116.    End
  117.    Begin Label lblAbout 
  118.       BackStyle       =   0  '透明
  119.       Caption         =   "RAITA_NOM/雷太・ＮＯＭ"
  120.       FontBold        =   0   'False
  121.       FontItalic      =   0   'False
  122.       FontName        =   "標準ゴシック"
  123.       FontSize        =   9.75
  124.       FontStrikethru  =   0   'False
  125.       FontUnderline   =   0   'False
  126.       Height          =   255
  127.       Index           =   2
  128.       Left            =   825
  129.       TabIndex        =   6
  130.       Top             =   465
  131.       Width           =   2055
  132.    End
  133.    Begin Label lblExeName 
  134.       AutoSize        =   -1  'True
  135.       BackStyle       =   0  '透明
  136.       Caption         =   "セーバーにする実行ファイル名"
  137.       FontBold        =   0   'False
  138.       FontItalic      =   0   'False
  139.       FontName        =   "標準ゴシック"
  140.       FontSize        =   10.5
  141.       FontStrikethru  =   0   'False
  142.       FontUnderline   =   0   'False
  143.       Height          =   210
  144.       Index           =   1
  145.       Left            =   105
  146.       TabIndex        =   5
  147.       Top             =   945
  148.       Width           =   2940
  149.    End
  150.    Begin Image imgIcon 
  151.       Height          =   480
  152.       Left            =   240
  153.       Picture         =   ESSETUP.FRX:0302
  154.       Top             =   240
  155.       Width           =   480
  156.    End
  157.    Begin Label lblAbout 
  158.       BackStyle       =   0  '透明
  159.       Caption         =   "RAITA_NOM/雷太・ＮＯＭ"
  160.       FontBold        =   0   'False
  161.       FontItalic      =   0   'False
  162.       FontName        =   "標準ゴシック"
  163.       FontSize        =   9.75
  164.       FontStrikethru  =   0   'False
  165.       FontUnderline   =   0   'False
  166.       ForeColor       =   &H00FFFFFF&
  167.       Height          =   255
  168.       Index           =   1
  169.       Left            =   840
  170.       TabIndex        =   3
  171.       Top             =   480
  172.       Width           =   2055
  173.    End
  174.    Begin Label lblAbout 
  175.       BackStyle       =   0  '透明
  176.       Caption         =   "えぐぜせーばー　Ver0.4"
  177.       FontBold        =   0   'False
  178.       FontItalic      =   0   'False
  179.       FontName        =   "標準ゴシック"
  180.       FontSize        =   9.75
  181.       FontStrikethru  =   0   'False
  182.       FontUnderline   =   0   'False
  183.       ForeColor       =   &H00FFFFFF&
  184.       Height          =   255
  185.       Index           =   0
  186.       Left            =   840
  187.       TabIndex        =   2
  188.       Top             =   240
  189.       Width           =   2055
  190.    End
  191.    Begin Label lblExeName 
  192.       AutoSize        =   -1  'True
  193.       BackStyle       =   0  '透明
  194.       Caption         =   "セーバーにする実行ファイル名"
  195.       FontBold        =   0   'False
  196.       FontItalic      =   0   'False
  197.       FontName        =   "標準ゴシック"
  198.       FontSize        =   10.5
  199.       FontStrikethru  =   0   'False
  200.       FontUnderline   =   0   'False
  201.       ForeColor       =   &H00FFFFFF&
  202.       Height          =   210
  203.       Index           =   0
  204.       Left            =   120
  205.       TabIndex        =   0
  206.       Top             =   960
  207.       Width           =   2940
  208.    End
  209. End
  210. Option Explicit
  211.  
  212. Sub btnAdd_Click ()
  213.     ESRunSet.Show
  214. End Sub
  215.  
  216. Sub btnCancel_Click ()
  217.     End
  218. End Sub
  219.  
  220. Sub btnDelelte_Click ()
  221. Dim LoopCount As Integer
  222. Dim i As Integer
  223.  
  224. 'ListBOXから削除するする
  225. 'リストボックスでセレクトされている名前を探して削除
  226.     LoopCount = lstRunFileName.ListCount - 1
  227.     'リストボックスの最後からチェック＆削除・・・最初から削除するとLoopCountより実際の数が減ってしまい
  228.     '最後のアイテムをチェックしにいってエラーとなるため
  229.     For i = LoopCount To 0 Step -1
  230.         If lstRunFileName.Selected(i) = True Then
  231.             lstRunFileName.RemoveItem i
  232.         End If
  233.     Next i
  234.  
  235. End Sub
  236.  
  237. Sub btnEnd_Click ()
  238. Dim Rtn, Buffer As String * 512
  239. Dim i
  240.  
  241. 'リストに登録されている？
  242.     If lstRunFileName.ListCount = 0 Then
  243.         MsgBox "実行ファイルが登録されていません"
  244.         Exit Sub
  245.     End If
  246.  
  247. 'プロファイルへ書き込み えぐぜせーばーは、CONTROL.INIに書き込む
  248. 'INIFileへの書き込み。リストボックスの内容を書き込む
  249.     '余分なエントリーがあるとイヤ(^^;なので[Title]セクションを削除
  250.     Rtn = WritePrivateProfileDelSection("ScreenSaver.EXESaver", ByVal 0&, ByVal 0&, INIFileName())
  251.     'リストボックスの中身を書き込む
  252.     For i = 0 To lstRunFileName.ListCount - 1
  253.         Rtn = WritePrivateProfileString("ScreenSaver.EXESaver", "List", lstRunFileName.ListCount, INIFileName())
  254.         Rtn = WritePrivateProfileString("ScreenSaver.EXESaver", "Run" & i, CStr(lstRunFileName.List(i)), INIFileName())
  255. '        Rtn = WritePrivateProfileString("ScreenSaver.EXESaver", "Move" & i, , INIFileName())
  256.     Next i
  257.  
  258. '終了
  259.     End
  260.  
  261. End Sub
  262.  
  263. Sub Form_Load ()
  264.  
  265. Dim Rtn, Buffer As String * 512
  266. Dim i, List
  267.  
  268. 'プロファイルの取得
  269.     'いくつ登録されてるのか読みだす
  270.     List = GetPrivateProfileInt("ScreenSaver.EXESaver", "List", 0, INIFileName())
  271.     For i = 0 To List - 1
  272.         If List = 0 Then
  273.             Exit For
  274.         End If
  275.         Rtn = GetPrivateProfileString("ScreenSaver.EXESaver", "Run" & i, "", Buffer, 512, INIFileName())
  276.         lstRunFileName.AddItem LeftB(Buffer, Rtn)
  277. '        Rtn = GetPrivateProfileString("ScreenSaver.EXESaver", "Move" & i, "", Buffer, 512, INIFileName())
  278.     Next i
  279.  
  280. '画面中央に登場
  281.     ESSetup.Left = (Screen.Width - ESSetup.Width) / 2
  282.     ESSetup.Top = (Screen.Height - ESSetup.Height) / 2
  283.  
  284. End Sub
  285.  
  286. Sub lstRunFileName_Click ()
  287. Dim i
  288. Dim SelectLen
  289.  
  290. 'リストボックスがクリックされたら
  291.     For i = 0 To lstRunFileName.ListCount - 1
  292.     'セレクトされた項目を探す
  293.         If lstRunFileName.Selected(i) = True Then
  294.             '選択項目の文字数を取得
  295.             SelectLen = Len(lstRunFileName.List(i))
  296.             'もし選択項目にチェックがついていなければ付ける
  297.             If Left$(lstRunFileName.List(i), 1) = "　" Then
  298.                 lstRunFileName.List(i) = "×" & Mid$(lstRunFileName.List(i), 2, SelectLen)
  299.             Else
  300.             '付いていれば外す
  301.                 lstRunFileName.List(i) = "　" & Mid$(lstRunFileName.List(i), 2, SelectLen)
  302.             End If
  303.         End If
  304.     Next i
  305. End Sub
  306.  
  307.