652 Posted Topics
 | Hi tgif, For each row write this : [code] Rows("14:14").EntireRow.AutoFit [/code] Change the 14:14 to 1:1 and so on... Regards Veena |
| | Hi, Why not increase the Physical Width of the List Box, till whatever ur Form's Width...? Another way round is to Show the Data in a FlexGrid and make the Cell's Property WrapText to true... REgards Veena  |
| | Hi, U cant set it to false, as it is not a proper syntax. Just dont do anything in If Condition. Come out of Creation procedure if ur label message is satisfied.. Regards Veena |
| | Hi, "Every Once In a While".. means u have a Timer and are you showing the NewForm for user to enter data..? if u have the Timer and showing for specific Interval, then When the user is still enetring the data, the time must have been lapsed and may be … |
 | Hi, use this: I assume u know how to generate Random Number and is stored in RndVar. If u dont know, i will give u the code... [code] Dim TLng As Long TLng = Val(Label1.Caption) - RndVar Msgbox "Result Is " & TLng [/code] Regards Veena |
| | Hi, Why show a differnet splash form.. Add a Picture box to ur Form and Load the required image. Initially make pict box visible=false. When u start saving Make PictBox Vis=True.. and set height /width equal to the form's. And again after Completion of Saving Hide the Pict Box. Regards … |
| | Hi, minimize form : write this code in Commandbutton click event: Me.WindowState = vbMinimized Add a WebBrowser control to ur Project and give this code to goto reqrd page: WebBrowser1.navigate2 "[URL="http://www.yahoo.com"]www.yahoo.com[/URL]" Sending Email thru VB: [URL="http://www.devarticles.com/c/a/Visual-Basic/Sending-Email-With-MAPI-Components-in-Visual-Basic/"]CheckThis[/URL] Or [URL="http://www.thescripts.com/forum/thread14921.html"]This[/URL] Regards Veena |
| | Hi, Use Common Dialog Control.. Regards Veena |
| | Hi, OK, then u need to parse the whole text file.. Open the TextFile, read the Contents, and check if the Hotsname is already present... else add.. check this code: [code] Dim sw As System.IO.TextReader sw = System.IO.File.OpenText("C:\MyTextFile.txt") Dim MyContents As String = sw.ReadToEnd sw.Close() If Instr(MyContents,Text1.Text) = 0 Then … |
| | Re: Help File Hi, Use HTML Help Workshop. May be [URL="http://support.microsoft.com/kb/315988"]this can[/URL] help u Regards Veena |
| | Hi, I always use TextMatrix. One more way is : Grd.Row=1 Grd.Col=2 Tstr = Grd.Text This not a Very Efficient way. Regards Veena |
 | Re: cpu/ram usage Hi, u have to use "PSAPI.dll" Process Status API. Check the [URL="http://allapi.mentalis.org/apilist/GetProcessMemoryInfo.shtml"]Code here[/URL] DownLoad from "EnumerateProcess" Regards Veena |
