寫一個vb點虐 代碼，關(guān)于登陸和關(guān)閉Q~程序，窗口如下已經(jīng)設(shè)計好。

你設(shè)計一個界面，讓別人來寫代碼，可能嗎？

成都創(chuàng)新互聯(lián)公司堅持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：網(wǎng)站建設(shè)、成都網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時代的巴青網(wǎng)站設(shè)計、移動媒體設(shè)計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

另外根據(jù)你的想法，VB.NET沒法實現(xiàn)，需要用C++寫DLL注入，還要破解QQ的加密函數(shù)！

求vb點虐 的源代碼，最好說明其解決問題，越多越好，滿意加50分。

下面這段代碼，是我用來計算每個月存500元進銀行，連續(xù)30年，最后連本帶利能有多少錢。這里面涉及復(fù)利計算。界面中右邊的文本框用來輸出每一次計算的結(jié)果。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

? Dim nianxian As Integer '年限變量

? Dim dingcun As Integer '定存變量

? Dim fuli_big As Long '大復(fù)利

? Dim fuli_small As Long '小復(fù)利

? Dim i As Integer '循環(huán)變量

? Dim DATAstring As String '數(shù)據(jù)字符串

? nianxian = Val(年限_TextBox.Text)

? dingcun = Val(定存_TextBox.Text)

? DATAstring = ""

? For i = 1 To nianxian

? ? ? fuli_small = dingcun * (1 + 0.1875)

? ? ? dingcun = fuli_small

? ? ? fuli_big = fuli_big + fuli_small

? ? ? DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)

? ? ? 'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)

? Next

? 'fuli_big = fuli_small

? TextBox1.Text = DATAstring

? 結(jié)果_TextBox.Text = Str(fuli_big) + "元"

End Sub

用VB做一個QQ登陸框代碼怎么寫

