1樓:鬆鬆一號
private sub form_click()dim a(7) as string, b(7) as stringa(1) = "日": a(2) = "一": a(3) = "二":
a(4) = "三": a(5) = "四": a(6) = "五":
a(7) = "六"
for i = 1 to 7
b(i) = "星期" & a(i)
next i
n = weekday(now)
select case n
case n = 1 to 7
label1 = b(n)
end select
end sub
在介面裡建一個標籤,把**複製進**編輯器就ok了。
2樓:匿名使用者
label1.caption=weekday(now)
3樓:匿名使用者
label1=weekday(now)
4樓:我不是豔陽高照
private sub label1_click()d = weekday(now)
select case d
case 1
label1.caption = "星期天"
case 2
label1.caption = "星期一"
case 3
label1.caption = "星期二"
case 4
label1.caption = "星期三"
case 5
label1.caption = "星期四"
case 6
label1.caption = "星期五"
case 7
label1.caption = "星期六"
end select
end sub
5樓:永弘壯
weekdayname(weekday(now))
vb 如何在label中同時顯示系統日期和時間
6樓:匿名使用者
方法1:
label1.caption = now()方法2:
label1.caption = date & " " & time()
7樓:匿名使用者
label1.caption=now()
vb程式設計顯示星期幾
8樓:匿名使用者
private sub command1_click()dim i as long
i = weekday(now)
select case i
case 1
label1.caption = " 星期天"
case 2
label1.caption = "星期一"
case 3
label1.caption = "星期二"
case 4
label1.caption = "星期三"
case 5
label1.caption = "星期四"
case 6
label1.caption = "星期五"
case 7
label1.caption = "星期六"
end select
end sub
vb中怎麼顯示今天的日期 星期和 時間?
9樓:
command1_click函式裡輸入:
text1.text=data()
text3.text=time()
星期忘了。
10樓:帥幻邇
text1.text = date
text2.text = weekday(now)
text3.text = time
vb程式單擊日期,可使文字框中顯示當前日期,單擊時間,可顯示當前時間,並使前面的標籤做相應修改,寫出操作
11樓:杜哥是個小天才
具體**:
private sub command1_click()text1.text = date
label1.caption = "當前日期為:"
end sub
private sub command2_click()text1.text = time
label1.caption = "當前時間為:"
end sub
拓展資料visual basic是一種由 microsoft 公司開發的結構化的、模組化的、物件導向的、包含協助開發環境的事件驅動為機制的視覺化程式設計語言。
從任何標準來說,vb都是世界上使用人數最多的語言——不管是盛讚vb的開發者還是抱怨vb的開發者的數量。它源自於basic程式語言。
vb擁有圖形使用者介面(gui)和快速應用程式開發(rad)系統,可以輕易的使用dao、rdo、ado連線資料庫,或者輕鬆的建立activex控制元件。程式設計師可以輕鬆的使用vb提供的元件快速建立一個應用程式。
主要優點:
1,簡單易學。
2,開發速度快。
3,可讀性很好。
12樓:蝴蝶飛飛
private sub command1_click()text1.text = date
label1.caption = "當前日期為:"
end sub
private sub command2_click()text1.text = time
label1.caption = "當前時間為:"
end sub
vb 用英文顯示系統當前日期為星期幾怎麼做?
13樓:
首先建一函式,進行星期數字與英文的轉換
private function english_weekday(num as integer) as string()
select case num
case 1
english_weekday="sunday"
case 2
english_weekday="monday"
case 3
english_weekday="tuesday"
case 4
english_weekday="wednesday"
case 5
english_weekday="thursday"
case 6
english_weekday="friday"
case 7
english_weekday="saturday"
end select
end function
然後假設在一按鈕單擊事件中進行操作顯示
private sub cmdshow_click()label1.caption=english_weekday(weekday(date))
end sub
這是目前我能想到的方法,不知道還有沒有更直接的方法或函式了。
14樓:匿名使用者
format(date, "dddd")
15樓:瑜琅
private sub command1_click()label2.caption = weekday(date)label3.caption = date'定義轉換中文
if label2 = 1 then
label2 = "星期日"
elseif label2 = 2 thenlabel2 = "星期一"
elseif label2 = 3 thenlabel2 = "星期二"
elseif label2 = 4 thenlabel2 = "星期三"
elseif label2 = 5 thenlabel2 = "星期四"
elseif label2 = 6 thenlabel2 = "星期五"
else
label2 = "星期六"
end if
end sub
記憶體標籤上是金士頓,可魯大師出來怎麼是三星
金士頓品牌的記憶體,用的是三星的記憶體顆粒,貌似有可能 但是,記憶體廠家會在記憶體的spd裡寫上自家的資訊啊 我的是金士頓的記憶體,截圖給你看 確實顯示是金士頓的 恩,支援 有可能用的是三星的記憶體顆粒。但是也不排除作假 不過你還是得看具體資訊說明,軟體上說的是顆粒還是記憶體條 不是,正常,不用擔心...
怎麼在VB的標籤裡實現換行,在VB中怎麼怎麼設定label自動換行
有兩種方式復 制1 編寫 實現 換行 bai label1.caption 第一行內容du vbcrlf 第二行內容 vbcrlf就是zhi一個回車符,dao實現換行 2 編輯label的屬性,實現自動換行 將autosize 設定為false,將wordwrap設定為true,此時在caption...
怎樣用VB做個編寫程式,在文字框中顯示當前系統時間,並隨時間進行變化
你新增一個timer控制元件 interval屬性 100 新增事件 private sub timer1 timer text1.text format now,hh mm ss end sub private sub form load timer1.enabled trueend sub pr...