نفر بعدي كيه ؟ --------- ( ! يك تاپيك جالب و متفاوت ! )

[kuh_nur]

یادش بخیر، عجب تاپیک با حالی بود

نکته ویژوالی :

آیا می دانی که به جای علامت ' براي خط توضيحات، میشه از کلمه Rem استفاده کرد

[modirmasool]

بله میدونم.

نکته ویژوالی :

شما با اضافه کردن ; و , بعد از دستور Print فرم میتونین نحوه چاپ بر روی فرم رو تغییر بدین.
برنامه نمونه اش رو گذاشتم.

نفر بعدی حتما مثل من بار اولشه که این تاپیک رو میبینه.

[kuh_nur]

نخیر من دفعه اولم نیست

نکته ویژوالی :

روش اتصال به بانک اکسس

Dim Cn As New ADODB.Connection

Dim Rs As New ADODB.Recordset



Private Sub Form_Load()

Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

     "Data Source=" & App.Path & "\Access.mdb;" & _

     "Mode=ReadWrite;" & _

     "Persist Security Info=False;" & _

     "Jet OLEDB:Database Password = 1"

Cn.Open

Rs.CursorLocation = adUseClient

Rs.Open "Table1", Cn, adOpenStatic, adLockPessimistic

End Sub

آیا اصلا نفر بعدی هم هست ؟

[ramzdar]

شک نکن هنوز هم نفر بعدی هست!!!

نکته ویژوالی :

با این کد میتونید آدرس یه سایت رو با مرورگر پیشفرض باز کنید.
کافیه کد رو توی یه ماژول قرار بدید و بعد توی یه دکمه بگین بره توی چه سایتی.

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Const SW_SHOWNORMAL = 1



Public Function OpenX(YourURL As String) As Boolean

OpenX = ShellExecute(&O0, "Open", YourURL, vbNullString, vbNullString, 4)

End Function

مثلاً توی دکمه بنویسید:

OpenX "www.barnamenevis.org"

فقط یادتون باشه که www. یا http:// اولش باشه مثلاً:
www.barnamenevis.org یا http://www.barnamenevis.org یا https://barnamenevis.org

نفر بعدي kuh_nur خواهد بود.

[ehsanocx]

نکته ویژوالی :

انتخاب چند فایل

Private Sub cmdOpen_Click()



On Error GoTo ErrHandler

Dim vFiles As Variant

Dim lFile As Long



With CommonDialog1

    .FileName = "" 'Clear the filename

    .CancelError = True

    .DialogTitle = "Select File(s)..."

    .Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNHideReadOnly 'Flags, allows Multi select, Explorer style and hide the Read only tag

    .Filter = "All files (*.*)|*.*"

    .ShowOpen

    vFiles = Split(.FileName, Chr(0)) 'Splits the filename up in segments

    If UBound(vFiles) = 0 Then ' If there is only 1 file then do this

        List1.AddItem .FileName

        List2.AddItem .FileTitle

    Else

        For lFile = 1 To UBound(vFiles) ' More than 1 file then do this until there are no more files

            List1.AddItem vFiles(0) + "\" & vFiles(lFile)

            List2.AddItem vFiles(lFile)

        Next

    End If

End With



Exit Sub

ErrHandler:

If Err <> cdlCancel Then

    MsgBox Err.Description

End If



End Sub

نفر بعدی لطفا به این تایپیک من پاسخ بده. با تشکر
https://barnamenevis.org/showthread.php?t=237971

[ehsanocx]

بازم خودم :

نکته ویژوالی :

بدست آوردن ریزولیشن صفحه

ین کدها رو تو یه دکمه کپی کنید:

 Dim intWidth As Integer

Dim intHeight As Integer

intWidth = Screen.Width \ Screen.TwipsPerPixelX

intHeight = Screen.Height \ Screen.TwipsPerPixelY

MsgBox "Screen Resolution:" + vbCrLf + vbCrLf + Str$(intWidth) + " x" + Str$(intHeight), 64, "Info"

