[字段]
比率=8885
[字段]
比率=015Dim A As String
Dim B As String
Dim sz As String
sz = (10)
A = GetPrivateProfileString("字段", "比率", Text6, sz, 10, App.Path & "\ABC.INI")
Text6.Text = A
sz = (10)
B = GetPrivateProfileString("字段", "比率", Text7, sz, 10, App.Path & "\ABC.INI")
Text7.Text = B读出来的值怎么是4和3,不是8885和015呀

解决方案 »

  1.   

    你先看清楚GetPrivateProfileString这个函数的说明.
      

  2.   

    Dim A As String
    Dim B As String
    Dim sz As String
    ''''''''''sz = (10) '这是什么呀?很令人纳闷?
    A = GetPrivateProfileString("字段", "比率", Text6, sz, 10, App.Path & "\ABC.INI")
    Text6.Text = trim(sz)B = GetPrivateProfileString("字段", "比率", Text7, sz, 10, App.Path & "\ABC.INI")
    Text7.Text = trim(sz)
      

  3.   

    太长了,太长了,操作API的函数来读写INI代码比较长自己写函数操作就可以了,没几个函数,另外不是配置就要用INI,没啥好的,用自己的格式保存往往更容易