OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Reply
 
Thread Tools Search this Thread Display Modes
  #11  
Old 02-05-2011, 20:36
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,769
Blog Entries: 9
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Reg Files

There is no need to generate a Reg file, your macro can save its setting rights to the Registry like so:
Code:
SaveSetting "liveFillet", "Preferences", "Radius", txtRadius.Text
SaveSetting "liveFillet", "Preferences", "DistanceB", txtDistanceB.Text
SaveSetting "liveFillet", "Preferences", "Step", txtIncValue
The settings can then be retrieved as follows:
Code:
txtRadius.Text = GetSetting("liveFillet", "Preferences", "Radius", ".05")
txtDistanceB.Text = GetSetting("liveFillet", "Preferences", "DistanceB", ".05")
txtIncValue.Text = GetSetting("liveFillet", "Preferences", "Step", ".01")
Hopefully that gets you started.

-Shelby
Reply With Quote
  #12  
Old 04-05-2011, 14:23
jemmyell jemmyell is offline
Senior Member
 
Join Date: Jan 2005
Location: Orange County, California, USA, Earth, Solar System, Milky Way Galaxy
Posts: 157
Default Use an INI

Use an INI file to distribute settings. If you screw up somebody's registry they will never touch anything you do ever again...

-James
__________________
-James Leonard
CNC Inlay Guy - www.CorelDRAWCadCam.com
Reply With Quote
  #13  
Old 04-05-2011, 18:57
gorgo gorgo is offline
Senior Member
 
Join Date: Feb 2010
Posts: 169
Default

Quote:
Originally Posted by shelbym View Post
There is no need to generate a Reg file, your macro can save its setting rights to the Registry like so:
Code:
SaveSetting "liveFillet", "Preferences", "Radius", txtRadius.Text
SaveSetting "liveFillet", "Preferences", "DistanceB", txtDistanceB.Text
SaveSetting "liveFillet", "Preferences", "Step", txtIncValue
The settings can then be retrieved as follows:
Code:
txtRadius.Text = GetSetting("liveFillet", "Preferences", "Radius", ".05")
txtDistanceB.Text = GetSetting("liveFillet", "Preferences", "DistanceB", ".05")
txtIncValue.Text = GetSetting("liveFillet", "Preferences", "Step", ".01")
Hopefully that gets you started.

-Shelby
Correct, I'm aware of that. I'm trying to get the macro to 'export' the settings so I can distribute them to other users in my group.
Reply With Quote
  #14  
Old 04-05-2011, 19:00
gorgo gorgo is offline
Senior Member
 
Join Date: Feb 2010
Posts: 169
Default

Quote:
Originally Posted by jemmyell View Post
Use an INI file to distribute settings. If you screw up somebody's registry they will never touch anything you do ever again...

-James
I see. How would I go about doing that?
Reply With Quote
  #15  
Old 05-05-2011, 12:18
jemmyell jemmyell is offline
Senior Member
 
Join Date: Jan 2005
Location: Orange County, California, USA, Earth, Solar System, Milky Way Galaxy
Posts: 157
Default Use the profile string functions

GetPrivateProfileString and WritePrivateProfileString. Look here:

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

-James
__________________
-James Leonard
CNC Inlay Guy - www.CorelDRAWCadCam.com
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
how to find and remove duplicate entries in Listboxes? olympiatr CorelDRAW/Corel DESIGNER VBA 6 26-07-2010 20:29
Exporting Iluvtheravens General 1 14-03-2007 15:32
exporting to PSD zoom General 2 14-11-2006 12:23
Sorting entries in the object manager dan CorelDRAW/Corel DESIGNER VBA 1 18-08-2004 23:16
exporting to jpg ddonnahoe CorelDRAW/Corel DESIGNER VBA 7 26-01-2004 12:53


All times are GMT -5. The time now is 02:13.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com