Publish CLR as an executable

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
    - 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: Publish CLR as an executable Tag: 712936
  - 2
    - 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: Publish CLR as an executable Tag: 712927
  - 3
    - 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: Publish CLR as an executable Tag: 712924
  - 4
    - 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: Publish CLR as an executable Tag: 712892
  - 5
    - 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: Publish CLR as an executable Tag: 712851
  - 6
    - 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: Publish CLR as an executable Tag: 712843
  - 7
    - 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: Publish CLR as an executable Tag: 712835
  - 8
    - 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: Publish CLR as an executable Tag: 712829
  - 9
    - 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: Publish CLR as an executable Tag: 712827
  - 10
    - 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: Publish CLR as an executable Tag: 712826
  - 11
    - 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: Publish CLR as an executable Tag: 712802
  - 12
    - 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: Publish CLR as an executable Tag: 712799
  - 13
    - 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: Publish CLR as an executable Tag: 712754
  - 14
    - 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: Publish CLR as an executable Tag: 712730
  - 15
    - 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: Publish CLR as an executable Tag: 712729
  - 16
    - 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: Publish CLR as an executable Tag: 712723
  - 17
    - 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: Publish CLR as an executable Tag: 712685
  - 18
    - 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: Publish CLR as an executable Tag: 712684
  - 19
    - 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: Publish CLR as an executable Tag: 712677
  - 20
    - 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: Publish CLR as an executable Tag: 712674
  - 21
    - 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: Publish CLR as an executable Tag: 712671
  - 22
    - 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: Publish CLR as an executable Tag: 712646
  - 23
    - 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: Publish CLR as an executable Tag: 712633
  - 24
    - 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: Publish CLR as an executable Tag: 712627
  - 25
    - 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: Publish CLR as an executable Tag: 712602
