|
Thank you,
But, the question is how do you change the report in the crystal report design view to be in landscape, when you are creating it. I have it attached to a crystalreportsviewer form, i imagin if i can create the report in landscape the view will show it and print it in landscape. Can someone le tme know if i am right and how to do it.
Thanks
Santana
|
|
|
|
|
In my application, I have used an applicaton specific file extension for a binary file. I would like to add a unique icon to these files. I have looked in the MSDN in vain for instructions on how to do this. Can anyone help me?
Thanks!
|
|
|
|
|
If you mean that you a specific icon in Windows Explorer, you just have to create an entry in the registry.
Can have a look at HKEY_CLASSES_ROOT\htmlfile for exemple.
In this example, you will see how to set an icon (DefaultIcon) and see how to lunch an application when double click on it (Shell->Open)
For the icon, you have to option, a separate file ar included in your exe file. I you want to use second option, you will have to modify the propertie of your icon file in the projec Explorer of Visual Studio. You have to change the Build Action in Embedded Resource
Hope it will help you !
Sybux
|
|
|
|
|
Hi,
I know how to use datagrid in asp.net but I don't know how to use it in vb.
I've got a dataset with a datatable which contains all columns of a table.
I want to display only speficied columns in my datagrid but I don't know how to select them !
Thx
Sybux
|
|
|
|
|
i need vb.net API to fetch/retrieve email from smtp server, any suggestions?
regards,
asim mirza
|
|
|
|
|
i would also be interested if someone comes up with hints to develope such own routine at my own. like pop server component.
|
|
|
|
|
I'm trying to update some tables in an sql db when the Update button is clicked and got the following error:
Column 'TesterID' does not belong to table Table.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
Exception Details: System.ArgumentException: Column 'TesterID' does not belong to table Table.
Source Error:
Line 530: Return r("TesterID")
Source File: C:\Documents and Settings\partt\My Documents\Visual Studio Projects\NewRecruit\Consumer.vb Line: 530
Stack Trace:
[ArgumentException: Column 'TesterID' does not belong to table Table.]
System.Data.DataRow.get_Item(String columnName) +119
NewRecruit.PK.BusinessLogicLayer.Consumer.InsertTesterStuff() in C:\Documents and Settings\partt\My Documents\Visual Studio Projects\NewRecruit\Consumer.vb:530
NewRecruit.PK.BusinessLogicLayer.Consumer.PKTesterUpdate() in C:\Documents and Settings\partt\My Documents\Visual Studio Projects\NewRecruit\Consumer.vb:518
NewRecruit.Tester.btnUpdate_Click(Object sender, EventArgs e) in C:\Documents and Settings\partt\My Documents\Visual Studio Projects\NewRecruit\Tester.aspx.vb:513
System.Web.UI.WebControls.Button.OnClick(EventArgs e) +108
System.Web.UI.WebControls.Button.System.Web.UI.IPostBackEventHandler.RaisePostBackEvent(String eventArgument) +57
System.Web.UI.Page.RaisePostBackEvent(IPostBackEventHandler sourceControl, String eventArgument) +18
System.Web.UI.Page.RaisePostBackEvent(NameValueCollection postData) +33
System.Web.UI.Page.ProcessRequestMain() +1263
Here is the code:
(stored procedure)
CREATE PROCEDURE usp_tp_UpdatePKTester
@TesterID char(7),
@LastName varchar(50),
@FirstName varchar(50),
@Address varchar(50),
@City varchar(50)
AS
IF EXISTS (SELECT TesterID FROM tTester WHERE TesterID = @TesterID)
BEGIN
UPDATE tTester
SET LastName= @LastName,
FirstName = @FirstName,
Address = @Address,
City = @City
WHERE (TesterID = @TesterID)
IF (@@ERROR <> 0) GOTO ErrorHandler
SELECT
1 AS RtnVal
END
ELSE
SELECT
-2 AS RtnVal
IF @@ERROR <> 0
GOTO ErrorHandler
ELSE
BEGIN
-- COMMIT
RETURN(0)
END
ErrorHandler:
BEGIN
-- ROLLBACK
RETURN(1)
END
GO
("Consumer" Class):
'call insert for tester
Public Function PKTesterUpdate() As Integer
Return InsertTesterStuff()
End Function
'Insert the Tester data
Private Function InsertTesterStuff() As Integer
Dim ds As DataSet = SqlHelper.ExecuteDataset(ConfigurationSettings.AppSettings(Web.Global.CfgKeyConnString), _
"usp_tp_UpdatePKTester", _
_TesterID, _
_LastName, _
_FirstName, _
_Address, _
_City)
Dim r As DataRow = ds.Tables(0).Rows(0)
Return r("TesterID")
End Function
("Tester" Web form):
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
Dim PKTUpdate As DataTable = DirectCast(Session("GetPKTUpdate"), DataTable)
If PKTUpdate Is Nothing Then
PKTUpdate = New DataTable()
End If
Dim tu As New PK.BusinessLogicLayer.Consumer()
tu.TesterID = Request.QueryString("TesterID")
tu.TesterID = txtID.Text
tu.LastName = txtLName.Text
tu.FirstName = txtFName.Text
tu.Address = txtAddress.Text
tu.City = txtCity.Text
tu.PKTesterUpdate()
Session("GetPKTUpdate") = PKTUpdate
End Sub
Any help is much appreciated
Thank you,
jd
|
|
|
|
|
partt@pk-research.com wrote:
Dim r As DataRow = ds.Tables(0).Rows(0)
Apparently, .Tables(0) actually refers to a table call 'Table' and not what you think it should by using index 0 of Tables(). You'll have to trace into your SqlHelper class and figure out what's causing it to return the wrong table or multiple tables in the Dataset it returns.
RageInTheMachine9532
|
|
|
|
|
Thank you, running well now.
|
|
|
|
|
Hello! Everybody
I want to drag file from FileList Box from VB.NET forms to AUTOCAD (or any other application). Previously I did this useing OLEdrag but in .net OLE is obsolute. I need help. I will be greateful if anyone provide.
Thanks
|
|
|
|
|
See the DoDragDrop method for more information, as well as an example. .NET encapsulates the OLE drag and drop into (overly-)simple calls, also making use of the DragOver , DragDrop , and other related events.
Microsoft MVP, Visual C#
My Articles
|
|
|
|
|
I tried everything, I can drag and drop Text But I can not drag and drop files. U can try and test sample with windows explorer. If u can with explorer just send me sample code.
thanx
|
|
|
|
|
I've done it easily in the past. The only stipulation - without having to P/Invoke OLE's DoDragDrop function and the related OLE interfaces - is that you must have a file related to the item in your ListView . For example, lets say you store the actual path of the file in the ListViewItem.Tag property, so in the event handler for ListView.ItemDrag , you could do something like this:
Private Sub listView1_ItemDrag(ByVal sender As Object, ByVal e As ItemDragEventArgs)
Dim path As String = CStr(e.Tag)
Dim do As New DataObject(DataFormats.FileDrop, path)
listView1.DoDragDrop(do, DragDropEffects.Copy)
End Sub If your ListView contains "virtual" files that you need to stream to the drop target, you have to revert to OLE drag and drop, which can be done using P/Invoke and COM interop for declaring the related interfaces and structs.
Microsoft MVP, Visual C#
My Articles
|
|
|
|
|
Hi!
Thx for reply, I am sending my code herewith, I can drag file upto explorer but It could copy in explorer, send ur comments
Dim path1 As String = "C:\DWG\6420.dwg"
Dim dx As New DataObject(DataFormats.FileDrop, path1)
ListView1.DoDragDrop(dx, DragDropEffects.Copy Or dragDropEffects.Move)
I use same code in "ItemDrag" also.
Please do reply
Hemant
|
|
|
|
|
While a single string should work, also try a String() array with one element - the path. This does work. I've used it many times. Just make sure the file actually exists, since the .NET FCL doesn't expose other STGMEDIUM types (streams, storage, etc.).
Microsoft MVP, Visual C#
My Articles
|
|
|
|
|
I am trying from last 1-2 days. But Explorer does not recognise and can not perform actions like copy/move. As soon as I started dragging a file from windows (VB.NET) application to Explorer ICON gets changed but it does ot perform any action for file copy OR file Move.
If anyone can provide me a sample code i will be very gr8ful.
Thanks
Hemant
|
|
|
|
|
I have a page where I am uploading an image. When the page is first called, the current image is displayed, after they upload a new one image, the new image is displayed. Here is my logic, When I use the code in red, the image displays and refreshes after hitting upload when working on my local computer. But when I move it over to the server. I get the broken image icon for the images. So I used the code in green and the images would show up fine. But I have to hit refresh after I upload to get the new picture to display. The code in blue is where i view the uploaded picture. Also the ConfigurationSettings.AppSettings("PhotoPath") 's value is
"../Images\ReatorPics\"
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
PopulateCurrentImageInfo()
End If
End Sub
Sub PopulateCurrentImageInfo()
Dim vUserID As String
vUserID = HttpContext.Current.User.Identity.Name.ToString
CurrentPhotoInfo.Text = mlsgateway.DatabaseCalls.Searches.ReturnRealtorImage()
CurrentPhotoInfo.Style("Color") = "red"
NewImage.ImageUrl = Server.MapPath(ConfigurationSettings.AppSettings("PhotoPath")) & vUserID & ".jpg")
'NewImage.ImageUrl = ConfigurationSettings.AppSettings("PhotoPath") & vUserID & ".jpg")
NewImage.Visible = True
End Sub
'upload image
Sub Button_Click(ByVal s As Object, ByVal e As System.EventArgs)
'''''''''''grab property number and set path to images folder
Dim vUserID As String
vUserID = HttpContext.Current.User.Identity.Name.ToString
Dim vPath As String = ConfigurationSettings.AppSettings("PhotoPath")
''''''''''obtain info about posted file
Dim ImageFileUp = uploadedFile.PostedFile
Dim ImageFileName As String = Path.GetFileName(ImageFileUp.FileName)
Dim ImageFileType As String = ImageFileUp.ContentType.ToString
'''''''''''save the orignal image to make it easier to manipulate
uploadedFile.PostedFile.SaveAs(Server.MapPath(vPath) & "/TempImages/" & ImageFileName)
''''''''''create a new bitmap from the saved file
Dim temp As String
Dim G As Bitmap
G = New Bitmap(Server.MapPath(vPath) & "/TempImages/" & ImageFileName)
Dim GFormat = G.RawFormat
Dim vWidth As Integer = CType(G.Width, Integer)
Dim vHeight As Integer = CType(G.Height, Integer)
'''''''''run function to obtain new image sizes
Dim NewImageSize As New Size
vWidth = vWidth * 5000
vHeight = vHeight * 5000
NewImageSize = ResizeImage(vWidth, vHeight)
''''''''create new bitmap with old bitmap but new width and height
Dim B As New Bitmap(G, NewImageSize.Width, NewImageSize.Height)
Try
'''''''try and save resized image and convert it to jpeg
'''''''then display old info and new info plus new image
'''''''dispose of image objects
B.Save(Server.MapPath(vPath) & vUserID & ".jpg", ImageFormat.Jpeg)
Dim vUserType As String = Request.Cookies("UserInfo")("UserType")
If vUserType <> "M" Then
SaveImageNameToDBNonMLSUser(vUserID)
Else
SaveImageNameToDBMLSUser(vUserID)
End If
Message.Text = "Image upload complete! "
ImageInfoPrevious.Text = "Old File Name: " & ImageFileName & " Old File Type: " & ImageFileType & " "
ImageInfoNow.Text = "New File Name: " & vUserID & ".jpg New File Type: " & "JPEG"
PopulateCurrentImageInfo()
NewImage.Visible = True
G.Dispose()
B.Dispose()
Catch ObjException As SqlException
Dim ObjError As SqlError
Message.Text = " Image Upload did not complete. Please try again. The error was : " & ObjException.Number & " " & ObjException.Message
Message.Style("color") = "red"
End Try
Page_Load(s, e)
''''''''''call sub to clean up the temp image
'RemoveTempImage(ImageFileName, vPath)
End Sub
Function ResizeImage(ByVal currentwidth, ByVal currentheight)
''''''''''''change 256 value to what ever you want the thumbnail to be returned as
''''''''''''checks to see if it is portait or landscape
Dim TempMultiplier As Double
If currentheight > currentwidth Then
TempMultiplier = 100 / currentheight
Else
TempMultiplier = 100 / currentwidth
End If
Dim NewSize As New Size(CInt(currentwidth * TempMultiplier), CInt(currentheight * TempMultiplier))
Return NewSize
End Function
Sub SaveImageNameToDBMLSUser(ByVal vUserID As String)
''''''''''''saves the new image info into the database.
Dim MyConnection As SqlConnection
MyConnection = New SqlConnection(ConfigurationSettings.AppSettings("Conn_MLSGateway"))
Dim SQL As String
SQL = "Update Assoc_Image_Name Set Image = '" & vUserID & ".jpg' Where LoginID = '" & vUserID & "'"
Dim MyCommand As New SqlCommand(SQL, MyConnection)
MyCommand.Connection.Open()
MyCommand.ExecuteNonQuery()
MyCommand.Connection.Close()
'Response.Write(SQL)
End Sub
Sub SaveImageNameToDBNonMLSUser(ByVal vUserID As String)
''''''''''''saves the new image info into the database.
Dim MyConnection As SqlConnection
MyConnection = New SqlConnection(ConfigurationSettings.AppSettings("Conn_International"))
Dim SQL As String
SQL = "Update Users Set Image = '" & vUserID & ".jpg' Where EmailAddress = '" & vUserID & "'"
Dim MyCommand As New SqlCommand(SQL, MyConnection)
MyCommand.Connection.Open()
MyCommand.ExecuteNonQuery()
MyCommand.Connection.Close()
End Sub
Sub RemoveTempImage(ByVal vImageName As String, ByVal vPath As String)
'this will clean up disk for the old photos that are placed pre resize and conversion.
Dim objFSO
objFSO = Server.CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(vPath & vImageName, False)
objFSO = Nothing
End Sub
|
|
|
|
|
I am using VB.NET Standard edition and it doesn't have Crystal reports. My question is how can i create report in vb.net with out crystal reports? If any one has any examples, I would really appriciate it.
Thank you,
Santana
|
|
|
|
|
YES, possible. You can use the datagrid, and other normal controls to print your own reports with custom alignments etc
He who controls others may be powerful, But he who has mastered himself is mightier still.
|
|
|
|
|
Hi,
Alrite, I found a way to kill the process (hidden). But now I see that the application which kills this process hangs because the process which I just killed (cmd.exe) basically was executing compile commands using gcc, g++, etc. So in the task manager, I see that cmd.exe disappears because I killed it, but I also see g++.exe, cc1plus.exe for a second or so, and then they disappear too.
Also the whole CPU time is taken up by this application, when it hangs.
So I think that the application hangs because the other processes started by cmd.exe stay for sometime before exiting.
Is there a way to kill the main window (cmd.exe) and all the related threads/exe attached to it?
Thanks.
|
|
|
|
|
We can use some API function to get *** textbox password from another Application with win98 or older. Windows NT can not be done with API functions
Who can help me write application to do this work
Email me: hoanghiep@hoanghiep.com
Thanks a lot
|
|
|
|
|
I think this security flaw was closed after Windows 98.
"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar
"On two occasions, I have been asked [by members of Parliament], 'Pray, Mr. Babbage, if you put into the machine wrong figures, will the right answers come out?' I am not able to rightly apprehend the kind of confusion of ideas that could provoke such a question."
--Charles Babbage (1791-1871)
|
|
|
|
|
Yes it was, and is documented. No external process can query text when the EM_PASSWORD style is set. In order to do so, you must "inject" your code into the application's process space using system hooks or valid plug connections whereby the application loads plugins into its own process space. There is an article about this in CodeProject if you search.
Microsoft MVP, Visual C#
My Articles
|
|
|
|
|
I am finishing myfirst application and have assigned a new file extension. I want the allow the user to double click on the file to open the application and then the file that was selected. I have set up the Fiile Types Editor in the setup project, but am unsure how to add code to my application to actually open the file. Can anyone help me?
Thanks!
|
|
|
|
|
ok so you have associated your file type with your application in folder options > file types? that is step 1.
<br />
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
Dim fileName As String = System.Environment.CommandLine.Substring( _<br />
System.Environment.CommandLine.IndexOf(Chr(34) & " " & Chr(34)) + 3)<br />
<br />
'this is now a string containing the exact path & filename which was opened with the program.<br />
fileName = fileName.Substring(0, fileName.Length - 1)<br />
<br />
'then in this sub or another, do something with the file:<br />
'(in this case, open the file, and copy the text in it into a textbox)<br />
Dim inFile As IO.StreamReader = IO.File.OpenText(fileName)<br />
textBox1.text = inFile.ReadToEnd<br />
inFile.Close()<br />
<br />
End Sub<br />
all you need here really is the 'fileName' string which i setup for you, and you can do what you want with it, or you can use the exact example above and test it out.
let me know if this helps.
[many thanks to the Rage man himself.]
------------------------
Jordan.
III
|
|
|
|
|