نفر بعدی یه آدم باحال و دوست داشتنیه

[juggle]

نکته ویژوالی :

قرار دادن متن به صورت عمودی در یک کنترل Text Box
ابتدا یک کنترل Picture Box به فرم اضافه کنید. که به طور پیش فرض Picture1 ایجاد می شود. خصوصیت AuotRedraw کنترل مذبور را به True تنظیم کنید. بعد یک کنترل Text Box به فرم روی کنترل Picture Box اضافه کنید. Text1 به وجود می اید و سپس خصوصیت MultiLine این را به True تنظیم کنید. بعد این کدها را در فرمتون کپی کنید

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

Const WM_USER = &H400

Const EM_GETLINECOUNT = &HBA

Dim numlines As Long



Private Sub Form_Load()

Dim ht As Integer

Text1.Left = 0

Text1.Height = Picture1.Width - 400

Text1.Width = Picture1.TextHeight("A")

Text1.Top = (Picture1.Height - Text1.Height) / 2 + 170

Text1.Visible = True

numlines = 1

End Sub



Private Sub Text1_Change()

Dim ret As Long

Dim ht As Long

ret = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, ByVal 0&)

If ret <> numlines Then

ht = Picture1.TextHeight("A")

Text1.Top = (Picture1.Height - Text1.Height) / 2 + 170

numlines = ret

SendKeys "{PGUP}", True

Text1.SelStart = Len(Text1)

End If

End Sub

نفر بعدی یه کاربر عادی مثل من نیست.

[vbhamed]

ما همه عادي هستيم

نكته ويژوالي :

توابع مفيد Choose و Switch

تابع Choose براي انتخاب از بين چند مقدار با توجه به يك انديس

Dim x%



Do

    x = Val(InputBox("شماره روز هفته را وارد نماييد :"))



Loop While x < 1 Or x > 7



MsgBox Choose(x, "شنبه", "يكشنبه", "دوشنبه", "سه شنبه", "چهارشنبه", "پنجشنبه", "جمعه")

تابع Switvh براي تست چند شرط مختلف

Dim x!



x = Val(InputBox("معدل را وارد نماييد :"))



MsgBox Switch(x >= 18, "عالي", x >= 16, "خوب", x >= 12 And x < 16, "متوسط", x < 12, "ضعيف")

نفر بعدي داره فكر مي كنه چقدر تو برنامش مي تونست از اين توابع استفاده كنه !

[mds_boy]

نه داداش این کد رو قبلا استفاده میکردم، اما تازگیها کمی کم رنگ شده

نکته ویژوالی :

البته این رو برای تازه کارها مینویسم، 2 مورد هستش:
1- برای اینکه دقت نقطه های صفحه Design فرمتون بیشتر بشه از مسیر زیر استفاده کنید :

Tools Menu -> Options -> General

و دو خصیصه width را به 24 و Height را هم به 24 تغییر دهید، با اینکار شما کنترل راحتی تو حرکت اشیاعتون در حالته دیزاین دارید.

2- آیا میدونستی که در اوله کار، یعنی بعد از ساخته فرم، همون اول برید و فونت فرم را به فونته دلخواه با سایزه دلخواه تغییر دهید، کله اشیاء اون فرم، همون خصیصه رو از فرم میگیرند ؟!!!
این نکته ی دومی رو حتی استادم با اون همه سابقش تو کف موند !!! البته برای ما هیچه .

و اما : نوبت به ما رسید، نفره بعدی الان خوابه(ساعت: 1:11 بامداد) ، بزار بخوابه فردا ببینیم، چی میگه !
ما در مورده کسی یا چیزی که ندیدیم قضاوت نمیکنیم، ببینیم، چه چیزی برای رو کردن داره ؟

[returnx]

1-چیز خاصی برای رو کردن ندارم فقط امیدوارم تکراری نباشه.

نکته ویژوالی :

با این تابع میشه زمان روشن بودن سیستم رو بر حسب میلی ثانیه بدست اورد.

Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long



