Các chiêu thức trong lập trình

62 1K 5
Các chiêu thức trong lập trình

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

Thông tin tài liệu

Các chiêu thức trong lập trình

Chiêu thức lập trình VB 6.0Tác giả : Lê Nguyên DũngLớp 12C1 trường THPT Đăk Nông (Thị xã Gia Nghĩa - Đ ăk Nông)Email : dungcoivb@gmail.comNick : dungcoi_vb Địa chỉ nhà : Thôn 1, thị trấn Đăk Mâm Huyện Krông Nô Tỉnh Đắk Nông Tác giả : Lê Nguyên Dũng lớp 12C1 trường THPT Đăk Nông Trang 1 Chiêu thức lập trình VB 6.0Lời nói đầuDù tài liệu này không có mấy người đọc nhưng dù sao với trách nhiệm và sự “Rãnh rỗi” của mình mình sẽ tiếp tục bổ xung thêm cuốn tài liệu này đến khi nào có thểTrong sách tôi xin chỉ rõ xuất xứ, mong rằng các ban cũng sẽ tôn trọng tác giả không chỉnh sửa tác giả hay các xuất xứCuốn sách này đi theo định hướng là sử dụng các hàm API hoặc các lệnh đơn giản để tạo thành những thủ thuật và hạn chế tối đa phải sử dụng các công cụ hỗ trợ.Cuốn tài liệu được chia sẽ hoàn toàn miễn phí. Nếu có thắc mác bạn hãy liên hệ với tác giả. Tác giả : Lê Nguyên Dũng lớp 12C1 trường THPT Đăk Nông Trang 2 Chiêu thức lập trình VB 6.0Mục lụcĐôc chiêu 1 : “Thả một câu từ trên cao xuống” (Có thể nói nh ư vậy) Đôc chiêu 2 : Hiện một câu bằng cách lần lượt hiện từng chữĐôc chiêu 3 : Hiện con trỏ động tại một đối t ượng nào đó Đôc chiêu 4 : Form có hình dạng theo một hình ảnh bất k ỳĐôc chiêu 5 : “Chụp ảnh màn hình vào một Picture”Đôc chiêu 6 : “Vô hiệu hoá button close và menu của form (cả Alt-F4 luôn)”Đôc chiêu 7 : “Kéo form di chuyển từ một điểm bất kỳ”Đôc chiêu 8 : “Ghi lại tất cả những phím gõ tên bàn phím” Đôc chiêu 9 : Đóng một ứng dụng bất kỳĐôc chiêu 10 : Tạo phím nóng cho chương trình Đôc chiêu 11 : Thay đổi hình nền cho DesktopĐôc chiêu 12 : Đóng mở khay CD-ROMĐôc chiêu 13 : Tạo một SystemTray cho ứng dụng của bạnĐôc chiêu 14 : Thay đổi Font tiếng việt cho Menu của WindowĐôc chiêu 15 : So sánh hai ảnhĐôc chiêu 16 : Liệt kê danh sách các thành phần phần cứng trong máyĐôc chiêu 17 : Chương trình khởi động cùng với WindownsĐôc chiêu 18 : Play một file nhạc MidiĐôc chiêu 19 : Khoá một file ảnh định dạng .bmpĐôc chiêu 20 : Để form của bạn ở chế độ “Luôn nổi”Đôc chiêu 21 : TextBox chỉ “Chịu” nhận sốĐôc chiêu 22 : Để form trở nên trong suốtĐôc chiêu 23 : Lấy tên người sử dung của WindownsĐôc chiêu 24 : Chép cả màn hình làm việc vào một PictureĐôc chiêu 25 : Dấu dữ liệu dạng text vào 1 file bất kỳĐôc chiêu 26 :Mở từng hộp thoại trong Control Panel Đôc chiêu 27 : Mã hoá dữ liệu dạng text Đôc chiêu 28 : Lấy mật khẩu khi đang Chat trên YahooĐôc chiêu 29 : Biến giao diện chương trình theo phong cách Windowns XP Đôc chiêu 30 : Làm cho ứng dụng từ từ rõ dần khi Load và mờ dần khi UnloadĐôc chiêu 31 : Không cho dịch ngược phần mềm của bạnĐôc chiêu 32 : Lấy kiểu (Type) của đĩa Đôc chiêu 33 : Ẩn thanh Taskbar hoặc các thành phần khácĐôc chiêu 34 : Nhìn Windowns XP CD KeyĐôc chiêu 35 : Tùy chọn hộp thoại thông báo của chương trìnhĐôc chiêu 36 : Đưa con trỏ đến một vị trí nhất địnhĐôc chiêu 37 : Hiệu ứng khi Click vàoĐôc chiêu 38 : Hàm dùng để đoc số ra chữĐôc chiêu 39 : Để chương trình bạn có giao diện “Nữa trong suốt”Đôc chiêu 40 : Gửi thông điệp tới một máy tinh bất kỳĐôc chiêu 41 : Quét tất cả các máy trong mạng LANĐôc chiêu 42 : Liệt kê tất cả các tài nguyên mạng đang trong trạng thái “Mở”Đôc chiêu 43 : Kiểm tra máy tính của bạn có kết nối Internet hay khôngĐôc chiêu 44 : Liệt kê tất cả các Process đang hoạt động trong máy Tác giả : Lê Nguyên Dũng lớp 12C1 trường THPT Đăk Nông Trang 3 Chiêu thức lập trình VB 6.0Đôc chiêu 1 : “Thả một câu từ trên cao xuống” (Có thể nói như vậy) home Xuất xứ : www.pscode.comBinh khí sử dụng : Một Picture và một CommandButtonĐoạn mã :Option ExplicitPrivate Sub command1_Click() Randomize Timer 'Khởi tạo ‘Khai báo Dim StartTime(100) 'Thời gian bắt đầu di chuyển lên xuống Dim DownMovement(100) As Boolean ' Chúng ta phải lên xuông bao nhiêu ?????? Dim MoveDistance As Double ' Khoảng cách đích đến Dim YPos(100) As Double ' Tọa độ Y của chữ Dim MovementDone(100) As Boolean ' Là đúng khi lên / xuống hoàn thành Dim StartHeight(100) As Double ' Chiều cào phải đi xuống ??? Dim UpMovementTime(100) As Double ' Chiều dài mà ký tự sẽ lấy để đi lên Dim PowerLoss(100) As Double ' Đã chạm tới điểm dưới dung ????? Dim Message As String ' Thông điệp bạn cần hiển thị Dim Looop As Integer ' Biến vòng lặp Dim TextColor(100) As ColorConstants ' Màu sắc của mỗi ký tự ' Thiết lập picture1.ScaleMode = 4 picture1.FontName = "Courier New" ' Font chữ của ký tự Message = "Ô hiệu ứng chữ !!! Mail của tác giả nè (-_-) : overkillpage@gmx.net" ' Thông điệp bạn muốn hiển thị For Looop = 1 To Len(Message) PowerLoss(Looop) = 0.2 + ((Rnd * 25) / 100) StartHeight(Looop) = 0 TextColor(Looop) = RGB(80 + Looop * 2, 80 + Looop * 2, 255) Next Looop For Looop = 1 To Len(Message) StartTime(Looop) = Timer 'Đặt thời gian xuống, cần phải tính tóan vị trí Next Looop Do picture1.Cls ' Xóa Picture ‘ Vòng lặp để tiến hành đếm từng ký tự For Looop = 1 To Len(Message) If DownMovement(Looop) = True Then MoveDistance = (StartHeight(Looop) + (0.5 * 9.81 * ((Timer - StartTime(Looop)) ^ 2))) ' Tính khoảng cách rơi Tác giả : Lê Nguyên Dũng lớp 12C1 trường THPT Đăk Nông Trang 4 Chiêu thức lập trình VB 6.0 If YPos(Looop) >= picture1.ScaleHeight - 1 Then MovementDone(Looop) = True ' Ký tự chạm phần đáy dưới Downmovement (Di chuyển xuống) hoàn thành Else MoveDistance = (StartHeight(Looop) + (0.5 * 9.81 * (UpMovementTime(Looop) - (Timer - StartTime(Looop))) ^ 2)) ' Yónh khoảng cách rơi If YPos(Looop) <= StartHeight(Looop) + 0.1 Then MovementDone(Looop) = True ' Ký tự chạm đến điểm cao nhất upmovement (Di chuyển lên trên) hòan thành End If YPos(Looop) = MoveDistance If YPos(Looop) > picture1.ScaleHeight - 1 Then ' Nếu ký tự thỏa điều kiện này phải sửa lại chúng YPos(Looop) = picture1.ScaleHeight - 1 ' Tại vị trí dưới cùng End If picture1.CurrentX = picture1.ScaleWidth / 2 - Int((Len(Message) / 2)) + Looop picture1.CurrentY = YPos(Looop) ' Đặt vị tọa độ Y cho ký tự picture1.ForeColor = TextColor(Looop) ' Đặt màu cho ký tự picture1.Print Mid(Message, Looop, 1) ' Đặt chử vào picture1 Next Looop DoEvents For Looop = 1 To Len(Message) If MovementDone(Looop) = True Then If DownMovement(Looop) = True Then ' Khoảng cách chuyển đổi giữa up/downmovement (Di chuyển lên/Di chuyển xuống) DownMovement(Looop) = False StartHeight(Looop) = StartHeight(Looop) + ((picture1.ScaleHeight - StartHeight(Looop)) * PowerLoss(Looop)) ' Startheight mới, bởi vì tốc độ bị sai ?!?! UpMovementTime(Looop) = Sqr((picture1.ScaleHeight - StartHeight(Looop)) / (0.5 * 9.81)) ' D9ộ dài bao nhiêu sẽ upmovement (Di chuyển lên trên) sau đó??? Else DownMovement(Looop) = True End If StartTime(Looop) = Timer ' Đặt thời gian bắt đầu di chuyển MovementDone(Looop) = False End If Next Looop Loop ' Đến khi StartHeight = picture1.ScaleHeight Tác giả : Lê Nguyên Dũng lớp 12C1 trường THPT Đăk Nông Trang 5 Chiêu thức lập trình VB 6.0End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) EndEnd SubĐôc chiêu 2 : Hiện một câu bằng cách lần lượt hiện từng chữ home Xuất xứ : www.pscode.comBinh khí sử dụng : Một Module , ba CommandButton lần lượt có các tên cmdStart, cmdClear, cmdExit, thêm hai cái đồng hồ tên là Timer1 (Interval =50) và Timer2(Interval =5) cả hai cái đồng hồ đều phải Enabled= False cuối cùng là một label tên là lblText Đoạn mã :Module :Public ASCC(5) As StringPublic Letters() As String ' Chuỗi ký tựPublic TXT As StringPublic CurLetter As IntegerPublic TEXTT As StringPublic r As IntegerForm :Private Sub cmdClear_Click()lblText.Caption = ""End SubPrivate Sub cmdExit_Click()EndEnd SubPrivate Sub cmdStart_Click()TXT = InputBox("Enter Text") ' Nhập ký tựReDim Preserve Letters(0)ReDim Preserve Letters(Len(TXT))lblText = ""CurLetter = 0For l = 1 To Len(TXT) Letters(l) = Mid(TXT, l, 1)NextTimer2.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()r = r + 1lblText.Caption = TEXTTlblText.Caption = lblText.Caption & "_"If r = 6 Thenr = 0 If 65 < Asc(Letters(CurLetter)) < 90 Then lblText.Caption = TEXTT lblText.Caption = lblText.Caption & Letters(CurLetter) TEXTT = lblText Timer2.Enabled = True Timer1.Enabled = False Else lblText.Caption = TEXTT lblText.Caption = lblText.Caption & Chr$(Asc(Letters(CurLetter)) - 32) TEXTT = lblText Timer2.Enabled = True Timer1.Enabled = False End If Tác giả : Lê Nguyên Dũng lớp 12C1 trường THPT Đăk Nông Trang 6 Chiêu thức lập trình VB 6.0End If End SubPrivate Sub Timer2_Timer()CurLetter = CurLetter + 1If CurLetter > Len(TXT) Then GoTo HERE:End IfTEXTT = lblTextTimer1.Enabled = TrueTimer2.Enabled = FalseHERE:Timer2.Enabled = FalseEnd SubĐôc chiêu 3 : Hiện con trỏ động tại một đối tượng nào đó home Xuất xứ : www.ttvnol.comBinh khí sử dụng : Chỉ cần một cái FormĐoạn mã :'Hằng được sử dụng private Const ConTro=(-12) 'Các hàm API được sử dụngPrivate Declare Function SetClasslong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long Dim NewCur as longDim OldCur as long Private Sub Form_Load'Giả sử rằng bạn đã có sẵn file Clock.ani ở ổ C:\NewCur=LoadCursorFromFile("C:\Clock.ani")OldCur=SetClassLong(Me.hwnd, ConTro,NewCur)End sub Private Sub Form_UnLoad(Cancel as Integer)SetClassLong me.hwnd, Contro,OldCurEnd Sub - Ta rút ra được một “Công thức” : Thay vì đặt con trỏ động trong Form ta có thể thay Me.hwnd trong dòng lệnh : OldCur=SetClassLong(Me.hwnd, ConTro,NewCur) bằng đối tựợng.hwnd (Nếu đối tượng đó hổ trợ )Đôc chiêu 4 : Form có hình dạng theo một hình ảnh bất kỳ (Tất nhiên có màu tượng trưng cho form trong suốt) home Chú ý : Phần này trong lần xuất bản 1 có lỗiXuất xứ : www.pscode.comBinh khí sử dụng : - 1 picture mang tên : picMainSkin trong đó có chứa sẵn một hình ảnh bất kỳ mà bạn muốn làm giao diện chương trình màu tượng trưng cho trong suốt là màu ở câu lệnh TransparentColor = GetPixel(hDC, 0, 0) có nghĩa là sẽ chính là màu của điểm có tọa độ (0,0) trên Picture này đây chính là một trong những điểm thú vị của đọan Code này. Tác giả : Lê Nguyên Dũng lớp 12C1 trường THPT Đăk Nông Trang 7 Chiêu thức lập trình VB 6.0- 1 ModuleĐoạn mã :‘Trong Module :Option ExplicitPublic Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As LongPublic Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As LongPublic Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPublic Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As LongPublic Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPublic Declare Function ReleaseCapture Lib "user32" () As LongPublic Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As LongPublic Const RGN_OR = 2Public Const WM_NCLBUTTONDOWN = &HA1Public Const HTCAPTION = 2Public Function MakeRegion(picSkin As PictureBox) As Long Dim x As Long, y As Long, StartLineX As Long Dim FullRegion As Long, LineRegion As Long Dim TransparentColor As Long Dim InFirstRegion As Boolean Dim InLine As Boolean Dim hDC As Long Dim PicWidth As Long Dim PicHeight As Long hDC = picSkin.hDC PicWidth = picSkin.ScaleWidth PicHeight = picSkin.ScaleHeight InFirstRegion = True: InLine = False x = y = StartLineX = 0 TransparentColor = GetPixel(hDC, 0, 0) For y = 0 To PicHeight - 1 For x = 0 To PicWidth - 1 If GetPixel(hDC, x, y) = TransparentColor Or x = PicWidth Then If InLine Then InLine = False LineRegion = CreateRectRgn(StartLineX, y, x, y + 1) If InFirstRegion Then FullRegion = LineRegion InFirstRegion = False Else CombineRgn FullRegion, FullRegion, LineRegion, RGN_OR DeleteObject LineRegion End If End If Else If Not InLine Then InLine = True StartLineX = x End If Tác giả : Lê Nguyên Dũng lớp 12C1 trường THPT Đăk Nông Trang 8 Chiêu thức lập trình VB 6.0 End If Next Next MakeRegion = FullRegionEnd Function‘Trong Form: Option ExplicitPrivate Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongConst SWP_NOMOVE = 2Const SWP_NOSIZE = 1Const FLAGS = SWP_NOMOVE Or SWP_NOSIZEPrivate Sub Form_Load() Dim WindowRegion As Long picMainSkin.ScaleMode = vbPixels picMainSkin.AutoRedraw = True picMainSkin.AutoSize = True picMainSkin.BorderStyle = vbBSNone Me.BorderStyle = vbBSNone Set picMainSkin.Picture = picMainSkin.Picture Me.Width = picMainSkin.Width Me.Height = picMainSkin.Height WindowRegion = MakeRegion(picMainSkin) SetWindowRgn Me.hwnd, WindowRegion, TrueEnd SubPrivate Sub picMainSkin_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) ReleaseCapture SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&End SubĐôc chiêu 5 : “Chụp ảnh màn hình vào một Picture” home Xuất xứ : www.ttvnol.comBinh khí sử dụng : Một Picture và một CommandButtonĐoạn mã :Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long Private Sub Command1_Click()Dim wScreen As LongDim hScreen As LongDim w As LongDim h As LongPicture1.Cls wScreen = Screen.Width \ Screen.TwipsPerPixelXhScreen = Screen.Height \ Screen.TwipsPerPixelY Picture1.ScaleMode = vbPixelsw = Picture1.ScaleWidthh = Picture1.ScaleHeight hdcScreen = GetDC(0) Tác giả : Lê Nguyên Dũng lớp 12C1 trường THPT Đăk Nông Trang 9 Chiêu thức lập trình VB 6.0r = StretchBlt(Picture1.hdc, 0, 0, w, h, hdcScreen, 0, 0, wScreen, hScreen, vbSrcCopy) End Sub Đôc chiêu 6 : “Vô hiệu hoá button close và menu của form (cả Alt-F4 luôn)” home Xuất xứ : www.ttvnol.comBinh khí sử dụng : Chẳng cần gì ta chỉ cần tay không bắt hổĐoạn mã :Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As LongPrivate Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Const MF_BYPOSITION = &H400& Private ReadyToClose As BooleanPrivate Sub RemoveMenus(frm As Form, _remove_restore As Boolean, _remove_move As Boolean, _remove_size As Boolean, _remove_minimize As Boolean, _remove_maximize As Boolean, _remove_seperator As Boolean, _remove_close As Boolean)Dim hMenu As LonghMenu = GetSystemMenu(hwnd, False)If remove_close Then DeleteMenu hMenu, 6, MF_BYPOSITIONIf remove_seperator Then DeleteMenu hMenu, 5, MF_BYPOSITIONIf remove_maximize Then DeleteMenu hMenu, 4, MF_BYPOSITIONIf remove_minimize Then DeleteMenu hMenu, 3, MF_BYPOSITIONIf remove_size Then DeleteMenu hMenu, 2, MF_BYPOSITIONIf remove_move Then DeleteMenu hMenu, 1, MF_BYPOSITIONIf remove_restore Then DeleteMenu hMenu, 0, MF_BYPOSITIONEnd Sub Private Sub cmdClose_Click()ReadyToClose = TrueUnload MeEnd Sub Private Sub Form_Load()RemoveMenus Me, False, False, _False, False, False, True, TrueEnd Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Cancel = Not ReadyToCloseEnd Sub Đôc chiêu 7 : “Kéo form di chuyển từ một điểm bất kỳ” home Xuất xứ : www.allapi.netBinh khí sử dụng : Lại cũng tay không tập bắt hổĐoạn mã : Tác giả : Lê Nguyên Dũng lớp 12C1 trường THPT Đăk Nông Trang 10 [...]... điệp tới một máy tinh bất kỳ Đôc chiêu 41 : Quét tất cả các máy trong mạng LAN Đôc chiêu 42 : Liệt kê tất cả các tài nguyên mạng đang trong trạng thái “Mở” Đôc chiêu 43 : Kiểm tra máy tính của bạn có kết nối Internet hay khơng Đơc chiêu 44 : Liệt kê tất cả các Process đang hoạt động trong máy Tác giả : Lê Nguyên Dũng lớp 12C 1 trường THPT Đăk Nông Trang 3 Chiêu thức lập trình VB 6.0 End If End Sub Private... bạn Đôc chiêu 32 : Lấy kiểu (Type) của đĩa Đôc chiêu 33 : Ẩn thanh Taskbar hoặc các thành phần khác Đơc chiêu 34 : Nhìn Windowns XP CD Key Đơc chiêu 35 : Tùy chọn hộp thoại thông báo của chương trình Đơc chiêu 36 : Đưa con trỏ đến một vị trí nhất định Đơc chiêu 37 : Hiệu ứng khi Click vào Đôc chiêu 38 : Hàm dùng để đoc số ra chữ Đơc chiêu 39 : Để chương trình bạn có giao diện “Nữa trong suốt” Đôc chiêu. .. ảnh Đôc chiêu 16 : Liệt kê danh sách các thành phần phần cứng trong máy Đôc chiêu 17 : Chương trình khởi động cùng với Windowns Đơc chiêu 18 : Play một file nhạc Midi Đơc chiêu 19 : Khố một file ảnh định dạng .bmp Đôc chiêu 20 : Để form của bạn ở chế độ “Luôn nổi” Đôc chiêu 21 : TextBox chỉ “Chịu” nhận số Đôc chiêu 22 : Để form trở nên trong suốt Đôc chiêu 23 : Lấy tên người sử dung của Windowns Đơc chiêu. .. 12C 1 trường THPT Đăk Nông Trang 17 Chiêu thức lập trình VB 6.0 Mục lục Đơc chiêu 1 : “Thả một câu từ trên cao xuống” (Có thể nói nh ư vậy) Đôc chiêu 2 : Hiện một câu bằng cách lần lượt hiện từng chữ Đôc chiêu 3 : Hiện con trỏ động tại một đối t ượng nào đó Đơc chiêu 4 : Form có hình dạng theo một hình ảnh bất k ỳ Đơc chiêu 5 : “Chụp ảnh màn hình vào một Picture” Đơc chiêu 6 : “Vơ hiệu hoá button close... luôn)” Đôc chiêu 7 : “Kéo form di chuyển từ một điểm bất kỳ” Đôc chiêu 8 : “Ghi lại tất cả những phím gõ tên bàn phím” Đơc chiêu 9 : Đóng một ứng dụng bất kỳ Đơc chiêu 10 : Tạo phím nóng cho chương trình Đơc chiêu 11 : Thay đổi hình nền cho Desktop Đơc chiêu 12 : Đóng mở khay CD-ROM Đôc chiêu 13 : Tạo một SystemTray cho ứng dụng của bạn Đôc chiêu 14 : Thay đổi Font tiếng việt cho Menu của Window Đôc chiêu. .. làm việc vào một Picture Đôc chiêu 25 : Dấu dữ liệu dạng text vào 1 file bất kỳ Đôc chiêu 26 :Mở từng hộp thoại trong Control Panel Đôc chiêu 27 : Mã hố dữ liệu dạng text Đơc chiêu 28 : Lấy mật khẩu khi đang Chat trên Yahoo Đôc chiêu 29 : Biến giao diện chương trình theo phong cách Windowns XP Đôc chiêu 30 : Làm cho ứng dụng từ từ rõ dần khi Load và mờ dần khi Unload Đôc chiêu 31 : Không cho dịch ngược... Dũng lớp 12C 1 trường THPT Đăk Nông Trang 41 Chiêu thức lập trình VB 6.0 Tác giả : Lê Nguyên Dũng Lớp 12C 1 trường THPT Đăk Nông (Thị xã Gia Nghĩa - Đ ăk Nông) Email : dungcoivb@gmail.com Nick : dungcoi_vb Địa chỉ nhà : Thôn 1, thị trấn Đăk Mâm Huyện Krông Nô Tỉnh Đắk Nông Tác giả : Lê Nguyên Dũng lớp 12C 1 trường THPT Đăk Nông Trang 1 Chiêu thức lập trình VB 6.0 SetTimer Me.hwnd, 0, 1, AddressOf... picMainSkin trong đó có chứa sẵn một hình ảnh bất kỳ mà bạn muốn làm giao diện chương trình màu tượng trưng cho trong suốt là màu ở câu lệnh TransparentColor = GetPixel(hDC, 0, 0) có nghĩa là sẽ chính là màu của điểm có tọa độ (0,0) trên Picture này đây chính là một trong những điểm thú vị của đọan Code này. Tác giả : Lê Nguyên Dũng lớp 12C 1 trường THPT Đăk Nông Trang 7 Chiêu thức lập trình VB... này. Chú ý : Trong thực tế ứng dụng (Để chương trình bạn mang tính “Pro” hơn bạn nên sử dụng kết hợp Resource với File này. Bạn sẽ được biết một (Hoặc vài) cách sử dụng Resource cực kỳ hiệu quả thông qua một chiêu ở sau (Chú ý hiện này do chưa có thời gian nên Dũng cịi chưa cập nhật cho cuốn tài liệu chiêu này. Trong lần cập nhật sau sẽ có ) Đoạn mã : Bạn copy đoạn code sau vơ chương trình soạn thảo... </dependentAssembly> Tác giả : Lê Nguyên Dũng lớp 12C 1 trường THPT Đăk Nông Trang 42 Chiêu thức lập trình VB 6.0 End Function Đơc chiêu 35 : Tùy chọn hộp thoại thơng báo của chương trình home Binh khí : Cần 2 nút ấn với tên CmdTest và cmdTest1, một Module Xuất xứ : www.pscode.com Đoạn mã Trong Module Option Explicit Private Declare Function GetCurrentThreadId Lib "kernel32" . Trang 2 Chiêu thức lập trình VB 6.0Mục lụcĐôc chiêu 1 : “Thả một câu từ trên cao xuống” (Có thể nói nh ư vậy) Đôc chiêu 2 : Hiện một câu bằng cách lần. “Nữa trong suốt”Đôc chiêu 40 : Gửi thông điệp tới một máy tinh bất kỳĐôc chiêu 41 : Quét tất cả các máy trong mạng LANĐôc chiêu 42 : Liệt kê tất cả các

Ngày đăng: 17/08/2012, 10:59

Hình ảnh liên quan

Đơc chiêu 5: “Chụp ảnh màn hình vào một Picture” home - Các chiêu thức trong lập trình

c.

chiêu 5: “Chụp ảnh màn hình vào một Picture” home Xem tại trang 9 của tài liệu.
Đơc chiêu 11: Thay đổi hình nền cho Desktop home - Các chiêu thức trong lập trình

c.

chiêu 11: Thay đổi hình nền cho Desktop home Xem tại trang 13 của tài liệu.
''Mã nguồn so sánh hai hình ảnh cĩ định dạng bất kì Được viết bởi khunglongbeo - Các chiêu thức trong lập trình

ngu.

ồn so sánh hai hình ảnh cĩ định dạng bất kì Được viết bởi khunglongbeo Xem tại trang 26 của tài liệu.
Bạn chạy thử và xem điều gì sẽ xảy ra. Chương trình sẽ chạy rất chậm nếu như hình cĩ kích thước lớn - Các chiêu thức trong lập trình

n.

chạy thử và xem điều gì sẽ xảy ra. Chương trình sẽ chạy rất chậm nếu như hình cĩ kích thước lớn Xem tại trang 27 của tài liệu.
Me.Print &#34;Tên của card màn hình : &#34; + Left$(DD.DeviceString, InStr(1, DD.DeviceString, Chr$(0)) - 1) - Các chiêu thức trong lập trình

e..

Print &#34;Tên của card màn hình : &#34; + Left$(DD.DeviceString, InStr(1, DD.DeviceString, Chr$(0)) - 1) Xem tại trang 30 của tài liệu.

Từ khóa liên quan

Tài liệu cùng người dùng

  • Đang cập nhật ...

Tài liệu liên quan