موقع حسن دشتي

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = “http://www.hasan-dashti.com”

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Add(“http://www.hasan-dashti.com”)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
GroupBox1.Visible = True
GroupBox2.Visible = False
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
GroupBox2.Visible = True
GroupBox1.Visible = False
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

تحميل البرنامج

Share on Facebook

كود لعمل copy لمحتويات textbox1
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.SelectedText <> “” Then
Clipboard.SetDataObject(TextBox1.SelectedText)
Else
TextBox2.Text = “لا يوجد شيئ تم تحديده”

End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim hasan As IDataObject = Clipboard.GetDataObject()
If hasan.GetDataPresent(DataFormats.Text) Then
TextBox2.Text = CType(hasan.GetData(DataFormats.Text), String)
Else
TextBox2.Text = ” لا يوجد شيئ تم نسخة”

End If
End Sub
End Class

لتحميل البرنامج

Share on Facebook

هذا كود لادخال صورة داخل قاعدة بيانات …

صورة البرنامج

وصلة تحميل الملف

الكود :

Dim Db As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim PiC As New ADODB.Stream

Private Sub CmdBrows_Click()
MyCom.DialogTitle = “Open Picture”
MyCom.Filter = “JPG Files | *.jpg”
MyCom.ShowOpen
If Not MyCom.FileName = “” Then
ImgPic.Picture = LoadPicture(MyCom.FileName)
End If
End Sub

Private Sub CmdFST_Click()
Rs.MoveFirst
Call ShowPic
End Sub

Private Sub CmdLST_Click()
Rs.MoveLast
Call ShowPic
End Sub

Private Sub CmdNXT_Click()

Rs.MoveNext
If Rs.EOF = True Then Rs.MoveLast
Call ShowPic
End Sub

Private Sub CmdPVS_Click()
Rs.MovePrevious
If Rs.BOF = True Then Rs.MoveFirst
Call ShowPic
End Sub

Private Sub CmdSave_Click()
Dim X As String
If Text1.Text = “” Then
MsgBox “ÇÏÎá ÇÓã ÇáÕæÑå”
Exit Sub
End If
If MyCom.FileName = “” Then
MsgBox “There Is No Picture Loaded!”, vbExclamation, “Error”
Else
X = MsgBox(“Are You Sure To Save The Picture ” & MyCom.FileTitle, vbQuestion + vbYesNo, “Save..”)
If X = vbNo Then Exit Sub
If PiC.State = adStateOpen Then PiC.Close
PiC.Open
PiC.Type = adTypeBinary
PiC.LoadFromFile MyCom.FileName
Rs.AddNew
Rs.Fields!picnem = Text1.Text
Rs.Fields!PiC = PiC.Read
Rs.Update
MsgBox “The Picture : ” & MyCom.FileTitle & ” Has Saved Successfully Mr:Lo2i”, vbInformation, “Save”
End If
End Sub

Private Sub Command1_Click()
If Text1.Text = “” Then
MsgBox “áã íÊã ÊÍÏíÏ ÇÓã ááÈÍË Úäå”
Exit Sub
End If
If Rs.State = 1 Then Rs.Close
Rs.Open “Select * From TPic Where picnem Like ‘%” & Text1.Text & “%’”
If Rs.EOF = True Then
MsgBox “áã íÊã ÇáÚËæÑ Úáì ÇÓã ãÔÇÈå áåÐÇ ÇáÇÓã”, vbMsgBoxRight + vbExclamation, “ÎØÔ
Exit Sub
End If
ShowPic
Db.Close
If Rs.State = 1 Then Rs.Close
Call Form_Load
End Sub

Private Sub Form_Load()

Me.Caption = “Save Picture”
CmdBrows.Caption = “Browse”
CmdSave.Caption = “Save Picture Now”
ImgPic.Stretch = True
Db.Provider = “Microsoft.Jet.Oledb.4.0;”
Db.Open App.Path & “\PicDb.mdb”
Rs.Open “TPic”, Db, adOpenDynamic, adLockOptimistic

CmdFST.Caption = “ÇÓÊÚÑÖ Çæá ÕæÑÉ”
CmdPVS.Caption = “ÇÓÊÚÑÖ ÇáÕæÑÉ ÇáÓÇÈÞÉ”
CmdNXT.Caption = “ÇÓÊÚÑÖ ÇáÕæÑÉ ÇáÊÇáíÉ”
CmdLST.Caption = “ÇÓÊÚÑÖ ÇÎÑ ÕæÑÉ”
Command1.Caption = “ÈÍË”

End Sub
Public Sub ShowPic()
Dim Chunk() As Byte
Dim lngLengh As Long
Dim intChunks As Integer
Dim intFragment As Integer

Const ChunkSize = 1000
Const lngDataFile = 1
Open “pictemp” For Binary Access Write As lngDataFile
lngLengh = Rs.Fields!PiC.ActualSize
intChunks = lngLengh \ ChunkSize
intFragment = lngLengh Mod ChunkSize
ReDim Chunk(intFragment)
Chunk() = Rs.Fields!PiC.GetChunk(intFragment)
Put lngDataFile, , Chunk()
For I = 1 To intChunks
ReDim Buffer(ChunkSize)
Chunk() = Rs.Fields!PiC.GetChunk(ChunkSize)
Put lngDataFile, , Chunk()
Next I
Close lngDataFile

FileName = “pictemp”
Text1.Text = Rs.Fields!picnem
ImgPic.Picture = LoadPicture(FileName)
End Sub

Share on Facebook

اقدم لكم اداة جديده للفيجيوال بيسك تسمح للمبرمجين ببرمجة الهواتف الخلويه …. طبعا سبب طرحي للموضوع ان في واحد سأل كيف يتعامل مع الاجهزه الخليويه وانا قلت له اتجه للدوت نت فحبيت اطرح الموضوع لتعم الفائده …. (نسألكم الدعاء لي ولوالدي وللمؤمنين جميعا )
شرح بسيط وسيرع للأده

اول شي بعد تنصيب الأداة

البرنامج بعد التنصيب

تفتح عليها ويوجد بها امثلة للتعليم

ثاني شي شكل الفيجيوال لما تفتحة مع الأداة

البرنامج بعد التنصيب

هذه احد الأمثلة الموجوده مع الأداه التحكم بالرسائل
sms

هذه احد الأمثلة الموجوده مع الأداه التحكم بالرسائل

شكل برنامجك مع أجهزة البالم

شكل برنامجك مع النوكيا

شكل برنامجك مع السوني اريكسون

تحميل الأداه
http://hasan-dashti.com/vb6/MobileVB35lite.exe

والى عالم جديد من البرمجه مع VB6

Share on Facebook

Visual Basic 6 provides a function called Environ through which you can get all the environment variables available. It takes string parameter which is name of the Environment variable and returns its value.

The Valid Environment strings are

ALLUSERSPROFILE
APPDATA
CI_HOLOS_CLI
CLIENTNAME
CommonProgramFiles
COMPUTERNAME
ComSpec
FP_NO_HOST_CHECK
HOMEDRIVE
HOMEPATH
include
JAVA_HOME
lib
LOGONSERVER
MSDevDir
NUMBER_OF_PROCESSORS
OS
Path
PATHEXT
PROCESSOR_ARCHITECTURE
PROCESSOR_IDENTIFIER
PROCESSOR_LEVEL
PROCESSOR_REVISION
ProgramFiles
SESSIONNAME
SystemDrive
SystemRoot
TEMP
TMP
USERDNSDOMAIN
USERDOMAIN
USERNAME
USERPROFILE
windir

الكود التالي سوف يساعدك للحصول على كل المتغيرات في جهازك

Dim i as Integer
  Text1.Text = ""
  i = 1
  While Environ$(i) <> ""
    Text1.Text = Text1.Text + Mid(Environ$(i), 1, InStr(1, Environ(i), "=") - 1) + vbNewLine
    i = i + 1
  Wend

Share on Facebook