Dim a As Double

a = GetTickCount

Print a

احتمالا نفر بعدی میزنه تو ذوقم میگه این نکته تکراری بود.

[IamOverlord]

سلام دوستان
برای من که تکراری نبود!

نکته ویژوالی :

از این دو Function می تونید برای به دست آوردن موقعیت مکان نمای ماوس در نمایشگر اسفاده کنید:

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long



Public Type POINTAPI

        X As Long

        Y As Long

End Type



Public Function fGetCursorPositionX() As Long

    Dim PointAPI1 As POINTAPI

    GetCursorPos PointAPI1

    fGetCursorPositionX = PointAPI1.X

End Function



Public Function fGetCursorPositionY() As Long

    Dim PointAPI1 As POINTAPI

    GetCursorPos PointAPI1

    fGetCursorPositionY = PointAPI1.Y

End Function

نفر بعدی حتما امروز یه چیزی می گه!

[sina32]

خوب اين که درست!

نکته ویژوالی :

با vb ميشه اسکرين‌سيور ساخت، کافيه فايل exe خودتون رو با پسوند scr ذخيره کنيد. و براي تنظيماتش هم ميتونيد دکمه F1 رو تعريف کنيد که بهنگام اجرا فشرده بشه.

نفر بعدی الان ميگه تکراريه!

[returnx]

نه تو این تاپیک نیومده بود.

نکته ویژوالی :

تلفظ کلمات فقط با چهار خط کد:

Dim msg, sapi

msg = Text1.Text

Set sapi = CreateObject("sapi.spvoice")

sapi.Speak msg

نفر بعدی احتمالا mmssoft که پست میده بعد میگه این کد رو که من خودم تو این سایت گذاشته بودم.

[sina32]

نکته ویژوالی :

قطع کردن ارتباط اینترنت (Disconnect)

shell rasdial [connectionname] /disconnect

نفر بعدی بگه که فرق لپ تاپ با نوت بوک و با نت بوک چیه؟؟

[farzad93]

طرز نوشتنشون فرق میکنه (چیز دیگه ای نمیدونم)

نکته ویژوالي :

یه ویروسی هست به نام AVBtimer که شئ تایمر رو خراب میکنه!
البته این ویروس فقط با آنتی ویروس های خاص شناسایی میشه که نمیدونم درست هست که نام ببرم یا نه.

به نظر نفر بعدی درست هست که اسم آنتی ویروس ها رو بگم؟؟

[ramzdar]

بگو فکر نکنم بد باشه. راستی فرقشون اینه که لپ تاپ کارایی، حجم و تجهیزاتش از نوت بوک بیشتره و نوت بوک هم از نت بوک

نکته ویژوالي :

تشخیص کانکت بودن یا نبودن

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll"  Alias "InternetGetConnectedStateExA" (lpdwFlags As Long,  lpszConnectionName As Long, dwNameLen As Long, ByVal dwReserved As Long)  As Long[/CODE][CODE]strConnectionName = Space(256)

lNameLen = 256

lPtr = StrPtr(strConnectionName)

lNameLenPtr = VarPtr(lNameLen)

RetVal = InternetGetConnectedStateEx(lConnectionFlags, ByVal lPtr, ByVal lNameLen, 0)

If RetVal = 0 Then Caption = "Disconnected" Else Caption = "Connected"

[pcdownload.bloghaa.com]

نکته ویژوالي :

برای نوشتن چند خط کد در یک خط از علامت : در انتهای خطوط استفاده کنید.
نکته جالبش اینجاست که می تونید کد زیر رو در یک سطر بنویسید:

If i = 0 Then

text1 = "hello"

End If

احتمالا کد زیر رو می دید:

If i = 0 Then text1 = "hello"

حالا برای نوشتن کد زیر در یک سطر چه پیشنهادی دارید:

If i = 0 Then

text1 = "hello"

text2 = "new"

End If

کد زیر روش پیشنهادیه:

