| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 406 人关注过本帖
标题:SystemparametersInfo函数声明问题
只看楼主 加入收藏
mao393537650
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-9-23
收藏
 问题点数:0 回复次数:3 
SystemparametersInfo函数声明问题

Option Explicit
Private Declare Function SystemParametersInfo Lib "use32" Alias "SystemparametersInfoA" ()
(ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam as Any,
ByVal fuWinIni As Long) As Long

Private Sub Form_Load()
Dim myval As Long
myval = SystemParametersInfo(97, True, CStr(1), 0)
End Sub

Private Sub Text1_keydown(keycode As Integer, shift As Integer)
If Text1.Text = "12345" And keycode = vbKeyReturn Then
Dim myval As Long
myval = SystemParametersInfo(97, False, CStr(1), 0)
End
End If

End Sub



以上前几段的通用的声明不知道错在哪里了...好象()有问题,但是去掉又显示Byval有错误...我这个是要编写给系统锁个密码的软件,哪位大侠帮看看出错在哪里了啊!!不甚感激!

搜索更多相关主题的帖子: 函数 声明 
2007-10-09 20:14
mao393537650
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-9-23
收藏
得分:0 
自己先顶起来!高手帮帮忙看看
2007-10-09 20:14
fangjian77
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-7-6
收藏
得分:0 
回复:(mao393537650)SystemparametersInfo函数声明...
不明.
2007-10-09 20:25
mao393537650
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-9-23
收藏
得分:0 
回复:(fangjian77)回复:(mao393537650)Systempa...
没人知道吗?顶起来
2007-10-09 20:27
快速回复:SystemparametersInfo函数声明问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030503 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved