| |
よろしくお願いします。
下記のプログラムは自宅のパソコンで実施して問題の無い状態です。
実際には会社のサーバーにこのプログラムを入れて、自分専用のパソコンで
起動することになりますが、このときのレジストリとはサーバーに
なるのか、あるいは自分専用のパソコンになるのか教えていただきたいと
おもいます。
Private Sub CommandButton1_Click()
Call Module1.コンピュータ名を取得する_WSH
If Me.TextBox1.Text <> "" And Me.TextBox2.Text <> "" And Me.TextBox3.Text <> "" And Me.TextBox4.Text <> "" And Me.TextBox5.Text <> "" Then
If Module1.PC名 = "NPC" Then
On Error Resume Next
DeleteSetting "NPC", "Main"
SaveSetting "NPC", "Main", "Text1", Me.TextBox1.Text
SaveSetting "NPC", "Main", "Text2", Me.TextBox2.Text
SaveSetting "NPC", "Main", "Text3", Me.TextBox3.Text
SaveSetting "NPC", "Main", "Text4", Me.TextBox4.Text
SaveSetting "NPC", "Main", "Text5", Me.TextBox5.Text
Else
On Error Resume Next
DeleteSetting "YMC", "Main"
SaveSetting "YMC", "Main", "Text1", Me.TextBox1.Text
SaveSetting "YMC", "Main", "Text2", Me.TextBox2.Text
SaveSetting "YMC", "Main", "Text3", Me.TextBox3.Text
SaveSetting "YMC", "Main", "Text4", Me.TextBox4.Text
SaveSetting "YMC", "Main", "Text5", Me.TextBox5.Text
End If
Else
MsgBox "データが不正です"
End If
End Sub
よろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
