honarestan-chamran.blogsky.com

honarestan-chamran.blogfa.com

هنرستان شهید چمران آباده - جستجو در word

http://honarestan-chamran.blogfa.com/post-82.aspx

هنرستان شهید چمران آباده. دانش آموزان رشته کامپیوتر. Private Sub CmdOpen Click(). Dim wd As New Word.Application. On Error GoTo cmdOpenDocErr. If List1.Selected(List1.ListIndex) = True Then. WdDocuments.Open (List1.List(List1.ListIndex). Select Case Err.Number. MsgBox "Please select a document.", vbCritical, "Document Selection Error". Private Sub Command3 Click(). Private Sub Drive1 Change(). Dir1Path = Drive1.Drive. Private Sub Dir1 Change(). File1Path = Dir1.Path. Private Sub cmdFind Click(). K% = k% 1.

honarestan-chamran.blogfa.com

هنرستان شهید چمران آباده - کار با word

http://honarestan-chamran.blogfa.com/post-78.aspx

هنرستان شهید چمران آباده. دانش آموزان رشته کامپیوتر. Dim xword As Word.Application. Dim xdoc As Word.Document. Private Sub Command1 Click(). Set xword = New Word.Application. Set xdoc = xword.Documents.Add. XwordSelection.Font.Bold = True. XwordSelection.Font.Size = 20. XwordSelection.Text = Text1.Text. XdocSaveAs FileName:="c: sample.doc". Set xword = Nothing. نوشته شده در جمعه بیستم فروردین ۱۳۸۹ساعت 15:45 توسط نعمت اللهی. وبلاگی جهت ارتباط با دانش اموزان رشته کامپیوتر هنرستان چمران آباده.

honarestan-chamran.blogfa.com

هنرستان شهید چمران آباده - ایجاد database

http://honarestan-chamran.blogfa.com/post-79.aspx

هنرستان شهید چمران آباده. دانش آموزان رشته کامپیوتر. Private Sub Command1 Click(). Dim ws As Workspace. Dim db As Database. Dim td As TableDef. Dim fl As Field. Set ws = DBEngine.Workspaces(0). Set db = ws.CreateDatabase("c: test.mdb", dbLangGeneral, dbVersion30). Set td = db.CreateTableDef("tbl"). Set fl = td.CreateField("id", dbInteger). نوشته شده در جمعه بیستم فروردین ۱۳۸۹ساعت 15:46 توسط نعمت اللهی. وبلاگی جهت ارتباط با دانش اموزان رشته کامپیوتر هنرستان چمران آباده. وبلاگ مرتبط با این وبلاگ.

honarestan-chamran.blogfa.com

هنرستان شهید چمران آباده - چه طوری میشه یه فرم رو همیشه در وضعیت on top قرار داد ( جواب سوال آقای عابدی)

http://honarestan-chamran.blogfa.com/post-72.aspx

هنرستان شهید چمران آباده. دانش آموزان رشته کامپیوتر. چه طوری میشه یه فرم رو همیشه در وضعیت on top قرار داد ( جواب سوال آقای عابدی). برگرفته از: http:/ www.visualbasicsource.mihanblog.com. اول یه ماژول به پروژه اضافه کنید و این کد رو توش بنویسید. 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 Long. بعد هم این تابع رو توش بنویسید. Dim SetOnTop As Long.

honarestan-chamran.blogfa.com

هنرستان شهید چمران آباده -

http://honarestan-chamran.blogfa.com/post-67.aspx

هنرستان شهید چمران آباده. دانش آموزان رشته کامپیوتر. نوشته شده در جمعه بیست و دوم آبان ۱۳۸۸ساعت 16:41 توسط نعمت اللهی. وبلاگی جهت ارتباط با دانش اموزان رشته کامپیوتر هنرستان چمران آباده. وبلاگ مرتبط با این وبلاگ. وبلاگ مرتبط با این وبلاگ 2.

honarestan-chamran.blogfa.com

هنرستان شهید چمران آباده

http://honarestan-chamran.blogfa.com/8901.aspx

هنرستان شهید چمران آباده. دانش آموزان رشته کامپیوتر. خواهشمند است حداقل هفته ای یک بار به این وبلاگ سر زده از مطالب نوشته شده. استفاده کرده در صورتی که نظر یا برنامه ای که بتواند برای همه از جمله من مفید باشد. در قسمت نظرات قرار دهید. نعمت اللهي. نوشته شده در جمعه بیستم فروردین ۱۳۸۹ساعت 15:54 توسط نعمت اللهی. Private Sub CmdOpen Click(). Dim wd As New Word.Application. On Error GoTo cmdOpenDocErr. If List1.Selected(List1.ListIndex) = True Then. WdDocuments.Open (List1.List(List1.ListIndex). Dim i%, j%, k%.

honarestan-chamran.blogfa.com

هنرستان شهید چمران آباده

http://honarestan-chamran.blogfa.com/8812.aspx

هنرستان شهید چمران آباده. دانش آموزان رشته کامپیوتر. نوشته شده در سه شنبه یازدهم اسفند ۱۳۸۸ساعت 17:55 توسط نعمت اللهی. تغییر دادن عکس پشت زمینه از آقای سعادت( با تشکر). اين كد ها را در قسمت جنرال فرم بنويسيد. Declare Function SystemParametersInfo Lib "user32" Alias. SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long. Public Const SPI SETDESKWALLPAPER = 20. اين هم كد عوض كردن wallpaper در يك باتون بنويسيد. Dim lngSuccess As Long.

honarestan-chamran.blogfa.com

هنرستان شهید چمران آباده - شبیه ساز کیبرد

http://honarestan-chamran.blogfa.com/post-65.aspx

هنرستان شهید چمران آباده. دانش آموزان رشته کامپیوتر. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer. Private Sub Timer1 Timer(). For i = 1 To 255. Label1.Caption = Label1.Caption and (Chr(i). نوشته شده در جمعه بیست و دوم آبان ۱۳۸۸ساعت 16:25 توسط نعمت اللهی. وبلاگی جهت ارتباط با دانش اموزان رشته کامپیوتر هنرستان چمران آباده. وبلاگ مرتبط با این وبلاگ. وبلاگ مرتبط با این وبلاگ 2.

honarestan-chamran.blogfa.com

هنرستان شهید چمران آباده - گلهای سرزمینم ایران

http://honarestan-chamran.blogfa.com/post-76.aspx

هنرستان شهید چمران آباده. دانش آموزان رشته کامپیوتر. نوشته شده در سه شنبه یازدهم اسفند ۱۳۸۸ساعت 17:55 توسط نعمت اللهی. وبلاگی جهت ارتباط با دانش اموزان رشته کامپیوتر هنرستان چمران آباده. وبلاگ مرتبط با این وبلاگ. وبلاگ مرتبط با این وبلاگ 2.

honarestan-chamran.blogfa.com

هنرستان شهید چمران آباده - دانش آموزان عزیز

http://honarestan-chamran.blogfa.com/post-83.aspx

هنرستان شهید چمران آباده. دانش آموزان رشته کامپیوتر. خواهشمند است حداقل هفته ای یک بار به این وبلاگ سر زده از مطالب نوشته شده. استفاده کرده در صورتی که نظر یا برنامه ای که بتواند برای همه از جمله من مفید باشد. در قسمت نظرات قرار دهید. نعمت اللهي. نوشته شده در جمعه بیستم فروردین ۱۳۸۹ساعت 15:54 توسط نعمت اللهی. وبلاگی جهت ارتباط با دانش اموزان رشته کامپیوتر هنرستان چمران آباده. وبلاگ مرتبط با این وبلاگ. وبلاگ مرتبط با این وبلاگ 2.