Saman_12
سه شنبه 12 مرداد 1389, 23:07 عصر
سطح آموزش مبتدی میباشد!:قهقهه:
تا حالا دلتون خاسته به هر دلیلی اطلاعات یک DataGridView رو توی ریجستری ثبت کنین یا از ریجستری بخونین اگه خواسته نظر شما رو به بقیه آموزش جلب می نمایم.
خوب توی این آموزش میخوام اطلاعات یک DataGridView رو توی ریجستری ثبت کنیم و بعدش هم اطلاعات رو بخونیم و از اطلاعات یک Export (ذخیرش کنیم توی یک فایل) بگیریم!
کامپونت ها و کد های مورد نیاز جهت تهیه برنامه. :قهقهه::قهقهه: :
اول 4 تا باتون با نام های Button1 , Button2 , Button3 , Button4 به فورم تون اظافه کنید و Text هاشون رو به ترتیب :
Button1 = Save
Button2 = Load
Button3 = Export
Button4 = Import
بزارین و یک DataGridView به نام DataGridView1 هم اظافه کنید.و چند تا سطر هم به DataGridview اظافه کنید(Columns).
کد زیر رو توی کد ادیتور .net وارد کنید :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Row, Col As Integer
Dim DataIt, DataDE As String
For Row = 0 To DataGridView1.RowCount - 1
For Col = 0 To DataGridView1.ColumnCount - 1
DataIt = DataGridView1.Item(Col, Row).Value
If DataIt = Nothing Or DataIt = "" Then
DataIt = ""
End If
SaveSetting(My.Application.Info.AssemblyName, "Row", Col & Row, DataIt)
DataDE = GetSetting(My.Application.Info.AssemblyName, "Row", Col & Row, "")
If DataDE = "" Then
DeleteSetting(My.Application.Info.AssemblyName, "Row", Col & Row)
End If
Next Col
Next Row
SaveSetting(My.Application.Info.AssemblyName, "Row", "Max", DataGridView1.ColumnCount - 1)
SaveSetting(My.Application.Info.AssemblyName, "Row", "Min", DataGridView1.RowCount - 2)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Row, Col As Integer
Dim Row_, Col_ As String
Row_ = GetSetting(My.Application.Info.AssemblyName, "Row", "Min", 0)
Col_ = GetSetting(My.Application.Info.AssemblyName, "Row", "Max", 0)
DataGridView1.RowCount = Row_ + 2
DataGridView1.ColumnCount = Col_ + 1
For Row = 0 To Row_
For Col = 0 To Col_
DataGridView1.Item(Col, Row).Value = GetSetting(My.Application.Info.AssemblyName, "Row", Col & Row)
Next Col
Next Row
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Shell("Reg Export " & """" & "hkcu\Software\VB and VBA Program Settings\" & My.Application.Info.AssemblyName & """" & " " & """" & Application.StartupPath & "\InfoData.Reg" & """", AppWinStyle.Hide, Wait:=True)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Shell("Reg Import " & """" & Application.StartupPath & "\InfoData.Reg" & """")
End Sub
End Class
خوب آموزش تموم شد ببخشین که سطح آموزش های من مبتدیه.:لبخند:
تا حالا دلتون خاسته به هر دلیلی اطلاعات یک DataGridView رو توی ریجستری ثبت کنین یا از ریجستری بخونین اگه خواسته نظر شما رو به بقیه آموزش جلب می نمایم.
خوب توی این آموزش میخوام اطلاعات یک DataGridView رو توی ریجستری ثبت کنیم و بعدش هم اطلاعات رو بخونیم و از اطلاعات یک Export (ذخیرش کنیم توی یک فایل) بگیریم!
کامپونت ها و کد های مورد نیاز جهت تهیه برنامه. :قهقهه::قهقهه: :
اول 4 تا باتون با نام های Button1 , Button2 , Button3 , Button4 به فورم تون اظافه کنید و Text هاشون رو به ترتیب :
Button1 = Save
Button2 = Load
Button3 = Export
Button4 = Import
بزارین و یک DataGridView به نام DataGridView1 هم اظافه کنید.و چند تا سطر هم به DataGridview اظافه کنید(Columns).
کد زیر رو توی کد ادیتور .net وارد کنید :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Row, Col As Integer
Dim DataIt, DataDE As String
For Row = 0 To DataGridView1.RowCount - 1
For Col = 0 To DataGridView1.ColumnCount - 1
DataIt = DataGridView1.Item(Col, Row).Value
If DataIt = Nothing Or DataIt = "" Then
DataIt = ""
End If
SaveSetting(My.Application.Info.AssemblyName, "Row", Col & Row, DataIt)
DataDE = GetSetting(My.Application.Info.AssemblyName, "Row", Col & Row, "")
If DataDE = "" Then
DeleteSetting(My.Application.Info.AssemblyName, "Row", Col & Row)
End If
Next Col
Next Row
SaveSetting(My.Application.Info.AssemblyName, "Row", "Max", DataGridView1.ColumnCount - 1)
SaveSetting(My.Application.Info.AssemblyName, "Row", "Min", DataGridView1.RowCount - 2)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Row, Col As Integer
Dim Row_, Col_ As String
Row_ = GetSetting(My.Application.Info.AssemblyName, "Row", "Min", 0)
Col_ = GetSetting(My.Application.Info.AssemblyName, "Row", "Max", 0)
DataGridView1.RowCount = Row_ + 2
DataGridView1.ColumnCount = Col_ + 1
For Row = 0 To Row_
For Col = 0 To Col_
DataGridView1.Item(Col, Row).Value = GetSetting(My.Application.Info.AssemblyName, "Row", Col & Row)
Next Col
Next Row
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Shell("Reg Export " & """" & "hkcu\Software\VB and VBA Program Settings\" & My.Application.Info.AssemblyName & """" & " " & """" & Application.StartupPath & "\InfoData.Reg" & """", AppWinStyle.Hide, Wait:=True)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Shell("Reg Import " & """" & Application.StartupPath & "\InfoData.Reg" & """")
End Sub
End Class
خوب آموزش تموم شد ببخشین که سطح آموزش های من مبتدیه.:لبخند: