|
once I found it that way. I also found a better way
e.PageSettings.HardMarginX
e.PageSettings.HardMarginY
and PrinterSettings.DefaultPageSettings.PrintableArea.width/height
|
|
|
|
|
Hi guys,
I'm new on this forum and this is my first time to ask a question.
I use vb.net 2005 with sql server 2000. My project has a main report with 3 sub-reports on it. I use stored procedure as my datasource.
How to pass parameter on sub-reports with "@CutOff" parameter in stored proc?
Thank you
|
|
|
|
|
Hai,
I would like to bookmark the wave file content, Input should given as text format.
eg: I have 1000 of wave (audio) files in server, if search for "codeproject" word out of 1000 files where and all "codeproject" words says bookmark those file and start play from that word. May be that word contains after 15 seconds it should start play from that word. Input should given as text format
|
|
|
|
|
Sounds like fun. Good luck, I think you will need it.
Bob
Ashfield Consultants Ltd
|
|
|
|
|
Do you have someone transcribing and timecoding these audio files?? If not, you're going to find this extrodinarily difficult.
|
|
|
|
|
I have a datagrid and when the rows are getting displayed in the datagrid and i select any of the rows using check box and click a button the rows which i select must disappear and i want it to be done using the front end coding can anyone help me in this
|
|
|
|
|
The only way to make them disappear is to remove them from the datasource you bound the DGV to.
|
|
|
|
|
Or can u tell me how to disable those checkboxes which i have checked after button click
|
|
|
|
|
Hi,
This is the code which i have written on button click
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim bsl As New BSL
Dim item As DataGridItem
Dim chkBox As CheckBox
Dim AllocatedDate As String
Dim taskid As String
Dim ProjID As String
Dim SubmodID As String
Dim Activity As String
Dim details As String
Dim CreateBy As String
Dim AssocID As String
Dim iCapture As Integer
Dim send As String
Dim Rows As Integer
Dim dsViewHomeTask As New DataSet
Try
Dim Connstr As String = "myconnectionstring"
For Each item In dgUserhometask.Items
chkBox = CType(item.FindControl("chkbox"), CheckBox)
'chkBox = (chkBox)(dgUserhometask).(Rows[rowIndex].FindControl("chkBox"));
If (chkBox.Checked) Then
AllocatedDate = CType(item.FindControl("lblAllocDate"), Label).Text.ToString
taskid = CType(item.FindControl("lblTID"), Label).Text.ToString
ProjID = CType(item.FindControl("lblPID"), Label).Text.ToString
SubmodID = CType(item.FindControl("lblMID"), Label).Text.ToString
Activity = CType(item.FindControl("lblActivity"), Label).Text.ToString
details = CType(item.FindControl("lblSynopsis"), Label).Text.ToString
CreateBy = CType(item.FindControl("lblAllocatedBy"), Label).Text.ToString
send = "Y"
AssocID = Convert.ToString(Session.Item("Username"))
Session.Add("Task", taskid)
iCapture = bsl.UserTaskStatus(Connstr, AllocatedDate, taskid, ProjID, SubmodID, Activity, details, CreateBy, send, AssocID)
End If
Next
Catch ex As Exception
Throw ex
End Try
End Sub
can u tell me how to make the rwo which i have checked to disapper on button clcik according to the way i told how to modify the code as i dono how to do it
|
|
|
|
|
I already did. Enumerate the rows you have, check the status of the checkbox, then either create a new dataset, copying the non-checked rows to it, or remove them from the dataset the DGV is bound to.
|
|
|
|
|
Ya actually i dono how to code it so only i have sent my code can u help me how to modify the code accordingly to it
|
|
|
|
|
I have made it so i can see data when I do a print preview, but when I send it to the printer, It acts as though it looses all the rows since it only prints the header, and no data.
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs)
Handles Button1.Click
Me.printResultsPreview.Document = Me.printResults
Me.printResultsPreview.ShowDialog()
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object,
ByVal e As System.Drawing.Printing.PrintPageEventArgs)
Handles printResults.PrintPage
Dim currentTab As Integer 'Horizontal Posistion
Dim currentLine As Integer 'Verticle Posistion
Const ROW_HEIGHT As Integer = 15 'Line Height
Dim totalRows As Integer 'Total number of rows in the data grid
totalRows = Me.DataGridView1.Rows.Count
Static currentRow As Integer 'Current row in the data grid
Dim currentCell As Integer 'Current cell in the data grid
Static pageCount As Integer = 1 'Counts Number of pages
Static printedRows As Integer = 0 'Counts the number of rows per page
Const MAX_ROWS As Integer = 33 'Maximumn number of rows on a page
Dim x As Integer 'For printing the Horizontal Lines
'Reset Horz and Vert Posistion
currentLine = 10
currentTab = 25
'Print the header
e.Graphics.DrawString("| Last Update", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
currentTab += 150
e.Graphics.DrawString("| Food Name", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
currentTab += 150
e.Graphics.DrawString("| Food Group", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
currentTab += 150
e.Graphics.DrawString("| Amount", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
currentTab += 150
e.Graphics.DrawString("| Units", New Font("Georgia", 10, FontStyle.Bold), Brushes.Black, currentTab, currentLine)
currentTab += 150
'Move down one line, and reset Horz Posistion
currentLine += ROW_HEIGHT
currentTab = 25
'Print Horizontal Line
For x = 25 To 800
e.Graphics.DrawString("-", New Font("Georgia", 10), Brushes.Black, x, currentLine)
Next
'Move down one line and reset Horz Posistion
currentLine += ROW_HEIGHT
currentTab = 25
For printedRows = 0 To MAX_ROWS
'Leave loop if you have reached the end of the data grid
If (Me.DataGridView1.Rows(currentRow).Cells(1).Value = String.Empty) Then
Exit For
End If
'Print the data
For currentCell = 0 To 4
e.Graphics.DrawString("| " & Me.DataGridView1.Rows(currentRow).Cells(currentCell).Value, New Font("Georgia", 10), Brushes.Black, currentTab, currentLine)
currentTab += 150
Next
'Move down one line
currentLine += ROW_HEIGHT
'Print Horizontal Lines
For x = 25 To 800
e.Graphics.DrawString("-", New Font("Georgia", 10), Brushes.Black, x, currentLine)
Next
'Move down one line, change your current row, and reset Horz Posistion
currentLine += ROW_HEIGHT
currentTab = 25
currentRow += 1
Next
'Print footer
e.Graphics.DrawString(Now.ToString("M/dd/yyyy") & " - " & Now.ToShortTimeString(), New Font("Georgia", 10), Brushes.Black, 25, 1060)
e.Graphics.DrawString("Page:" & pageCount, New Font("Georgia", 10), Brushes.Black, 750, 1060)
'Check if your at the end of a page
If (printedRows = MAX_ROWS + 1) Then
e.HasMorePages = True
pageCount += 1
Else
e.HasMorePages = False
End If
End Sub
|
|
|
|
|
You need to move your data pointer variables (e.g. Static currentRow As Integer ) outside of the PrintPage event and reset them on the BeginPrint event.
See this article on Printing[^] for more info.
|
|
|
|
|
Took me a while to figure out what you were talking about. But I got it. Since my page, and rowCount was static, it was just staying at the end of my data, so it had no data to print. It was saying "IM ALREADY AT THE END OF YOUR DATA!!!"
|
|
|
|
|
Hi all,
i wanted to ftp files to unix box in VB.net
1. Need to ftp files from windows to unix box
2. Need to create directory in unix box
3. After the file is uploaded need to check the file size
please provide me the code in vb.net
Thanks in advance
|
|
|
|
|
Search Google for "VB.NET FTP", and you'll be buried under the examples. It doesn't matter much what Operating System you use, as long as it supports the FTP-protocol.
|
|
|
|
|
naveengopinath wrote: please provide me the code in vb.net
Write you own code. CP works by helping people with their own code, not by writing it for you.
If you want it written for you, go to RentACoder.com
|
|
|
|
|
|
Hello friends,
I have a VB application to load the txt files to SQL server. For loading the files, i want to specify the folder where the txt files are.Then it will load the files to the server. Now what the customer wants is, to load the files automatically. ie , if any new files are added to the folder,it has to be loaded to server, with out any user interphase
I am planning to call my application from windows scheduled task once a day and will check the folder for any news files are added.
My problem is,how to check any updates has happened to the folder. Please help me for getting the same.
I dont have much experience on application programming. So please try to give code for how to check any new files are added to the folder.
Jish 
|
|
|
|
|
Two options;
If your program is running continuously, you can use the fileSystemWatcher-component. That will only work if your application is running all the time.
The second option is to create a list of the files and their dates. Save the list to disk, and compare it to the directory-structure when your application starts. That way your application won't be required to run continuously.
|
|
|
|
|
Thanks for giving the Solution!!! 
hope second one is more suitable,Because i am planning call the application using the schedular.
But how to comapare the list on disk withthe directory-structure using VB.
Can you please give any sample code to do so.
regards
Jishith
|
|
|
|
|
When you have imported the text file, you could rename the file by changing the extension or even deleting the file, assuming the original file is no longer required. You program then only needs to look for txt files in the designated folder.
Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.
|
|
|
|
|
I gave options, not solutions - you still got a lot of work to do
Let's take it one step at a time;
- You'll have to write a method to 'save' the contents of the folder first. Once you got that working, you can try to compare them with the current values.
- Before writing a method to 'save' the contents, you'll have to have code that gives you the current contents of a folder.
Do you need to watch a directory, or do you also need to watch the subdirectories?
|
|
|
|
|
eddyvluggen wrote: create a list of the files and their dates. Save the list to disk, and compare it to the directory-structure when your application starts
Or use WMI permanent event subscription[^]
In January you said "Money in April" -
That was two years ago!
B. Python
|
|
|
|
|
Hi,
I use the following code to check if there is on the internet a new version
''' <summary>
''' Check for download and if one, download it
''' </summary>
''' <param name="HTTPPath">that basepath where all files will be found on the internet</param>
''' <remarks></remarks>
Function sCheckUpdate(ByVal HTTPPath As String) As Boolean
Dim wc As Net.WebClient = Nothing
Dim bReturn As Boolean
Try
Dim fileProgram As String = New IO.FileInfo(Application.ExecutablePath).FullName
Dim fi As New IO.FileInfo(fileProgram)
Dim VerUri As String = Left(fi.Name, fi.Name.Length - fi.Extension.Length) & ".txt"
VerUri = IO.Path.Combine(HTTPPath, VerUri).Replace("\", "/")
Dim dest As String = Left(fi.FullName, fi.FullName.Length - fi.Extension.Length) & ".zip"
If Not HTTPPath.EndsWith("/") Then HTTPPath &= "/"
HTTPPath &= Left(fi.Name, fi.Name.Length - fi.Extension.Length) & ".zip"
Dim png As New System.Net.NetworkInformation.Ping
Dim rep As System.Net.NetworkInformation.PingReply
rep = png.Send("74.125.47.118", 3000) 'google / 193.191.180.197=post
If rep.Status = Net.NetworkInformation.IPStatus.Success Then
wc = New Net.WebClient
'Dim pProxy As Net.WebProxy = Net.HttpWebRequest.DefaultWebProxy
'wc.Proxy = pProxy
Dim version As Byte() = wc.DownloadData(VerUri)
Dim sHTTPver As String = System.Text.ASCIIEncoding.ASCII.GetString(version)
Dim vnCurrentVersion As System.Version = fVersionNumber()
Dim nVersion As Double = Val(vnCurrentVersion.Build & "." & vnCurrentVersion.Revision.ToString("00000"))
Dim nhttpVer As Double = Val(sHTTPver)
If nhttpVer > nVersion Then
If MessageBox.Show(LangSet.Update.NewExist, LangSet.Update.Available, _
MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
wc.DownloadFile(HTTPPath, dest)
bReturn = True
End If
ElseIf nhttpVer < nVersion Then
MessageBox.Show("Your version is better than on the internet", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show(LangSet.Update.NewestVersion, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Else
MessageBox.Show(LangSet.Update.NetWorkError & Environment.NewLine & Environment.NewLine & rep.Status.ToString)
End If
png.Dispose()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
If Not wc Is Nothing Then
wc.Dispose()
End If
Return bReturn
End Function
however, If someone use a proxy with login and password the function fails. how can I get that information on the brouwser?
getdefaultbrouwser give the error this function is outdated
Jan
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
