2,383 Posted Topics
 | |
 | add/drag opendialog control in your form , one label (for path view), one picture box (for image view) and one button (for browse image). in your button browse add this code : [CODE] With OpenFileDialog1 '.InitialDirectory = "C:\" .Filter = "All Files|*.*|Bitmaps|*.bmp|GIFs|*.gif|JPEGs|*.jpg" .FilterIndex = 4 End With If OpenFileDialog1.ShowDialog() = …  |
| | Try This : [code=vb.net] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Name, Id, ye, Gen As String Name = txtName.Text Ye = txtYearEnrolled.Text Id = txtIDNum.Text Gen = Microsoft.VisualBasic.Right(ye, 2) + Microsoft.VisualBasic.Right(Id, 4) + Microsoft.VisualBasic.Right(Name, 3) If Name = "" Then MsgBox("Name is empty") …  |
| | |
| | |
| | |
| | |
| | |
| | Hi...Weclome to Daniweb Friend :) |
| | |
| | |
| | |
 | |
| | |
| | try This : [code=vb] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click CrystalReportViewer1.SelectionFormula = "Date({TableName.FieldName}) >= #" & dtStartDate.Value & "# And Date({TableName.FieldName}) <= #" & dtEndDate.Value & "#" CrystalReportViewer1.RefreshReport() End Sub [/code] |
| | it causing your code just insert the selected item. try to change cstr1 = [B]ListBox1.Items.Item(i)[/B] >> [ICODE]i = 1[/ICODE] --> its not starting with 1 but 0. First item index is 0 not 1. [code=vb]For i = 0 To ListBox1.Items.Count - 1 cstr1 = ListBox1.Items.Item(i) strqry1 = "insert into trans(pid) … |
| | |
| | Make all textbox as control array. So, first draw one text box then copied it. vb 6 will give u a message to make textbox as control array or not. click yes to make it as control array. After it you can make loop and get value from all text …  |
| | Just post on Web Development Forum Please... |
 | use registry to save trial time. |
| | Re: Loading Screen [code=vb]Private Sub Timer1_Timer() ProgressBar1.Value = ProgressBar1.Value + 5 If ProgressBar1.Value = 100 Then MDIForm1.Show Timer1.Enabled = False Unload Me End If End Sub[/code] Set Timer Interval on Properties = 70. |
| | |
| | No, you can't extract forms or reports... |
| | [code]Private Sub Command1_Click() Shell "C:\Program Files\Microsoft Office\Office10\EXCEL.EXE" End Sub[/code] |
 | |
| | if u want to add 21st record 1. count gridview rows. 2. if count => 20 then delete all 20 record else add record. |
| |  |
| | |
| | |
| | |
| | |
| | |
| | |
| | |
| | Re: Return Row Count dt = ds.Tables("tblUser") -> dt is data table MsgBox(dt.Rows.Count) -> count all row in table user yes, cause it will count all rows in table user. |
| | [QUOTE=aktharshaik;670422]Dear All, Plz focus on the exact problem. When u r posting in this forum, first do give the backend u r using, table structure if possible, some sample code in front end which u r having problem with. 'll definitely help us to help u all. regards Shaik Akthar[/QUOTE] … |
 | use third party. |
| | Re: Project idea ! ! post on [URL="http://www.daniweb.com/forums/forum14.html"]Computer Science and Software Design[/URL] Section |
| | |
| | |
| | [URL="http://weblogs.asp.net/bdill/archive/2007/12/06/c-string-replication-extension-method.aspx"]See this Link[/URL] |
| | |
| | Add component Microsoft Common Dialog Control 6.0 (SP6). To open File and show it into picture box: [code=vb]Private Sub btnBrowse_Click() CommonDialog1.ShowOpen txtPath.Text = CommonDialog1.FileName Picture1.Picture = LoadPicture(txtPath.Text) End Sub[/code] |
| | |
| | u input them into listbox?  |
| | Try this : [code=vb]Function FileExists(FileName As String) As Boolean On Error GoTo ErrorHandler ' get the attributes and ensure that it isn't a directory FileExists = (GetAttr(FileName) And vbDirectory) = 0 ErrorHandler: ' if an error occurs, this function returns False End Function[/code] example to call : [code=vb]Private Sub btnCheck_Click() … |
| | |
| | |
| | |
| |
The End.