VB點虐 如何提取system并修改文件安全屬性？

將以下代碼保存到模塊中：

10年積累的成都做網(wǎng)站、成都網(wǎng)站制作、成都外貿(mào)網(wǎng)站建設(shè)經(jīng)驗，可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認識你，你也不認識我。但先網(wǎng)站設(shè)計后付款的網(wǎng)站建設(shè)流程，更有平和免費網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

Declare Function GetPrivateProfileString Lib "kernel32" Alias _

"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _

ByVal lpKeyName As Any, _

ByVal lpDefault As String, _

ByVal lpReturnedString As String, _

ByVal nSize As Long, _

ByVal lpFileName As String) As Long

Declare Function WritePrivateProfileStringByKeyName Lib "kernel32" Alias _

"WritePrivateProfileStringA" (ByVal lpApplicationName As String, _

ByVal lpKeyName As String, _

ByVal lpString As String, _

Public Function GetIniParam(NomFichier As String, NomSection As String, NomVariable As String) As String

Dim ReadString As String * 255

Dim returnv As String

Dim mResultLen As Integer

mResultLen = GetPrivateProfileString(NomSection, NomVariable, "(Unassigned)", ReadString, Len(ReadString) - 1, NomFichier)

If IsNull(ReadString) Or Left$(ReadString, 12) = "(Unassigned)" Then

Dim Tempvalue As Variant

Dim Message As String

Message = "配置文件 " NomFichier " 不存在."

returnv = ""

Else

returnv = Left$(ReadString, InStr(ReadString, Chr$(0)) - 1)

End If

GetIniParam = returnv

End Function

Public Function WriteWinIniParam(NomDuIni As String, sLaSection As String, sNouvelleCle As String, sNouvelleValeur As String)

Dim iSucccess As Integer

iSucccess = WritePrivateProfileStringByKeyName(sLaSection, sNouvelleCle, sNouvelleValeur, NomDuIni)

If iSucccess = 0 Then

WriteWinIniParam = False

Else

WriteWinIniParam = True

End If

End Function

調(diào)用方法：

Call WriteWinIniParam(App.Path "\LiveUpdate.ini", "LiveUpdate", "AppName", txtAppName.Text)

txtFile.Text = GetIniParam(App.Path "\LiveUpdate.ini", "LiveUpdate", "FILES1")

VB.NET中，文件對話框（OpenFileDialog）顯示某種設(shè)定的文件類型需要修改什么屬性？

Filter 屬性設(shè)置當(dāng)前文件名篩選字符串，該字符串確定出現(xiàn)在對話框的“文件類型”框中的選項。

openFileDialog1.InitialDirectory = "c:\\" ;

openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;

openFileDialog1.FilterIndex = 1 ; // 獲取或設(shè)置文件對話框中當(dāng)前選定篩選器的索引；

openFileDialog1.RestoreDirectory = true ;

對于每個篩選選項，篩選器字符串都包含篩選器說明，后接一垂直線條 (|) 和篩選器模式。不同篩選選項的字符串由垂直線條隔開。

如何在VB.NET中使用動態(tài)屬性

　Visual Basic .NET支持動態(tài)屬性，其動態(tài)屬性儲存在一個應(yīng)用程序配置文件中，該文件在應(yīng)用程序執(zhí)行時將會被讀到。使用動態(tài)屬性可以在不重新編譯應(yīng)用程序的情況下改變一些屬性值。你可以使用它們保存數(shù)據(jù)庫連接字符串、應(yīng)用程序日志信息或者服務(wù)器連接信息。

要看動態(tài)屬性的例子，首先在Visual Basic中創(chuàng)建一個Windows應(yīng)用程序。添加一個TextBox到默認窗體中；確認TextBox是被選中的，然后在屬性窗口中定位Dynamic屬性。

點擊Advanced標(biāo)簽旁邊的省略號按鈕，打開一個對話框，該對話框中列出了TextBox所有的屬性，選擇Text屬性，鍵映射框?qū)患せ睢ｆI映射決定了鍵儲存在配置文件中的值。點擊確定關(guān)閉對話框。

本文名稱：vb點虐 文件屬性 vb中的文件類型
文章轉(zhuǎn)載：http://vcdvsql.cn/article6/ddsicig.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供電子商務(wù)、虛擬主機、移動網(wǎng)站建設(shè)、全網(wǎng)營銷推廣、營銷型網(wǎng)站建設(shè)、手機網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)