Private Sub Command1_Click
Form1.Controls.Add "VB.CommandButton", "txtText", Form1
With Form1!txtText
Visible = True
Top = 100
Left = 100
Width = 4000
Height = 500
Font.Size = 18
"Caption = "Command1
End With
End Sub
لطفا قبل از خصوصیتها علامت نقطه قرار دهید.
نمایش دادن پیغام در هنگام بالا آمدن ویندوز
اگر بخواهید در هنگام بوت شدن ویندوز ایکس پی یک پیغام خوش آمد گویی یا هر پیغام دیگری که لازم باشد به اطلاع
کاربران برسد به نمایش در آید به این ترتیب عمل کنید :
به کلید زیر بروید :
HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsNTCurrent VersionWinlogon
را با هر اسم دیکری که میخواهید روی پنجره پیغامتان باشد عوض کنید . کلید legalnoticecaption کلید
را به هر پیغامی که میخواهید دردل پنجره ی پیغام به نمایش درآید تغییر دهید کامپیوترتان را از نو Legalnoticetext
بوت کنید تا تغییرات را ملاحظه نمایید.
به نام خدا
دانشجوی گرامی
لطفا اگر انتقاد یاپیشنهادی در مورد کلاس ها دارید نظر خود را بامن درمیان قرار دهید.
با تشکر
علیرضا شیرمحمدی یزدی
کد:
Option Explicit
Private Declare Function SendMessage _
Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Function ExitWindowsEx _
Lib "user32" _
(ByVal uflags As Long, _
ByVal dwReserved As Long) As Long
Private Const EWX_Logoff = 0
Private Const EWX_Force = 4
Private lngNum As Long
Private Sub cmdLogoff_Click
ExitWindowsEx EWX_Logoff, ByVal 0&
End Sub
مخفی کردن سطل زباله :
اگر بخواهید یک میز گار تر و تمیز داشته باشید شاید بهتر باشد سطل آشغال را از آن بردارید از آن جا که این کار
مستلزم پاک کردن یک کلید در رجیستری میباشد توصیه میکنم قبل از این کار یک نسخه پشتیبان از این کلید بگیرید .
خوب حالا به سراغ کلید زیر بروید :
HKEY_LOCAL_MACHINESoftwareMicrosoftWindowscurrent version ExplorerDesktopNamespace
اکنون کلیدی که در قاب سمت چپ با این برچسب مشخص شده است حذف کنید :
{645ff040-5081-101b-9f08-00aa002f954e}
این کار باعث از بین رفتن کلی سطل زباله نمیشود اما جلوی دسترسی کاربران به آن را میگیرد.