If i = 0 Then: text1 = "hello": text2 = "new"

برای بزرگترین برنامه ای که ساختید چند خط کد نوشتید ؟

[www.pc3enter.tk]

نکته ویژوالي :

یک ترفند بسیار جالب حتی فکرش هم نمی توانید بکنید، یک تکس باکس باز کنید و بعد داخل آن این را بنویسد

 <?xml version="1.0" encoding="UTF-8" standalone="yes"?>

<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">

<assemblyIdentity type="win32" processorArchitecture="*" version="6.0.0.0" name="mash"/>

<description>Enter your Description Here</description>

<dependency>

<dependentAssembly>

<assemblyIdentity

type="win32"

name="Microsoft.Windows.Common-Controls" version="6.0.0.0"

language="*"

processorArchitecture="*"

publicKeyToken="6595b64144ccf1df"

/>

</dependentAssembly>

</dependency>

</assembly>

و بعد با نام VB6.exe.MANIFEST در محل برنامه ی ویژال بیسیک ذخیره کنید

  C:\Program Files\Microsoft Visual Studio\Vb98

و حالا ويژوال بیسیک را اجرا کنید تمام

تشکر یادتون نره .........

[ali.rezaei7]

بابا نفر قبلی ترکوندی که. اصلا فکرشو نمی کردم کد به این معروفی رو بزاری.

نکته ویژوالي :

می دونید vb6 چه سالی عرضه شده؟ می دونید الان تو چه سالی هستیم؟ خبر دارید نسخه های جدید vb6 از سال 2001 در قالب یکی از زبان ها دات نت ارایه شده؟ اگه نمی دونید باید بگم که نسخه جدید vb6 از سال 2001 وارد بازار شده. هورااااااا!! .هنوزم دیر نشده بعد از گذشت 10 سال. فکر کنم این مهمترین نکته بود. نه؟ خدایی این تن بمیره این جوری نیست؟

نفر بعدی اگه قاتی باشه بامشت میاد تو صورتم، اگه هم نباشه حتما می خواد یه جواب دندون شیکن بهم بده

[محسن واژدی]

این نکاتی که فرمودین تقریبا هربرنامه نویسی به هنگام شروع آموزش با وی بی6 مطالعه میکنه.

نکته: آیا میدانید که میتوانید با کلیک بر هر کدی و فشار دادن دو کلید ترکیبی Shift+F2 به سورس اون کد پرش کنید و مجددا با فشار دادن Ctrl+Shift+F2 به همان کد بازگردید بدون آنکه مجبور به جستجو در کدها باشید

نفر بعدی: یک ایرانی خردمند

[Hadirj]

بسی تاپیک جالبناکی هست

نکته ویژوالي :

برای غیرفعال کردن کیبرد و موس

'  keyboard



 Private Sub Command1_Click()

dim a

a=shell("rundll keyboard,disable")

End Sub



' mouse

Private Sub Command2_Click()

dim a

a=shell("RUNDLL MOUSE,DISABLE")

End Sub

برای اینکه دوباره کار کنند باید ریست کرد

نفر بعدی علاقه فراوانی به C داره

[farzad93]

نفر قبلی سخت در اشتباهی چون من علاقه ای به C ندارم

نکته ویژوالي :
برای خاموش کردن سیستم بعد از زمانی مشخص بر حسب ثانیه

Shell "shutdown -s -c " & comment.Text & " -t " & time.Text & ""

نفر بعدی حتما قبلا توی این تاپیک پست داده

[_behnam_]

100% پست دادم

نکته ویژوالي :

نفر بعدی یکارو میگم انجام بده
یک تکست باکس به فرمت اضافه کن مقدار top رو 12000 انتخاب کن بعد روی فرم کلیک کن.
الان دیگه تو فرم دیده نمیشه. اگه تونستی بیاریش منم بلد نیستم یاد منم بده

[ali.rezaei7]

