iewanna的个人资料

水一把水

百度搜索达人大赛——西南高校区域赛开赛了亲爱的四川理工校友：百度搜索达人大赛——西南高校区域赛开赛了！比赛平台： http ://sou.baidu.com/ 发起方：百度校园部主办方：百度校园粉丝团本比赛面向整个西南地区各大高校的在校生，旨在提高大学生的信息检索能力和资源利用能力，汇集热爱搜索的人，为大家提供沟通交流的圈子。比赛时间： 2012 年 10 月 24 日— 28 日比赛形式：参赛选手注册参赛，每个百度校园帐号当天可参赛一次，随机抽取题目 30 道，每个题目限时 20 秒，共计 10 分钟完成“战斗”。比赛奖励：特等奖价值 100 元的物品 10 名一等奖价值 50 元的物品 20 名二等奖价值 30 元的物品 30 名三等奖价值 10 元的物品 100 名亲爱的朋友，赶紧来参赛吧！

求苏三的擦皮鞋求苏三的擦皮鞋可以给个下载地址嘛

地图获取坐标功能。添加我现在创建了一个地图的代码但是里面。。没有获取当前坐标的功能，我想添加一个这样的功能应该怎么做呢？

~~~人人网看见的！！ http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Freg.renren.com%2Fxn6229.do%3Fss%3D10117%26rt%3D30%26id%3D253069848%23nogo&urlrefer=1e39f3a776c16ef89194a39431e8ae29

取谁机数取谁机数的函数怎么弄

求助

这样修改Caption旁边的图表这样修改Caption旁边的图表图片http://photo.store.qq.com/http_imgload.cgi?/rurl2=abab9fbfb8232bd9f62f6330574a5d048a58ffae334645efe32dd0545999e8e18175fc5cda9429b54e489913ce67792ab62f60cc9599104313c550c6d9e1794df09aa5e9956ec6d5fb37aeeba9ab28d6b53478f5

定义！！函数我想定义一个字符用什么函数！！

VB入门技巧N例 VB入门技巧N例 1. 如何消除textbox中按下回车时的beep声？ Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 End If End Sub 2.Textbox获得焦点时自动选中。 Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub 3.屏蔽textbox控件自身的右键菜单，并显示自己的菜单。方法一： Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _ As Single) If Button = 2 Then Text1.Enabled = False Text1.Enabled = True PopupMenu mymenu End If End Sub 方法二：回调函数 module： Option Explicit Public OldWindowProc As Long ' 保存默认的窗口函数的地址 Public Const WM_CONTEXTMENU = &H7B ' 当右击文本框时，产生这条消息 Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd _ As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd _ As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal _ lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Function SubClass_WndMessage(ByVal hWnd As Long, ByVal Msg As Long, ByVal wp _ As Long, ByVal lp As Long) As Long ' 如果消息不是WM_CONTEXTMENU，就调用默认的窗口函数处理 If Msg <> WM_CONTEXTMENU Then SubClass_WndMessage = CallWindowProc(OldWindowProc, hWnd, Msg, wp, lp) Exit Function End If SubClass_WndMessage = True End Function 窗体中： Private Const GWL_WNDPROC = (-4) Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _ As Single) If Button = 1 Then Exit Sub oldWindowProc = GetWindowLong(Text1.hWnd, GWL_WNDPROC) ' 取得窗口函数的地址 ' 用SubClass_WndMessage代替窗口函数处理消息 Call SetWindowLong(Text1.hWnd, GWL_WNDPROC, AddressOf SubClass_WndMessage) End Sub Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Exit Sub ' 恢复窗口的默认函数 Call SetWindowLong(Text1.hWnd, GWL_WNDPROC, OldWindowProc) PopupMenu mymenu End Sub 4. 设置TEXTBOX为只读属性 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd _ As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd _ As Long, ByVal nIndex As Long) As Long Private Const GWL_STYLE = (-16) Private Const EM_SETREADONLY = &HCF Private Sub Command1_Click() Dim l As Long If (GetWindowLong(Text1.hwnd, GWL_STYLE) And &H800) Then Text1.Text = "This is a read/write text box." '文本窗口是只读窗口,设置为可读写窗口 l = SendMessage(Text1.hwnd, EM_SETREADONLY, False, vbNull) Text1.BackColor = RGB(255, 255, 255) '将背景设置为白色 Command1.Caption = "Read&Write"

挂机锁屏幕！！我应该这样做大家给我所一下思路！！还有就是我要用VB编的程序屏蔽几个键！怎么弄