首先新建一個EXE工程，再在窗體上拖幾個Label控件，看看Label的強大功能吧，原理就是利用Label來模擬一個按鈕，但是首先要將Label控件的屬性要調(diào)一下， Name：LblBtn， BorderStyle:1， Appearance:0， Alignment:2， 這樣一個按鈕的雛形就已經(jīng)出來了，如果工程量很大，可以將多個Label控件的Name屬性設(shè)為一樣的，對于按鈕的識別就要靠識別Index屬性了，為了方便起見，在進入到代碼編輯窗口，輸入以下代碼： PrivateConstLBL_BACK_COLOR＝HE0E0E0’正常時Label控件的背景色 PrivateConstLBL_WHEN_MOUSE_MOVE＝HC0C0C0’鼠標移動時Label的背景色 PrivateConstLBL_WHEN_MOUSE_DOWN＝H808080’鼠標按下時Label的背景色 再在Form的Load事件中輸入以下內(nèi)容 PrivateSubForm_Load（） DimCountAsInteger ForCount＝0To3’請將此出的3換成你的LblBtn數(shù)量的個數(shù)－1 LblBtn（Count）.BackColor＝LBL_BACK_COLOR’初始化LblBtn的背景 NextCount EndSub 然后再在LblBtn的MouseMove和MouseDown事件中來搞定剩余部分： PrivateSubLblBtn_MouseDown（IndexAsInteger，ButtonAsInteger， ShiftAsInteger，XAsSingle，YAsSingle）’當鼠標按在LblBtn上時 LblBtn（Index）.BackColor＝LBL_WHEN_MOUSE_DOWN’臨時改變LblBtn背景顏色 EndSub PrivateSubLblBtn_MouseMove（IndexAsInteger，ButtonAsInteger， ShiftAsInteger，XAsSingle，YAsSingle）’鼠標在LblBtn上面移動時觸發(fā)該事件 DimCountAsInteger DoEvents’暫時將系統(tǒng)控制權(quán)教給系統(tǒng) IfButtonThenExitSub’如果按鈕被按下就退出該過程 ForCount＝0To3 IfCountIndexThen’如果按下的不是其它按鈕 LblBtn（Index）.BackColor＝LBL_BACK_COLOR’將背景設(shè)為正常 Else LblBtn（Index）.BackColor＝LBL_WHEN_MOUSE_MOVE’將背景設(shè)為鼠標移 動的背景 EndIf NextCount EndSub PrivateSubForm_MouseMove（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle） DimCountAsInteger DoEvents ForCount＝0To3 LblBtn（Count）.BackColor＝LBL_BACKCOLOR’恢復(fù)背景 NextCount End 本來利用Windows的消息系統(tǒng)來完成這一“艱巨”的任務(wù)最簡單，可問題就來了，Label控件沒有窗口句柄怎么辦？可是此問題與題無關(guān)，寫了會有騙稿費之：） OK，Label控件就講到這里，在來說說TextBox控件， 各位看關(guān)恐怕看慣了白顏色的背景，那么就換換顏色以養(yǎng)養(yǎng)俺們那和綿羊一樣的眼睛（為什么說綿羊？俺也不知道），可是VB提供的RGB函數(shù)弄出來的顏色不是怎么好看，這里俺來教大家一個小Tip，RGB函數(shù)的Red，Green，Blue這三個參數(shù)若一樣，則產(chǎn)生的顏色是灰度，當然越接近白顏色越好，但也不能讓各位看不出來，俺建議TextBox的背景為RGB（235，235，235），各位還是實戰(zhàn)一下，將一TextBox拖到窗體上，屬性設(shè)置如下 Appearance0 BorderStyle1 MutilLineTrue 千萬不要設(shè)置ScrollBars屬性，否則會影響效果在Form的Load事件中初始化TextBox DimbkColorAsLong PrivateSubForm_Load（） bkColor＝RGB（235，235，235） Text1.BackColor＝bkColor EndSub 在Form和Text1的MouseMove事件中:PrivateSubForm_MouseMove（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle） Text1.BorderStyle＝0 EndSub PrivateSubText1_MouseMove（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle） DoEvents Text1.BorderStyle＝1 EndSub 在按下F5試試是不是很Cool? 可能各位看關(guān)玩過石器時代，一定會對里面的TextBox的效果感到很爽，VB還不是可以做到，有焦點的控件可以使用SetFocus方法來為其設(shè)置焦點，可是一個窗體上如果控件太多了，一個一個的用SetFocus是不是太傻了?這一節(jié)的主角就是－－－－－－－－API函數(shù)， 首先聲明: PrivateTypePOINTAPI xAsLong yAsLong EndType PrivateDeclareFunctionGetCursorPosLib"user32"Alias"GetCursorPos" （lpPointAsPOINTAPI）AsLongPrivateDeclareFunctionWindowFromPointLib"user32"Alias"WindowFrom Point"（ByValxPointAsLong，ByValyPointAsLongAsLongPrivateDeclareFunctionSetFocusLib"user32"Alias" SetFocus"（ByValhwndAsLong）AsLong 但是這里的SetFocus會和控件的SetFocus會搞混淆，改改吧， PrivateDeclareFunctionnSetFocusLib"user32"Alias"SetFocus"（ByValhwndAsLong）AsLong 只要Alias指向的接口是對的前面的函數(shù)名稱簡直就是擺設(shè)，在建立一個過程: PublicFunctionsSetFocus（）AsLong DimCPosAsPOINTAPI，SuccessfullAsBoolean，hWndAsLong DoEvents Successfull＝GetCursorPos（CPos） IfNotSuccessfullThenExitSub’如果未成功則退出該過程 hWnd＝WindowFromPoint（CPos.x，CPos.y） sSetFocus=nSetFocus(hWnd) EndSub 在窗體上放一個Timer控件，Interval屬性設(shè)為100，就是0.1秒，在Timer1控件的Timer事件中填入sSetFocus，在運行一下看看，效果怎么樣? 可是有的先生小姐要問了，TextBox難道就不能用ScrollBar嗎?非也非也，選工程－部件－MicrosoftWindowsCommonControls－26.0（SP3）就是你的答案，至于卷動TextBox就去研究SendMessage函數(shù)吧，否則又有騙稿費之嫌，如果想作綠色軟件，不想用控件，可以用俺前面講到的Label控件，利用字體Webdings來模擬ScrollBar，需要注意的是，如果模擬ScrollBar，上下左右箭頭分別是5，6，3，4，別忘了把字體設(shè)為Webdings 再來講講窗體的美化，其實將BorderStyle屬性設(shè)為0就是很好的2D美化;）可是，這樣一來，問題又來了，怎么辦?凡事都要請API來幫忙，這里需要兩個API，一下是該API的聲明: PublicDeclareFunctionReleaseCaptureLib"user32"Alias"ReleaseCapture"（）AsLong注釋：這個API是用來解下鼠標的追蹤器，關(guān)于他的過多用法以及詳細介紹可以寫信向俺咨詢，還有PublicDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"（ByValhwndAsLong，ByValwMsgAsLong，ByValwParamAsLong，lParamAsAny）AsLong’這個該不要俺多介紹了吧 PublicConstHTCAPTION＝2’代表窗體的標題區(qū) PublicConstWM_NCLBUTTONDOWN＝HA1’表示非工作區(qū)左鍵按下 原理很簡單，卸下鼠標追蹤器后向Form發(fā)送一個移動窗體的消息，其實做到這一點的方法很多，但俺個人認為這一種最簡單，添加一個過程: PublicSubMoveForm（hWndAsLong） DoEvents ReleaseCapture SendMessagehWnd，WM_NCLBUTTONDOWN，HTCAPTION，0 EndSub 在Form的MouseMove事件中: PrivateSubForm_MouseMove（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle） IfButton＝vbLeftButtonThenMoveFormhWnd’如果按下鼠標左鍵就移動窗體 EndSub 臺下的這位小姐又納悶了，可是光禿禿的窗體沒有了標題欄也不好看，俺要向這為小姐推薦俺的東東－ActiveX控件，ToolSign，需要的人可以寫信給俺聯(lián)系，該控件需要在代碼編輯區(qū)域內(nèi)添加一下代碼: ’一下聲明是用在ToolSign的AutoQuit屬性的 PublicConstEXIT_FORCE＝2’注意，在VB中運行的時候如果選用此退出方式，VB也會退出 PublicConstEXIT_MESSAGE＝1’由操作系統(tǒng)發(fā)送關(guān)閉消息 PublicConstEXIT_CUSTOM＝Not（EXIT_FORCEOrEXIT_MESSAGE）’自定義 將其注冊后在部件欄中把e－DogkidStudioToolsSign打鉤，添加到工具箱中，雙擊加入到窗體中，在Form的Load事件中添加一下初始化代碼: PrivateSubForm_Load（） WithSign1 .AutoQuit＝EXIT_CUSTOM .ParentsHWND＝hWnd’填了此屬性可以直接用ToolSign來移動窗體而不需要前面的代碼 EndWith EndSub Sign1的Click事件 PrivateSubSign1_Click（） End’關(guān)閉程序 EndSub 在Form的Resize事件中添加一下代碼: PrivateSubForm_Resize（） Sign1.Width＝Width EndSub 如果想讓窗體可以改變大小，可以修改一下屬性 Caption"" BorderStyle2或5 ControlBoxFalse 不知道各位看關(guān)見過爆炸試的窗體沒有?，沒有見過可以從俺要另外一個俺自己的ActiveXDLL，我的那個東東其實是給我的Software作運行庫的，各位若不嫌棄，可以用用，注冊后在工程－引用－e－DogkidRuntimeLibrary 然后在窗體Load事件中輸入: PrivateSubForm_Load(） DimSystemAse_Dogkid_Runtime_Library.System SetSystem＝Newe_Dogkid_Runtime_Library.System Show System.BoomIthDC，60，Width，Height，Left，Top SetSystem＝Nothing EndSub 7 回答者： ys

名稱欄目：vb點虐 qq源代碼 vb源代碼是什么格式文件
網(wǎng)站URL：http://www.rwnh.cn/article46/ddgoshg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)網(wǎng)站建設(shè)、企業(yè)建站、微信公眾號、手機網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計公司、小程序開發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)