اکِ هی بابا نفر قبلی شاهکاری بخدا. از اون combo box ی که بالا پنجره خواص هست، تکست رو انتخاب کن، بعدش درستش کن.

نکته ویژوالي :

اگه در هنگام تغییر اندازه یه کنترل، دکمه DELETE رو بزنی وی بی می پوکه.

نفر بعدی به حرفم گوش می کنه می ره سراغ دات نت

[www.pc3enter.tk]

نكته ويژوالي :

یک چیز خیلی جالب، هول نکنید
آیا می خواهید فرم شما آتش بگیره و بسوزه
خوب فقط این کد را کپی و پیست کنید

Private Declare Function SetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Private Fire() As Byte



Private Sub Form_Load()



    Timer1.Interval = 10

    Me.AutoRedraw = True

    ReDim Fire(0 To 100, 0 To 100)



    For x = 0 To 100

        For y = 0 To 100



            Fire(x, y) = 0



        Next y

    Next x



End Sub



Private Sub Timer1_Timer()



    On Error Resume Next



    Dim x     As Integer

    Dim y     As Integer

    Dim Color As Integer

    Dim table As Byte



    For y = 100 To 0 Step -1

        For x = 0 To 100

 

            Randomize

            Fire(x, y) = Fire(x, y) - Int(Rnd * 4)                                                                                                                                               

            table = Int(Rnd * 3)

            Fire(x, y - table) = Fire(x, y)

            Color = (Int(Fire(x, y) * 3))

            SetPixel Me.hDC, x + (Rnd * 2), y, RGB(Color + Color, Color, Color / 2)



        Next x

    Next y



    For x = 0 To 100

        For y = 95 To 100



            Fire(x, y) = 110



        Next y

    Next x



    Me.Refresh

 

End Sub

و بعد اجرا، اگر قابلی نداشت تشکر یادتون نره

نفر بعدی کلی زور میزنه ببینه من این رو چه جوری نوشتم

[vbhamed]

سلام
نه راستش، ولي ممنون جالب بود

نكته ويژوالي :

گاهي اوقات به هر دليلي لازم ميشه يك فايل با حجم زياد ساخته بشه، با وي بي خيلي راحت ميشه اين كار رو انجام داد مثلا ساخت يك فايل 1 گيگابايتي در درايو E

    Open "e:\sss" For Binary As #1

    Put #1, 1000000000, " "

    Close #1

نفر بعدي عيدت مبارك !!!

[www.pc3enter.tk]

سلام

نکته ويژوالي :

به جای اینکه تایمر را با این دستور غیر فعال کنیم

 timer1.enabel=false

می توانیم با این دستور همین کار را بکنیم

 timer1=false

نفر بعدی هر چه زودتر بهتر

[vbhamed]

سلام

چشم نفر قبلي

نكته ويژوالي :

در تكميل نكته www.pc3enter.tk عزيز مي خوام بگم كه اكثر كنترلها يك خاصيت پيش فرض دارن مثلا براي TextBox خاصيت Text پيش فرض هست پس اگر تكست باكسي به نام Text1 داشته باشيم به جاي Text1.Text مي تونيم فقط Text1 رو بنويسيم
در مورد ساير كنترلهاي عمومي هم خاصيت هاي پيش فرض وجود داره كه من چند تاشون رو با مثال مي نويسم :

    'CommandButton : Value    , Command1 = True        فشردن دكمه به صورت مجازي

    'TextBox       : Text     , Text1    = "Test"      متن درون جعبه متن

    'Label         : Caption  , Label1   = "Test"      متن برچسب

    'ListBox       : Text     , MsgBox   List1         متن سطر انتخاب شده

    'ComboBox      : Text     , MsgBox   Combo1        متن سطر انتخاب شده

    'ScrollBar     : Value    , VScroll1 = 50          مكان اسكرول بار

    'CheckBox      : Value    , Check1   = vbChecked   حالت چك باكس

    'OptionButton  : Value    , Option1  = True        حالت دكمه راديويي

    'Timer         : Enabled  , Timer1   = True        روشن شدن تايمر

    'PictureBox    : Picture  , Picture1 = Clipboard.GetData  تصوير درون حافظه به پيكچر كپي شده

    'Frame         : Caption  , Frame1 = "Test"        متن عنوان قاب

    'FileListBox   : FileName , MsgBox   File1         نام فايل انتخاب شده

    'CommonDialog  : Action   , CommonDialog1 = 3      نمايش فرم انتخاب رنگ

