|
Dim fi As New System.IO.FileInfo("C:\myfile.txt")
MessageBox.Show(fi.LastWriteTime.ToString("dd/MM/yyyy"))
Daniel Minnaar
Lead Software Developer
|
|
|
|
|
I could not find a VBA forum on here so figure this is the closest forum.
I have an excel doucment, here is kinda what I want to do:
- I have a value entered from an input box (Y), i want to
- If Column A (X (would start at 1)) contains (Y) then Highlight (or select whatever it is)
- Make x + 1 to go onto the next row to check
- Loop until end to ensure all records are checked
- Copy the selected files (already sorted this bit)
This is probably really simple but im new to VBA, help!
Cheers
|
|
|
|
|
Hello!
I have a Form containing a Panel. This Panel contains 3 RichTextBox Controls with some RTF Text in them. My task is to print the contents of RTB at the location with respect to location of RTB.
Following code helps for printing the contents of a RTB on whole paper but is not helpfull in my situation.
http://support.microsoft.com/default.aspx?scid=kb;en-us;811401[^]
Does anybody have some idea how can i implement this.
Thanks in advance for Any help.
colgateas900197
|
|
|
|
|
Have you tried something like this[^]?
|
|
|
|
|
Yes indeed - the MCL Form Print Control[^] (artcile and VB.Net code on this site) can do just that....
Drop the component on your target form and it will add a number of extended properties to each control on that form. Use these to set whereabouts on the printed page you want the RTF boxes to print and any border or background colours etc. and then call its Print() method.
|
|
|
|
|
thanks it helped.....
infact it solved. 
colgateas900197
|
|
|
|
|
Oops - I found a bug...if you preview a form twice or preview then print it th eRTF box doesn't show.
To fix it, alter the "NewLogicalPage" sub in the RTFControlPrintSetting class to clear down the _CurrentChar variable thus:-
#Region "NewLogicalPage"
Public Overrides Sub NewLogicalPage()
If _RichTextBoxPrintMethod = RichTextBoxPrintMethods.PlainText Then
With Me.RichTextBoxControl
_CurrentLine = 0
_Lines = .Lines
_TotalLines = _Lines.Length
End With
Else
_CurrentChar = 0
_TotalChars = Me.RichTextBoxControl.TextLength
End If
End Sub
#End Region
|
|
|
|
|
Hi I am using VB2005 as fon-end and sqlserver 2005 Express edition
as Back end.I want to get Direct printout in crystal report from
VB2005 form.I use the following piece of code To Display
crystal Report..But for direct printout I don't know...Plz Help...
Dim rpstr As String
rpstr = "select * from viewRequisitions where bookingno ='" & Label15.Text + "' and " _
& "Requisitionno =" & Label9.Text + " and " _
& "Vehno ='" & Label13.Text + "' and " _
& "Day(RequisitionDate) = '" & Format(DTPReqDt.Value, "dd") + "' and " _
& "Month(RequisitionDate) = '" & Format(DTPReqDt.Value, "MM") + "' and " _
& "Year(RequisitionDate) = '" & Format(DTPReqDt.Value, "yyyy") + "' "
Me.Crpt.ReportFileName = "D:\TrialFleet\TrialFleet\Bin\Debug\Report\RequsitionReport.rpt"
Me.Crpt.Connect = "DSN=FleetDSN;UID="";Pwd="";"
Me.Crpt.DiscardSavedData = True
Me.Crpt.SQLQuery = rpstr
Me.Crpt.WindowState = Crystal.WindowStateConstants.crptMaximized
Me.Crpt.Destination = Crystal.DestinationConstants.crptToWindow
Me.Crpt.Action = 1
Keshaba
|
|
|
|
|
<br />
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)<br />
Const WM_SYSCOMMAND As Long = &H112<br />
Const SC_MOVE As Int32 = &HF010<br />
<br />
If m.Msg = WM_SYSCOMMAND Then<br />
'The four low order bits of wParam are used internally by Windows,<br />
'so we need to do a bitwise and with FFF0 to get the real value.<br />
If ((m.WParam.ToInt32 And &HFFF0) = SC_MOVE) Then Exit Sub<br />
End If<br />
<br />
MyBase.WndProc(m)<br />
End Sub<br />
can anyone tell me what this code does
It was written by an ex co-worker and I have no idee what it does
Here is what I was able to find out so far:
-whenever I debug I eventually end up in this methode wich then runs several times (everytime differant count) and when it finally exists my code (that I was debugging) runs a second time but with no action taken it just seems to glance over the code without output.
-this code seems to be running continuasly
-when removing the code there doesn't seem to be any visual differance but without knowing what the code does I dare not remove it permantly
any help would be appriciated
If my help was helpfull let me know, if not let me know why.
The only way we learn is by making mistakes.
|
|
|
|
|
I tried this piece of code in an empty vb.net app, and it seems to supress the window movement.
|
|
|
|
|
true but I don't think that that is its main purpuse I believe that the movement supressing is a 'side-affect' beceause the code is run continously.
also there is nowhere that this would be needed (the movement restriction) so I doubt that my ex co-worker implemented it for this.
If my help was helpfull let me know, if not let me know why.
The only way we learn is by making mistakes.
|
|
|
|
|
Here's the link[^] to the documentation on the WM_SYSCOMMAND notification message. It clearly shows that SC_MOVE is used to move the window. I've verified that both constants he used (0x112 and 0xF010) are correct and that, yes, the code stops the window its in from being moved. It's the only thing this code does.
|
|
|
|
|
thank you very much
now I know why this code is implemented
appearently the component we use (datawindows) (I know it sucks, wish I knew this 7 months ago, but I'm trying to get it thrown out, unfortanatly for this project that's not possible) acts as a window and can be moved around on the parent form so he supresses this using this code.
don't really like it (because this programme will be run on a terminal server so any code that runs (olmost) coninuasly is bad) but don't have a better solution so I guess I'll just let it be (for the moment)
thank you again
If my help was helpfull let me know, if not let me know why.
The only way we learn is by making mistakes.
|
|
|
|
|
I´m not shure about this, but I think the code does not run continuously, only when an the user tries to move the window, windows will put the "move window" message in the queue, and then this code is executed. And when intercepting the windows move, there is less instead of more traffic)
|
|
|
|
|
i want to display record in datareport with dynamic
dim con as adodb.connection
dim cmd as adodb.recordset
set con=new adodb.connection
set rs=new adodb.recordset
con.open"dsn=dsnname ( data base msaccess)
rs.open"select * from emp where empname='" & text.text & "',con,1,2
Datareport1.datasoure=rs
datareport1.show
i follow the above coding but the error display (invalid datasource and type mismatch)
iam not user the (data source property)
kindly send reply
|
|
|
|
|
It would appear that your DSN is not valid in some way. Since you're using a DSN, and not a full connection string, it's impossible to tell you what's wrong with it.
|
|
|
|
|
How can i write the ode for tab pages?means when i click the tab then the tab page will display,so what is the process?
Thanks,
Kalyan
|
|
|
|
|
|
I need to convert a string to a DataGridViewCell. I tried " CType(StringHere, DataGridViewCell) " but that does not work. If anybody know anything about this, please reply as this is extremely urgent. Thanks!
|
|
|
|
|
Noone cares how "urgent" it is. We get to answering posts in our own time, whenever we get the chance. This is an all volunteer effort. Besides, what makes you think your problem, that you want answered for FREE, is any more important that any other problem he on the boards?
To answer your question - you can't do that. It's impossible to convert a string to an object. What are you trying to do with this?
|
|
|
|
|
I am trying to get text from a textbox in one form and post it to a Label in another form.
So far I have:
Public Class properties
Dim temForm1 As Form1
Private Sub properties_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label8.Text = temForm1.tbFilename.Text
End Sub
End Class
The code checks out until you run the application and then it comes up with some type of error.
Can anyone tell me how to solve this problem and get the text from my textbox in Form1 to the label in my Properties form?
Thanks in Advanced!
|
|
|
|
|
It's a bit difficult to diagnose the problem without an error, but the only thing i can think of is that your form's instance hasn't been instantiated properly.
Try the following:
---- Main form click event:
Dim frm2 As New Form1()
frm2.Show()
Label8.Text = frm2.tbFilename.Text
frm2.Close()
If that doesn't work, then you're doing something else wrong that you haven't specified.
Daniel Minnaar
.NET Solutions Architect
|
|
|
|
|
i need the text in the textbox, which is in form1, to load into the label, which is in the properties form, when the properties form is opened from a menustrip.
|
|
|
|
|
You need to pass the value of the textbox to the new form when you instantiate it
oFrm = New frmSource(Text1.text)
Then in the sub new on the form you put the text into the label
Sub New(ByVal sText As String)<br />
<br />
' This call is required by the Windows Form Designer.<br />
InitializeComponent()<br />
<br />
' Add any initialization after the InitializeComponent() call.<br />
Label1.text = sText<br />
End Sub
Quote from Great Outdoors:
its a confident traveller who farts in India
|
|
|
|
|
Wow - I spent two hours fighting bad internet and you're still not got a good answer
Member 3694999 wrote: it comes up with some type of error.
This is ridiculous. IF you want help, tell us the error message.
Member 3694999 wrote: im temForm1 As Form1
This may work, IF you set this to be the form1 instance that is visible on your screen. If not, it's a waste of time, and my guess is you got a null reference because you gave it no value at all
What you need to do is read the article on this site on passing values between forms, especially the section on delegates. Use delegates always to pass values between forms. Every other way is a hack
Christian Graus - Microsoft MVP - C++
"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 )
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
