GPWiki.org
GPWiki.org
It is currently Fri May 24, 2013 9:38 am

All times are UTC




Post new topic Reply to topic  [ 6 posts ] 
Author Message
 Post subject: VB6 coloring
PostPosted: Sat Mar 03, 2007 9:35 pm 
Dexterous Droid

Joined: Fri Aug 19, 2005 10:34 am
Posts: 3650
Is it just me, or does the VB6 (type="vb") coloring seem to, in no way represent the default color scheme of the VB6 interface?

_________________
NetGore - Open source online RPG engine


Top
 Profile  
Reply with quote  
 Post subject:
PostPosted: Sun Mar 04, 2007 11:39 am 
Dexterous Droid

Joined: Fri Aug 19, 2005 10:34 am
Posts: 3650
I finally got around to adding this to my own wiki, but formatted it to look like the native VB6 colors (darkened the horribly bright comments, though), so if you want it, here it is (also contains a few more keywords they left out):

Code:
<?php
/*************************************************************************************
 * vb.php
 * ------
 * Author: Roberto Rossi (rsoftware@altervista.org)
 * Copyright: (c) 2004 Roberto Rossi (http://rsoftware.altervista.org), Nigel McNie (http://qbnz.com/highlighter)
 * Release Version: 1.0.7.18
 * Date Started: 2004/08/30
 *
 * Visual Basic language file for GeSHi.
 *
 * CHANGES
 * -------
 * 2004/11/27 (1.0.1)
 *  -  Added support for multiple object splitters
 * 2004/08/30 (1.0.0)
 *  -  First Release
 *
 * TODO (updated 2004/11/27)
 * -------------------------
 *
 *************************************************************************************
 *
 *     This file is part of GeSHi.
 *
 *   GeSHi is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 *   GeSHi is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *   GNU General Public License for more details.
 *
 *   You should have received a copy of the GNU General Public License
 *   along with GeSHi; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 ************************************************************************************/
 $language_data = array (
   'LANG_NAME' => 'Visual Basic',
   'COMMENT_SINGLE' => array(1 => "'"),
   'COMMENT_MULTI' => array(),
   'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE,
   'QUOTEMARKS' => array('"'),
   'ESCAPE_CHAR' => '',
   'KEYWORDS' => array(
      1 => array(
         'as', 'err', 'byte', 'boolean', 'and', 'or', 'recordset', 'unload', 'to',
         'integer','long','single','new','database','nothing','set','close',
         'open','print','split','line','field','querydef','instrrev',
         'abs','array','asc','ascb','ascw','atn','avg','me',
         'cbool','cbyte','ccur','cdate','cdbl','cdec','choose','chr','chrb','chrw','cint','clng',
         'command','cos','count','createobject','csng','cstr','curdir','cvar','cvdate','cverr',
         'date','dateadd','datediff','datepart','dateserial','datevalue','day','ddb','dir','doevents',
         'environ','eof','error','exp',
         'fileattr','filedatetime','filelen','fix','format','freefile','fv',
         'getallstrings','getattr','getautoserversettings','getobject','getsetting',
         'hex','hour','iif','imestatus','input','inputb','inputbox','instr','instb','int','ipmt',
         'isarray','isdate','isempty','iserror','ismissing','isnull','isnumeric','isobject',
         'lbound','lcase','left','leftb','len','lenb','loadpicture','loc','lof','log','ltrim',
         'max','mid','midb','min','minute','mirr','month','msgbox',
         'now','nper','npv','oct','partition','pmt','ppmt','pv','qbcolor',
         'rate','rgb','right','rightb','rnd','rtrim',
         'second','seek','sgn','shell','sin','sln','space','spc','sqr','stdev','stdevp','str',
         'strcomp','strconv','string','switch','sum','syd',
         'tab','tan','time','timer','timeserial','timevalue','trim','typename',
         'ubound','ucase','val','var','varp','vartype','weekday','year',
         'appactivate','base','beep','call','case','chdir','chdrive','const',
         'declare','defbool','defbyte','defcur','defdate','defdbl','defdec','defint',
         'deflng','defobj','defsng','defstr','deftype','defvar','deletesetting','dim','do',
         'else','elseif','end','enum','erase','event','exit','explicit',
         'false','filecopy','for','foreach','friend','function','get','gosub','goto',
         'if','implements','kill','let','lineinput','lock','loop','lset','mkdir','name','next','not',
         'onerror','on','option','private','property','public','put','raiseevent','randomize',
         'redim','rem','reset','resume','return','rmdir','rset',
         'savepicture','savesetting','sendkeys','setattr','static','sub',
         'then','true','type','unlock','wend','while','width','with','write',
         'vbabort','vbabortretryignore','vbapplicationmodal','vbarray',
         'vbbinarycompare','vbblack','vbblue','vbboolean','vbbyte','vbcancel',
         'vbcr','vbcritical','vbcrlf','vbcurrency','vbcyan','vbdataobject',
         'vbdate','vbdecimal','vbdefaultbutton1','vbdefaultbutton2',
         'vbdefaultbutton3','vbdefaultbutton4','vbdouble','vbempty',
         'vberror','vbexclamation','vbfirstfourdays','vbfirstfullweek',
         'vbfirstjan1','vbformfeed','vbfriday','vbgeneraldate','vbgreen',
         'vbignore','vbinformation','vbinteger','vblf','vblong','vblongdate',
         'vblongtime','vbmagenta','vbmonday','vbnewline','vbno','vbnull',
         'vbnullchar','vbnullstring','vbobject','vbobjecterror','vbok','vbokcancel',
         'vbokonly','vbquestion','vbred','vbretry','vbretrycancel','vbsaturday',
         'vbshortdate','vbshorttime','vbsingle','vbstring','vbsunday',
         'vbsystemmodal','vbtab','vbtextcompare','vbthursday','vbtuesday',
         'vbusesystem','vbusesystemdayofweek','vbvariant','vbverticaltab',
         'vbwednesday','vbwhite','vbyellow','vbyes','vbyesno','vbyesnocancel',
         'vbnormal','vbdirectory','lib','alias','byval','byref'
         )
      ),
   'SYMBOLS' => array(
      '(', ')'
      ),
   'CASE_SENSITIVE' => array(
      GESHI_COMMENTS => false,
      1 => false
      ),
   'STYLES' => array(
      'KEYWORDS' => array(
         1 => 'color: #0000FF;'
         ),
      'COMMENTS' => array(
         1 => 'color: #007C00;'
         ),
      'BRACKETS' => array(
         0 => 'color: #000000;'
         ),
      'STRINGS' => array(
         0 => 'color: #000000;'
         ),
      'NUMBERS' => array(
         0 => 'color: #000000;'
         ),
      'METHODS' => array(
         1 => 'color: #000000;'
         ),
      'SYMBOLS' => array(
         0 => 'color: #000000;'
         ),
      'ESCAPE_CHAR' => array(
         0 => 'color: #000000;'
         ),
      'SCRIPT' => array(
         ),
      'REGEXPS' => array(
         )
      ),
   'OOLANG' => true,
   'OBJECT_SPLITTERS' => array(
      1 => '.'
      ),
   'REGEXPS' => array(
      ),
   'STRICT_MODE_APPLIES' => GESHI_NEVER,
   'SCRIPT_DELIMITERS' => array(
      ),
   'HIGHLIGHT_STRICT_BLOCK' => array(
      )
);