اما در كل توصيه مي‌كنم از اين روش زياد استفاده نكنيد !

نفر بعدي از سفر برگشته داره دنبال نكته جديد در سال جديد مي گرده !

[www.pc3enter.tk]

نکته ويژوالي :

ابتدا از منوی View گزینه Toolbar و سپس customaize رو انتخاب کنید
سپس تب commands رو انتخاب کنید و از لیست زیرین Help رو انتخاب کنید و سپس از لیست روبرو گزینه About microsoft visual basic رو
درگ کنید روی تولبار اصلی برنامه و رهاش کنید و سپس روی او راست کلیک کنید و در قسمت نام عبارت Show VB Credits را وارد کنید و بعد
پنجره customaize رو ببندید و و روی دکمه کلیک کنید و لذت ببرید

نفر بعدي از يالا

[M.T.P]

نفر قبلی متوجه منظورتون از (نفر بعدی از یالا) نشدم
اما به هرحال...

نکته ويژوالي (باگ) :

اگه در حین اجرای برنامه بخواهید style فرم رو تغییر بدید:

Me.BorderStyle = 0

قطعا اتفاقی نمیوفته و style فرم عوض نمیشه!!!
امتحان کنید.
حتی اگه یکبار فرم رو هم Refresh کنید.
چرا و به چه دلیل بماند...

اما نگران نباشید...
با نوشتن کد زیر بعد از دستور بالا تغییرات اعمال خواهد شد:

Me.Caption = Me.Caption

نفر بعدی پیشاپیش از شما تشکر می کنم.

[aria1o]

با سلام خدمت دوستان

نکته ويژوالي :

از نکته های جالبتون متشکرم امیدوارم همچنان ادامه پیدا کنه و ما هم استفاده کنیم من نکته ای ندارم ،ولی امید وارم این سایت براتون قابل توجه باشه

http://www.mvps.org/links.html#VisualBasic

[ali.rezaei7]

نكته ويژوالي :

اینم یه راهشه. جالب بود برام گفتم بزارم دوستان استفاده کنند.

Private Declare Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long



Private Const GWL_STYLE As Long = (-16)

Private Const ES_NUMBER As Long = &H2000&



Call SetWindowLongPtr(Text1.hwnd, GWL_STYLE, GetWindowLongPtr(Text1.hwnd, GWL_STYLE) Or ES_NUMBER)

نفر بعدی استارتر تاپیک می باشد!، پ.ن:تاپیکو بعد گذشت سه قرن زنده کردم...

[vbhamed]

سلام

چشم نفر قبلي، گفتم روتو زمين نندازم !

نكته ويژوالي :
يك روش جستجوي بسيار جالب در كمبو باكس (حتما ببينيد)، يك كمبو باكس با خاصيت Style برابر 0 روي فرم بزاريد

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 Const CB_FINDSTRING = &H14C

  

Private Sub cmdExit_Click()



    End



End Sub



Private Sub Combo1_Change()



    Dim iStart      As Integer

    Dim sString     As String



    Static iLeftOff As Integer

  

    iStart = 1

    iStart = Combo1.SelStart

  

    If iLeftOff <> 0 Then



        Combo1.SelStart = iLeftOff

        iStart = iLeftOff

    End If

  

    sString = CStr(Left(Combo1.Text, iStart))

    Combo1.ListIndex = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, ByVal CStr(Left(Combo1.Text, iStart)))

  

    If Combo1.ListIndex = -1 Then



        iLeftOff = Len(sString)

        Combo1.Text = sString

    End If

  

    Combo1.SelStart = iStart

    iLeftOff = 0



