Click here to Skip to main content
15,919,341 members
Home / Discussions / Visual Basic
   

Visual Basic

 
QuestionScreen Resolution Pin
nitin_ion9-Apr-07 18:10
nitin_ion9-Apr-07 18:10 
AnswerRe: Screen Resolution Pin
Christian Graus9-Apr-07 19:08
protectorChristian Graus9-Apr-07 19:08 
AnswerRe: Screen Resolution Pin
Navneet Hegde9-Apr-07 23:50
Navneet Hegde9-Apr-07 23:50 
AnswerRe: Screen Resolution Pin
prasadSn200310-Apr-07 20:44
prasadSn200310-Apr-07 20:44 
Questiontimer remaining active after the form is closed Pin
steve_rm9-Apr-07 17:27
steve_rm9-Apr-07 17:27 
AnswerRe: timer remaining active after the form is closed Pin
Christian Graus9-Apr-07 19:10
protectorChristian Graus9-Apr-07 19:10 
AnswerRe: timer remaining active after the form is closed Pin
WhiteSpy10-Apr-07 3:45
WhiteSpy10-Apr-07 3:45 
QuestionCan someone help me to convert the below vb5 code to vb.net code. Pin
Kusal9-Apr-07 16:44
Kusal9-Apr-07 16:44 
'//////////////////////////////////////////////////////////////////
Private Sub Command1_Click()
For Each prnPrinter In Printers
If prnPrinter.DeviceName = "BIXOLON SAMSUNG SRP-275" Then
Set Printer = prnPrinter
Exit For
End If
Next

If Printer.DeviceName = "BIXOLON SAMSUNG SRP-275" Then
Printer.Font.Size = 9
Printer.FontName = "FontControl"
Printer.Print "x"

Printer.Font.Size = 9
Printer.FontName = "FontA2x1"

Printer.Font.Bold = True
Printer.Print "* Joshua Cafe *" + vbCrLf
Printer.Font.Bold = False

Printer.Font.Size = 9
Printer.FontName = "FontControl"
Printer.Print "w"

Printer.Font.Size = 9
Printer.FontName = "FontA1x1"

Printer.Print " 3000 Spring Street, Rancho,"
Printer.Print " California 10093,"
Printer.Print " Tel) 858-519-3698 Fax) 3852"

Printer.Print vbCrLf + "---------------------------------" 'LF
Printer.Print "Orange Juice 5.00"
Printer.Print "6 Bufalo Wing 24.00"
Printer.Print "Potato Skin 12.00"
Printer.Font.Bold = True
Printer.ForeColor = RGB(255, 0, 0)
Printer.Print "Subtotal 41.00"
Printer.ForeColor = RGB(0, 0, 0)
Printer.Font.Bold = False

Printer.Print "Tax 6% 2.46"
Printer.Font.Bold = True
Printer.ForeColor = RGB(255, 0, 0)
Printer.Print "Member Discount 2.30"
Printer.ForeColor = RGB(0, 0, 0)
Printer.Font.Bold = False

Printer.Font.Bold = True
Printer.Print "Cash 100.00"
Printer.Print "Amt. Paid 41.16"
Printer.Font.Bold = False
Printer.Font.Bold = True
Printer.ForeColor = RGB(255, 0, 0)
Printer.Print "Change Due 58.84"
Printer.ForeColor = RGB(0, 0, 0)
Printer.Font.Bold = False
Printer.Print "---------------------------------"

Printer.Font.Size = 9
Printer.FontName = "FontControl"
Printer.Print "x"

Printer.Font.Size = 9
Printer.FontName = "FontA1x1"
Printer.Print "Member Number : 452331949" + vbCrLf

Printer.Font.Size = 9
Printer.FontName = "FontA1x1"
Printer.Font.Bold = True
Printer.Print "Have a nice day !" + vbCrLf
Printer.Font.Bold = False

Printer.Print "Sale Date: 07/01/03"
Printer.Print "Time: 12:30:45"

Printer.Font.Size = 9
Printer.FontName = "FontControl"
Printer.Print "w"

Dim pic As Picture

Set pic = LoadPicture(App.Path & "\free5_100.bmp")

Printer.CurrentX = 60
Printer.CurrentY = 5000
Printer.PaintPicture pic, Printer.CurrentX, Printer.CurrentY
Printer.CurrentY = Printer.CurrentY + pic.Height

Set pic = LoadPicture(App.Path & "\cafeblue208.bmp")
Printer.PaintPicture pic, Printer.CurrentX, Printer.CurrentY
Printer.CurrentX = 0
Printer.CurrentY = 9000
Printer.Font.Size = 9
Printer.Font.Name = "FontControl"
Printer.Print "g"

Printer.EndDoc
Else
MsgBox "SRP-270 windows driver don't installed"
End If
End Sub
'///////////////////////////////////////////////////////////////////////


Pls help me to solve this problum
Regards
Kusal

AnswerRe: Can someone help me to convert the below vb5 code to vb.net code. Pin
Christian Graus9-Apr-07 16:50
protectorChristian Graus9-Apr-07 16:50 
AnswerRe: Can someone help me to convert the below vb5 code to vb.net code. Pin
Navneet Hegde9-Apr-07 23:54
Navneet Hegde9-Apr-07 23:54 
QuestionPersisting Custom Collections Pin
Ian_K_9-Apr-07 15:22
Ian_K_9-Apr-07 15:22 
AnswerRe: Persisting Custom Collections Pin
GaryAW10-Apr-07 16:25
GaryAW10-Apr-07 16:25 
QuestionRunning Shutdown from VB.NET Pin
Brian Buydens9-Apr-07 14:15
Brian Buydens9-Apr-07 14:15 
AnswerRe: Running Shutdown from VB.NET Pin
kubben9-Apr-07 16:54
kubben9-Apr-07 16:54 
QuestionGif or Jpg? Pin
Anybloodyid9-Apr-07 10:43
Anybloodyid9-Apr-07 10:43 
AnswerRe: Gif or Jpg? Pin
MatrixCoder9-Apr-07 11:39
MatrixCoder9-Apr-07 11:39 
GeneralRe: Gif or Jpg? Pin
Anybloodyid9-Apr-07 12:24
Anybloodyid9-Apr-07 12:24 
AnswerRe: Gif or Jpg? Pin
Christian Graus9-Apr-07 12:06
protectorChristian Graus9-Apr-07 12:06 
AnswerRe: Gif or Jpg? Pin
Navneet Hegde9-Apr-07 23:57
Navneet Hegde9-Apr-07 23:57 
QuestionHow can I use LinkButton Pin
mghiassi9-Apr-07 7:47
mghiassi9-Apr-07 7:47 
AnswerRe: How can I use LinkButton Pin
MatrixCoder9-Apr-07 9:35
MatrixCoder9-Apr-07 9:35 
QuestionSound Card Interface Pin
harry82279-Apr-07 7:24
harry82279-Apr-07 7:24 
AnswerRe: Prevent form from disposing ? Pin
Dave Kreskowiak9-Apr-07 5:04
mveDave Kreskowiak9-Apr-07 5:04 
QuestionArrayList to database Pin
Guille Tamborini9-Apr-07 3:13
Guille Tamborini9-Apr-07 3:13 
AnswerRe: ArrayList to database Pin
_mubashir9-Apr-07 3:38
_mubashir9-Apr-07 3:38 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.