1)在窗體上布置一個TextBox和一個Command控件
創(chuàng)新互聯(lián)建站服務(wù)項(xiàng)目包括萬秀網(wǎng)站建設(shè)、萬秀網(wǎng)站制作、萬秀網(wǎng)頁制作以及萬秀網(wǎng)絡(luò)營銷策劃等。多年來,我們專注于互聯(lián)網(wǎng)行業(yè),利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等,向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案,萬秀網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟(jì)效益。目前,我們服務(wù)的客戶以成都為中心已經(jīng)輻射到萬秀省份的部分城市,未來相信會繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任!
2)窗體代碼
Option?Explicit
Private?Sub?Command1_Click()
'選擇文本框中所有文本
With?Text1
.SelStart?=?0
.SelLength?=?Len(Text1.Text)
'讓文本框獲取焦點(diǎn)
.SetFocus
End?With
End?Sub
Private?Sub?Form_Load()
'在TextBox中顯示一些文本
Text1.Text?=?"Visual?Basic是一種可視化程序設(shè)計語言"
'命令按鈕的提示
Command1.Caption?=?"選擇所有文本"
End?Sub
1。選擇工作表左上角的“全選”按鈕,選定所有單元格,選擇“審閱”選項(xiàng)卡中的“保護(hù)單元格”命令,取消所有單元格鎖定。
2。再選擇不允許填充內(nèi)容的單元格區(qū)域,選擇“審閱”選項(xiàng)卡中的“保護(hù)單元格”命令,將不允許修改的單元格鎖定。
3。選擇“審閱”選項(xiàng)卡中的“保護(hù)工作表”命令,在彈出的對話框中“確定”即可(如果不想讓他人修改,這里可以設(shè)置密碼)。
1、在計算機(jī)上單擊右鍵管理,打開【計算機(jī)管理】界面。
2、配置網(wǎng)站的時候,我們一般采用的是80端口,所以刪除默認(rèn)的網(wǎng)站。
3配置一個我們自己的網(wǎng)站,可以是.net網(wǎng)站,因?yàn)閣in7自帶組件無需自行安裝。
4、默認(rèn)使用80端口,客戶端在訪問的時候就不需要加端口號了。
5、右鍵單擊網(wǎng)站目錄,選擇【管理網(wǎng)站】【啟動】。
6、提示端口號被占用,我們修改其他網(wǎng)站的端口號就可以解決。
方法/步驟2
1、打開【運(yùn)行】窗口,輸入:cmd。
2、在黑色窗口中輸入:netstat -obna,查看端口占用情況。
3、單擊右鍵選擇【全選】然后同時按住【Ctrl】+【C】復(fù)制。
4、查找本地127.0.0.1的80端口,對應(yīng)的ID。
5、打開任務(wù)管理器,點(diǎn)擊【查看】【選擇列】。
6、勾選【PID(進(jìn)程標(biāo)識符)】,點(diǎn)擊【確定】。
7、這樣就可以查找對應(yīng)的ID,結(jié)束相應(yīng)的進(jìn)程。
Private?Sub?TextBox1_Click(sender?As?Object,?e?As?EventArgs)?Handles?TextBox1.Click
TextBox1.SelectAll()
TextBox1.ForeColor?=?Color.Blue
End?Sub
如果不想每次都這樣的話,就加一個if判斷TextBox1.ForeColor 是否是Color.Blue就可以了
參考方法如下:
$("input[type='checkbox']").attr("checked",true);
用js這樣就行了,如果用C#,參考如下:
foreach (Control item in this.Controls)
{
if (item is CheckBox)
{
CheckBox box = (CheckBox)item;
box.Checked = true;
}
}
vb.net已經(jīng)去掉了控件數(shù)組這個類,不過有個代替該方式的一個屬性:Tag,你可以把這些關(guān)聯(lián)的Tag屬性設(shè)置為同一標(biāo)記,如:a。然后遍歷所有的checkbox并且tag為a的則選定:Protected Sub chkAll_Click() For Each ctl As Control In Me.Controls ''如果checkbox在一個容器里,比如groupbox,那可以用groupbox.controls
If ctl.GetType().Name.ToLower() = "checkbox" Then
CType(ctl, CheckBox).Checked = CheckBox3.Checked
End If
NextEnd Sub