|
I didn't get your problem.
|
|
|
|
|
i need help on a vba code that would return/load a specific form depending on the user selection from the combo list
|
|
|
|
|
Hi Friends,
I am calling one batch file from vb program like the below code.
Dim d As Double
d = Shell("\\sysl\share1\overtime log\Overtime Log\Ext.bat", vbHide)
the above 2 lines are given in form_load event.
When I try to run this application which is having the above two lines to call the batch file from the Server : sys1 it is working fine and calling the batch file.
But when i create package and deployement of this application, and installed in other system and when i try to run the project, it gives error Runtime Error: Call to invalid procedure or argument
But the i am not getting the above error if i give the ipaddress of sys1 instead of giving the system name like sys1.
Please suggest me some ideas for this. Since my ip address is dynamic, i cannot give that address, so i can only give my sys name ....So Expecting your help.
Thanks in Advance,
Regards
|
|
|
|
|
aaraaayen wrote: Shell("\\sysl\
Your code says sysL but your description says sys1. ie: Ell instead of One. Is this your problem?
-------------------------------------------
Don't walk in front of me, I may not follow;
Don't walk behind me, I may not lead;
Just bugger off and leave me alone!!
|
|
|
|
|
hi
Thanks for your reply.
No.thats not the problem. I have given the system name its just typo mistake here. thats it.
Expecting your reply.
Regards,
|
|
|
|
|
Do all the users who are using this application have the appropriate permissions to that share?
|
|
|
|
|
Hi all..
im, looking to send the printpreview/printdocument data to a file ..is their a way to do this to a PDF at all..
if not i know there is a way to create a bitmap of some sort any help would be appreciated..
Thanks Again.
Robbo 
|
|
|
|
|
You can create a PDF, if you buy a library to do it. In fact, there's a free library called pdf995 or something, which prints to a PDF.
There's a DrawToBitmap method on your form and it's controls you can use to create a bitmap
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 )
|
|
|
|
|
Thankyou.. your information allowed me to view great alternatives and methods.. thanks again
|
|
|
|
|
Hi there,
I have a problem regarding Resources.resx in VS 2005.
I have put an icon on a button on some form, then I wanted to remove the icon and use another. (I went buttons Image property -> project resources file -> import) then I tried to delete the icon from this interface, but no luck so I deleted the whole Resources folder and resources.resx And now my project wont't compile, and there is an error could not find resources...
This is kind of a bug because when this happens, couldn't just VS create another resx file and reset all resources... lame.
Any help greatly appreciated?
thanks
|
|
|
|
|
It's not really lame that you did something silly and VS isn't magically restoring your file.
The way to change the icon on a button, is to change the property in the designer. If you can get your resx file back to do that from.
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 )
|
|
|
|
|
Hi all,
I've got some code that enters data into a rich text box. Basically, I need to be able to find the line and column number of the last input so that i can do some rearranging if necessary.
After digging around, all I can find is how to get the line/column of selected text or the cursor position. So I'm wondering if it would be possible to programmatically place the cursor at the end of the last input, then get the line/column position of the cursor.
If anyone has any suggestions on how to do this (or if they can suggest a better method) I would be greatly appreciative.
Thank you.
|
|
|
|
|
The RTB doesn't support what you want to do natively. Also, a "line" in the RTB isn't what you think. A single "line" in the RTB can span multiple lines when rendered on screen, so using the methods and properties that returns line numbers in the RTB doesn't return the line where the text was rendered on screen.
There is no method/property to return the rendered column number. Also, with proportional fonts, the column number is a subjective measurement. The same column number, rendered on two different lines will not line up to be the same visual column.
You can use the Lines property of the RTB to get the last line of text, but keep in mind that this can represent multiple lines on screen.
|
|
|
|
|
i am making a software "IQ TEST" for my thesis project... but my problem is i dont know how to put a timer in my module? can you pls tell me the codes for it??? thanks
|
|
|
|
|
Hi,
Please try the following code snippet which uses a Timer Control (Timer1), one label (lblLogin) and two button (btnLogin and btnBreak). Drag and drop above mention .Net control and give name accordingly (as mentioned in the parenthesis) and paste the following code snippet:
-------------------------------------------------------------------------
BEGIN CODE
Public Class Form1
Dim tmr1 As Integer
Dim timerString As String
Dim seconds, minutes, hours As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.lbldate.Text = Format(Now(), "dddd, MMM dd yyyy")
'Me.btnLogin.Enabled = False
Me.AcceptButton = btnLogin
Me.Timer1.Start()
'
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'Me.lblLogin.Text = Format(Now(), "hh:mm:ss")
'tmr1 = tmr1 + 1
'timerString = tmr1
seconds += 1
If seconds = 60 Then
minutes += 1
seconds = 0
End If
If minutes = 60 Then
hours += 1
minutes = 0
End If
timerString = hours & ":"
timerString = timerString & minutes & ":"
timerString = timerString & seconds
Me.lblLogin.Text = timerString
End Sub
Private Sub btnBreak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBreak.Click
Me.Timer1.Stop()
End Sub
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Me.Timer1.Start()
End Sub
END CODE
-------------------------------------------------------------------------
I hope this helps .
Regards,
John Adams
ComponentOne LLC
|
|
|
|
|
thanks, but can this timer can stop in another form?
for example, your timer starts at form1, the timer is only set in 60 minutes. When 60 min. is over and you are in the form3 already.. it will go automatically to the last form (form10 for example). is it possible?
|
|
|
|
|
Yes, of course. How it's done depends however very much on how you move from one form to another.
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
ok! thanks! i got it already... thank you so much to all those who help! 
|
|
|
|
|
Hi,
i added "ShockWave Flash Object" from .COM (rt clicking toolbox and by choose Items)
when i dragged it to form
it shows error,
Failed to import the ActiveX control. Please ensure it is properly registered.
How can i solve this..
is there any other method.
Thanks 
|
|
|
|
|
Hello,
You can have a look at this link. It will give you some idea.
http://www.devx.com/vb2themax/Tip/18742[^]
I hope this will help.
Regards,
Allen
Allen Smith
Software Engineer
ComponentOne LLC
www.componentone.com
|
|
|
|
|
i am going through that.
thanks for your help
|
|
|
|
|
i am using vb express 2005 edition.
vb6 is not installed in my computer.
|
|
|
|
|
i want to save image in db
i m using ms access db
images are stored in database successfully.
i have added a list box on the form and i want that when i save image in db so that image name should be added in list box
but i don't know how to do that
i m also giving code below
any body can help me.
thanks
Option Strict On
Imports System.Data.SqlClient
Imports System.IO
Public Class Form1
Inherits System.Windows.Forms.Form
Dim conn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Replace(Application.StartupPath, "bin", "") & "DB.mdb;Mode=ReadWrite;Persist Security Info=False")
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents PicBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
Friend WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter
Friend WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents DataSet11 As LoadinImages.DataSet1
<system.diagnostics.debuggerstepthrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
Me.Label1 = New System.Windows.Forms.Label
Me.ListBox1 = New System.Windows.Forms.ListBox
Me.DataSet11 = New LoadinImages.DataSet1
Me.PicBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection
Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter
Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand
Me.TextBox1 = New System.Windows.Forms.TextBox
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PicBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.ForeColor = System.Drawing.Color.Black
Me.Button1.Location = New System.Drawing.Point(121, 376)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Browse"
'
'Button2
'
Me.Button2.ForeColor = System.Drawing.Color.Black
Me.Button2.Location = New System.Drawing.Point(220, 377)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Save"
'
'PictureBox1
'
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.PictureBox1.Location = New System.Drawing.Point(24, 16)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(301, 304)
Me.PictureBox1.TabIndex = 3
Me.PictureBox1.TabStop = False
'
'Label1
'
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label1.ForeColor = System.Drawing.Color.Red
Me.Label1.Location = New System.Drawing.Point(24, 341)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(427, 32)
Me.Label1.TabIndex = 4
'
'ListBox1
'
Me.ListBox1.BackColor = System.Drawing.SystemColors.Control
Me.ListBox1.HorizontalScrollbar = True
Me.ListBox1.Location = New System.Drawing.Point(331, 16)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.ScrollAlwaysVisible = True
Me.ListBox1.Size = New System.Drawing.Size(120, 303)
Me.ListBox1.TabIndex = 7
'
'DataSet11
'
Me.DataSet11.DataSetName = "DataSet1"
Me.DataSet11.Locale = New System.Globalization.CultureInfo("en-US")
Me.DataSet11.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'PicBindingSource
'
Me.PicBindingSource.DataMember = "Pic"
Me.PicBindingSource.DataSource = Me.DataSet11
'
'OleDbConnection1
'
Me.OleDbConnection1.ConnectionString = resources.GetString("OleDbConnection1.ConnectionString")
'
'OleDbDataAdapter1
'
Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Images", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("Filename", "Filename"), New System.Data.Common.DataColumnMapping("Photo", "Photo")})})
'
'OleDbInsertCommand1
'
Me.OleDbInsertCommand1.CommandText = "INSERT INTO Images(Filename, Photo) VALUES (?, ?)"
Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
Me.OleDbInsertCommand1.Parameters.AddRange(New System.Data.OleDb.OleDbParameter() {New System.Data.OleDb.OleDbParameter("Filename", System.Data.OleDb.OleDbType.VarWChar, 50, "Filename"), New System.Data.OleDb.OleDbParameter("Photo", System.Data.OleDb.OleDbType.VarBinary, 0, "Photo")})
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.CommandText = "SELECT Filename, Photo FROM Images"
Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(124, 406)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(171, 20)
Me.TextBox1.TabIndex = 8
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.SystemColors.Control
Me.ClientSize = New System.Drawing.Size(466, 438)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.ListBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.ForeColor = System.Drawing.Color.White
Me.Name = "Form1"
Me.Text = "DataBase Images"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PicBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim thumbNail As Image
With OpenFileDialog1
.Filter = "All Files|*.*|Bitmaps|*.bmp|GIFs|*.gif|JPEGs|*.jpg"
.FilterIndex = 2
End With
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
With PictureBox1
.Image = Image.FromFile(Me.OpenFileDialog1.FileName)
.SizeMode = PictureBoxSizeMode.CenterImage
End With
Dim theImage As New Bitmap(OpenFileDialog1.FileName)
PictureBox1.Image = theImage
thumbNail = theImage.GetThumbnailImage(PictureBox1.Height, PictureBox1.Width, Nothing, Nothing)
PictureBox1.Image = thumbNail
End If
Me.Label1.Text = Me.OpenFileDialog1.FileName.ToString
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
On Error GoTo fix
If TextBox1.Text = "" Then
MsgBox("Please Enter Name File")
TextBox1.Focus()
Exit Sub
End If
' Open the file
Dim fs As FileStream = New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)
Dim s As String = TextBox1.Text
'Read the output in binary reader
Dim r As BinaryReader = New BinaryReader(fs)
'Declare a byte array to save the content of the file to be saved
Dim FileByteArray(CInt(fs.Length - 1)) As Byte
r.Read(FileByteArray, 0, CInt(fs.Length))
Dim sql As String = "INSERT INTO Images (Filename,Photo) VALUES (?,?)"
Dim i As Integer
ListBox1.Items.Add(TextBox1.Text)
MessageBox.Show("Image Succesfully inserted !", "Photo Album", MessageBoxButtons.OK, MessageBoxIcon.Information)
fix:
Exit Sub
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim arrayImage() As Byte = CType(Me.DataSet11.Tables(0).Rows(Me.ListBox1.SelectedIndex)("photo"), Byte())
Dim ms As New MemoryStream(arrayImage)
With Me.PictureBox1
.Image = Image.FromStream(ms)
.SizeMode = PictureBoxSizeMode.CenterImage
End With
End Sub
End Class
Aamir Mustafa
|
|
|
|
|
There's too much code here. Most of it is irrelevent to the problem at hand.
Identify which bit of code you need help with and post it only.
Paul Marfleet
"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush
|
|
|
|
|
Seriously, your code is unreadable. Using default names like button1 and listview2, means I cannot scan this and have any idea what each method is supposed to do, without examining the code closely.
You're talking about listboxes, but the code you posted is putting the image in a picture box. Does this code work ? If so, there's no problem with your database, or any of the code you have posted.
If you just need to know how to show an image in a listbox, then you should probably look here[^].
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