| | Hi, Add this Control to ur ToolBox: "Microsoft Commom Dialog Control 6.0" to ur Project. Place the Control on the Form and rename it as "cdlg" and use this Code: [code] Private Sub Command1_Click() Dim mycol cdlg.ShowColor mycol = cdlg.Color Me.BackColor = mycol End Sub [/code] Regards Veena |
| | Re: need help... Hi, use ur code to open Dat file and then get the header file by just replacing last 3 chars: [code] DatFName = CommonDialog1.FileName HdrFName = Replace(LCase(DatFName),".dat",".hdr") [/code] Or [code] DatFName = CommonDialog1.FileName HdrFName = Left(DatFName,Len(DatFName)-3) & "hdr" [/code] Regards Veena |
| | Re: guide me pls.... Hi, First Go thru these Links: [URL="http://www.developerfusion.co.uk/show/5322/"]Here[/URL] and [URL="http://www.xtremevbtalk.com/t135815.html"]Here[/URL] Start doing ur project, if u get stuck somewhere, u can post here. Regards Veena |
| | Hi, Open a RecordSet For Code ='HF' and put in a loop and Check, Something like This: [code] Dim RST As RecordSet Dim FName As String Dim MyQty As Currency Dim sSQL As String Dim i As Integer sSQL ="Select * From MyTable Where Code='HF'" Set RST =DB.OpenRecordSet(sSQL,dbOpenSnapShot) IF RST.RecordCount>0 … |
| | Hi, use Val() function check this : [code] num1 =Val(InputBox("Please enter a number")) [/code] Even if user enters some Text chars, u get its value as zero.. May be u can write check after that to enter some Valid Value Regards Veena |
| | Hi, How r u loading the ocx...? Why cant u simply place the ocx control on the from Toolbox at design time...? REgards Veena |
| | Hi, It is always a Good Idea to store Dates in "Julian" style which is Numeric Long type. If stored in this way, whatever be the Local Regional setting of the computer u can get it back to required format. while storing use: RST("DateField") = CLng(CDate(txtDate.Text)) To Retrieve Back use: … |
| | Hi, Do u have "Section7" yn ur datareport.. If u dont have any Groups and detail section must be "Section1" Regards Veena |
| | Hi, Set this property of password textbox/: [B][COLOR=red]txtPwd.Passwordchar ="*"[/COLOR][/B] [B][COLOR=red][/COLOR][/B] Regards Veena |
 | Re: save `n` run Hi, Add a "[B][COLOR=red]MSScriptControl[/COLOR][/B]" to ur project. Rename it as MyScript. Add a TextBox and a Command button on the form and use this code to run it: [code] Private Sub Form_Load() MyScript.Language = "VBScript" MyScript.AddObject "Form1", Form1 MyScript.AllowUI = True Text1 = "a = Ucase(InputBox(""Enter Ur Name""))" & vbCrLf … |
| | Hi, Add a Public Shared ClassModule in the ASP Project. Save the ID's in a DataTable, And in Second WebPage instead of giving = query use "IN" Build a String with all the Selected ID's, or use "OR" in query "Select * From MyTab Where ID IN ('A','B')' oR USE … |
| | Hi, if u r talking abt Serial Port then [URL="http://www.codeworks.it/net/VBNetRs232.htm"]check this[/URL] Regards Veena |
 | Hi, [URL="http://www.oracle.com/technology/pub/articles/cook_dotnet.html"][B][COLOR=green]Read This Step By Step[/COLOR][/B][/URL] Intsructions Regards Veena |
 | Re: Vb.net Hi, Firstly to get good response for ur thread, Post this in VB.net forum. Open a Conn to SQL Server, and Add a Command Object, Change the Text like: "Select * From emp Where EName Like '%ABCD%'" Open a Datareader... if datareader.EOF then No Match Found, else Read the data … |
 | Hi, May be [URL="http://sandsprite.com/CodeStuff/Writing_A_C_Dll_for_VB.html"]this may[/URL] help u.. Place the dll in application path(working folder) and Try To register ur dll with [B][COLOR=green]"regasm"[/COLOR][/B] [B][COLOR=green][/COLOR][/B] Regards Veena |
