エクスプローラのツリービュー (ID:72768)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

コレ面白いぞ。

Option Strict On
Option Explicit On
Option Infer Off

'VisualBasic2010(無料版）＿ニセ物に注意。
'コレ面白いよ。
'こんな感じの人はいますかね？（笑）
'次回は{{ウイルスぱすた-2010をつくろう。（笑）

Public Class Form1

Dim Test_WebBrowser As New WebBrowser
    Dim text_Box1 As New TextBox

Sub cont_set()

With Me
            .Size = New Size(700, 700)
            .Text = "Reo Internet Explorer"
        End With

With Test_WebBrowser
            .Size = New Size(Width - 60, Height - 60)
            .Location = New Point(30, 30)
            .Navigate(New Uri("http://www.koei.co.jp"))
        End With

Me.Controls.Add(Test_WebBrowser)

With text_Box1
            .Size = New Size(Width - 50, 20)
            .Location = New Point(0, 0)
            .Text = "http://www.google.co.jp"
            .Enabled = False
        End With

Me.Controls.Add(text_Box1)

End Sub

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Test_WebBrowser.Size = New Size(Width - 60, Height - 60)
    End Sub

Public Sub New()

' この呼び出しはデザイナーで必要です。
        InitializeComponent()

' InitializeComponent() 呼び出しの後で初期化を追加します。

cont_set()

End Sub

End Class

←解決時は質問者本人がここをチェックしてください。

戻る