问题描述
出现"从字符串“TextBox1”到类型“Integer”的强制转换无效。"错误,是那里错了呢?---------------------------------------------------------------------PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadTextBox1.Text=GetPrivateProfileInt("Form","file1",TextBox1.Text,path1)TextBox2.Text=GetPrivateProfileInt("Form","file2",TextBox2.Text,path1)TextBox3.Text=GetPrivateProfileInt("Form","file3",TextBox3.Text,path1)EndSub=====================================================================INI文件内容[Form]file1=C:WINDOWSIsUn0804.exefile2=C:WINDOWSMicCal.exefile3=C:WINDOWStwunk_32.exe
解决方案
解决方案二:
你的参数错误了.DeclareFunctionGetPrivateProfileString&Lib"kernel32"Alias"GetPrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsString,ByVallpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)TextBox3.Text=GetPrivateProfileInt("Form","file3","默认值",TextBox3.Text,长度,path1)