End Sub



Private Sub Form_Load()



    With Combo1

    

        .AddItem "Ali"

        .AddItem "Hamed"

        .AddItem "Ahmad"

        .AddItem "Reza"

        .AddItem "Ali Reza"

        .AddItem "Rahim"

        .AddItem "Akbar"

        .AddItem "Hamid Reza"

        .AddItem "علي"

        .AddItem "رضا"

        .AddItem "عليرضا"

        .AddItem "محمد"

        .AddItem "حامد"

        .AddItem "حميد"

        .AddItem "احمد"

        .AddItem "اكبر"

        .AddItem "حميد رضا"



    End With



End Sub

سلام نفر بعدي، خوبي، بفرما تو دم در بده !!!

[returnx]

O.k ، این نکته رو میزارم:

نكته ويژوالي :

تو VB6 خیلی راحت میشه یک کنترل رو به صورت RunTime ساخت ،به طور مثال:
یک پروژه جدید باز کنید و کد زیر رو توش کپی کنید:

Dim WithEvents Com As CommandButton

Dim m_com(10) As CommandButton

Dim k As String

Private Sub Form_Load()



Set Com = Me.Controls.Add("vb.commandbutton", "my_button")

    With Com

        .Left = Me.Width / 2

        .Top = Me.Height / 2

        .Visible = True

        .Caption = "YES"

    End With

End Sub

Private Sub Com_Click()

   

For i = 1 To 10

k = k & "p"

 Set m_com(i) = Me.Controls.Add("vb.commandbutton", k)

Next i

For j = 1 To 10

     With m_com(j)

     

        .Visible = True

        .Caption = "hello"

        .Width = 400

        If j > 1 Then

            .Left = m_com(j - 1).Left + m_com(j - 1).Width + 10

        End If

    End With

Next j

End Sub

نفر بعدی یا این نکته رو میدونست ، یا نمیدونست مطمئنا از این دو حالت خارج نیست...

[pcdownload.bloghaa.com]

نكته ويژوالي :

هیچ میدونستین که الان زمان ویندوز 7 هست و ویندوز هشت هم تو راهه و توانایی مدیریت حافظه و گرافیک وی بی 6 پاسخ گوی نیازهای کاربران امروز نیست.
پس هرچه زودتر برید سمت vb.net یا با vb6 برای همیشه تفریحی برنامه بنویسید چون الان برنامه هاش خریدار نداره.(واقعیت تلخ)

نفر بعدی وقت خودتو تلف نکن همراه با تکنولوژی حرکت کن.

[محسن واژدی]

سلام

پس هرچه زودتر برید سمت vb.net یا با vb6 برای همیشه تفریحی برنامه بنویسید چون الان برنامه هاش خریدار نداره.(واقعیت تلخ)

چرا، داره :)

نفر بعدی وقت خودتو تلف نکن همراه با تکنولوژی حرکت کن.

از کجا میدونین با تکنولوژی حرکت نمیکنم ;)

نکته ویژوالی:
سعی کنید در همه حالات برای خارج شدن از برنامه از فشار دادن دکمه Stop اجتناب کنید، استفاده از دکمه stop همانند اجرای دستور End است و باعث میشود کدهای برنامه مرتب اجرا و خارج نشوند، خصوصا" زمانی که از subcalss در پروژه استفاده کرده اید چون اجرای دستور End یا فشار دادن دکمه stop بمنظور متوقف کردن پروژه نمیتواند آدرس اصلی فرم subclass شده را ذخیره کند در نتیجه vb متوقف شده و خارج میشود،
روش مناسب برای پایان دادن به یک برنامه unload کردن همه فرمها، غیرفعال کردن هر کنترل تایمر فعال، قبل از بسن فرم اصلی است، Nothing کردن فرم نیز همین عمل را انجام میدهد

نفر بعدی: فردی هست با یک نکته مفید ویژوالی

