Visual Basic

Ashfield wrote:

pdnet wrote:
Sr. Software Developer

sure?

pdnet wrote:

Try using...........

Graphics.DrawString("Bob", New Font("Arial", 30, FontStyle.Bold), brush.ControlDark, 29, 10)

pdnet wrote:

Sory to say, you are a FOOL,DULL and a USELESS,HELPLESS SOFTWARE SUPPORT MAN

You never doing a project by Yourself

pdnet wrote:

You never doing a project by Yourself

Member 2645365 wrote:

how i can make a phone book that work in my network.

Member 2645365 wrote:

please help me

Bitmap bmpResized = new Bitmap(width, height);

Graphics grph = Grphics.FromImage(bmpResized);
grph.DrawImage(...)

Dim PictureBox1Data As Byte()<br />
If PictureBox1.Image Is Nothing Then<br />
PictureBox1Data = Nothing<br />
Else<br />
PictureBox1Data = imageToByteArray(PictureBox1.Image)'See below this function<br />
End If

Dim QueryText As String<br />
Dim QueryValue As String<br />
Dim command As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand()<br />
QueryText = "INSERT INTO Settings(PrintCompany,IsUploadLogo,LogoGraphic )"<br />
QueryValue = "Values(@PrintCompany, @IsUploadLogo,@LogoGraphic)"<br />
command.CommandText = QueryText & QueryValue

command.Parameters.Add("@PrintCompany", SqlDbType.TinyInt, 10).Value = True<br />
command.Parameters.Add("@IsUploadLogo", SqlDbType.TinyInt, 10).Value =True<br />
If Not PictureBox1Data Is Nothing Then<br />
command.Parameters.Add("@LogoGraphic", SqlDbType.Image, PictureBox1Data.Length).Value = PictureBox1Data<br />
Else<br />
command.Parameters.Add("@LogoGraphic", SqlDbType.Image, 0).Value = System.DBNull.Value<br />
End If

Public Function imageToByteArray(ByVal ImageIn As System.Drawing.Image) As Byte()<br />
Dim ms As MemoryStream = New MemoryStream()<br />
Dim FormatImage1 As Imaging.ImageFormat = ImageIn.RawFormat<br />
ImageIn.Save(ms, FormatImage1)<br />
'ImageIn.Save(ms, Imaging.ImageFormat.Bmp)<br />
Return ms.ToArray()<br />
End Function