?>

_________________
NetGore - Open source online RPG engine


Last edited by Spodi on Thu Feb 28, 2008 6:20 pm, edited 1 time in total.

Top
 Profile  
Reply with quote  
 Post subject:
PostPosted: Sun Mar 04, 2007 12:06 pm 
Babirusa
User avatar

Joined: Thu Aug 19, 2004 2:55 pm
Posts: 9241
Location: The Netherlands
Ryan is away for a few days, so You'll have to wait a bit before it could be put online. :).

_________________
Serious game developer

http://www.persistentrealities.com
http://www.persistentrealities.com/vbfibre
http://www.ambiances.nl


Top
 Profile  
Reply with quote  
 Post subject:
PostPosted: Thu Feb 28, 2008 6:22 pm 
Dexterous Droid

Joined: Fri Aug 19, 2005 10:34 am
Posts: 3650
Just wanted to bump this request back up. Heres an example of the final product. Updated my post above with a slightly more up-to-date file.

_________________
NetGore - Open source online RPG engine


Top
 Profile  
Reply with quote  
 Post subject:
PostPosted: Thu Feb 28, 2008 6:47 pm 
Babirusa
User avatar

Joined: Thu Aug 19, 2004 2:55 pm
Posts: 9241
Location: The Netherlands
You know that necroing at the forums is considered bad behavior, right?





:lol. you could always PM Ryan of course :).

_________________
Serious game developer

http://www.persistentrealities.com
http://www.persistentrealities.com/vbfibre
http://www.ambiances.nl


Top
 Profile  
Reply with quote  
 Post subject:
PostPosted: Thu Feb 28, 2008 6:59 pm 
Dexterous Droid

Joined: Fri Aug 19, 2005 10:34 am
Posts: 3650
Seeing as he was gone at the time of this post, it wasn't applied, nor there was no acknowledgment to the request itself, I figured I'd be able to get off with only a handful of rocks thrown at me for this necro. ;)

I would PM Ryan but I prefer to keep non-personal chit-chat about the wiki public so people can throw in their input since while it takes Ryan to apply it, it affects anyone reading a VB6 page on the wiki.

_________________
NetGore - Open source online RPG engine


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 6 posts ] 

All times are UTC


Who is online

Users browsing this forum: No registered users and 1 guest


You can post new topics in this forum
You can reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group