Drag Start

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ Visual Basic
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - SSTAB: invalid property error. Hello, version: Vb6 I'm experiencing a user error with an sstab control. The error occurs when attempting to set the Height property of the sstab control within the form's activate event. The error is #380 "invalid property value". The error is occurring for only 1 user out of at least 100. That points me to a local configuration issue; I've not pinpointed any problems thus far. The OS is WinXp Pro with SP2. The TabCtl32.ocx is present on the user's machine; it is exact same version as on the development workstation. The Fonts used are Times New Roman . . . Any ideas why it wouldn't work on a single user's machine? No other known problems with that workstation. Thanks, JimM Tag: Drag Start Tag: 713172
  - 2
    - Creating a form with door closing animation - Is this possible in VB I'd like to create a form that looks like a Vault or Safe with an open door. Inside the door will be some input controls. Once I press submit I want the animation of the door closing. Anyone have any idea how I can do this or an example of something similiar? Thanks Steve Tag: Drag Start Tag: 713168
  - 3
    - Why Would A Combobox Not Process Validate Routine??? Obvious answer - Causesvalidation is false. Of course, if that were the problem I would not have to post the question. It is set to True and I have toggled it to False, run the program and then toggled it back to True with no fix. I have also deleted the Validate routine, saved the code, run it, and then put the code back. What I am seeing is that Validate does not fire if I click on a tab or listbar. These are third party controls so that may have something to do with Validate not firing. If I click on a textbox the Validate routine fires perfectly. The problem controls are vbaccelerator controls. Tag: Drag Start Tag: 713163
  - 4
    - Fastest way to import csv data in vb.net?? Hello, What is the fastet method to import csv data and write them dataset for dataset into a SQLite database? thx juvi Tag: Drag Start Tag: 713158
  - 5
    - Variable values as variable names I want to make a program with an 'Immediate Window', where you can query the variable value by typing the variable name. The problem is, I don't know how to display the contents of a variable name written in the said Immediate Window. For example, I have a variable named 'username' in the program. If I wanted to query the value of the variable during runtime, I would just type the variable name (here, 'username') and the immediate window will display the value. Or: username = "devon" variablename = "username" msgbox val(variablename) Basically, I will evaluate the contents of variablename and treat it as a variable name, which would then become the 'username' variable, which will return 'devon'. It's like the Eval function, I think: textbox = "HelloWorld" foo = "text" bar = "box" msgbox eval(foo & bar) returns "HelloWorld" Any ideas? Thanks! Tag: Drag Start Tag: 713126
  - 6
    - How to change add and delete String Table in Res HI How to Change Add and Delete from Res File by Codeing Thanks Amrit Tag: Drag Start Tag: 713124
  - 7
    - problem subclassing WM_ACTIVATE I subclass several windows's messages of a form from an ActiveX component. If the client program executes an End statement when the subclassed form is flashing (the form was loaded and activated, but the app doesn't have the focus), and at that moment the End occur, it crashes (it actually exits the VB IDE without any crash message). I'm using the SSubTmr from vbaccelerator. The problem occurs only if i have subclassed the WM_ACTIVATE or WM_NCACTIVATE messages, if i remove these messages, the problem doesn't arise. The problem occur even if i have no code for the WM_ACTIVATE message in the WindowProc procedure, also if i call the CallOldWindowProc, or whatever code i tried for that message. Tag: Drag Start Tag: 713116
  - 8
    - Interesting Lostfocus behavior I am using VB6 for maintenance of this program and have an odd behavior thet I can't seem to get a handle on. I have a routine in the LostFocus event for a combobox which will verify that the value has changed from the original. If a change is noted it will produce a msgbox asking for verification. If a change is made and a textbox or some other control on the form is clicked the msgbox displays, accepts the response, and moves focus to the item clicked. If you click on a button or menu item the lostfocus event still fires (as I don't believe it should) but it puts focus back on the combobox instead of continuing on with the clicked button or menu item. I have nothing in the lostfocus event which is setting the focus back to the original control. Is there a setting that I am missing or something like that? Tag: Drag Start Tag: 713089
  - 9
    - Extended File properties Hi, Using some code I found on the web I can read the Extended file properties. Some of the properties are clearly read only, but how can I change the ones which aren't? <code> Function GetFileInformation() As Boolean On Error GoTo ErrorHandler Dim arrHeaders(35) Set objShell = CreateObject("Shell.Application") Set objfolder = objShell.Namespace("C:\TestFolder") For i = 0 To 34 arrHeaders(i) = objfolder.GetDetailsOf(objfolder.Items, i) Next For Each strFileName In objfolder.Items For i = 0 To 34 Debug.Print i & vbTab & arrHeaders(i) & ": " _ & objfolder.GetDetailsOf(strFileName, i) Next Next GetFileInformation = True Exit Function ErrorHandler: MsgBox "Unable to process data in Function 'GetFileInformation' due to:" & vbCrLf & Err.Description, vbCritical Err.Clear GetFileInformation = False End Function ' GetFileInformation </code> Regards Laurie Comerford Tag: Drag Start Tag: 713077
  - 10
    - Vista Drag Drop VB6 application running on Vista My app allows the user to drag drop from windows explorer on to my app. Works in Win XP fine and used to work on Vista. Vista PC C: crashed and I am restoring all back, On previous incarnation of Vista PC I had UAC turned off and I was the super admin. Now, for getting used to "normal" Vista I have not touched those yet. Drag drop seems not to work. I have my app set up in compatibility mode for XP SP2 and also run as admin. Yet it will not. Suggestions please! Tag: Drag Start Tag: 713060
  - 11
    - shape recognition Hello: I need to write an algorithm to recognize if there is a circle in a bmp. The bmp is small in size, like an icon, and the circle center will be close to the image center (or exactly). Inside the circle may be anything. Do you know of any existing algorithm to accomplish that? Thanks in advance. Tag: Drag Start Tag: 713000
  - 12
    - How to make template function for array?? Hi All This is test code '========================================================= Public Type Test1 t As String i As Integer End Type Public Type Test2 t As String i As Integer l As Long End Type Public Tests1() As Test1 Public Tests2() As Test2 Public Function init() ReDim Tests1(0) As Test1 ReDim Tests2(0) As Test2 End Function '============================================ Public Function AddElement(ByRef tt As Variant, ByRef t()) Dim i As Long Dim nArr() As Variant ReDim nArr(0) As Variant nArr = t i = UBound(t) + 1 ReDim Preserve t(i) t(i) = tt End Function ''==================================================== ' 'this function is not work. is there any way to make same job? Public Function TestFunc() Dim nt As Test1 Dim nt1 As Test2 Dim v As Variant Call AddElement(nt, Tests1()) Tests2 = AddElement(nt1, Tests2()) End Function '========================================================= How to do make template function for AddElement ? Thanks Tag: Drag Start Tag: 712993
  - 13
    - retrieve date from string Hi All, I search a word document and retrieve a written date, for example: 20 October 2008. Now I need to get from this string the date in format YYYYMMDD. When the string is in the right format I need to have it back as a string like: "20081020". So I can use it in the filename. Marco Tag: Drag Start Tag: 712982
  - 14
    - Opening a folder and auto-selecting file in it Hello How do I open a particular folder windows explorer from VB and automatically highlight a particular file in windows explorer ? I know this is possible cuz Ive done it earlier, I just cant remember which APIs did it. Please advise. Thank you Tag: Drag Start Tag: 712977
  - 15
    - How to Handle WinWord Control By VB6 we are working on app. in which we need to handle WinWord And only allow few users to use all the available feature of WinWord (new, save, cut, copy, paste, etc...) and other user get access to read that document... we are working in VB6 so it is possible to handle WinWord by this or any code in it ??? Tag: Drag Start Tag: 712976
  - 16
    - Buffers 1) Is my buffer operating asychronously ?? In other words, once I add the data to the buffer, control flow should be finished in this proc since the buffer is handled by a separate timer--or am I wrong? 2) The procedure call to IsRTState_Idle is the slowest point since it must evaluate (Select/Case) what state the buffer is in. Anyway to handle this without losing data? ====================== I receive a data stream from a remote server. The data is receive in a control event and the following procedure is called: Private Sub ProcessData (sngData as Single) cmdData.Text = sngData 'Check buffer to see if it is not doing something else (e.g user using mouse) 'Some data may be lost If IsRTState_Idle(RTSTATE_TIMER) Then 'If free add the data to the buffer class g_colBuffer.Add sngData End If End Sub Thanks David Tag: Drag Start Tag: 712963
  - 17
    - Uninstall a product with VB6 code Hi- I need uninstall a VB6 application. This application was installed with a msi package. I try: Shell "msiexec /x package.msi" But I donâ??t know the path of package.msi, then fail. What can I do? Suggestions... Thanks in advanced. -- Juan Marcial Ingeniero de Software Tag: Drag Start Tag: 712959
  - 18
    - Publish CLR as an executable I have a CLR project that I want to publish as an executable. When I try to use the VBC /target:exe command I get an error indicating that there is no sub-form. All I have in the project is a stored procedure and sql script that has an embedded cursor. Is there a way to do this? Tag: Drag Start Tag: 712939
  - 19
    - vb. net 2.0 create a "value" copy of a form Scenario: I have an Mdi main form wich contains childreen forms. Every child form has a lot of controls such as textbox and datagridview. I'd like to know if it's possible to make a copy of a form, but not in referenced mode. e.g. Dim myChildNumber1 as new MyCustomForm() Dim myInstanceNumber1 as MyCustomForm() myInstanceNumber1 = myChildNumber1 --> reference copy whe users change value on myChildNumber1 this changes will be reflected on myInstanceNumber1. There's a way to prevent this?? Thanx in advance, and sorry if I made some mistakes Tag: Drag Start Tag: 712936
  - 20
    - Problem figuring out a date Hi, The new version of firefox is storing their expire date in this 10 digit format: 2145801610 and according to the information in the browser this should be the date: Wednesday, December 30, 2037 9:00:00 AM Does anyone know how they are converting that number to that date. I have tried IsDate and Format, but get errors for wrong value. So I am assuming that the ten digit number does not appear to be a date. Thanks, Norm Tag: Drag Start Tag: 712927
  - 21
    - Visual Basic Express 2008 Edition and KB278379 Hello, I need to create a new ActiveX DLL project for KB278379 but I was wondering if Visual Basic Express 2008 Edition is capable of doing it. When I looked at it, it did not seem to have the capability to create the ActiveX dll. Could someone please verify this for me and if it is possible, tell me how it can be done using the tool? -- Thank you for your help! JYC Tag: Drag Start Tag: 712924
  - 22
    - Query works in MS Access, but not in VB6 with ADO Thank you for considering this problem. I posted this question in the Active Data Objects forum before I detected that this "General Discussion" forum seems to relate more to queries. Mea Culpa. I have two tables, Loc (location) and Per (person) and the rows are in many to many correspondence to each other. Given a the primary key of a Per record (PerID) in a variable named lngPerID which is obtained by clicking on a row in a Per grid, my query needs to select all the locations with which this person is association. Table Per and table LOC are linked by an intersection table, PERLOC where each record has a pointer to the primary key of the Loc table, and a pointer to the primary key of the Per table. * indicates primary key Table Table Table Loc PerLoc Per ====== ===== === *LocID--------| *PerLocID ----------*PerID <---saved in lngPerID Adr |--------------xLocID | LastName City xPerID----------| FirstName State Salutation Zip EnvelopeName The query following works fine in MS Access, but fails in VB6 with an error message that says "No value given for one or more required parameters." Err -2147217904 SELECT Loc.LocID, Loc.Adr, Loc.City, Loc.State, Loc.Zip FROM Loc INNER JOIN PerLoc ON Loc.LocID = PerLoc.xLocID WHERE (((PerLoc.xPerID)=[lngPerID])); ^ |____This value is given. I have checked that the select statement names matches the table names until I am blue in the face. Is it possible that the "No value given for one or more required parameters." the only variable defined in the table is the temporary variable named lngPerID, and it is clearly seen in the code to hold the numeric value for the key of a record observed in the table. This query fails in VB6. (Code below) Private sub DoRSLocSet() Dim sSQL as string sSQL = "SELECT Loc.LocID, Loc.Adr, Loc.City, Loc.State, Loc.LocType, Loc.Zip, Loc.Country" & _ " FROM Loc INNER JOIN PerLoc ON Loc.LocID = PerLoc.xLocID" & _ " WHERE ((PerLoc.xPerID)=lngPerID);" On Error Resume Next rsLoc.Close Err.Clear On Error GoTo DoRsLocSetErr With rsLoc .ActiveConnection = cnnPer .CursorLocation = adUseServer .CursorType = adOpenKeyset .LockType = adLockOptimistic .Properties("IRowsetIdentity") = True 'remove comment to display data .Open sSQL, , , , adCmdText End With Exit Sub DoRsLocSetErr: MsgBox "ABORT DoRSLocSetErr = " & Err.Number & " " & Err.Description Err.Clear 'End End Sub -- Lamont Phemister Tag: Drag Start Tag: 712892
  - 23
    - usercontrol's width = 0 I made a simple panel usercontrol, only a rectangle containing one label but with the capability of fore- and background colors, a very simple control which could rarely be simpler. No big action. When I use this control in a larger project, sometimes - and only sometimes - I get an error at saving or compiling the project because of usercontrol.scalewidth (and also usercontrol.width) is zero and therefore the label's width turns negative when computed as LBL.width = UserControl.ScaleWidth-2*Screen.TWIPSPERPIXELX . In the host application there is no resizing done which could lead to widh=0, f.e. due to an error. According to that the IDE shows no calling function when breaking down, only the resize event where the width calculation is placed. But why else can a usercontrol shrink to zero, and why doesn't it occur only sometimes? Tag: Drag Start Tag: 712851
  - 24
    - Access Licenses We have an access database that is used by an application. The question I have is who owns the license to the Database and Data that it contains, The Client or the 3rd Party who Developed the Application? Tag: Drag Start Tag: 712843
  - 25
    - How to create password protected word document?? I've an unique requirement, i'm not able to find ideal solution for this. I'm generating a report in word format from crystal report through asp.net code. Now, I've to set password for the word document. I've some question regarding on this? Leave crystal report option, Is it really possible to set password product for a word document from asp.net with out microsoft automation(word.dll,mso.dll)?? coz. microsoft strongly suggest that not use micrsoft autiomation in server side. Is there any third party tool/components to achieve this? I'm planning to implement this through javascript in client side, is it feasible??? Thanks in advace. Tag: Drag Start Tag: 712835
