|
hi...
modified 28-Nov-12 8:34am.
|
|
|
|
|
Hi,
this smay help
Dim objFSO, objFile, objDoc, PrevLine, CurrLine, lp
objFSO = CreateObject("Scripting.FileSystemObject")
objFile = objFSO.OpenTextFile("C:\Stock.txt", 1)
PrevLine = ""
lp = 0
'open the textfile
Do Until objFile.AtEndOfStream
'read the line
objDoc = objFile.ReadLine
'store the 1st line in a temp var
CurrLine = objDoc
'skip the 1st entry
'insert your code here that does the comparison, dfn and baloon
If ((CurrLine <> PrevLine) And lp &<> 0) Then
'write your output here
MsgBox(CurrLine)
End If
'increment the line counter
lp += 1
'make the 2nd var = 1st var line
PrevLine = CurrLine
Loop
objFile.Close()
hope this helps
thanks anoop
|
|
|
|
|
|
Hi
you need to update the variable currentpart,dfn,baloon to the nextpart,dfn,baloon when completed the comparison.
If ((currentLine <> previousLine) And (count <> 0)) Then
If (NextPart = currentPart And currentDNF = NextDNF And currentBaloon = NextBaloon) Then
sw.WriteLine(currentPart & count)
End If
End If
currentpart = nextpart
currentdfn = nextdfn
currentbaloon = nexboloon
count = count + 1
hope this helps
|
|
|
|
|
Do While currentPart = name
temp = sa.ReadLine()
name = temp.Substring(0, pF(1))
error on line "name"
the reference to the object does not have an instance of that object...
I you see my first Meaasge, you will find these lines...
Not sure about the error message
|
|
|
|
|
I have an oddity.
In Excel VBA I can access the content of a ComboBox as sDataExample = ComboBox1.Value having typed sDataExample as a string, and that is good.
IN VB I am trying to assign the selected item in the combobox to a string.
sDataExample = ComboBox.ValueMember() and it is not returning a string to sDataExample.
(It appears to be null).
How do I get the selected ComboBox Item into sDataExample as a string?
------------------------------------
"I am always serious about what I do, not necessarily about how I do it."
Tom Baker
|
|
|
|
|
ComboBox.Text should do it if your combo box is populated with strings.
ValueMember() is used when binding data to the combo box, it specifies what property to use as the value of the combo box item.
|
|
|
|
|
Hot Dammit!
Of Course!
I had a brain malfunction.
Thanks.
------------------------------------
"I am always serious about what I do, not necessarily about how I do it."
Tom Baker
|
|
|
|
|
There is method to read grayscale image as a 2 dimensional matrix in VB?
|
|
|
|
|
What would you like to do?
Convert an image from color to grayscale? Or something else?
|
|
|
|
|
No.I need to read image pixels which range from 0-255 and then encrypt these values using on e of the substitution techniques.
|
|
|
|
|
Since VB doesn't support pointers, the only method you have is GetPixel. Look into writing the image manipulation code in C#, which does support pointers, and convert the data into a form that VB can use.
|
|
|
|
|
I'm a complete noob so nobody laugh. I am just trying to put a rectangle on the form. When I debug the form loads, paints, the rectangle appears. About 5 seconds later another copy of the rectangle shows up in the wrong place and mostly cut off. If I resize it disappears. It looks like the same size rectangle but positioned at the top left corner of the screen instead of the top left corner of the form. Here is my entire code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Refresh()
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim BorderWidth As Integer
Dim TitleHeight As Integer
Dim PenWidth As Integer = 2
BorderWidth = SystemInformation.FrameBorderSize.Width
TitleHeight = SystemInformation.CaptionHeight
Dim bluebrush2 As New Drawing.Pen(Color.Blue, PenWidth)
e.Graphics.DrawRectangle(bluebrush2, 3 + PenWidth, 3 + PenWidth, Me.Size.Width - 8 - (BorderWidth * 2), Me.Size.Height - 8 - (BorderWidth * 2) - TitleHeight)
End Sub
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Me.Refresh()
End Sub
End Class
|
|
|
|
|
Hi,
When a form gets a new size (including gets maximized), but also when it gets minimized, the Resize event will fire. When minimizing, the Form's location and size will be fake, which is fine most of the time. However, you have a Refresh() inside the Resize() handler, I have never seen that before, and it doesn't make sense to me. Windows by itself will fire a Paint event if there is a need, typically when you enlarge, uncover, restore or maximize the form, but not when you minimize it. So I suggest to remove the Refresh().
remark: if you put a Panel on the Form, and anchor it to the 4 edges of the form (you can use Visual Designer to add, postion and anchor the Panel), you then can paint in that Panel's Paint handler instead of the Form's Paint handler; the advantage then is you don't have to account for the border width, the caption height, etc. All the coordinates inside the Panel's Paint handler are relative to the top left of the Panel.
Luc Pattyn [Forum Guidelines] [My Articles]
- before you ask a question here, search CodeProject, then Google
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get
- use the code block button (PRE tags) to preserve formatting when showing multi-line code snippets
|
|
|
|
|
I got rid of the Resize event code and the form load code. As you suggested. I will certainly work toward the panel. However it's still doing the same thing. It draws the rectangle where it belongs and then 5 seconds later draws another one in the wrong place.
|
|
|
|
|
Hi,
I just noticed you got another Refresh(), this one inside the Load handler. Throw it out!
Although once more I don't understand how that could possibly paint outside of your Form, it should not be there at all.
Luc Pattyn [Forum Guidelines] [My Articles]
- before you ask a question here, search CodeProject, then Google
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get
- use the code block button (PRE tags) to preserve formatting when showing multi-line code snippets
|
|
|
|
|
SeanTWard wrote: BorderWidth = SystemInformation.FrameBorderSize.Width
TitleHeight = SystemInformation.CaptionHeight
Dim bluebrush2 As New Drawing.Pen(Color.Blue, PenWidth)
e.Graphics.DrawRectangle(bluebrush2, 3 + PenWidth, 3 + PenWidth, Me.Size.Width - 8 - (BorderWidth * 2), Me.Size.Height - 8 - (BorderWidth * 2) - TitleHeight)
What's with all the borderWidth, titleHeight, and other junk?? Why could you just get the ClientSize dimensions of the form using Me.ClientSize?? It's everything without the titlebar and border widths.
|
|
|
|
|
Thank you. Added that but the crazy ghost rectangle is still popping up. New code is:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim PenWidth As Integer = 2
Dim ClientHeight As Integer
Dim ClientWidth As Integer
ClientHeight = Me.ClientSize.Height
ClientWidth = Me.ClientSize.Width
Dim bluebrush2 As New Drawing.Pen(Color.Blue, PenWidth)
e.Graphics.DrawRectangle(bluebrush2, 3 + PenWidth, 3 + PenWidth, ClientWidth - 9, ClientHeight - 9)
End Sub
End Class
|
|
|
|
|
Hi,
if you are getting two rectangle outlines, same size, same color, one on the form, one on the screen, there is no way I can think of the code shown could do that. Either your app contains more code that is relevant, or you have some other process (an older version of the same app?) running wild at the same time.
Suggestions:
- Check in Task Manager.
- Close and restart Visual Basic.
- Reboot your system.
Luc Pattyn [Forum Guidelines] [My Articles]
- before you ask a question here, search CodeProject, then Google
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get
- use the code block button (PRE tags) to preserve formatting when showing multi-line code snippets
|
|
|
|
|
No dice, I closed everything, shut down the computer, booted back up, and tried again. Same thing. Once I resize the window or move it or anything the extra partial rectange goes away and doesn't come back. This is all the code in the app.
|
|
|
|
|
hello every one
There are two forms form1 and form2 form1 has a buttoncontrol init and another form has
tabcontrol init now what i want is that only tabcontrol to be displayed in form1 from form2
for that i had written code in button clisk event like...
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
Dim doc As New frm2
doc.tabcntrol.Show()
doc.tabcntrol.BringToFront()
doc.show()
doc.Visible = True
End Sub
but what happens is the whole form2 appears as i click on button while i want just tabcontol
from form2 to be visible on buton click event..
so what shall i do..
i am beginner
please help....
thank you
|
|
|
|
|
Hi,
when some Control (say a Button, a TabControl) is on a container (another Control aimed at containing Controls; say a Panel, a Form), you can:
- show the container with the Control
- show the container without the Control
but you can't show the Control without the container.
If the container is not visible, then whatever it contains is also not visible.
You may have to rethink the concepts of your user interface...
Luc Pattyn [Forum Guidelines] [My Articles]
- before you ask a question here, search CodeProject, then Google
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get
- use the code block button (PRE tags) to preserve formatting when showing multi-line code snippets
|
|
|
|
|
OK, I have this.
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SendEmail("Skip")
End Sub
Sub SendEmail(ByVal name As String)
Dim mail As New MailMessage()
mail.From = New MailAddress("fromaddy@ee.com")
mail.To.Add("toaddy@ee.com")
mail.Subject = "Skip hire details"
mail.Body = "This is a Test"
Dim smtp As New SmtpClient()
Try
smtp.Send(mail)
Finally
mail.Dispose()
smtp = Nothing
End Try
End Sub
End Class
It is throwing at the smtp.Send(mail) point.
I am trying to keep it simple and so it lacks all sorts of attachments etc, but I cannot see why it is not working.
This part Dim smtp As New SmtpClient() may be part of the trouble, but surely if it is SmtpClient() it defaults to the local computer's settings?
Any pointers?
------------------------------------
"I am always serious about what I do, not necessarily about how I do it."
Tom Baker
|
|
|
|
|
Dalek Dave wrote: It is throwing at the smtp.Send(mail) point.
Standard Question #1: What's the error message??
But, I can probably guess at it. You didn't tell the SmtpClient what the resolvable name or IP address of the SMTP Server is that you're going to use to send the email. Yes, you absolutely must have one somewhere to use. No, you probably can't use your own and have it forward to a known SMTP Server on the net. With the proliferation of spam, most SMTP servers are now requiring a login to send mail and wont forward mail from an untrusted SMTP server.
|
|
|
|
|
Dave Kreskowiak wrote: Standard Question #1: What's the error message??
Failure to connect to remote server
{"No connection could be made because the target machine actively refused it 127.0.0.1:25"}
I have tried changing host to Dim smtp As New SmtpClient("localhost") but this does nothing.
Dave Kreskowiak wrote: You didn't tell the SmtpClient what the resolvable name or IP address of the SMTP Server is that you're going to use to send the email
How do I resolve this? I just want one known machine to email another known machine, it is not for general consumption.
------------------------------------
"I am always serious about what I do, not necessarily about how I do it."
Tom Baker
|
|
|
|
|