vb怎麼在標籤上顯示當前系統星期幾

2022-06-09 19:11:35 字數 4198 閱讀 7722

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...