简单问题一堆，快来拿分

1.检查是否有一个@且在@后有.(不相邻)
2.是
3.把时间/日期等函数的返回值转成string,写在状态栏上,具体见msdn中关于状态栏的应用.
4.Me.StartUpPosition = 2,窗体有这个属性
5.如果按钮是你自己的,可以在窗体的Private Sub Form_Load()中设置窗体的top和left:
例:
Private Sub Form_Load()
me.top=form2.command1.top+command1.height
me.left=form2.command1.left
end sub
如果是别人的比较麻烦,要用api,得到按钮坐标6.窗体有MaxButton属性,射程flase

1.简单的方法就是判断@和.的位置
2.Combox实现不了这个功能，可用DBCombox，加载部件：Microsoft Data

问题3最简单的方法：
在statusbar的属性页中，把PANEL的类型改为date

2。有一个datafield属性
3.状态栏显示时间，在标题栏就可以了吧 form1.caption=now
4.在属性布局窗口中，选择你的窗体，点右键，选择“显示在屏幕中央”
6。把form的maxbutton属性设置成false

1。如何判断文本框中输入email地址的合法性？
  一般的方法是：instr 来查找是否有@ 和 . 然后判定他们的位置，@ 要在 . 前。
2。combox如何绑定到数据库，显示的是某个字段的所有值，而选中后的到的是该表对应的的字段的值？
  要与data控件联合使用的话比较简单，直接连接就可以了；如果是ADO的话就要一项项添加了
3。如何在状态栏中显示日期，星期，时间？
  状态栏本身就有这些显示功能，你详细看看属性。因该是style属性。
4。如何使窗体运行时居于屏幕中间？
  form.move (screen.width-form.width)/2,(screen.height-form.height)/25。如何使窗体远行时居于指定按钮的右下部？
    Form2.Show
    Form2.Move Me.Left + Command1.Left + 20, me.top + Command1.Top + Command1.Height + 106。如何屏蔽最大化按钮？使其为灰色?
   me.maxbutton=false

1。如何判断文本框中输入email地址的合法性？
2。combox如何绑定到数据库，显示的是某个字段的所有值，而选中后的到的是该表对应的的字段的值？
3。如何在状态栏中显示日期，星期，时间？
4。如何使窗体运行时居于屏幕中间？
5。如何使窗体远行时居于指定按钮的右下部？
6。如何屏蔽最大化按钮？使其为灰色?1.查找是否有@
2.用控件data bound combox
3.在状态栏的属性中可以设置为时间
4。设置属性StartUpPosition = 2
5。
6。设置属性maxbutton=false

1.简单的方法就是判断@和.的位置
2.Combox实现不了这个功能，可用DBCombox，加载部件：Microsoft Data Bound List Controls 6.0,其用法是DataSource和DataField属性为要更新的字段，RecordSource和ListField为要下拉列表字段和数据源
3.通过设置状态的样式来实现时间和日期的显示，其值非别为：5,6,自于星期吗，可以lvzhong的方法
4。将窗体的StartUpPosition属性设置为2
5.可用Api函数SetWindowPos实现
6.将窗体的MaxButton属性设置为False

'*********************************************************
'* 名称：FormSet(formname,mode)
'* 功能：此函数用于初始化窗体的大小和位置
'* 用法：mode 满屏(0),左上(1),右上(2),左下(3),右下(4),居中(5)
'*********************************************************
Public Function FormSet(F As Form, Nu As Integer) As String
    Dim BarHeight As Integer  '任务条的高度
    BarHeight = 27 * 15
    If IsNull(Nu) Then
        Nu = 0
    End If
    F.ScaleMode = 3 '将窗体的分辨率设为象素级
    Select Case Nu  '根据参数设置窗体的大小和位置
        Case 0          '默认的窗体效果,最大化
            With F
                .Top = 0
                .Left = 0
                .Width = Screen.Width
                .Height = Screen.Height - BarHeight
            End With
        Case 1          '窗体的位置居左上
            With F
                .Top = 0
                .Left = 0
            End With
        Case 2          '窗体的位置居右上
            With F
                .Top = 0
                .Left = Screen.Width - .Width
            End With
        Case 3          '窗体的位置居左下
            With F
                .Top = Screen.Height - .Height - BarHeight
                .Left = 0
            End With
        Case 4          '窗体的位置居右下
            With F
                .Top = Screen.Height - .Height - BarHeight
                .Left = Screen.Width - .Width
            End With
        Case 5          '窗体的位置居中
            With F
                .Top = (Screen.Height - .Height) / 2
                .Left = (Screen.Width - .Width) / 2
            End With
    End Select
    F.Icon = F_Main.Icon
End Function

如何使窗体右上角的"X"无效？

    要Disable Form "X" -->Close的功能(便暗灰色),事实上便是从Form左上方的SystemMenu将关闭的MenuItem去除掉便可以了,去除后,又该如何,那便是在将关闭(Close)的MenuItem加回去但这里有个小问题,加回去之后"X"仍是暗灰色,要等到我们做了某些固定的动作之后(如TittleBar上Click一下,或选一下SystemMenu等), 我不知道让TittleBar上的这些东西Refresh要送什么消息,所以现在我暂且Send一个在TittleBar上按下Mouse左键的消息给窗体,令"X"能出现的Enable颜色
在窗体上放置一个Command Button,输入以下代码,运行,点击一下Command Button 就可使"X" Enable.
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function AppendMenu Lib "User32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Private Declare Function GetMenuString Lib "User32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
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
Const WM_NCLBUTTONDBLCLK = &HA3
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Const MF_STRING = &H0&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060
Private hMenu As Long
Private CloseStr As String '纪录Close MenuItem的字符串
Private Sub Command1_Click()
'将"关闭"的那个MenuItem重新加入
Call AppendMenu(hMenu, MF_STRING, SC_CLOSE, CloseStr)
'令"X"出现Enable的颜色
Call SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub
Private Sub Form_Load()
hMenu = GetSystemMenu(Me.hwnd, 0)
CloseStr = String(255, 0)
'SC_CLOSE即是"关闭"的MenuItem ID
Call GetMenuString(hMenu, SC_CLOSE, CloseStr, 256, MF_BYCOMMAND)
CloseStr = Left(CloseStr, InStr(1, CloseStr, Chr(0)) - 1)
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
End Sub

调试易

简单问题一堆，快来拿分

解决方案 »