| | Hi Kshiteesh, few points what i have noted here...: 1. Before Creating the DataAdapter, u are not checking if "S" is blank or not.. the error which u have may be the same.. or else in ur If condition if nothing found, then exit sub.. 2. Use a new Dataset. … |
| | Hi, One way wud be, Every time u open a Form, Write Form name In a Text File Stored Locally. This File should contain name of one Form at any given time. Next Time when u open the Project, read the text file and depending on the form name, open … |
| | Hi, Check the [URL="http://www.vbforums.com/showthread.php?p=2361787"]Demo here[/URL], done with Windows API Regards Veena |
| | Hi, u want a Random Number generator or logic to solve the Algebric Expression..? not very clear with ur question.. Regards Veena |
| | Hi, Use DataReader which is very fast. Check This Code: [code] Dim cn As OleDbConnection Dim cmd As OleDbCommand Dim dr As OleDbDataReader cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\MyDB.mdb;") cn.Open() cmd = New OleDbCommand("SELECT * FROM Breakdown WHERE BFrom = '" & txtFrom.Text & "'", cn) dr = cmd.ExecuteReader If … |
| | Hi, If u want to make the backup of Access Database, I think u r using "fileCopy". all the Connections Objects which have opened that database should be Closed . then only u can take back up. Note : u cannot back up even if the access database is open … |
| | Re: anurag agarwal Hi, Download the Source/Demo file of DataBound ListView Control [URL="http://www.codeproject.com/useritems/DBListViewForV2.asp"]HERE[/URL]. It is for ASP.net, easily, u can convert it to ur VB.net code.. REgards Veena |
| | Hi, Check this Code: Add a Datgrid to ur Form. [code] Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load dim sSQL As String Dim DA As OleDbDataAdapter Dim DS As DataSet Dim ConnStr As String ="Your Connection String" sSQL = "SELECT * FROM MyTable" DA = …  |
| | Hi, When P&D Wizard is available and works fine everywhere. is there any specific reason for why u want to Re-develop any new one of ur own..? If u dont like P&D Wiz, u can use "InnoSet-Up" its a freeware, and is very flexible, u can modify the script to … |
| | Hi, Can u be more specific...? What u want actually..? Pop-up message which is in text box...? Regards Veena |
| | Hi, u can use this code: [code] Dim FN as Long Dim i As Integer FN = FreeFile Open "C:\MyText.txt" For Output As FN [COLOR=#4455aa]Print #FN, "This is My First File" Print #FN, "Second Line" [/COLOR]Close FN [/code] Regards Veena |
| | Hi, Keep a Public Project Level Variable To Populate Building Selected in first Form. And While Loading Second Form Filter Records for only the Selected Parameter using "Where" Condition in the SQL Statement. -Vee |
| | Hi, U have already used "Order By" in ur RS_Data open statement, u need not sort it again.. Or else if u want to sort it with "Sort" method, try Using this before opening the recset: rs_data.CursorLocation = adUseClient Regards Veena |
| | Hi Arvin, Whatever CommanD Object u have used to design the Report, Change it to: "Select * From MyTable Order By FirstName" ORDER BY WHATEVER FIELD NAME U WANT Regards Veena |
| | Hi, check this : To Get Cell value of Row=2, Col=5: [code] Dim TStr As String TStr = FlxGrd.TextMatrix(2,5) [/code] Regards Veena |
| | Hi, Just Re-Load VB.. Regards Veena  |
| | Hi tgif, I think that Display is bcoz of the Null Values in Database.. can u check and tell me...? Regards Veena |
| | Hi, U must have bult Command Object and Designed the Report. Just Change the Condition in the Report. So when u Show the Report, Just give this: Set Datareport1.DataSource =Adodc.Recordsource DataReport1.Refresh Datareport1.Show here u need to take care that, whatever tables with joins u have used while designing, same tables … |
| | Hi, Yes, MS-FlexGrid is just a dumb grid which displays like a Table, all the coding has to be done by you. instead u can use a "Datagrid", u dont have to worry abt placing the Textbox, by setting right properties u can use it for Add/Update/Delete Regards Veena |
| | Hi tgif, what Plusplus is tellenig is true, change this part: [code] Do Until rsin.EOF = True ii = 6 ii = ii + 1 [/code] to : [code] ii=6 Do Until rsin.EOF = True ii = ii + 1 [/code] Regards Veena |
| | Re: minimize form Hi, Check [URL]http://www.codeguru.com/columns/VB/article.php/c6547/[/URL] here to Show the Icon in System Tray Regards Veena |
| | Hi, change the code where u r displaying the result : Check this : [code] if trim(calDisplay) ="error" then lblcalc.caption ="error" else [COLOR=#008000]lblCalc.Caption = calcResult[/COLOR] [COLOR=#008000]end if[/COLOR] [/code] and after every "=" operation keep a Boolean Flag and If the Next button pressed is not "+-/*", then clear the contents … |
| | Hi tgif, u can clear the entire content.. but easy way round is to: First have a Blank File which is properly formatted, and When u want to create one, Copy the BlankFile to new Filename and modify it. Next when u want o create one more, Create with a … |
The End.