タイトル | : Re^2: ボタンのクリックでウィンドウを閉じるには? |
記事No | : 2498 |
投稿日 | : 2005/11/01(Tue) 15:34 |
投稿者 | : ルピカ |
魔界の仮面弁士さん、早速のご回答、有難うございます。 > この場合は、ボタンの onclick に対して、"window.close()" を割り当てておけば OK かと。
window.close()をボタンのonclickに割り当てるとパスワードが間違ってしまっていた場合にもウィンドウが閉じてしまわないでしょうか?
下記に今の状態を記述いたします。 ------------------------------------------------------------------------ Private Sub LoginBtn_Click(Sender As Object, E As EventArgs) Dim objIE As Object objIE = CreateObject("InternetExplorer.application")
Dim userDS As New System.Data.DataSet userDS = GetUser(UserName.Text, UserPass.Text) If userDS.Tables(0).Rows.Count = 1 Then
objIE.FullScreen = False objIE.ToolBar = True objIE.MenuBar = True objIE.Visible = True
Call objIE.Navigate("hhttp://yahoo.co.jp") Do While objIE.Busy Loop
objIE.Visible = True
(ここでウィンドウを閉じる作業をする記述をするのだと思うのですが)
Else Msg.Text = "パスワードに誤りがあります" End If End Sub ---------------------------------------------------------------- ここから下にAccessで作成したデータを参照させるようにしています。 ----------------------------------------------------------------
|