|
hi i wrote a code that read the emails, i want to save the emails the have attachments in a msg format, i want a code that help me to do it, so can iany1 help me
Thanks alot
Hamody
|
|
|
|
|
Hi to everyone,
I am developing a winform application in VB 6. I want to know if there is a control where in you can put numerous controls into it and then you can view them by scrolling down or up.
|
|
|
|
|
Hi,
Panel is control u r looking for ................don't forget to set AutoScroll Property of Panel to True................
Hope this will help u.................:->
Regards,
Ritesh
|
|
|
|
|
Hi,
I have listed a code with a suitable example for 'Panel Control'
Creating Repeated Controls :
----------------------------
1.Place a PANEL Control Class , Two BUTTON and Two LABEL on Form.
2.Set the AUTOSCROLL property of PANNEL is TRUE.
3.Write the following code within a FORM as follows…
'--- BEGINS
Dim txt As TextBox
Private Sub Button2_Click(…) Handles Button2.Click
Dim a, y As Integer
y = 10
Panel1.Controls.Clear()
For a = 1 To CInt(TextBox1.Text)
txt = New TextBox()
Dim Lbl As New Label()
Txt.Location = New Point(20, y)
Lbl.Location = New Point(2, y + 3)
Txt.Width = 75
Lbl.Width = 25
AddHandler txt.Enter, AddressOf CursorGotFocus
Panel1.Controls.Add(Txt)
Panel1.Controls.Add(Lbl)
txt.Tag = a
Lbl.Text = a
y += Txt.Height + 5
Next
End Sub
Private Sub CursorGotFocus(ByVal sender As Object, ByVal e As System.EventArgs)
Dim C As Control = sender
Label2.Text = "Cursor On " & C.Tag & " TextBox....! "
End Sub
Private Sub Button1_Click(…) Handles Button1.Click
Dim T As Control
Dim Result As String
For Each T In Panel1.Controls
If TypeOf T Is TextBox Then
Result &= T.Tag & "." & T.Text & vbCrLf
End If
Next
MsgBox(Result, MsgBoxStyle.Information, "")
End Sub
4.Run the above code and Enter TEXTBOX that How many TEXTBOXES to be Created .
5.Press the Browser BUTTON (…).
6.Enter the Data into Created TextBoxes within the Panel.
7.Press the Button Labeled Show, The Given data are displayed on MessageBox.
8.In Label which was placed under the Button Show, Displays that current cursor location. ('Enter Event raised).
9.In .NET , ENTER Event worked as GOTFOCUS Event on Classic VB.
With Regards,
PANDIAN S
|
|
|
|
|
Hello,
I need to develop an automatic SMS response system where user will ask for some informaion sending sms to a designated mobile no which will be connected via modem with the pc , upon receiving the sms the application query the database and send a sms reply .
How can I do that? Where to start?
Any kind of help will be highly appreicating.
Thanks in advance for help
Best Regards
Kashem
|
|
|
|
|
Respected All
Regards!
I am David from denmark and also working in Vb as learner.i have a problem.
" To run the system clock for only 10 minuts and after each 10 minuts the system clock again reset on old time through Vb coding but this applicatio run bydefault when i have to Run a Software ABC (mean no need to run that vb application but run byitself with a software ABC).
Thanking in anticipation
David
david
|
|
|
|
|
Sounds like your trying to get around a copy protection scheme. You're not going to get any help with that.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
 'Created By I Made Agus W.A (IMAWA)
 'For Educational Purpose Only
![Rose | [Rose]](https://codeproject.global.ssl.fastly.net/script/Forums/Images/rose.gif)
'Imports statement
Imports System.Data.OleDb
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
'Put into Web Form Designer Generated Code
Protected WithEvents oRpt As YourRPT = Nothing
'Sub Procedure, Ready to use/call
Private Sub ExportApplication()
---- GET DATASET (you can change it with your own function to get table)
Dim dt As DataTable
Try
dt = GetTableData("View_StockCard", "", "")
---- END OF GET DATASET
---- CREATE REPORT
oRpt = New YourRPT
oRpt.SetDataSource(dt)
--- SEND PARAMETER TO REPORT (OPTIONAL)
oRpt.SetParameterValue("DateStart", DateFrom.DateValue.ToShortDateString)
oRpt.SetParameterValue("DateFinish", DateUntil.DateValue.ToShortDateString)
--- END OF SEND PARAMETER
View_Report.ReportSource = oRpt
Dim exp As ExportOptions
Dim req As ExportRequestContext
Dim st As System.IO.Stream
Dim b() As Byte
Dim pg As Page
--- View_Report As CrystalDecisions.Web.CrystalReportViewer*
pg = View_Report.Page
exp = New ExportOptions
--- ExportFormat As System.Web.UI.WebControls.DropDownList*
--- ExportFormat value is pdf, xls, doc
If ExportFormat.SelectedValue = "pdf" Then
exp.ExportFormatType = ExportFormatType.PortableDocFormat
exp.FormatOptions = New PdfRtfWordFormatOptions
Else
If ExportFormat.SelectedValue = "xls" Then
exp.ExportFormatType = ExportFormatType.Excel
exp.FormatOptions = New ExcelFormatOptions
Else
exp.ExportFormatType = ExportFormatType.WordForWindows
exp.FormatOptions = New PdfRtfWordFormatOptions
End If
End If
req = New ExportRequestContext
req.ExportInfo = exp
With oRpt.FormatEngine.PrintOptions
.PaperSize = PaperSize.PaperLegal
.PaperOrientation = PaperOrientation.Portrait
End With
st = oRpt.FormatEngine.ExportToStream(req)
pg.Response.ClearHeaders()
pg.Response.ClearContent()
pg.Response.ContentType = "application/" + ExportFormat.SelectedValue
ReDim b(st.Length)
st.Read(b, 0, CInt(st.Length))
pg.Response.BinaryWrite(b)
pg.Response.End()
dt.Dispose()
Catch ex As Exception
ShowError(ex.Message)
End Try
End Sub
'Example (When imgExport Clicked then SaveAs)
Private Sub imgExport_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs)
Handles imgSearch.Click
ExportApplication()
End Sub
:-> I Made Agus W.A
---------------------
IT Programmer Staff
PT Tunas Ridean Tbk.
|
|
|
|
|
 When i click a button, the destination file automatically open by browser. How to solve this problem 
:-> Create then running this function (at: on click event handler) :
DownloadFromFile("uploadcache\textfile.txt")
'Created by I Made Agus (STMIK Bandung)
'For Educational Purpose Only
Public Sub DownloadFromFile(ByVal TFileTarget As String)
Dim st As System.IO.Stream
Dim b() As Byte
Dim FileSource = Request.ServerVariables("APPL_PHYSICAL_PATH") & TFileTarget
Dim FileReader As FileStream
Try
FileReader = File.Open(FileSource, FileMode.Open)
st = FileReader
ReDim b(st.Length)
st.Read(b, 0, CInt(st.Length))
Response.ClearHeaders()
Response.ClearContent()
Response.ContentType = "application/"
Response.BinaryWrite(b)
Response.End()
FileReader.Close()
Catch ex As Exception
Exit Sub
End Try
End Sub
 Do not send any question to : Bluechip_asia@yahoo.com
|
|
|
|
|
Any tool can convert from vb6 code to vb.net.
Any help will be much appreciated.
Clifford
|
|
|
|
|
 1. Select the FILE Menu -> OPEN -> PROJECT (or)
Press CTRL + SHIFT + O
2. Now Open Project Dialog Box appeared.
3. In the Dialog Box, Select the Project
(Created In VB6.0 - To be Upgrade to VB.NET) (VB Project File Ex: Project1.vbp).
4. Select OPEN Button.
5. Now a Dialog box appeared entitled : "Visual Basic Upgrade Wizard - Page 1 of 5".
6. In this dialog box, Select the NEXT Button.
7. Select the Option EXE and then select NEXT Button.
8. Give a New Name (D:\Pandian\Project1.NET), Location for VB.NET Solution to be Created.
9. Select the button NEXT, A Confirmation box appeared, Select YES.
10. Select the Button NEXT. Please Wait...... ( Till the Progress bar completed)
11. Press 'CTRL+ALT+L' (or) 'Solution Explorer' on Standard Tool Bar.
12. Within your Solution Explorer(VB.NET), The following items are added.
12.1 _UpgradeReport.htm ( This is Statistics file, Whatever files have been upgraded from VB6.0 to VB.NET)
12.2 AssemblyInfo.vb
12.3 Form1.vb
13. Now Your VB6.0 Project has been Upgraded to VB.NET Solution.
With Regards,
PANDIAN S
pandians@ho.netaccess-india.com
|
|
|
|
|
Hi All,
Is there a way to add (or map) directly from dataset to combobox? I tried to use ComboBox.DataSource = ADataSet, but it doesn't seem to work. The reason that i'm using dataset to map direct to combobox because the data in the database is huge. It's about 20,000 records; and I don't want to use for loop or while loop to loop through and add one by one. If anyone know a way to do it, please help me.
Thank you for helping.
John
|
|
|
|
|
In addition to set DataSource, you have to set DataTextField, DataValueField also. If the DataSet has more than one table you to set the DataMember property also.
|
|
|
|
|
Urgent - HELP!!!!!!!!!!!!!!
How do I populate three (3) different listboxes in a single form - programmatically (vb.net)? I really do not want to use the visual tools.
The items of the listboxes are coming from the database. I can connect to the database and can query the database to the specific tables, but my dilemma is that I can't seem to populate the listboxes.
Do I need to instantiate three different sqladapters and datasets after I connect to the database? Afterwards, how do I map or bind the results to the specific controls. Please provide a simple code.
Thanks.
Jay (Lost in Self-strangulation)
|
|
|
|
|
I'm working on a project Visual Studio and in my
project, I am not able to use .NET dialog boxes (ie. MessageBox.Show,
OpenFileDialog, etc.). I have to use the dialog box code from VB6.
Why is this happening and how can I fix it?
|
|
|
|
|
Joe - D wrote:
MessageBox.Show
MsgBox("My Message")
Joe - D wrote:
OpenFileDialog
Dim openDialog As New OpenFileDialog<br />
openDialog.ShowDialog()
Hope this helps
Tom
|
|
|
|
|
Joe-D
Messagebox and openfiledialog are in the System.Windows.Forms namespace. Make sure it is referenced/imported etc... properly.
The openfiledialog is a control from the toolbox that you could drag onto your form or
Sample from Help
Dim myStream As Stream<br />
Dim openFileDialog1 As New OpenFileDialog()<br />
<br />
openFileDialog1.InitialDirectory = "c:\"<br />
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"<br />
openFileDialog1.FilterIndex = 2<br />
openFileDialog1.RestoreDirectory = True<br />
<br />
If openFileDialog1.ShowDialog() = DialogResult.OK Then<br />
myStream = openFileDialog1.OpenFile()<br />
If Not (myStream Is Nothing) Then<br />
' Insert code to read the stream here.<br />
myStream.Close()<br />
End If<br />
End If<br />
|
|
|
|
|
I checked what was imported in the project properties and it is show Microsoft.VisualBasic. When I removed this, all of the places where I have had to insert MsgBox became an error. Perfect, but then when I try to replace MsgBox, MessageBox is not recognized. What do I have to Import into the project properties?
|
|
|
|
|
Forget about msgbox. Use MessageBox
In the project references make sure that System.windows.forms is referenced else add it.
|
|
|
|
|
Hi,
My form have a datagrid from ArrayList.
I would like to modify some cells of values using "edit-in-place".
After I press keyup, the new cell value is canceled and show that message: "Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: Index Do you want to correct the value ?"
How can I modify a cell value using "edit-in-place" on Datagrid ?
Thanks.
|
|
|
|
|
Hi,
My form have a datagrid from ArrayList.
I would like to modify some cells of values using "edit-in-place".
After I press keyup, the new cell value is canceled and show that message: "Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: Index Do you want to correct the value ?"
How can I modify a cell value using "edit-in-place" on Datagrid ?
Thanks.
|
|
|
|
|
Try reading this, you may get some hints
http://www.developer.com/net/vb/article.php/2228761
|
|
|
|
|
Hi! I have a main form that handles several other child forms.The thing is that when i close the main form, and i want to close all of the child forms, it seems that the Main thread doesn't wait for the child forms to terminate.The main form calls Dispose() which destroys the mainUI first than the childs. Is this the correct procedure or do i have to destroy first the child forms and only then the mainUI?
Thanks in advance.
Never say never
|
|
|
|
|
Hi,
- If the Form1 is a MainForm then (Form1 -> Property -> isMdiContainer=True)
- I hope the below code will help U
Private Sub CallForm2(...) Handles MenuItem2.Click
Dim F2 As New Form2()
F2.MdiParent = Me
F2.Show()
End Sub
Private Sub CallForm3(...) Handles MenuItem3.Click
Dim F3 As New Form3()
F3.MdiParent = Me
F3.Show()
End Sub
Private Sub CallExit(...) Handles MenuItem4.Click
Application.ExitThread()
End Sub
With Regards
PANDIAN S
|
|
|
|
|
what functions should i use for a runtime chating program over the network and not over the internet having a security blocking the edit of a file or a database on the server (bypassing writing on a file or a database, i already try that)
10x
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
