Domů › 7_2009-2012 › Flat VBControls Extension
Advertisement
7_2009-2012 Custom Controls/ Forms/ Menus #218400

Flat VBControls Extension

Pedro Lamas
★★★★★
4.8 · Stažení: 2,341

Do you wan't to make your controls really flat, like the ones in Office Toolbars (TextBoxes, CommandButtons, ComboBoxes, etc.)? Then this is what you need! Please, do Vote! By voting, you'll make the programmers efforts well spent!

AI

Shrnutí AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Zdrojový kód
original-source 
Upload
Function WriteLongDate()
'//By Jason Howard
'//March 8, 2002
Dim ThisMonth
Dim ThisDay
Dim ThisYear
ThisMonth = month(date)
ThisDay = day(date)
ThisYear = year(date)
Select Case ThisMonth
	Case 1
	       ThisMonth = "January"
	Case 2
			ThisMonth = "February"
	Case 3
		 	ThisMonth = "March"
	Case 4
			ThisMonth = "April"
	Case 5
			ThisMonth = "May"
	Case 6
			ThisMonth = "June"
	Case 7
			ThisMonth = "July"
	Case 8 
			ThisMonth = "August"
	Case 9
			ThisMonth = "September"
	Case 10
			ThisMonth = "October"
	Case 11
			ThisMonth = "November"
	Case 12
			ThisMonth = "December"
End Select
Response.write(ThisMonth) & " " & ThisDay & ", " & ThisYear
set ThisMonth = Nothing
set ThisDay = Nothing
set ThisYear = Nothing
End Function

'To output this just do this anywhere on your page:
<% WriteLongDate %>
Původní komentáře (3)
Obnoveno z Wayback Machine