یادش بخیر، عجب تاپیک با حالی بود
نکته ویژوالی :
آیا می دانی که به جای علامت ' براي خط توضيحات، میشه از کلمه Rem استفاده کرد
یادش بخیر، عجب تاپیک با حالی بود
نکته ویژوالی :
آیا می دانی که به جای علامت ' براي خط توضيحات، میشه از کلمه Rem استفاده کرد
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 15:48 عصر
بله میدونم.
نکته ویژوالی :
شما با اضافه کردن ; و , بعد از دستور Print فرم میتونین نحوه چاپ بر روی فرم رو تغییر بدین.
برنامه نمونه اش رو گذاشتم.
نفر بعدی حتما مثل من بار اولشه که این تاپیک رو میبینه.
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 15:49 عصر
نخیر من دفعه اولم نیست
نکته ویژوالی :
روش اتصال به بانک اکسس
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
آیا اصلا نفر بعدی هم هست ؟
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 15:50 عصر
شک نکن هنوز هم نفر بعدی هست!!!
نکته ویژوالی :
با این کد میتونید آدرس یه سایت رو با مرورگر پیشفرض باز کنید.
کافیه کد رو توی یه ماژول قرار بدید و بعد توی یه دکمه بگین بره توی چه سایتی.
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 خواهد بود.
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 15:51 عصر
نکته ویژوالی :
انتخاب چند فایل
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
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 15:52 عصر
بازم خودم :
نکته ویژوالی :
بدست آوردن ریزولیشن صفحه
ین کدها رو تو یه دکمه کپی کنید:
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"
نفر بعدی یه آدم باحال و دوست داشتنیه
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 15:55 عصر
نکته ویژوالی :
قرار دادن متن به صورت عمودی در یک کنترل 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 : چهارشنبه 27 فروردین 1393 در 15:56 عصر
ما همه عادي هستيم
نكته ويژوالي :
توابع مفيد 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, "ضعيف")
نفر بعدي داره فكر مي كنه چقدر تو برنامش مي تونست از اين توابع استفاده كنه !
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 15:59 عصر
اگر من و شما هر كدوم يك چيز ياد داشته باشيم و به هم ياد بديم، حالا هر كدوم دو تا چيز ياد داريم ! http://www.ArminaCo.com
نه داداش این کد رو قبلا استفاده میکردم، اما تازگیها کمی کم رنگ شده
نکته ویژوالی :
البته این رو برای تازه کارها مینویسم، 2 مورد هستش:
1- برای اینکه دقت نقطه های صفحه Design فرمتون بیشتر بشه از مسیر زیر استفاده کنید :
Tools Menu -> Options -> General
و دو خصیصه width را به 24 و Height را هم به 24 تغییر دهید، با اینکار شما کنترل راحتی تو حرکت اشیاعتون در حالته دیزاین دارید.
2- آیا میدونستی که در اوله کار، یعنی بعد از ساخته فرم، همون اول برید و فونت فرم را به فونته دلخواه با سایزه دلخواه تغییر دهید، کله اشیاء اون فرم، همون خصیصه رو از فرم میگیرند ؟!!!
این نکته ی دومی رو حتی استادم با اون همه سابقش تو کف موند !!! البته برای ما هیچه .
و اما : نوبت به ما رسید، نفره بعدی الان خوابه(ساعت: 1:11 بامداد) ، بزار بخوابه فردا ببینیم، چی میگه !
ما در مورده کسی یا چیزی که ندیدیم قضاوت نمیکنیم، ببینیم، چه چیزی برای رو کردن داره ؟
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 16:04 عصر
1-چیز خاصی برای رو کردن ندارم فقط امیدوارم تکراری نباشه.
نکته ویژوالی :
با این تابع میشه زمان روشن بودن سیستم رو بر حسب میلی ثانیه بدست اورد.
Public Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
Dim a As Double
a = GetTickCount
Print a
احتمالا نفر بعدی میزنه تو ذوقم میگه این نکته تکراری بود.
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 16:05 عصر
سلام دوستان
برای من که تکراری نبود!
نکته ویژوالی :
از این دو 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
نفر بعدی حتما امروز یه چیزی می گه!
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 16:05 عصر
خوب اين که درست!
نکته ویژوالی :
با vb ميشه اسکرينسيور ساخت، کافيه فايل exe خودتون رو با پسوند scr ذخيره کنيد. و براي تنظيماتش هم ميتونيد دکمه F1 رو تعريف کنيد که بهنگام اجرا فشرده بشه.
نفر بعدی الان ميگه تکراريه!
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 16:07 عصر
نه تو این تاپیک نیومده بود.
نکته ویژوالی :
تلفظ کلمات فقط با چهار خط کد:
Dim msg, sapi
msg = Text1.Text
Set sapi = CreateObject("sapi.spvoice")
sapi.Speak msg
نفر بعدی احتمالا mmssoft که پست میده بعد میگه این کد رو که من خودم تو این سایت گذاشته بودم.
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 16:08 عصر
نکته ویژوالی :
قطع کردن ارتباط اینترنت (Disconnect)
shell rasdial [connectionname] /disconnect
نفر بعدی بگه که فرق لپ تاپ با نوت بوک و با نت بوک چیه؟؟
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 16:12 عصر
طرز نوشتنشون فرق میکنه (چیز دیگه ای نمیدونم)
نکته ویژوالي :
یه ویروسی هست به نام AVBtimer که شئ تایمر رو خراب میکنه!
البته این ویروس فقط با آنتی ویروس های خاص شناسایی میشه که نمیدونم درست هست که نام ببرم یا نه.
به نظر نفر بعدی درست هست که اسم آنتی ویروس ها رو بگم؟؟
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 16:43 عصر
بگو فکر نکنم بد باشه. راستی فرقشون اینه که لپ تاپ کارایی، حجم و تجهیزاتش از نوت بوک بیشتره و نوت بوک هم از نت بوک
نکته ویژوالي :
تشخیص کانکت بودن یا نبودن
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"
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 16:46 عصر
نکته ویژوالي :
برای نوشتن چند خط کد در یک خط از علامت : در انتهای خطوط استفاده کنید.
نکته جالبش اینجاست که می تونید کد زیر رو در یک سطر بنویسید:
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"
برای بزرگترین برنامه ای که ساختید چند خط کد نوشتید ؟
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 16:47 عصر
نکته ویژوالي :
یک ترفند بسیار جالب حتی فکرش هم نمی توانید بکنید، یک تکس باکس باز کنید و بعد داخل آن این را بنویسد
و بعد با نام VB6.exe.MANIFEST در محل برنامه ی ویژال بیسیک ذخیره کنید<?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>
C:\Program Files\Microsoft Visual Studio\Vb98
و حالا ويژوال بیسیک را اجرا کنید تمام
تشکر یادتون نره .........
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 16:49 عصر
بابا نفر قبلی ترکوندی که. اصلا فکرشو نمی کردم کد به این معروفی رو بزاری.
نکته ویژوالي :
می دونید vb6 چه سالی عرضه شده؟ می دونید الان تو چه سالی هستیم؟ خبر دارید نسخه های جدید vb6 از سال 2001 در قالب یکی از زبان ها دات نت ارایه شده؟ اگه نمی دونید باید بگم که نسخه جدید vb6 از سال 2001 وارد بازار شده. هورااااااا!! .هنوزم دیر نشده بعد از گذشت 10 سال. فکر کنم این مهمترین نکته بود. نه؟ خدایی این تن بمیره این جوری نیست؟
نفر بعدی اگه قاتی باشه بامشت میاد تو صورتم، اگه هم نباشه حتما می خواد یه جواب دندون شیکن بهم بده
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 16:50 عصر
این نکاتی که فرمودین تقریبا هربرنامه نویسی به هنگام شروع آموزش با وی بی6 مطالعه میکنه.
نکته: آیا میدانید که میتوانید با کلیک بر هر کدی و فشار دادن دو کلید ترکیبی Shift+F2 به سورس اون کد پرش کنید و مجددا با فشار دادن Ctrl+Shift+F2 به همان کد بازگردید بدون آنکه مجبور به جستجو در کدها باشید
نفر بعدی: یک ایرانی خردمند
آخرین ویرایش به وسیله محسن واژدی : سه شنبه 21 دی 1389 در 17:05 عصر
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
بسی تاپیک جالبناکی هست
نکته ویژوالي :
برای غیرفعال کردن کیبرد و موس' 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 داره
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 16:51 عصر
نفر قبلی سخت در اشتباهی چون من علاقه ای به C ندارم
نکته ویژوالي :
برای خاموش کردن سیستم بعد از زمانی مشخص بر حسب ثانیه
Shell "shutdown -s -c " & comment.Text & " -t " & time.Text & ""
نفر بعدی حتما قبلا توی این تاپیک پست داده
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 16:52 عصر
100% پست دادم
نکته ویژوالي :
نفر بعدی یکارو میگم انجام بده
یک تکست باکس به فرمت اضافه کن مقدار top رو 12000 انتخاب کن بعد روی فرم کلیک کن.
الان دیگه تو فرم دیده نمیشه. اگه تونستی بیاریش منم بلد نیستم یاد منم بده
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 16:53 عصر
اکِ هی بابا نفر قبلی شاهکاری بخدا. از اون combo box ی که بالا پنجره خواص هست، تکست رو انتخاب کن، بعدش درستش کن.
نکته ویژوالي :
اگه در هنگام تغییر اندازه یه کنترل، دکمه DELETE رو بزنی وی بی می پوکه.
نفر بعدی به حرفم گوش می کنه می ره سراغ دات نت
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 16:57 عصر
نكته ويژوالي :
یک چیز خیلی جالب، هول نکنید
آیا می خواهید فرم شما آتش بگیره و بسوزه
خوب فقط این کد را کپی و پیست کنید
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 : چهارشنبه 27 فروردین 1393 در 17:07 عصر
سلام
نه راستش، ولي ممنون جالب بود
نكته ويژوالي :
گاهي اوقات به هر دليلي لازم ميشه يك فايل با حجم زياد ساخته بشه، با وي بي خيلي راحت ميشه اين كار رو انجام داد مثلا ساخت يك فايل 1 گيگابايتي در درايو E
Open "e:\sss" For Binary As #1
Put #1, 1000000000, " "
Close #1
نفر بعدي عيدت مبارك !!!
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 17:08 عصر
اگر من و شما هر كدوم يك چيز ياد داشته باشيم و به هم ياد بديم، حالا هر كدوم دو تا چيز ياد داريم ! http://www.ArminaCo.com
سلام
نکته ويژوالي :
به جای اینکه تایمر را با این دستور غیر فعال کنیم
timer1.enabel=false
می توانیم با این دستور همین کار را بکنیم
timer1=false
نفر بعدی هر چه زودتر بهتر
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 17:09 عصر
سلام
چشم نفر قبلي
نكته ويژوالي :
در تكميل نكته 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 نمايش فرم انتخاب رنگ
اما در كل توصيه ميكنم از اين روش زياد استفاده نكنيد !
نفر بعدي از سفر برگشته داره دنبال نكته جديد در سال جديد مي گرده !
آخرین ویرایش به وسیله vbhamed : سه شنبه 26 فروردین 1393 در 01:04 صبح
اگر من و شما هر كدوم يك چيز ياد داشته باشيم و به هم ياد بديم، حالا هر كدوم دو تا چيز ياد داريم ! http://www.ArminaCo.com
نکته ويژوالي :
ابتدا از منوی View گزینه Toolbar و سپس customaize رو انتخاب کنید
سپس تب commands رو انتخاب کنید و از لیست زیرین Help رو انتخاب کنید و سپس از لیست روبرو گزینه About microsoft visual basic رو
درگ کنید روی تولبار اصلی برنامه و رهاش کنید و سپس روی او راست کلیک کنید و در قسمت نام عبارت Show VB Credits را وارد کنید و بعد
پنجره customaize رو ببندید و و روی دکمه کلیک کنید و لذت ببرید
نفر بعدي از يالا
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 17:10 عصر
نفر قبلی متوجه منظورتون از (نفر بعدی از یالا) نشدم
اما به هرحال...
نکته ويژوالي (باگ) :
اگه در حین اجرای برنامه بخواهید style فرم رو تغییر بدید:
قطعا اتفاقی نمیوفته و style فرم عوض نمیشه!!!Me.BorderStyle = 0
امتحان کنید.
حتی اگه یکبار فرم رو هم Refresh کنید.
چرا و به چه دلیل بماند...
اما نگران نباشید...
با نوشتن کد زیر بعد از دستور بالا تغییرات اعمال خواهد شد:
Me.Caption = Me.Caption
نفر بعدی پیشاپیش از شما تشکر می کنم.
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 17:10 عصر
با سلام خدمت دوستان
نکته ويژوالي :
از نکته های جالبتون متشکرم امیدوارم همچنان ادامه پیدا کنه و ما هم استفاده کنیم من نکته ای ندارم ،ولی امید وارم این سایت براتون قابل توجه باشه
http://www.mvps.org/links.html#VisualBasic
آخرین ویرایش به وسیله vbhamed : سه شنبه 26 فروردین 1393 در 01:07 صبح
نكته ويژوالي :
اینم یه راهشه. جالب بود برام گفتم بزارم دوستان استفاده کنند.
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 : سه شنبه 26 فروردین 1393 در 01:08 صبح
سلام
چشم نفر قبلي، گفتم روتو زمين نندازم !
نكته ويژوالي :
يك روش جستجوي بسيار جالب در كمبو باكس (حتما ببينيد)، يك كمبو باكس با خاصيت 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
سلام نفر بعدي، خوبي، بفرما تو دم در بده !!!
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 17:11 عصر
اگر من و شما هر كدوم يك چيز ياد داشته باشيم و به هم ياد بديم، حالا هر كدوم دو تا چيز ياد داريم ! http://www.ArminaCo.com
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
نفر بعدی یا این نکته رو میدونست ، یا نمیدونست مطمئنا از این دو حالت خارج نیست...
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 17:11 عصر
نكته ويژوالي :
هیچ میدونستین که الان زمان ویندوز 7 هست و ویندوز هشت هم تو راهه و توانایی مدیریت حافظه و گرافیک وی بی 6 پاسخ گوی نیازهای کاربران امروز نیست.
پس هرچه زودتر برید سمت vb.net یا با vb6 برای همیشه تفریحی برنامه بنویسید چون الان برنامه هاش خریدار نداره.(واقعیت تلخ)
نفر بعدی وقت خودتو تلف نکن همراه با تکنولوژی حرکت کن.
آخرین ویرایش به وسیله vbhamed : سه شنبه 26 فروردین 1393 در 01:12 صبح
سلام
چرا، داره :)پس هرچه زودتر برید سمت 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 ها برای اجرای توابع موجود در یک فرم حتما" بایستی محیط طراحی فرم بسته باشد در غیر اینصورت یک پیام خطا درمقابل اجرای فرم ظاهر میشود
نفر بعدی بدون شک یکی از اعضای فروم است
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
سلام عليکم
بله منم يکي از اعضاي فورومم
نكته ويژوالي :
ميخوام نحوه تلفظ کلمات رو تو تکست باکس آموزش بدم
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
نفر بعدي بهترين و جالب ترين مطلب از ويژوال بيسيک رو مطرح ميکنه
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 17:13 عصر
سلام علیکم
بله، احتمالا" این نکته باید جالب باشه
نکته ويژوالي (که نمیشه گفت نکته):
1- یک فرم ایجاد کرده، سپس در محیط آن دستگیره width را گرفته و تا اندازه ای که اسکرول بار پایین برنامه ظاهر شود پهنای فرم را افزایش میدهیم
2- اسکرول بار را گرفته و تا سمت راست بکشید تا اندازه ای که گوشه سمت راست فرم را ببینید
3- دوباره روی دستگیره کیک کرده و ان را به منتها الیه سمت چپ صفحه زمینه بکشید تا اندازه ای که اسکرول بار پایین مخفی میشود
4- حالا بر روی اسکرول بار کلیک کرده و آنرا تا اندازه ای که میتوانید به سمت چپ بکشید
چطور شد؟
نفر بعدی هم با مراحل بالا موافقه
آخرین ویرایش به وسیله vbhamed : چهارشنبه 27 فروردین 1393 در 17:13 عصر
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
وقتی انجامش دادم موافقت خودمو اعلام میکنم!
نکته ويژوالي:
نکاتی در مورد استفاده از چاپگر در ویژوال بیسیک
از جمله نکات:
چاپ محتویات یک RichTextBox
چاپ محتویات کل یک فرم
چاپ تصاویر
چاپ یک خط
چاپ متن
تنظیم قلم(فونت) چاپگر
چاپ متن در مکانی مشخص
اگر چاپگر خواص قلم را رعایت نکند
تنظیم مجدد چاپگر
چاپ متن تحت زاویه ای مشخص
چاپ یک صفحه وب
چاپ سریع چند کپی از یک سند
چاپ MSFlexGrid
http://78.38.187.11/3manage.com/learning/Printing.rar
نفر بعدی این پی دی افو دانلود میکنه و درآینده از دوستان من خواهد بود!
آخرین ویرایش به وسیله vbhamed : سه شنبه 26 فروردین 1393 در 01:16 صبح