- Next
  - 1
    - 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: Publish CLR as an executable Tag: 712596
  - 2
    - 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: Publish CLR as an executable Tag: 712584
  - 3
    - 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: Publish CLR as an executable Tag: 712583
  - 4
    - 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: Publish CLR as an executable Tag: 712556
  - 5
    - 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: Publish CLR as an executable Tag: 712548
  - 6
    - 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: Publish CLR as an executable Tag: 712535
  - 7
    - 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: Publish CLR as an executable Tag: 712528
  - 8
    - Limit upload speed (winsock) Hi, I made a small tool to upload files to a server with Winsock. More and more users are asking me to build in a feature to limit the upload speed, but I have no idea how this is done. I searched several forums, newsgroups and google, but can't find any information. Basically I would like to have a textbox on the form and when the user types '25' into the textbox, then the upload speed is limited to 25kB/s. Does anybody have any information about how to do this? Thanks. -Chris Tag: Publish CLR as an executable Tag: 712527
  - 9
    - Whippleware What happened to it? I see the web page is still up. I tried to contact Ben (if i remember his name correctly), but the email got bounced. I bought a copy in the late ninetees, was trying to use it, but don't have the program anymore. Tag: Publish CLR as an executable Tag: 712507
  - 10
    - SMS Text message in VB6.0 I am trying to implement text messaging into an application and I want to know if someone has recommendations on how or what to use within VB6.0 to accomplish this. WB Tag: Publish CLR as an executable Tag: 712458
  - 11
    - comparing Timer and Now When dealing with time (calculating the seconds passed) what is more effective: using Now or Timer functions? For example: DateDiff("s", Timer, StartScriptWait) or DateDiff("s", Now, StartScriptWait) Any advantages or disadvantages of using one or another? What to look for? Your comments appreciated, Jack Tag: Publish CLR as an executable Tag: 712457
  - 12
    - VB6 ieframe.dll error I recently updated my web browser from IE6 to IE7. After successfull installation i opened my project developed in vb6. While loading the project started giving error message : File not found: 'C:\WINDOWS\system32\ieframe.dll\1' And i was unable to run my project. I don't have any idea about this error related solution . Can somebody help me out of this. Atul Tag: Publish CLR as an executable Tag: 712445
  - 13
    - Text file print anomaly Hi all, I have a situation which I cannot explain and would like to share it here hoping for some orientation. I have two output text files, one is a data file and the other is a log file. When the process starts I open the log file first: iFHLog = freefile() open sFileName for output as #iFHLog I proceed to do some preprocessing (set up environment, open DBs, etc.) and such events. I then call the routine that will create the data file and open the file: iFHData = freefile() open sDataFile for output as iFHData And immediately proceed to log the event: '27 is "open data file" event sysLogEvent iFHLog, 27, lngErNo, sDataFile & " - FHS=" & intFH I further log other events as the data file is being created. When the process is done the data file looks something like this: Data line Header Logged event Data line 1, section 1 Data line 2, section 1 : Data line N, section 1 logged event Date line 1, section 2 : Data line N, section 2 logged event Why is my data file littered with log events when I distinctly write out the data and event to 2 different files? It gets weirder: In the 4 plus years that this process has been running this has happened maybe 4 or 5 times given that hundreds of these data files are created correctly everyday. Since this is a mission critical process, that's 4 or 5 times too many :-S I can understand this failing if I did something like this: iFHLog = freefile() iFHData = freefile() open sLogFile for output as #iFHLog open sDataFile for output as #iFHData However, this is not the case. Thanks. Saga -- Tag: Publish CLR as an executable Tag: 712429
  - 14
    - Activex DLL inserts 0 instead of null Several years ago I wrote an activex dll in VB6 that imports data into ADO recordsets from ASCII data files. When a value is blank in the ASCII file, I want the recordset to store a null, but it stores a 0 instead. I used adFldIsNullable as the field attribute, but that does not seem to work. Am I doing something wrong? Is this a bug in ADO? Any workaround would be appreciated. Thanks, Martin Tag: Publish CLR as an executable Tag: 712408
  - 15
    - Crystal Reports PDF in VB6 Hi, I am a VB9 user who is now busy with doing some changes in VB6. Maybe one of you knows the solution of my Crystal Reports Problem. I had this code: With omReport .ExportOptions.DestinationType = crEDTDiskFile .ExportOptions.DiskFileName = cdlExport.FileName .ExportOptions.FormatType = crEFTExactRichText .ExportOptions.RTFExportAllPages = True .Export False The above is working and gives an RTF (report) file. I have changed that into With omReport .ExportOptions.DestinationType = crEDTDiskFile .ExportOptions.DiskFileName = cdlExport.FileName .ExportOptions.FormatType = CRExportFormatType.crEFTPortableDocFormat .ExportOptions.PDFExportAllPages = True .Export (False) Now it does not get any (report) file anymore. The version I use from craxdrt = 8.5.0.217 Thanks in advance Cor Tag: Publish CLR as an executable Tag: 712403
  - 16
    - Int64 of C# to Date of VB6 Hi- I have to read to read a binary file created with C#. Structure like Int32 Int64 Int32 float . Not problem. Private Sub Test1() Dim f As Long Dim fn As String Dim i As Long Dim v As Single fn = "C:\wells\dvcoredata\Ra_YAMU0001\curday.bin" f = FreeFile Open fn For Binary As f ' ok (4 bytes) Get #f, , i Debug.Print i ' ticks (8 bytes) . ? is a datetime! Get #f, , i Get #f, , i ' ok (4 bytes) Get #f, , i Debug.Print i ' value. float to Single. ok Get #f, , v Debug.Print v Close f End Sub Int64 is a DateTime ticks of C#... Somebody knows how to convert this 64 bytes to Date of VB6? -- <Harvey Triana /> Tag: Publish CLR as an executable Tag: 712394
  - 17
    - Processing notepad text Hi, I am trying to parse data from notepad to excel using Vb6. A, B, C Field4 = 8.2 Field5 = 6.7 Field6 = 59 Field7 = 5.6 A, E, F Field4 = 7.2 Field5 = 6.9 Field6 = 60 Field7 = 5.8 I don't know how many datasets would be in a notepad. But I want to parse this data as rows in excel sheets: A B C 8.2 6.7 59 5.6 A E F 7.2 6.9 60 5.8 Can anyone help me with this? Thanks FF Tag: Publish CLR as an executable Tag: 712375
  - 18
    - VB6 Data Environment - Sorting Commands Does anyone know how to sort the commands in the VB6 data environment. Once you have a large number of commands, it is time-consuming to keep looking through the commands for the one you need, as they are always listed in date-entered sequence. Thanks in advance - this will save HUGE amount of time! Tag: Publish CLR as an executable Tag: 712373
  - 19
    - RE: VB Express 2008 I am tired of you Positioning the cursor to discover exact coordinates of a "screen element" ( ie: automate clicking of a button on an IFRAME of a webpage ). Is there a way to get mouse position from anywhere on the desktop? I know how to retrieve coordinates within a form. That's easy. Internet searches provide uses for GetMousePos() API. They haven't worked for me. Any help is appreciated. Thanks, -Extech Tag: Publish CLR as an executable Tag: 712370
  - 20
    - Please ignore my last message - sent to wrong group Sorry. Tag: Publish CLR as an executable Tag: 712359
  - 21
    - Adding Total Number of slides to the page number field in the footer I was looking for a feature in powerpoint that would be the equivalent to one that exists in MS Word. That is, in Word I can add a field in the footer to read "page 5 of 12". Powerpoint only seems to have the slide number. I suspect this might be where VBA comes in. Anyone have some sample code to do this? (That is if this is the solution path). thanks Tag: Publish CLR as an executable Tag: 712358
  - 22
    - OT: Resume Help Hi guys, sorry for the slightly off-topic post, but there's not a lot of appropriate public forums for this sort of thing, and since it's techie-oriented, I figured a newsgroup was as good a place as any to start. So here's the problem: I'm writing a functional resume (that's skills-based, for those who aren't familiar), and I'm trying to figure out how to best categorize my skills. Someone suggested that I might want to separate out the design environments (presumably for Access, SQL Server, and VB), but I'm at a loss as to how to do that without creating redundancies or conflicting categories. So if you were trying to organize the following skills, what would you do? I've left my categories in the list below. Any suggestions on anything else are welcome. And of course, if you're looking to hire someone with this skill-set, or know someone who is, it goes without saying that that's also QUITE welcome! Formatting the list in plain-text is a bit of a challenge, but I've done what I can. (Note: this looks best in a fixed-width font.) DATABASES Access 15 years SQL Server 2000 4 years Database Design 15 years Query Optimization 10 years Reporting Tools 12 years Replication 5 years T-SQL 4 years PROGRAMMING LANGUAGES Visual Basic for Applications 15 years Visual Basic 6.0 7 years Object-Oriented Programming 15 years Windows API 12 years Assembly Language (80x86, 680x0, 65xx) 2-5 years C variants, Pascal/Delphi, Python Familiar DATA ACCESS TECHNOLOGIES ADO 7 years DAO 10 years BUSINESS APPLICATIONS Excel 10 years Powerpoint 2 years Word 18 years WordPerfect 10 years Thanks, Rob Tag: Publish CLR as an executable Tag: 712243
  - 23
    - Error: -2147417848 & Vista I have an application written in VB.Net which dynamically hosts VB6 ocx (written in house). The appilcation works fine on XP or Windows 2000. It also works fine on Vista if run in debug mode with the "Visual Studio hosting process" selected. But, when run as a compiled application, it will fail with Automation error -2147417848, The object invoked has disconnected from its clients. I have found the line the the app chokes on(see below), but not really sure why? Again, this only occurs on Vista when I run the compiled version of the app. Any ideas? Thanks. 'dynamically create the control, with picture box as it's container Set m_objVBControlExtender(lngTabNumber) = UserControl.Controls.Add _ ("MyControl", strInstanceName, pic(lngTabNumber)) m_objVBControlExtender is an aray of VBControlExtender objects. Tag: Publish CLR as an executable Tag: 712205
  - 24
    - Been away for a few months.... And I come back and see that things have not changed here. Mike W and Bill Mc are still arguing about the same old BS. Anyway Mike, something I thought you might be interested to know is they got rid of gosub in vb.net only to bring it back in the form of anonymous delegates. You can define a code block within a routine and call it from anywhere in that routine or from anywhere else in the entire project. Cheers, Michael Tag: Publish CLR as an executable Tag: 712197
  - 25
    - Problem in Vista with ActiveX cannot create object for Word.Application Hi, I have an application that runs just fine in WinXp, but when run in Vista I get the error ActiveX cannot create object for the Line Set wrd = CreateObject("Word.Application") wrd is dimmed as Word.Application for early binding, I also tried Dimmed as Object for late binding, but got the same error. References are to Microsoft Office 12.0 and ActiveX Data objects 6.0 Any help pointing to a solution of the problem appreciated. Code: Private Sub Form_Load() Dim sFolder As String Dim sRepNa As String Dim fso Dim i As Long Dim x As Long Dim Y As Long Dim RepType As String Dim sMsg As VbMsgBoxResult Dim MyVar() As String On Error Resume Next ShowProg 'get screen size and set toolbar GetTheScreenSize sSize, MyWidth SetWindowPos hwnd, conHwndTopmost, 0, 0, Screen.Width, MyWidth, conSwpNoActivate Or conSwpShowWindow 'Create options menu for user CreateMenu ProgBar Sleep 100 'Check report type and open correct one If ReportType = "Incident" Then If ApiFileExists(UserPath & "Temp.doc") Then sMsg = MsgBox("A Temp Report Exists In Your Personal File, Do You Want To Open It?" & vbCrLf & vbCrLf & _ "If You Continue With A New Report You Will Lose The Temp Report!", vbYesNo + vbInformation, SecRep) If sMsg = vbYes Then sFolder = UserPath GoTo ReviewPersonal Exit Sub End If End If RepType = "Report.doc" ChangeStatus "Program Opening New Incident Report Form!" Me.Caption = "SecRep Security Program Incident Report Toolbar For " & PropName Me.sRetOfficer.Visible = False Me.sMveOpt.Visible = False Me.sSveClose.Visible = False Me.sSveOpen.Visible = False Me.sScnOpt.Visible = False Me.sCloseOpt.Visible = False If Not ExtractForm(RepType) Then Me.Hide If Not (wrd Is Nothing) Then wrd.Visible = False ShowMain MsgBox "There Was A Problem In The Extract Dll Function!" & vbCrLf & vbCrLf & _ " Contact Network Department!", vbOKOnly + vbCritical, SecRep CleanUp SetStatus Err.Clear Timer2.Enabled = True Exit Sub End If Set wrd = CreateObject("Word.Application") ' Error Shown here wrd.Documents.Open UserPath & RepType Me.Show wrd.Visible = True wrd.Activate lngTmr = 0 TmrfrmSave.Enabled = True SetStatus HideMain If Err.Number <> 0 Then ShowMain If Not (wrd Is Nothing) Then wrd.Visible = False Me.Hide MsgBox "Program was unable to open " & RepType & "!" & vbCrLf & vbCrLf & _ " Contact The Network Department!", vbOKOnly + vbCritical, SecRep ErrorLog Err.Number, Err.Description, UserName, Erl, "frmIncidRep Opening " & RepType 'Remove any copies of report form and close word CleanUp SetStatus Err.Clear Timer2.Enabled = True Exit Sub End If Exit Sub ElseIf ReportType = "Review" Then Me.Caption = "SecRep Security Program Review Incident Reports Toolbar For " & PropName Me.sSaveOnly.Visible = False Me.sSave.Visible = False Me.sCancel.Visible = False If strReviewWhat = "Review" Then sFolder = App.Path & "\" & PropName & SaveIncid ElseIf strReviewWhat = "Final" Then sFolder = App.Path & "\" & PropName & MoveIncid Me.sMveOpt.Visible = False ElseIf strReviewWhat = "" Then 'Show frmMain ShowMain MsgBox "Program has not been told which, ""Final"" Or ""Review"", folder to open!", vbOKOnly + vbInformation, SecRep 'Enable timer to close this form and clean up Timer2.Enabled = True Exit Sub End If ReviewPersonal: MyVar = FileList(sFolder, "*.doc") Set wrd = CreateObject("Word.Application") If TypeName(MyVar) <> "Boolean" Then For i = LBound(MyVar) To UBound(MyVar) If InStr(1, sFolder & MyVar(i), "~", vbBinaryCompare) > 0 Then wrd.Quit Set wrd = Nothing Me.Hide ProgBar SetStatus ShowMain MsgBox "These Files Are In Use And A Temporary Files Exists" & Chr(13) & Chr(13) & _ " Please Try Again Later", vbOKOnly + vbInformation, SecRep Timer2.Enabled = True Exit Sub Else wrd.Documents.Open sFolder & MyVar(i) End If Next Else MsgBox "No files found" End If wrd.Visible = True wrd.Activate GoTo Skip Set fso = wrd.FileSearch 'Search loop With fso .NewSearch .FileName = "*.doc" .LookIn = sFolder .SearchSubFolders = False .Execute For i = 1 To .FoundFiles.Count For x = 1 To Len(.FoundFiles(i)) sRepNa = Right(.FoundFiles(i), x) If Left(sRepNa, 1) = "~" Then Me.Hide wrd.Visible = False ProgBar For Y = 1 To wrd.Documents.Count wrd.ActiveDocument.Close Sleep (300) Next Y wrd.Quit Set wrd = Nothing SetStatus ShowMain MsgBox "These Files Are In Use And A Temporary Files Exists" & Chr(13) & Chr(13) & _ " Please Try Again Later", vbOKOnly + vbInformation, SecRep Timer2.Enabled = True Exit Sub End If Next x Next i For i = 1 To .FoundFiles.Count wrd.Documents.Open (.FoundFiles(i)), ConfirmConversions:=False, _ ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="morgan", _ PasswordTemplate:="", Revert:=False, WritePasswordDocument:="morgan", _ WritePasswordTemplate:="" wrd.WindowState = wdWindowStateMaximize Next i End With Skip: If Err.Number <> 0 Then MsgBox "There Was An Error Trying To Open The Reports, Please Try Again!", _ vbOKOnly + vbInformation, SecRep Me.Hide If Not (wrd Is Nothing) Then wrd.Visible = False CleanUp ShowMain SetStatus Set fso = Nothing ErrorLog Err.Number, Err.Description, UserName, Erl, "frmIncidRep Opening Review Reports" Timer2.Enabled = True Exit Sub End If If i <= 1 Then For x = 1 To wrd.Documents.Count If wrd.Documents.Count = 0 Then Exit For wrd.ActiveDocument.Close Sleep (300) Next x ProgBar Sleep 200 ShowMain SetStatus MsgBox "No Reports Found In Path """ & sFolder & """", vbOKOnly, SecRep Set fso = Nothing Timer2.Enabled = True Exit Sub End If ProgBar Set fso = Nothing Me.Show HideMain SetStatus wrd.Visible = True wrd.ActiveWindow.SetFocus Exit Sub ElseIf ReportType = "ReviewFinal" Then ElseIf ReportType = "Trespass" Then RepType = "Trespass.doc" ChangeStatus "Program Opening New Trespass Report Form!" Me.Caption = "SecRep Security Program Trespass Report Toolbar For " & PropName Me.sAdd3.Visible = False Me.sRepHead2.Visible = False Me.sSveClose.Visible = False Me.sSveOpen.Visible = False Me.sSaveOnly.Visible = False Me.sScnOpt.Visible = False Me.sCancel.Visible = True Me.sCloseOpt.Visible = False If Not ExtractForm(RepType) Then Me.Hide If Not (wrd Is Nothing) Then wrd.Visible = False ShowMain MsgBox "There Was A Problem In The Extract Dll Function!" & vbCrLf & vbCrLf & _ " Contact Network Department!", vbOKOnly + vbCritical, SecRep CleanUp SetStatus Err.Clear Timer2.Enabled = True Exit Sub End If Set wrd = CreateObject("Word.Application") wrd.Documents.Open UserPath & RepType Me.Show wrd.Visible = True wrd.Activate SetStatus HideMain If Err.Number <> 0 Then ShowMain If Not (wrd Is Nothing) Then wrd.Visible = False Me.Hide MsgBox "Program was unable to open " & RepType & "!", vbOKOnly + vbCritical, SecRep 'Remove any copies of report form and close word CleanUp SetStatus Err.Clear ErrorLog Err.Number, Err.Description, UserName, Erl, "frmIncidRep Opening Trespass.doc" Timer2.Enabled = True Exit Sub End If Exit Sub ElseIf ReportType = "ReviewTres" Then ElseIf ReportType = "ReviewFinalTres" Then End If End Sub Public Sub MovePhotos(ScanFile) Dim MyScanPath As String Dim x As Long Dim sMsg As VbMsgBoxResult On Error Resume Next wrd.Visible = True wrd.Activate wrd.ActiveWindow.SetFocus wrd.Selection.Goto What:=wdGoToLine, Which:=wdGoToLast If wrd.Selection.Characters.Count > 0 Then wrd.Selection.MoveRight Unit:=wdCharacter, Count:=Count + 1 wrd.Selection.TypeParagraph End If If Err.Number <> 0 Then wrd.Visible = False ShowMain MsgBox "Unable To Move To End Of Report To Attach Photos!", vbOKOnly + vbInformation, SecRep Err.Clear wrd.Visible = True wrd.Activate wrd.ActiveWindow.SetFocus HideMain Me.Visible = True Exit Sub End If 'Show main form and message label along with progressbar ShowProg For x = 0 To frmScanPaper.File1.ListCount - 1 MyScanPath = frmScanPaper.Dir1.Path & "\" & frmScanPaper.File1.List(x) wrd.Selection.InlineShapes.AddOLEObject ClassType:="Package", FileName:= _ MyScanPath, LinkToFile:=False, DisplayAsIcon:=False Sleep 100 If (frmMain.ProgressBar1.Value + (x + 5)) >= 100 Then _ frmMain.ProgressBar1.Value = 0 frmMain.ProgressBar1.Value = frmMain.ProgressBar1.Value + (x + 5) Next x If Err.Number <> 0 Then ShowMain MsgBox "Unable To Attach All The Photos!", vbOKOnly + vbInformation, SecRep Err.Clear wrd.Visible = True wrd.Activate wrd.ActiveWindow.SetFocus HideMain Me.Visible = True Exit Sub End If Clipboard.Clear Sleep (100) ProgBar 'complete progressbar wrd.Visible = False ShowMain 'Remove message and progressbar and show main form sMsg = MsgBox("All Finished Attaching Photos" & Chr(13) & Chr(13) & "Do You Want To Delete The Photos?", vbYesNo + vbQuestion, "SecRep Info.....") If sMsg = vbYes Then For x = 0 To frmScanPaper.File1.ListCount - 1 MyScanPath = frmScanPaper.Dir1.Path & "\" & frmScanPaper.File1.List(x) Kill MyScanPath Next x ApiFolderDelete (frmScanPaper.Dir1.Path) End If Me.Show wrd.Visible = True wrd.Activate wrd.ActiveWindow.SetFocus HideMain frmScanPaper.Timer1.Enabled = True Tag: Publish CLR as an executable Tag: 712185

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?

Top

Re: Publish CLR as an executable by Jeff

Jeff
Fri Oct 10 08:20:01 CDT 2008

"Dan Shepherd" <DanShepherd@discussions.microsoft.com> wrote in message
news:8C33B407-BF1D-4E35-9B54-93E390570F8A@microsoft.com...

>I have a CLR project

[Canned response]
This is a VB "classic" newsgroup. Questions about VB.NET (including VB
2005/2008 and VB Express, which have dropped .NET from their names) are
off-topic here.

Please ask .NET questions in newsgroups with "dotnet" in their names. The
*.vb.* groups are for VB6 and earlier. If you don't see the *.dotnet.*
groups on your news server, connect directly to the Microsoft server:
msnews.microsoft.com.

For questions specific to the VB.NET language, use this group:
microsoft.public.dotnet.languages.vb

Please note that things like controls and data access, which have their own
subgroups in the Classic VB hierarchy, are not language-specific in .NET, so
you should look for groups like these:
microsoft.public.dotnet.framework.windowsforms.controls
microsoft.public.dotnet.framework.adonet
(Note that "vb" is not present in the group name.)

Top

Re: Publish CLR as an executable by Bill

Bill
Fri Oct 10 08:29:06 CDT 2008

Hi Dan,

For VB on dotnet questions, best to post to the dotnet newsgroup:
microsoft.public.dotnet.languages.vb

AS to your question, when you post over there, I'd suggest be clear in what
you are targeting. It sounds to me like you are wanting to have a SQL
Managed function but compiled as an Exe. An exe must have a Sub Main entry
point, or a default form (when you select a default form, the Sub Main entry
point is created for you when compiled)

"Dan Shepherd" <DanShepherd@discussions.microsoft.com> wrote in message
news:8C33B407-BF1D-4E35-9B54-93E390570F8A@microsoft.com...
>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?

Top