[محسن واژدی]

سلام
خودم نفر بعدی بودم و نمیدونستم

نکته ویژوالی:
آیا اطلاع داشتین که میتوان در زمان طراحی نیز دستورات نوشته شده را اجرا کرد بدون انکه پروژه را اجرا کنیم (F5)
1- برای نمونه یک Form با نام Form1 ایجاد میکنیم
2- داخل ماژول کد form1 یک روال عمومی نمونه زیر مینویسیم:

Public Sub my_msg(txt$)

    MsgBox "Our text is : " & txt$, vbInformation

End Sub

دکمه Ctrl+G را فشار میدهیم تا فرم Immediate گشوده شود
آدرس روال را در این فرم نوشته و Enter میزنیم:

Form1.my_msg ("This is an sample")

یک نکته که در توضیحات بالا وجود دارد این است که همانند user-control ها برای اجرای توابع موجود در یک فرم حتما" بایستی محیط طراحی فرم بسته باشد در غیر اینصورت یک پیام خطا درمقابل اجرای فرم ظاهر میشود


نفر بعدی بدون شک یکی از اعضای فروم است

[MohammadGh2011]

سلام عليکم
بله منم يکي از اعضاي فورومم

نكته ويژوالي :
ميخوام نحوه تلفظ کلمات رو تو تکست باکس آموزش بدم
1)از منوي project در آخر References رو باز کنيد و گزينه ي Microsoft Speech Object Library رو انتخاب کنيد و OK رو بزنيد و داخل کامند کد زير رو بنويسيد

Dim Myspeech As New SpeechLib.SpVoice

Myspeech.Volume = 80

Myspeech.Speak (Text1.Text)

هر موقع داخل تکست باکس1 چيزي بنويسيد و روي کامند کليک کنيد براتون تلفظ ميشه


2)و يا ميتونيد از اين روش استفاده کنيد فقط کد زير رو تو کامند کپي کنيد.

Dim ras, sapi

ras = Text1.Text

Set sapi = CreateObject("sapi.spvoice")

sapi.Speak ras

Text1.SetFocus

نفر بعدي بهترين و جالب ترين مطلب از ويژوال بيسيک رو مطرح ميکنه

[محسن واژدی]

سلام علیکم
بله، احتمالا" این نکته باید جالب باشه

نکته ويژوالي (که نمیشه گفت نکته):
1- یک فرم ایجاد کرده، سپس در محیط آن دستگیره width را گرفته و تا اندازه ای که اسکرول بار پایین برنامه ظاهر شود پهنای فرم را افزایش میدهیم
2- اسکرول بار را گرفته و تا سمت راست بکشید تا اندازه ای که گوشه سمت راست فرم را ببینید
3- دوباره روی دستگیره کیک کرده و ان را به منتها الیه سمت چپ صفحه زمینه بکشید تا اندازه ای که اسکرول بار پایین مخفی میشود
4- حالا بر روی اسکرول بار کلیک کرده و آنرا تا اندازه ای که میتوانید به سمت چپ بکشید

چطور شد؟

نفر بعدی هم با مراحل بالا موافقه

[amazon2]

وقتی انجامش دادم موافقت خودمو اعلام میکنم!

نکته ويژوالي:

نکاتی در مورد استفاده از چاپگر در ویژوال بیسیک

از جمله نکات:
چاپ محتویات یک RichTextBox
چاپ محتویات کل یک فرم
چاپ تصاویر
چاپ یک خط
چاپ متن
تنظیم قلم(فونت) چاپگر
چاپ متن در مکانی مشخص
اگر چاپگر خواص قلم را رعایت نکند
تنظیم مجدد چاپگر
چاپ متن تحت زاویه ای مشخص
چاپ یک صفحه وب
چاپ سریع چند کپی از یک سند
چاپ MSFlexGrid

http://78.38.187.11/3manage.com/learning/Printing.rar

نفر بعدی این پی دی افو دانلود میکنه و درآینده از دوستان من خواهد بود!