qq登陆界面vb.net 登陆界面一直是白屏怎么办

用vb编写QQ登陆!

在QQ登录界面上输入好帐号密码并选中自动登录,VB代码:

10年积累的做网站、网站设计经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先制作网站后付款的网站建设流程,更有华阴免费网站建设让你可以放心的选择与我们合作。

Private Sub Command1_Click()

Shell "D:\Program Files\QQ2007\QQ.exe " 'QQ路径

End Sub

VB NET,像QQ登录界面、酷狗那种窗体是怎么做出来的?

这个问题很简单,但是,要自己去写事件,不然,窗体就是一个死窗体了

用VB.NET编QQ登陆界面要用到哪些控件

你好:

Button+Label+ListBox等等啦

很多的啦~VB 其实也是可视化界面 所见即所得的一个软件。你QQ上面有几个控件再去VB工具箱里找 都有的!呵呵!

谁会用vb做qq登录界面?要三个窗口,一个是登录窗口,一个是登陆成功窗口,一个是登陆后的界面(内容不用

首先新建一个EXE工程,再在窗体上拖几个Label控件,看看Label的强大功能吧,原理就是利用Label来模拟一个按钮,但是首先要将Label控件的属性要调一下, Name:LblBtn, BorderStyle:1, Appearance:0, Alignment:2, 这样一个按钮的雏形就已经出来了,如果工程量很大,可以将多个Label控件的Name属性设为一样的,对于按钮的识别就要靠识别Index属性了,为了方便起见,在进入到代码编辑窗口,输入以下代码: PrivateConstLBL_BACK_COLOR=HE0E0E0’正常时Label控件的背景色 PrivateConstLBL_WHEN_MOUSE_MOVE=HC0C0C0’鼠标移动时Label的背景色 PrivateConstLBL_WHEN_MOUSE_DOWN=H808080’鼠标按下时Label的背景色 再在Form的Load事件中输入以下内容 PrivateSubForm_Load() DimCountAsInteger ForCount=0To3’请将此出的3换成你的LblBtn数量的个数-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上面移动时触发该事件 DimCountAsInteger DoEvents’暂时将系统控制权教给系统 IfButtonThenExitSub’如果按钮被按下就退出该过程 ForCount=0To3 IfCountIndexThen’如果按下的不是其它按钮 LblBtn(Index).BackColor=LBL_BACK_COLOR’将背景设为正常 Else LblBtn(Index).BackColor=LBL_WHEN_MOUSE_MOVE’将背景设为鼠标移 动的背景 EndIf NextCount EndSub PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) DimCountAsInteger DoEvents ForCount=0To3 LblBtn(Count).BackColor=LBL_BACKCOLOR’恢复背景 NextCount End 本来利用Windows的消息系统来完成这一“艰巨”的任务最简单,可问题就来了,Label控件没有窗口句柄怎么办?可是此问题与题无关,写了会有骗稿费之:) OK,Label控件就讲到这里,在来说说TextBox控件, 各位看关恐怕看惯了白颜色的背景,那么就换换颜色以养养俺们那和绵羊一样的眼睛(为什么说绵羊?俺也不知道),可是VB提供的RGB函数弄出来的颜色不是怎么好看,这里俺来教大家一个小Tip,RGB函数的Red,Green,Blue这三个参数若一样,则产生的颜色是灰度,当然越接近白颜色越好,但也不能让各位看不出来,俺建议TextBox的背景为RGB(235,235,235),各位还是实战一下,将一TextBox拖到窗体上,属性设置如下 Appearance0 BorderStyle1 MutilLineTrue 千万不要设置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? 可能各位看关玩过石器时代,一定会对里面的TextBox的效果感到很爽,VB还不是可以做到,有焦点的控件可以使用SetFocus方法来为其设置焦点,可是一个窗体上如果控件太多了,一个一个的用SetFocus是不是太傻了?这一节的主角就是--------API函数, 首先声明: 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指向的接口是对的前面的函数名称简直就是摆设,在建立一个过程: PublicFunctionsSetFocus()AsLong DimCPosAsPOINTAPI,SuccessfullAsBoolean,hWndAsLong DoEvents Successfull=GetCursorPos(CPos) IfNotSuccessfullThenExitSub’如果未成功则退出该过程 hWnd=WindowFromPoint(CPos.x,CPos.y) sSetFocus=nSetFocus(hWnd) EndSub 在窗体上放一个Timer控件,Interval属性设为100,就是0.1秒,在Timer1控件的Timer事件中填入sSetFocus,在运行一下看看,效果怎么样? 可是有的先生小姐要问了,TextBox难道就不能用ScrollBar吗?非也非也,选工程-部件-MicrosoftWindowsCommonControls-26.0(SP3)就是你的答案,至于卷动TextBox就去研究SendMessage函数吧,否则又有骗稿费之嫌,如果想作绿色软件,不想用控件,可以用俺前面讲到的Label控件,利用字体Webdings来模拟ScrollBar,需要注意的是,如果模拟ScrollBar,上下左右箭头分别是5,6,3,4,别忘了把字体设为Webdings 再来讲讲窗体的美化,其实将BorderStyle属性设为0就是很好的2D美化;)可是,这样一来,问题又来了,怎么办?凡事都要请API来帮忙,这里需要两个API,一下是该API的声明: PublicDeclareFunctionReleaseCaptureLib"user32"Alias"ReleaseCapture"()AsLong注释:这个API是用来解下鼠标的追踪器,关于他的过多用法以及详细介绍可以写信向俺咨询,还有PublicDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong’这个该不要俺多介绍了吧 PublicConstHTCAPTION=2’代表窗体的标题区 PublicConstWM_NCLBUTTONDOWN=HA1’表示非工作区左键按下 原理很简单,卸下鼠标追踪器后向Form发送一个移动窗体的消息,其实做到这一点的方法很多,但俺个人认为这一种最简单,添加一个过程: PublicSubMoveForm(hWndAsLong) DoEvents ReleaseCapture SendMessagehWnd,WM_NCLBUTTONDOWN,HTCAPTION,0 EndSub 在Form的MouseMove事件中: PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) IfButton=vbLeftButtonThenMoveFormhWnd’如果按下鼠标左键就移动窗体 EndSub 台下的这位小姐又纳闷了,可是光秃秃的窗体没有了标题栏也不好看,俺要向这为小姐推荐俺的东东-ActiveX控件,ToolSign,需要的人可以写信给俺联系,该控件需要在代码编辑区域内添加一下代码: ’一下声明是用在ToolSign的AutoQuit属性的 PublicConstEXIT_FORCE=2’注意,在VB中运行的时候如果选用此退出方式,VB也会退出 PublicConstEXIT_MESSAGE=1’由操作系统发送关闭消息 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’关闭程序 EndSub 在Form的Resize事件中添加一下代码: PrivateSubForm_Resize() Sign1.Width=Width EndSub 如果想让窗体可以改变大小,可以修改一下属性 Caption"" BorderStyle2或5 ControlBoxFalse 不知道各位看关见过爆炸试的窗体没有?,没有见过可以从俺要另外一个俺自己的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


当前文章:qq登陆界面vb.net 登陆界面一直是白屏怎么办
当前路径:http://pwwzsj.com/article/dossgpp.html