WritePrivateProfileString
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
Dim lenReturn As Integer
lenReturn=WritePrivateProfileString("textyy","title",Me.Text,My.Application.Info.DirectoryPath& "\ATEconfig.ini")
'vbNullString ME.TEXT改為vbNullString 會變成刪除該字串內容
輸出結果
[textyy]
title=Form1 |
新浪微博
QQ空间
人人网
腾讯微博
Facebook
Google+
Plurk
Twitter
Line