- Next
  - 1
    - vb6.0 create recurrence schedule I am trying to implement a recurrence schedule component for the users to attach to a discount model for their retail products. For example, they want to discount a product during "happy hour" and do that on Monday, Tuesday, and Thursday. There are lots of suggestions searching google but they mainly have to do with outlook/exchange or some other PIM. I want that same functionality, but I don't see how to separate it. I just want the recurring pattern. Any suggestions? WB Tag: Drag Start Tag: 712829
  - 2
    - vb6.0 udp multicast problem I have a UNIX machine broadcasting and receiving messages via UDP multicast. I have configured a vb6.0 app with a winsock control configured haphazardly. I say haphazardly because there are no winsock udp multicast examples in any Microsoft documentation or any where else for that matter. I can send messages to the Unix machine, it receives them and parses them perfectly. Messages coming back are not received by the vb6.0 app. Question 1. Can the winsock control be configured udp multicast? Since all the examples show unicast. Question 2. Does anyone have sample code if it is possible? is there any other way that I can receive this udp multicast traffic in a vb6.0 application. Thanks emp1953 Tag: Drag Start Tag: 712827
  - 3
    - Function horribly slow Can anyone tell me why this function is so horribly slow (on some PCs)??? Public Function FileForceCopy(ByVal uSource As String, ByVal uDestination As String) As Boolean On Error GoTo ErrHandler Dim lSourceLen& Dim iSF% Dim iDF% Dim sChunk As String Dim iBytesToGet% Dim lBytesCopied& Debug.Print uSource Debug.Assert FileExists(uSource) '/* Get source file length */ lSourceLen = FileLen(uSource) '/* Open both files */ iSF = FreeFile() '/* We MUST open a file after calling FreeFile(), else the next FreeFile will be the same number */ Open uSource For Binary Shared As #iSF '/* Only know we can call the next FreeFile() */ iDF = FreeFile() Debug.Print uDestination TryKill uDestination If FileExists(uDestination) Then Debug.Print "Source: " & uSource Debug.Print "Destination: " & uDestination Debug.Assert False Exit Function End If Debug.Print uDestination Open uDestination For Binary As #iDF 'How many bytes to get each time iBytesToGet = 4096 '4kb lBytesCopied = 0 'Keep copying until finishing all bytes Do While lBytesCopied < lSourceLen 'Check how many bytes left If iBytesToGet < (lSourceLen - lBytesCopied) Then 'Copy 4 KBytes sChunk = Space(iBytesToGet) Get #iSF, , sChunk Else 'Copy the rest sChunk = Space(lSourceLen - lBytesCopied) Get #iSF, , sChunk End If lBytesCopied = lBytesCopied + Len(sChunk) 'Put data in destination file Put #iDF, , sChunk Loop Close #iSF Close #iDF FileForceCopy = True Exit Function ErrHandler: Debug.Print Err.Description Debug.Assert FileExists(uSource) 'Debug.Print Len(uSource) Debug.Print uDestination Debug.Print uSource Debug.Assert False Call WriteLog("#FileForceCopy: " & Err.Description & ", err.number: " & Err.Number & ", Params: '" & "" & "'") End Function Tag: Drag Start Tag: 712826
  - 4
    - API URLDownloadToFile or Inet Control Hello - My app downloads files from a Web Server. I look for two options 1. API URLDownloadToFile 2. Inet Control - I think that Inet has same API - isn't it? - While URLDownloadToFile is very hard code My question is - what do you recommend me? - I need the best efficiency in download time. -- Juan Marcial Ingeniero de Software Tag: Drag Start Tag: 712802
  - 5
    - Programing VB When i type something in a textbox i want to know in the programm when the CarrigeReturn button is enter. Can enyone help me. Tag: Drag Start Tag: 712799
  - 6
    - How can I get PC id of one machine on my network from another PC o Hello, I would like to know if there's a way to get the PC id of any computer on my network from any other computer on my network. The reason I want to do this is so my app will know which machine it's stored on vs the machine running it. Is this possible? If so, can anyone tell me a good way to do this. Thanks in advance, Garry Tag: Drag Start Tag: 712754
  - 7
    - Add (first) menu items at runtime, then (second) subitems to newly Can I add (at runtime) subitems to menu items that I created (at runtime) without using API functions? Tag: Drag Start Tag: 712730
  - 8
    - Need help with sqlite3.dll Hi, I am trying to open and manipulate a sqlite database, containing cookie information in FireFox browser. I have an application that I use which removes all the cookies I don't want to save and worked just fine until FireFox changed to a sqlite type database. :-) I am trying a wrapper which I can get to open the database and list all the items contained in a listview control. But I cannot figure out how to delete the ones I don't want. If anyone knows of a better way to do this please let me know. Thanks, Norm Code: Option Explicit '// SQL Lite dll declarations: Private Declare Sub sqlite3_open Lib "SQLite3VB.dll" (ByVal FileName As String, ByRef handle As Long) Private Declare Sub sqlite3_close Lib "SQLite3VB.dll" (ByVal DB_Handle As Long) Private Declare Function sqlite3_last_insert_rowid Lib "SQLite3VB.dll" (ByVal DB_Handle As Long) As Long Private Declare Function sqlite3_changes Lib "SQLite3VB.dll" (ByVal DB_Handle As Long) As Long Private Declare Function sqlite_get_table Lib "SQLite3VB.dll" (ByVal DB_Handle As Long, ByVal SQLString As String, ByRef ErrStr As String) As Variant() Private Declare Function sqlite_libversion Lib "SQLite3VB.dll" () As String ' Now returns a BSTR '// This function returns the number of rows from the last sql statement. Use this to ensure you have a valid array Private Declare Function number_of_rows_from_last_call Lib "SQLite3VB.dll" () As Long Dim DB As Long Private Sub Form_Load() ' Display the SQLite3VB version Caption = "Cookies Listed In FireFox V.3 Profiles File" StartQueary End Sub Private Sub StartQueary() Dim mRetErr As String ' Will hold an error string if one is encountered Dim mResultCnt As Long Dim mDBFile As String Dim mQuery As String Dim i As Long mQuery = "SELECT * FROM moz_cookies" 'Text2.Text mDBFile = App.Path & "\" & "cookies.sqlite" 'mDBFile lvResults.ListItems.Clear lvResults.ColumnHeaders.Clear SB1.SimpleText = "Querying database" mResultCnt = DBQuery(mDBFile, mQuery, mRetErr) If mRetErr <> "" Then MsgBox mRetErr, vbCritical, "SQLite Database Error" End If SB1.SimpleText = mResultCnt & " Cookies Listed In File!" For i = 1 To lvResults.ColumnHeaders.Count If lvResults.ColumnHeaders.Item(i).Text = "host" Or lvResults.ColumnHeaders.Item(i).Text = "name" _ Or lvResults.ColumnHeaders.Item(i).Text = "expiry" Then Else lvResults.ColumnHeaders.Item(i).Width = 0 End If Next i DoEvents Sleep 100 Set lvResults.SelectedItem = lvResults.ListItems.Item(1) End Sub Private Function DBQuery(ByVal DBFile As String, ByVal QueryStr As String, ByRef ErrStr As String) As Long On Error GoTo ERR_TRAP Dim i As Long Dim mVar As Variant ' Will hold our results Dim mV1 As Variant ' Will be used to get each individual result Dim mErrStr As String Dim mStr As String Dim mRowCnt As Long Dim mCurColumn As String Dim LI As ListItem If QueryStr = "" Or DBFile = "" Then Exit Function sqlite3_open DBFile, DB If DB > 0 Then mVar = sqlite_get_table(DB, QueryStr, mErrStr) If mErrStr <> "" Then ErrStr = mErrStr sqlite3_close DB Exit Function Else mRowCnt = number_of_rows_from_last_call If mRowCnt > 0 Then For Each mV1 In mVar mStr = mV1 If i = 0 Then mCurColumn = mStr lvResults.ColumnHeaders.Add , mCurColumn, mCurColumn Else If lvResults.ColumnHeaders.Count = 1 Then lvResults.ListItems.Add , , mStr ElseIf lvResults.ColumnHeaders.Count > 1 Then Set LI = lvResults.ListItems(i) LI.SubItems(lvResults.ColumnHeaders.Count - 1) = mStr End If End If i = i + 1 If i > mRowCnt Then i = 0 End If Next End If End If 'sqlite3_close DB End If DBQuery = lvResults.ListItems.Count Exit Function ERR_TRAP: ErrStr = Err.Description End Function Private Sub Form_Unload(Cancel As Integer) Dim mDBFile As String mDBFile = App.Path & "\" & "cookies.sqlite" 'mDBFile sqlite3_close DB End Sub Tag: Drag Start Tag: 712729
  - 9
    - stop Gettickcount stopping When pressing the form title bar, when using Gettickcount as a timer for a small animation, the animation stops. If that is the expected beahaviour how does one allow the animation to continue at all times? Cheers Tag: Drag Start Tag: 712723
  - 10
    - How do I create an new instance of a form using name in variable? I would like to do the following using Visual Basic 6 ... Private Sub CreateForm(RequiredFormName as string) dim f as form set f = new RequiredFormName End Sub The reason for this is that I have records in lists with associated tags which have the relevant form name in it to open that particular record in - therefore I need to open the correct form based on the formname in the tag. I'm sure this is possible - i hope so as I need to do the same thing with a crystal report. Thanks Lee Tag: Drag Start Tag: 712685
  - 11
    - Access SQL - Select most recent child record I have two tables. One for members and one for the events that members attended. I need to write a query that returns one row for each member with the most recent event attended. Here are the tables/fields below. Thank you. Regards, Drew Members Table: ID First Last Event Table: MemberID Event Date Tag: Drag Start Tag: 712684
  - 12
    - Double quote issue with VB6, Access and text files ** remove nospam from email address if replying direct. This has been driving me crazy on and off for years and hope someone can help. Using VB6 I create an Access database. I then take a pipe delimited text file and populate the fields of the database. This works really well 99 percent of the time. Where I run into difficulties is when a record has double quotes. One of two things happen...either I get a message stating that the text file is not in the expected format or it discontinues reading the file without any error messages. Here is a sample |1|Change site "A" to site "B"| Please advise... Jerry Tag: Drag Start Tag: 712677
  - 13
    - How to check if the user has administrative privileges? Hello, How to check if the user has administrative privileges in Windows XP? and How to check the same in Vista, but also run an additional check for the administrative privileges second token? Just to explain: In Vista the administrative privileges second token is when the user selects 'Run As Administrator' when starting executable. Your attention appreciated, Jack Tag: Drag Start Tag: 712674
  - 14
    - Bizarre broken Visual Studio 2005 Issue PC with VS2005 and VS2008 side-by-side Everything working normally yesterday; no subsequent installs of any additional software or SP's since then. Create a new Visual Basic Windows Application project in VS2005 and start debug by clicking play button and this is what happens: Startup form does not show; instead, an empty, design-time Properties dialog box appears, very briefly, and then project exits, all within 1 second or so. Exactly the same thing happens whether you start with a new Windows Application project, or load an existing Project, so this would not appear to be a project-specific problem, but rather a VS2005 problem I would really, really, really rather not have to do a complete re-installation................sigh If anyone has any ideas? Tag: Drag Start Tag: 712671
  - 15
    - Graphic problems I want to (I already did, but it did not work 100%) integrate a function that slide an image into current DC. I'm using bitblt for that. I'm desperate because I always hear that BitBlt is the fastest graphics function ever. My slide isn't smooth. I got a Wii Playstation, and it uses this "slide in" effect quite often. And I wonder how they managed to make it fail proof. Is it because these programmers know that there are no other apps that can consume CPU? I am doing my slide in a loop and check for the time the last slide step took to complete and set the next step accordingly: If the last step was slower than expected, the next step will occur earlier, and the next-next step will also occur earlier to compensate for the lost time. Does anybody have a magic solution or can (PLEASE!) tell me that I'm stupid and did it totally wrong? Tag: Drag Start Tag: 712646
  - 16
    - missing chkdsk/f I would like to run chkdsk/f to speed up my computer, but when I try to run it I get a message saying that it is not found. A search also does not find it. Where do you think it is? Tag: Drag Start Tag: 712633
  - 17
    - ViewPort3D and windows forms Hi, I'm Reading Petzold's 3d Programming for Windows and trying to use the Windows Presentation Foundation Classes I've got a Viewport3d created but I can't figure out how to attatch it to a form so I can see what it's output is. Petzold says it can be done. He attaches it to a DockPanel and then to the window.content property, But I don't have access to a .content property of a windows form. I am stumped... Thanks for any ideas... Tony C. Tag: Drag Start Tag: 712627
  - 18
    - Something like a "live help" tool I would like to integrate a "live help" tool in my application because it's really complex and from my experience resellers/ customers will rather call me/ us to get help than to read the manual. I would like to integrate something like a chat but I have no clue about which way to go. Can somebody give me a push in the right direction? Tag: Drag Start Tag: 712602
  - 19
    - Very strange: the code was good for the last 10 years and now it is stumbling!!! Hello, Maybe someone else had the same problem. The code writing to Windows registry was good and working perfectly for the last 10 years and now suddenly it stops working intermittently. By " intermittently" I mean that when on the first run the code fails (there is not any error returned, just the registry is not written), the repeated attempt to run the same code is mostly successful like that sample below: ----------------------- rtn = OSRegSetValueEx(phkResult, "My Key", 0, 1, ByVal Release, Len(Release)) rtn = OSRegSetValueEx(phkResult, "My Key", 0, 1, ByVal Release, Len(Release)) ----------------------- And, that happens on the different user computers in different countries(!), and it happened (although once only) on my computer, when testing user complaint (Windows XP) I appreciate any comments on that. Jack Below, is the code in question: ===================== Declare Function OSRegCreateKey Lib "advapi32" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpszSubKey As String, phkResult As Long) As Long Declare Function OSRegSetValueEx Lib "advapi32" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpszValueName As String, ByVal dwReserved As Long, ByVal fdwType As Long, lpbData As Any, ByVal cbData As Long) As Long hKey = HKEY_CURRENT_USER lpszSubKey = "Software\Me\My Software" rtn = OSRegCreateKey(hKey, lpszSubKey, phkResult) rtn = OSRegSetValueEx(phkResult, "My Key", 0, 1, ByVal Release, Len(Release)) ======================= Tag: Drag Start Tag: 712596
  - 20
    - Search and replace in textfile Hi, i just found this thread: =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D : Hi, : I haven't programmed in VB for some time and want to be : able to Open a text file, named "OP10.imp", and replace : every instance of "BDL" with "<" within the file and save : it with the same filename. I know that it's possible but : I'm just not sure how to start. : I'm using VB 6 : : Thank you for any assistance you can provide, : Al You could try something like this (I think I've read somewhere it's better to output to a temp file then kill the original and rename the temp) This will replace all BDL, whether standalone, or as part of other words eg initials representing something GOBDLE will become GO<E Dim ff As Long: ff =3D FreeFile() Dim fileText As String Open App.Path & "\abc.txt" For Input As #ff fileText =3D Input(LOF(ff), #ff) Close #ff fileText =3D Replace(fileText, "BDL", "<") Open App.Path & "\abc.txt" For Output As #ff Print #ff, fileText Close #ff =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D I just found this thread, used the info and it worked for me. Except one problem: After writing the replaced text back to the file, i get an additional empty line at the end of the file which causes my import to fail. How do i get rid of that extra trailing line at the end of the file, which doesn=B4t exist when opening the file before replacing characters. Thanks! Otto Tag: Drag Start Tag: 712584
  - 21
    - Confession of IT nightmare employee I needed to reinstall my palm handheld on my work computer. This requires admin rights, so I sent a request. While I was waiting, I happened to notice that there are some stray vbs scripts on my desktop for installing software that the company added over the year or so. These scripts have an admin password in the text. After waiting 8 or 9months (not kidding), I rewrote the scripts to install the palm software. This has worked, sort of. I can reinstall my software but it seems several stages are skipped. There is no shortcut on my desktop, and I can't read my hot sync log. Here are my questions. Why does this password work in the script, but not for logon? Also if I try to use it in the command window (cmd.exe--runas /profile...) the key board won't even type the password. Why? Tag: Drag Start Tag: 712583
  - 22
    - How to hook-up my uninstall code to Add, Remove Programs? Hello, How to make sure, that when user decides uninstall program from Control Panel>Add, Remove Programs my own uninstall utility will be launched as well? Jack Tag: Drag Start Tag: 712556
  - 23
    - What the...? So as not to reply to SPAM, I'll comment in another thread about the "Advice needed" thread. Is that not the funniest thing you've seen in a while? Tag: Drag Start Tag: 712548
  - 24
    - links not highlighted on return Highlight is probably the wrong word. I am on a page with many links. I click on a link and go to that page. Then I exit that page and am back on the many links page. On Win98 the link I just used would be a Red color or appear to have been clicked. I would then know which one I last clicked on. On WinXP, when I return to the page of links, there is no indication that I ever clicked on a link. Is there a way, on XP, to have the Win98 action? If no answer, what is the correct IE newsgroup to try. Galen Tag: Drag Start Tag: 712535
  - 25
    - Setting Icons to the Shortcuts in the Program File Hi All I am trying to resolve a problem with an Inno project, OK I am sorry I know its not VB but a lot of VB expert use Inno and I cannot seem to get an answer that works from the Inno forum. Q. I have a fully compiled project from the Inno *.iss and it creates 2 shortcuts on the harddrive (C) one runs the program the other uninstalls it, I want to attache an selected Icon to these. I hope somebody can help me. Ron Here is my Inno Setup #define MyAppName "Searcher" #define MyAppVerName "File Searcher 1.2.5" #define MyAppExeName "FS_Searcher.exe" [Setup] ; NOTE: The value of AppId uniquely identifies this application. AppId={{AD784B1F-D5E0-4D3F-A66C-1DDA6761D191} PrivilegesRequired=Admin AppName={#MyAppName} AppVerName={#MyAppVerName} AppPublisher={#MyAppPublisher} DefaultDirName={pf}\{#MyAppName} DisableDirPage=yes DefaultGroupName={#MyAppName} OutputBaseFilename=Searcher Compression=lzma SolidCompression=true SetupIconFile=Icons\Drive01.ico Uninstallable=true UninstallDisplayIcon=Icons\Trash02B.ico [Languages] Name: english; MessagesFile: compiler:Default.isl [Tasks] Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked [Files] ;Begin VB System Files Source: vbfiles\stdole2.tlb; DestDir: {sys}; OnlyBelowVersion: 0,6; Flags: restartreplace uninsneveruninstall sharedfile regtypelib Source: vbfiles\msvbvm60.dll; DestDir: {sys}; OnlyBelowVersion: 0,6; Flags: restartreplace uninsneveruninstall sharedfile regserver Source: vbfiles\oleaut32.dll; DestDir: {sys}; OnlyBelowVersion: 0,6; Flags: restartreplace uninsneveruninstall sharedfile regserver Source: vbfiles\olepro32.dll; DestDir: {sys}; OnlyBelowVersion: 0,6; Flags: restartreplace uninsneveruninstall sharedfile regserver Source: vbfiles\asycfilt.dll; DestDir: {sys}; OnlyBelowVersion: 0,6; Flags: restartreplace uninsneveruninstall sharedfile Source: vbfiles\comcat.dll; DestDir: {sys}; OnlyBelowVersion: 0,6; Flags: restartreplace uninsneveruninstall sharedfile regserver ;End VB System Files ;Begin Package Files] Source: pFiles\comctl32.ocx; DestDir: {sys}; Flags: regserver sharedfile restartreplace Source: pFiles\COMDLG32.OCX; DestDir: {sys}; Flags: regserver sharedfile restartreplace Source: pFiles\FS_Searcher.exe; DestDir: {app}; Flags: restartreplace Source: Icons\Drive01.ico; DestDir: {app}; Flags: restartreplace ignoreversion uninsrestartdelete Source: Icons\Trash02B.ico; DestDir: {app}; Flags: restartreplace ignoreversion uninsrestartdelete ;End Package Files [Icons] Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName} ;Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: desktopicon Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; IconFilename: {app}Icons\Drive01.ico Name: {group}\Uninstall Seacher; Filename: {uninstallexe}; IconFilename: {app}Icons\Trash02B [Run] Filename: {app}\{#MyAppExeName}; Description: {cm:LaunchProgram,{#MyAppName}}; Flags: nowait postinstall skipifsilent Tag: Drag Start Tag: 712528

VB6sp6
Using vbDropEffectMove Or vbDropEffectCopy
How do I do a drag start of data from an array containing
drive:\path\filename.ext ?
The target of the drop will be Windows Explorer.
Must there be a control associated with drag start?

Top

Re: Drag Start by Larry

Larry
Tue Oct 14 19:41:56 CDT 2008

"Lorin" <Lorin@discussions.microsoft.com> wrote
> VB6sp6
> Using vbDropEffectMove Or vbDropEffectCopy
> How do I do a drag start of data from an array containing
> drive:\path\filename.ext ?
> The target of the drop will be Windows Explorer.
> Must there be a control associated with drag start?

Typically there is a user action asssociated with the start of
a drag operation, specifically the left mouse button down
event. Drag inplies the user is going to drop something on
a target.

LFS

Top