• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Chỉ cho phép ứng dụng VB.NET chạy trên Windows XP

Các thủ thuật về hệ thống, thư mục, tập tin và mạng

Điều hành viên: tungcan5diop, QUANITGROBEST

neverland87
Guru
Guru
Bài viết: 490
Ngày tham gia: T.Bảy 26/05/2007 4:31 pm
Been thanked: 8 time

Chỉ cho phép ứng dụng VB.NET chạy trên Windows XP

Gửi bàigửi bởi neverland87 » T.Sáu 30/05/2008 12:22 am

Thủ thuật: Chỉ cho phép ứng dụng VB.NET chạy trên Windows XP
Tác giả: Tổng hợp
Mô tả: Chỉ cho phép ứng dụng VB.NET chạy trên Windows XP


Mã: Chọn hết

  1. Public Class Form1
  2.  
  3.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  4.         'nếu không phải hệ điều hành Windows XP
  5.         If My.Computer.Info.OSFullName <> "Microsoft Windows XP Professional" Then
  6.             'Đưa ra câu thông báo pro như của bác Bill ^_^
  7.             MsgBox("Some features in this application may not work as it requires Microsoft Windows XP Professional", , "Compatability Warning")
  8.             'kết thúc chương trình luôn
  9.             Return
  10.         End If
  11.     End Sub
  12. End Class


Hoặc dùng C# như sau:


Mã: Chọn hết

  1.            Microsoft.VisualBasic.Devices.Computer myComputer
  2.                = new Microsoft.VisualBasic.Devices.Computer();
  3.             string OSFullName = myComputer.Info.OSFullName;
  4.             if (OSFullName != "Microsoft Windows XP Professional")
  5.             {
  6.                 Console.WriteLine("Not Microsoft Windows XP Professional");
  7.             }
  8.             else
  9.             {
  10.                 Console.WriteLine(myComputer.Info.OSFullName);
  11.             }
  12.             Console.ReadKey();
  13.  


SIMPLY THE BEST - ĐƠN GIẢN LÀ TỐT NHẤT

Hình đại diện của người dùng
vo_minhdat2007
Quản trị
Quản trị
Bài viết: 2227
Ngày tham gia: CN 17/07/2005 1:40 am
Has thanked: 13 time
Been thanked: 87 time
Liên hệ:

Re: Chỉ cho phép ứng dụng VB.NET chạy trên Windows XP

Gửi bàigửi bởi vo_minhdat2007 » T.Ba 10/03/2009 9:24 pm

Cái này em mà dùng XP Home hay 64 bit thì tiêu chắc :D
Chỉ vầy thôi đủ rồi :

Mã: Chọn hết

  1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2.         'nếu không phải hệ điều hành Windows XP
  3.         If InStr(My.Computer.Info.OSFullName, "Windows XP") = 0 Then 'hoặc chỉ XP thôi cũng được
  4.             'Đưa ra câu thông báo pro như của bác Bill ^_^
  5.             MsgBox("Some features in this application may not work as it requires Microsoft Windows XP", , "Compatability Warning")
  6.             'kết thúc chương trình luôn
  7.             Return
  8.         End If
  9.     End Sub


Quay về “[.NET] Hệ thống - Tập tin - Thư mục và Mạng”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách