syset.frm

一个VB编写的校园即时广播系统,具有简单的定时广播性能

VERSION 5.00
Begin VB.Form syset 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Net Call→系统设置"
   ClientHeight    =   1965
   ClientLeft      =   390
   ClientTop       =   270
   ClientWidth     =   2565
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1965
   ScaleWidth      =   2565
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command4 
      Caption         =   "保存(&S)"
      Height          =   345
      Left            =   -30
      TabIndex        =   7
      Top             =   1635
      Width           =   1335
   End
   Begin VB.CommandButton Command3 
      Caption         =   "关于我(&A)"
      Height          =   345
      Left            =   1290
      TabIndex        =   6
      Top             =   1635
      Width           =   1305
   End
   Begin VB.CheckBox C3 
      Caption         =   "启动后以后台方式运行"
      Height          =   240
      Left            =   45
      TabIndex        =   5
      Top             =   540
      Width           =   2340
   End
   Begin VB.ComboBox t1 
      Height          =   300
      ItemData        =   "syset.frx":0000
      Left            =   0
      List            =   "syset.frx":000D
      TabIndex        =   4
      Top             =   1215
      Width           =   2580
   End
   Begin VB.CommandButton Command2 
      Caption         =   "/前景色"
      Height          =   330
      Left            =   1755
      TabIndex        =   3
      Top             =   810
      Width           =   810
   End
   Begin VB.CommandButton Command1 
      Caption         =   "设置聊天记录背景色"
      Height          =   330
      Left            =   -90
      TabIndex        =   2
      Top             =   810
      Width           =   1875
   End
   Begin VB.CheckBox C2 
      Caption         =   "允许查看二人世界聊天记录"
      Height          =   315
      Left            =   45
      TabIndex        =   1
      Top             =   225
      Width           =   2475
   End
   Begin VB.CheckBox C1 
      Caption         =   "在Windows启动时自动加载"
      Height          =   240
      Left            =   45
      TabIndex        =   0
      Top             =   0
      Width           =   2520
   End
End
Attribute VB_Name = "syset"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rtn As String
Dim cc As ChooseColor
Private Sub Command1_Click()
Call Colorset
If rtn >= 1 Then
   Select Case t1.ListIndex
 Case 0
   t1.BackColor = cc.rgbResult
   Server.Reco.BackColor = cc.rgbResult
 Case 1
   t1.BackColor = cc.rgbResult
   Server.Text1.BackColor = cc.rgbResult
 Case 2
   t1.BackColor = cc.rgbResult
   Server.online.BackColor = cc.rgbResult
End Select
End If
End Sub

Private Sub Command2_Click()
Call Colorset
If rtn >= 1 Then
Select Case t1.ListIndex
 Case 1
   t1.ForeColor = cc.rgbResult
   Server.Text1.ForeColor = cc.rgbResult
 Case 2
   t1.ForeColor = cc.rgbResult
   Server.online.ForeColor = cc.rgbResult
End Select
End If
End Sub

Private Sub Colorset()
cc.lStructSize = Len(cc)
cc.hwndOwner = Me.hwnd
cc.hInstance = App.hInstance
cc.flags = 0
cc.lpCustColors = String$(16 * 4, 0)
rtn = ChooseColor(cc)
End Sub

Private Sub Command3_Click()
Readme.Show
End Sub

Private Sub Command4_Click()
Call Saveset
End Sub

Private Sub Form_DblClick()
Unload Me
End Sub

Private Sub Form_Load()
t1.ListIndex = 0
C2.Value = getstring(HKEY_LOCAL_MACHINE, "Software\New Sun\Net Call Server", "AllowRead")
If Len(getstring(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\run", "Net Call Server")) > 3 Then C1.Value = 1 Else C1.Value = 0
If Not getstring(HKEY_LOCAL_MACHINE, "software\New Sun\Net Call Server", "RunMode") = 0 Then C3.Value = 1

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call Saveset
End Sub

Private Sub t1_Click()
Select Case t1.ListIndex
Case 0
Command2.Enabled = False
t1.BackColor = Server.Reco.BackColor
Case 1
Command2.Enabled = True
t1.BackColor = Server.Text1.BackColor
t1.ForeColor = Server.Text1.ForeColor
Case 2
Command2.Enabled = True
t1.BackColor = Server.online.BackColor
t1.ForeColor = Server.online.ForeColor
End Select
'Command1.SetFocus
End Sub

Private Sub Saveset()
If Not C1.Value = 0 Then
Dim Exepath As String
If Len(App.Path) < 4 Then Exepath = App.Path & App.EXEName Else Exepath = App.Path & "\" & App.EXEName
Call savestring(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\run", "Net Call Server", Exepath & ".exe")
Else
Call DeleteValue(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\run", "Net Call Server")
End If
If C2.Visible = 0 Then Server.allow = False Else Server.allow = True
Call savestring(HKEY_LOCAL_MACHINE, "software\New Sun\Net Call Server", "AllowRead", CStr(C2.Value))
Call savestring(HKEY_LOCAL_MACHINE, "software\New Sun\Net Call Server", "RunMode", CStr(C3.Value))
Call savestring(HKEY_LOCAL_MACHINE, "software\New Sun\Net Call Server", "TalkRecoBackColor", CStr(Server.Reco.BackColor))
Call savestring(HKEY_LOCAL_MACHINE, "software\New Sun\Net Call Server", "SendMagsageBackColor", CStr(Server.Text1.BackColor))
Call savestring(HKEY_LOCAL_MACHINE, "software\New Sun\Net Call Server", "SendMagsageForeColor", CStr(Server.Text1.ForeColor))
Call savestring(HKEY_LOCAL_MACHINE, "software\New Sun\Net Call Server", "OnlinenameBackColor", CStr(Server.online.BackColor))
Call savestring(HKEY_LOCAL_MACHINE, "software\New Sun\Net Call Server", "OnlinenameForeColor", CStr(Server.online.ForeColor))
Unload Me
End Sub