13518219792
Function?ULCase(ByVal?value?As?String)?As?String
在包頭等地區，都構建了全面的區域性戰略布局，加強發展的系統性、市場前瞻性、產品創新能力，以專注、極致的服務理念，為客戶提供網站建設、成都網站建設 網站設計制作定制制作,公司網站建設,企業網站建設,成都品牌網站建設,成都全網營銷,成都外貿網站建設公司,包頭網站建設費用合理。
Dim?s?As?String?=?""
For?Each?i?As?Char?In?value
s?=?IIf(Char.IsLower(i),?Char.ToUpper(i),?Char.ToLower(i))
Next
Return?s
End?Function
textbox1.text=ULCase(textbox1.text)
就行了.類似樓上,用的內置方法判斷大小寫
2.
能得到數據的方法 常用 InputBox ?,TextBox
inputBox 用法
Public Function InputBox(ByVal Prompt As String, Optional ByVal Title As String = "", Optional ByVal DefaultResponse As String = "", Optional ByVal XPos As Integer = -1, Optional ByVal YPos As Integer = -1) As String
功能: 在對話框中顯示提示，等待用戶輸入文本或單擊按鈕，然后返回包含文本框內容的字符串。
參數:
Prompt: 必選的 String 表達式，作為消息顯示在對話框中。Prompt 的最大長度大約為 1024 個字符，具體取決于所用字符的寬度。如果 Prompt 包含多行內容，則可以在每行之間使用回車符 (Chr(13))、換行符 (Chr(10)) 或回車/換行符組合 (Chr(13) Chr(10)) 來分隔各行。
Title: 可選。顯示在對話框標題欄中的 String 表達式。如果省略 Title，則標題欄中顯示應用程序名稱。
DefaultResponse: 可選的 String 表達式。如果未提供其他輸入，則作為默認響應顯示在文本框中。如果省略 DefaultResponse，則顯示的文本框為空。
XPos: 可選。數值表達式，指定屏幕左邊緣與對話框左邊緣之間的距離（以緹為單位）。如果省略 XPos，則對話框水平居中。
YPos: 可選。數值表達式，指定屏幕頂部與對話框上邊緣之間的距離（以緹為單位）。如果省略 YPos，則對話框垂直定位在屏幕向下大約三分之一處。
返回值:
在對話框中顯示提示，等待用戶輸入文本或單擊按鈕，然后返回包含文本框內容的字符串。
代碼:
Dim?KC()?As?String?=?{"語文",?"數學",?"英語",?"物理",?"化學"}
Dim?MyTable?As?New?Hashtable
For?Each?i?As?String?In?KC
MyTable.Add(i,?Val(InputBox("請輸入"""??i??"""?的成績:",?"成績輸入",?"0")))
Next
Dim?sum?As?Single
For?Each?i?As?DictionaryEntry?In?MyTable
sum?+=?i.Value
Next
Dim?Pf?As?String?=?IIf(sum??450?OrElse?_
(MyTable(KC(0))??95?AndAlso?MyTable(KC(1))??95?AndAlso?MyTable(KC(2))??95?AndAlso?MyTable(KC(3))??80?AndAlso?MyTable(KC(4))??80)?OrElse?_
(MyTable(KC(0))??85?AndAlso?MyTable(KC(1))??85?AndAlso?MyTable(KC(2))??85?AndAlso?MyTable(KC(3))??85?AndAlso?MyTable(KC(4))??85),?"優秀",?"可以")
MsgBox(Pf)
using?System;
using?System.Windows.Forms;
namespace?WindowsFormsApplication1
{
public?partial?class?Form1?:?Form
{
Timer?tm?=?new?Timer();//實例化?timeer?
static?int?timeS?=?0;?//設置靜態變量記錄秒數
TimeSpan?ts?=?new?TimeSpan();?//實例化?TimeSpan?
public?Form1()
{
InitializeComponent();
}
private?void?button1_Click(object?sender,?EventArgs?e)
{
tm.Interval?=?1000;?//設置?timeer?1000毫秒執行一次
tm.Tick?+=?new?EventHandler(timeer_Tick);?//設置?timeer?運行事件
tm.Start();?//?啟用?timeer
}
private?void?timeer_Tick(object?sender,?EventArgs?e)
{
timeS?+=?1;?//秒數?+1?
ts?=?new?TimeSpan(0,?0,?timeS);?
label1.Text?=?ts.Hours?+?":"?+?ts.Minutes?+?":"?+?ts.Seconds;
}
private?void?button2_Click(object?sender,?EventArgs?e)
{
tm.Stop();
timeS?=?0;
}
}
}
可以的，把項目的類型設成類庫，將所有的函數用Public修飾附封裝在類里面，生成dll文件。這樣別人就可以在別人項目屬性的引用頁里面添加對你的dll文件的引用，然后導入命名空間，直接使用了。
比如說，在一個項目里：
NameSpace Controller
Public Class ControlMachine
Public Sub Boot()
End Sub
Public Sub Shutdown()
End Sub
End Class
End NameSpace
進入另一個項目的項目屬性，進入引用頁，添加到那個dll文件的引用。在代碼中：
Imports Controller '加在代碼文檔的最頂端
使用：
Dim controller As New ControlMachine
controller.Boot()
controller.Shutdown()
希望你能了解，不懂再追問
