卖逼视频免费看片|狼人就干网中文字慕|成人av影院导航|人妻少妇精品无码专区二区妖婧|亚洲丝袜视频玖玖|一区二区免费中文|日本高清无码一区|国产91无码小说|国产黄片子视频91sese日韩|免费高清无码成人网站入口

建立窗體1

在編寫程序時,我們經(jīng)常需要創(chuàng)建窗體來與用戶進行交互。在本文中,我們將討論如何建立一個名為"Form1"的窗體,并在其中添加各種控件。```vbPublic Class Form1```按鈕使用的問題在

在編寫程序時,我們經(jīng)常需要創(chuàng)建窗體來與用戶進行交互。在本文中,我們將討論如何建立一個名為"Form1"的窗體,并在其中添加各種控件。

```vb

Public Class Form1

```

按鈕使用的問題

在窗體中添加一個按鈕是常見的操作。在本例中,我們添加了一個名為"Button1"的按鈕,并給它設置了一個點擊事件處理程序。

```vb

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

True

RadioButton1.Enabled True

RadioButton2.Enabled True

End Sub

```

隱藏和顯示文本框

當我們單擊"Button1"按鈕時,需要顯示一個文本框和兩個單選按鈕。我們可以通過設置相應控件的Visible屬性來實現(xiàn)隱藏和顯示的效果。

```vb

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

False

RadioButton1.Enabled False

RadioButton2.Enabled False

End Sub

```

選擇單選按鈕后的變化

當我們選擇其中一個單選按鈕時,圖片框和文本框?qū)⒏鶕?jù)選擇的不同顯示不同的內(nèi)容。我們可以通過更改相應控件的Text和BackgroundImage屬性來實現(xiàn)。

```vb

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

T1.Text "我選擇的是美女"

("C:Documents and SettingsAdministrator桌面")

ImageLayout.Zoom

End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

T1.Text "我選擇的是帥哥"

("C:Documents and SettingsAdministrator桌面")

ImageLayout.Zoom

End Sub

```

通過以上代碼,我們可以實現(xiàn)一個簡單的窗體應用程序,通過按鈕和單選按鈕的使用來控制文本框和圖片框的顯示內(nèi)容。這種方法可以在許多場景中使用,例如根據(jù)用戶的選擇來展示不同的信息或圖像。

標簽: