sách gpt4 ăn đã đi

Mẹo truy cập nhanh vào sổ đăng ký trong VB.NET

In lại Tác giả: qq735679552 Thời gian cập nhật: 29-09-2022 22:32:09 29 4
mua khóa gpt4 giày nike

CFSDN nhấn mạnh vào giá trị tạo ra nguồn mở và chúng tôi cam kết xây dựng nền tảng chia sẻ tài nguyên để mọi nhân viên CNTT có thể tìm thấy thế giới tuyệt vời của bạn tại đây.

Bài viết blog CFSDN này có mẹo về cách truy cập nhanh vào sổ đăng ký trong VB.NET. Mã được tác giả sưu tầm và biên soạn. Nếu bạn quan tâm đến bài viết này, hãy nhớ thích nó.

Việc truy cập vào sổ đăng ký trong vb.net trở nên rất đơn giản. Chúng ta có thể sử dụng lớp đăng ký và lớp registerKey trong không gian tên microsoft.Win32. Ngoài ra, My.Computer.Registry cũng có thể trả về một phiên bản của lớp Microsoft.Win32.Registry. Dưới đây là một vài ví dụ nhỏ minh họa cách vb.net truy cập vào sổ đăng ký. 1. Trả lại hoặc tạo khóa đăng ký.

 

  Dim Key1 As Microsoft.Win32.RegistryKey Key1 = My.Computer.Registry.CurrentUser 'Trả lại khóa người dùng hiện tại Dim Key2 As Microsoft.Win32.RegistryKey Key2 = Key1.OpenSubKey("northsnow") 'Trả lại khóa Northsnow cho người dùng hiện tại keyNếu Key2 không là gì thì Key2 = Key1.CreateSubKey("northsnow") 'Tạo khóa nếu nó không tồn tạiEnd If.

  2. Xóa khoá đăng ký.

 

  Dim Key1 As Microsoft.Win32.RegistryKey Key1 = My.Computer.Registry.CurrentUser 'Trả lại khóa người dùng hiện tại Dim Key2 As Microsoft.Win32.RegistryKey Key2 = Key1.OpenSubKey("northsnow") 'Trả lại khóa Northsnow cho người dùng hiện tại key Nếu không phải Key2 thì không có gì thì Key1.DeleteSubKey("northsnow") 'Tạo khóa nếu nó không tồn tạiEnd If.

  3. Tạo hoặc đọc khóa đăng ký.

 

  Dim Key1 As Microsoft.Win32.RegistryKey Key1 = My.Computer.Registry.CurrentUser 'Trả lại khóa người dùng hiện tại Dim Key2 As Microsoft.Win32.RegistryKey Key2 = Key1.OpenSubKey("northsnow", True) 'Trả lại Northsnow dưới hiện tại phím khóa người dùng.

  Nếu bạn muốn tạo một mục, bạn phải chỉ định tham số thứ hai là true Nếu Key2 không có gì thì Key2 = Key1.CreateSubKey("northsnow") 'Nếu khóa không tồn tại, hãy tạo nó End If 'Tạo mục, nếu có không tồn tại, hãy tạo nó, nếu nó tồn tại Sau đó ghi đè Key2.SetValue("name", "Snow in Saibei") Key2.SetValue("sex", True) Key2.SetValue("age", 30) 'Trả về giá trị mục Dim sb As New System.Text.StringBuilder sb.AppendLine(Key2.GetValue("name")) sb.AppendLine(Key2.GetValue("sex")) sb.AppendLine(Key2.GetValue("age" )) MsgBox(sb.ToString) 'Kiểm tra xem một mục có tồn tại khôngIf (Key2.GetValue("name")) Không có gì thì MsgBox("no") Else MsgBox("yes") End If If (Key2.GetValue("name2")) Không có gì Then MsgBox("no") Else MsgBox("yes") End If .

  'Đầu ra' Saibei's Snow'True '30 'có 'không.

4. Duyệt qua sổ đăng ký Việc này cũng rất đơn giản. Đặt một nút và hai hộp văn bản trên biểu mẫu và thêm mã sau đây:

 

  Dim sb As New System.Text.StringBuilder 'Trả về kết quả truyền tải Dim sb2 As New System.Text.StringBuilder 'Trả về khóa đăng ký có lỗi đọc Nút phụPrivate Sub Button3_Click()Sub Button3_Click(ByVal sender As System.Object.

  ByVal e As System.EventArgs) Xử lý Button3.Click Dim Key1 As Microsoft.Win32.RegistryKey Key1 = My.Computer.Registry.CurrentUser 'Sử dụng Key1 Is Nothing Then sb.AppendLine(Key1.Name) readValue(Key1) readReg(Key1) End If Me.TextBox1.Text = sb.ToString Me.TextBox2.Text = sb2.ToString End Sub 'Sử dụng Key1 Private Sub readReg()Sub readReg(ByVal r As Microsoft.Win32.RegistryKey) If r.SubKeyCount > 0 Then Dim keyName() As String Dim keyTemp As Microsoft.Win32.RegistryKey keyName = r.GetSubKeyNames Dim i As Integer For i = 0 To keyName.GetLength(0) - 1 Thử sb.AppendLine(keyName(i)) keyTemp = r.OpenSubKey(keyName(i), True) readValue(keyTemp) readReg(keyTemp) Bắt ex Là Ngoại lệ sb2.AppendLine(keyName(i)) Kết thúc Thử Tiếp theo Kết thúc Nếu Kết thúc Sub 'Khóa học không phải là Khóa riêng tư Sub readValue()Sub readValue(ByVal r Là Microsoft.Win32.RegistryKey) Nếu r.ValueCount > 0 Thì Dim valueName() Là Chuỗi Dim i Là Số nguyên valueName = r.GetValueNames Đối với i = 0 Đến valueName.GetLength(0) - 1 sb.AppendLine("####") sb.Append(r.Name) sb.Append("----") sb.Append(r.GetValue(valueName(i)).ToString) Tiếp theo Kết thúc Nếu Kết thúc Sub 。

  。

Cuối cùng, bài viết này về mã kỹ thuật về cách truy cập nhanh vào sổ đăng ký trong VB.NET kết thúc tại đây. Nếu bạn muốn biết thêm về mã kỹ thuật về cách truy cập nhanh vào sổ đăng ký trong VB.NET, vui lòng tìm kiếm các bài viết của CFSDN hoặc tiếp tục. để duyệt các bài viết liên quan, tôi hy vọng bạn sẽ ủng hộ blog của tôi trong tương lai! .

29 4 0
qq735679552
Hồ sơ

Tôi là một lập trình viên xuất sắc, rất giỏi!

Nhận phiếu giảm giá taxi Didi miễn phí
Phiếu giảm giá taxi Didi
Chứng chỉ ICP Bắc Kinh số 000000
Hợp tác quảng cáo: 1813099741@qq.com 6ren.com
Xem sitemap của VNExpress