|
VB doesn't understand C-style escapes. Additionally, you escaped the string delimiters, not the quotes inside the string. Double quotes must be paired up to be escaped in VB, so your statement would look like:
str = Replace(str, "<a href="">
<div class="ForumSig"> <small>
<a href="http:
<br>
<font color="Blue">Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic<br /> 2006, 2007, 2008</font>
</br>
</div></a>
|
|
|
|
|
Try using double quoutes like so:
str = Replace(str,"<a href=""/", "<a href=""http://www.mysite.com/")
Notice href=""/ as the critical part in your problem. It would appear that you are not escaping the double qoute.
I hope this helps... 
|
|
|
|
|
hi
please i want a way to get all file names i selected and pressed enter
to open with my application
i tried command$ and commandlineargs but this gave me just one file name for every instance
i want a way to get all of the files i selected together and in just on time
i tried startupnextinstance but this is a very slow way
i think i shoulde use windows api but i dont know how
please help.............
|
|
|
|
|
Didn't you ask this already, or in another forum ?
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
hai friends
i have a datatable with a primary key
i m retriving the data from the main database and filling in this datatable
i have primary key for datatable, so i found out a particular record and i edited the data ..
now how to update the data ....
to the datatable ..... not main database
and one more question is ....
i have a primary key for datatable ...
is it mandatory that the main database table should have a primary key with the same column name ...
plz help me ...
oke bye
thanks in advance
vijay
devulapally_vijay@yahoo.co.in
|
|
|
|
|
you want to change the data in your data table, but not the DB ? Grab the data source, add some rows, then bind to it again.
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Hi,
How to Zip And Unzip a file using vb6.0. To Achieve this what are the necessary DLL's needs to add.Any Samples..Thanks in Advance..
Regards
Kanna
|
|
|
|
|
There is no such direct way of zipping or unzipping files directly in Visual Basic 6. You have two options –
1) Study file format of zip files and create your own class for zipping and unzipping file.
2) Get some freely available DLL files (such as of InfoZip) and use them. For this purpose if you search on Google for ‘zip+vb6’, you will get enough links.
-Ajay.
-------------------------
www.componentone.com
-------------------------
|
|
|
|
|
hi
i am working on making Setup in vb.net. So there
i want add one more setup file in .net Setup because
i want when my Setup instal thn it first instal setup which
i add setup in setup application.
how it possible please help me
thanks
|
|
|
|
|
You want your setup file to run another MSI ? Is that what you mean ?
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
|
What is the other setup ? Howare you creating a setup project ? Why not create a new MSI built on the old one, just adding the new files ?
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Hello all,
I'm newbie to this forum and learning programming for myself. I need to create a code which used to control the receipt printer manually using a call function in VB.NET. So I can print out the price and item description to the receipt. I'm doing these for my sister which is running a souveniers shop Point-Of-Sales System. And this control function able to used by both Dot Matrix(TM-U220) and Thermal Line(TM-T88IV) Receipt Printer. Anyone can give me some solution about it?
Thanks for reading.
|
|
|
|
|
Printers are handled through a layer of abstraction, you should be able to use any printer tutorial and ave the driver handle the specifics of the printer for you
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Sorry Christian Graus,what do you mean by printer tutorial? I'm trying to develop this code to solve my sisters Point of Sales problem. I need something like a sub function that can call a printer to printout the receipt. Is that any .NET build in component in VB.NET can help me solve this? Anyone can give me some help or guidelines?
Thank you~!
|
|
|
|
|
The .NET framework has printing classes built in. Did you try google ?
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Receipt printer usually has their own ESC code that is specific to the printer. You will need to get hold of the manual of both printer. You will need to send these ESC code to the printer via the interface it is connected (COM or LPT), to instruct the printer to print out something, in the same way that sending ESC codes to a dot matrix printer.
If you want to print the same format of content to both printer, you will need to some how translate the content into the ESC of each printer.
As you might need to send the raw data to printer, you might need these:
http://support.microsoft.com/kb/322090[^]
|
|
|
|
|
Yeah,thanks. I'll research more on it now. At least I catchup some ideas from you all. Thank you so much for the suggest solution and research direction for me. Happy enjoying programming.
Regards
Drexler
|
|
|
|
|
You may want to search for "opos drivers" - Epson has something called an OPOS ADK (application developers kit), and Microsoft have Pos drivers for the .NET framework - both these can be found with a bit of googling.
Using both together gives ultimate control of the printer, but there is a slight learning curve - but this is probably the easiest, most logical way of controling the printer without going down the "escape codes" route.
|
|
|
|
|
Yeah,you have any further details about controlling the receipt printer tools or solution? I feel its so complicated now here. How can I really control the printer to print data save inside the txt file and how to control the printer cut the paper?
Hope someone give me a hand here. 
Regards
Drexler
|
|
|
|
|
Having a problem with getting this code right. I cant get the names to show up. Don't know how to do listbox, loop, or input box.
This was the problem: create an application that alows a teacher to enter 3 test scores each for three students. The application should calculate each student's average test score an assign a letter grade based on the following grade scale.
[/b]Average Test Score [b]Letter Grade
90 or better A
80 through 89 B
70 through 79 C
60 through 69 D
Below 60 F
The application should prompt the user for each student's name and three test scores. This is an example of how the application's form should appear after all data is entered. Example:
Jennie James: Average: 90.66666 Grade: A
Sammy Smith: Average: 73 Grade: C
Julie Williams: Average: 84.66666 Grade: B
|
|
|
|
|
You are going to have to give us the code you have written and what errors you are getting.
We are not going to do your homework for you.
|
|
|
|
|
I don't know how to do the loop, or listbox, or input box. I just need some help getting started.
This is the code:
Private Sub btnEnter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnter.Click
'Declare varialbes
Dim Score1 As String
Dim Score2 As Double
Dim Score3 As Double
Dim Data As String
Dim Grade As String
'Get input
Score1 = InputBox("Enter Student Name, Student Name")
InputBox("Enter Student Grade, Student Grade")
InputBox("Enter Student Grade Letter, Grade Letter")
lblData.Text = Score1
'Calculate Average
Data = (Score1 Or Score2 Or Score3)
'Display Average
lblData.Text = FormatNumber(Data, 2)
'If score is high, compliment the student
If Data > 95 Then
MessageBox.Show("Congradulations! Great Job!", "Message")
Else
MessageBox.Show("Keep Trying", "Message")
End If
If Data >= 90 Then
Grade = "A"
ElseIf Data >= 80 Then
Grade = "B"
ElseIf Data >= 70 Then
Grade = "C"
ElseIf Data >= 60 Then
Grade = "D"
Else
Grade = "F"
End If
End Sub
|
|
|
|
|
muscle wrote: Data = (Score1 Or Score2 Or Score3)
That's not going to do it. Do you know mathematically how to calculate an average ? Giving Score2 and Score3 values would also help.
If you're going to use a loop, then I would assume you're going to set up an array to hold the values, or, keep a running total.
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.Threading
Imports System.IO
Imports System.ComponentModel
Public Class Form1
Public Delegate Sub UpdateTextBox(ByVal Text As String)
Dim tagid As String
Dim tcpClient As New System.Net.Sockets.TcpClient
Dim networkStream As NetworkStream
Dim buffer(1024) As Byte
Dim Synchronizer As ISynchronizeInvoke
Dim MyUpdateTextBox As UpdateTextBox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim buf() As Byte
buf = Encoding.ASCII.GetBytes(TextBox1.Text.Trim())
Try
networkStream.Write(buf, 0, buf.Length)
Catch ex As Exception
MessageBox.Show(ex.ToString())
End Try
TextBox1.Clear()
TextBox1.Focus()
End Sub
Private Sub MyReadCallback(ByVal ar As IAsyncResult)
Dim buffer() As Byte
Dim Read As Integer
Dim Data As String
Try
buffer = ar.AsyncState
Read = networkStream.EndRead(ar)
Data = Encoding.ASCII.GetString(buffer, 0, Read)
networkStream.BeginRead(buffer, 0, buffer.Length, New AsyncCallback(AddressOf MyReadCallback), buffer)
Catch ex As Exception
Data = ex.ToString()
End Try
If (Synchronizer.InvokeRequired = False) Then
TextBox2.Text = TextBox2.Text & Data
Else
Synchronizer.Invoke(MyUpdateTextBox, New Object() {Data})
End If
End Sub
Private Sub UpdateTextBoxDelegate(ByVal Text As String)
TextBox2.Text = TextBox2.Text & Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sendBytes("!quit!".Length + 1) As Byte
Try
sendBytes = Encoding.ASCII.GetBytes("!quit!")
networkStream.Write(sendBytes, 0, sendBytes.Length)
networkStream.Close()
tcpClient.Close()
Application.Exit()
Catch ex As Exception
tcpClient.Close()
Me.Close()
End Try
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim ipAddress As String
Dim port As String
Try
MyUpdateTextBox = New UpdateTextBox(AddressOf UpdateTextBoxDelegate)
ipAddress = TextBox3.Text
port = TextBox4.Text
tcpClient.Connect(ipAddress, port)
MessageBox.Show("connected")
networkStream.BeginRead(buffer, 0, buffer.Length, New AsyncCallback(AddressOf MyReadCallback), buffer)
Synchronizer = Me.TextBox2
Button1.Enabled = True
Button4.Enabled = True
Catch ex As Exception
MsgBox("Cannot connect to the specified address or port")
End Try
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox2.Clear()
End Sub
End Class
_________________________________________________________________________
this is sample of my client application using tcpclient,
then the prob here how can i make a server application by manipulate the code above, anyone have idea what should i do now? please..
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
