Public Class Form1
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyname As String, ByVal lpstring As String, ByVal lpfilename As String) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim a As Long
WritePrivateProfileString("aa", "y", TextBox1.Text, "c:\ss.ini")
End Sub
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyname As String, ByVal lpDefault As String, ByVal lpReturnedstring As String, ByVal nSize As Long, ByVal lpfilename As String) As Long
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim b As Long
Dim kk As String
kk = Space(256)
b = GetPrivateProfileString("aa", "y", "空", kk, kk.Length, "c:\ss.ini")
'TextBox2.Text = y
If (b = 1 Or kk = "空") Then MsgBox("无法读取") _
Else _
MsgBox(kk) End Sub
End Class
这个程序为何读取不了KK的值,老是显示“空”字,读取失败选取默认值“空”,但怎么让他读取成功啊。
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyname As String, ByVal lpstring As String, ByVal lpfilename As String) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim a As Long
WritePrivateProfileString("aa", "y", TextBox1.Text, "c:\ss.ini")
End Sub
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyname As String, ByVal lpDefault As String, ByVal lpReturnedstring As String, ByVal nSize As Long, ByVal lpfilename As String) As Long
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim b As Long
Dim kk As String
kk = Space(256)
b = GetPrivateProfileString("aa", "y", "空", kk, kk.Length, "c:\ss.ini")
'TextBox2.Text = y
If (b = 1 Or kk = "空") Then MsgBox("无法读取") _
Else _
MsgBox(kk) End Sub
End Class
这个程序为何读取不了KK的值,老是显示“空”字,读取失败选取默认值“空”,但怎么让他读取成功啊。
解决方案 »
- vba取得excel单元格的格式种类问题
- 用winsock,多个客户端同时向服务端发送数据的问题?非常紧急
- vb中怎样对字符串型的字段使用合计函数sum ? 高手指教。(昨天回答问题仁兄请进)
- 如何使窗体自动隐藏,并记住上次打开时窗体位置?
- 没人能解决吗?请大伙帮我看看,怎样实现:控件接收浏览器传过来的数值并用文本框显示出来???
- 为什么数据库中空空如也,mdb还是15M大小?
- 这么简单的问题:(谁来说解决方案?)
- 求助大侠:关于日期型字段在VB中绑定输入出现3426错误的情况。。。急急急急急急
- vb用mapi发邮件给多人的问题
- ★听说斑竹名单有些变动,可否麻烦斑竹们抽点时间介绍一下自己呢?(包括斑竹playyuer)★
- 急,一个关于excel的问题啊!
- WMI中哪个类可以管理引导文件?
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyname As String, ByVal lpDefault As String, ByVal lpReturnedstring As String, ByVal nSize As Integer, ByVal lpfilename As String) As Integer
Public Class Form1
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyname As String, ByVal lpstring As String, ByVal lpfilename As String) As Integer
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyname As String, ByVal lpDefault As String, ByVal lpReturnedstring As String, ByVal nSize As Integer, ByVal lpfilename As String) As IntegerPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim a As Long
WritePrivateProfileString("aa", "y", TextBox1.Text, "c:\ss.ini")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim b As Long
Dim kk As String
kk = Space(256)
b = GetPrivateProfileString("aa", "y", "空", kk, kk.Length, "c:\ss.ini")
'TextBox2.Text = y
If (b = 1 Or kk = "空") Then MsgBox("无法读取") _
Else _
MsgBox(kk) End Sub
End Class
我现在用的是VB2008,不是vb.net啊。难道现在的vb都靠近vb.net的编程方法开发了?
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyname As String, ByVal lpstring As String, ByVal lpfilename As String) As Integer Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyname As String, ByVal lpDefault As String, ByVal lpReturnedstring As String, ByVal nSize As Integer, ByVal lpfilename As String) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim b As Long
Dim kk As String
kk = Space(256)
b = GetPrivateProfileString("aa", "y", "空", kk, kk.Length, "c:\ss.ini")
'TextBox2.Text = y
If (b = 1 Or kk = "空") Then MsgBox("无法读取") _
Else _
MsgBox(kk) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WritePrivateProfileString("aa", "y", 55, "c:\ss.ini") End Sub
End Class