Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / EASY_NET / FORM1.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1994-04-24 | 18.6 KB | 517 lines

Form1 DEMONET 1 Form15) EasyNet MS Sans Serif CMDialog1 CommonDialog Etiquette1 MS Sans Serif &File NewMenu OpenMenu &Open... SaveMenu &Save SaveAsMenu Save &As... SEPARATOR8 PrintMenu &Print... SEPARATOR1 ExitMenu &Exit EditMenu &Edit CopyMenu &Copy DeleteMenu &Delete SEPARATOR2 SelectAllMenu Select &All SEPARATOR5 SelectModeMenu &Select Mode DrawMenu &Draw Rectangle &Rectangle EllipseMenu &Ellipse SEPARATOR3 NodeColorMenu &Fill Color... DrawColorMenu &Draw color... NaviguateMenu &Navigate Exercice1Menu $Change current node &out links color Exercice2Menu &Makes a node be &destination of others Exercice3Menu Give each node a &number InfoMenu &Info AboutMenu &About... NodeFillColor_ClickR CC_RGBINIT CMDialog1 Color NodeFillColor Flags Action Form_Load Form_Resize windowstate ScaleHeight Visible Leftw Height Width/ ScaleWidth Net1_ClickNode idnode Open_Click OFN_OVERWRITEPROMPT OFN_SHOWHELP OFN_CREATEPROMPT Filename~ DefaultExt< FilterO Openfile9 LinkColor_Click LinkColor Net1_DblClick OldStr NewStr. GetNodeTexti SetNodeText Exit_Click\ SelectAll_Click SelectAll Cut_Click Copy_Click Copyq Paste_ClickS Paste Delete_Click< New_Click NodeLeft NodeTop) NodeRight NodeBottom SaveAs_Click Save_Click printNet1* curItemf CurrentItemH Net1_ChangeB Net1_SelChangev Net1_ClickLink idLink TypeItem Ellipse_Click Shape NodeShapeq RoundRect_Click Rectangle_Click Net1_ClickOut$ idItem Net1_DragOver4 Source control StateT Net2_ClickNode Net2_SelChange Net1_MouseUp Button Shift itemId itemType. FirstNode NextNode Node SaveFileP EnrNode5 NodeRecord X1Net1V FillColorV NodeBorderColor BorderColord NodeText TextF Label Lengthe FileHeader NodeCount GetNodeCount LinkCount GetLinkCount GetCountNodeY CountNode GetNbNode GetNumberbNode GetNodesCount TextLengthI NextLink& FirstLink LinkRecord SrcNode DstNode LinkWidthX LinkSrcNode LinkDstNode offsete GetNodeIndex nodeId9 nNbNode PointCount LinkPointCountG Changed FirstLinkPoint NextLinkPoint LinkPoint NodeBorderColor_Click Destination Origin NoShape_Click Bitmap_Clickr Picture Image1B Edit_Click PointTabU FillStyle EditActionC File_ClickP ShapeNode Net1_Click ThenNet1r Image2 Image3 SelNodeCount SelFirstNode| Asinteger FirstSelNodet NextSelNode LinkedNode NodeLink LoopType LoopCount LoopItem LoopAction Net1_AddNode Clipboard Metafilet SelectModeMenu_Clicke Mode( SelectionMode6 SelectMode NodeColor DrawColor" DrawWidth draw= Color_Click DrawColor_Click PersistentL FontMenu_Click FontName FontSize FontUnderline FontItalic$ FontBold IsLink LoopAc4 About countD AddPoint CenDrawNodeMenu_Click CanDrawNode0 FalseelseQ CanDrawNodeMenu_Click ReadOnlyMenu_Click ReadOnly MiscMenu_Click\ Net1_ErrSpace Oriented Net1_AddLinkx PointXg PointY6 value Form_QueryUnload Cancel UnloadMode Response FState Dirty Caption frmMDI[ GetFileName SaveFileAsF FilenamefrmMDI QueryUnload IfEnd Form_Unloadz Form28 FormK Form1 notNet1 Draw_Click Form_PaintY Option_Click( DefFillColor DefDrawColor DefShapew BackColor nbnode nblink memoriser tableauC elected nodes array Exercice1Menu_Click% CopyMenu_ClickK DeleteMenu_ClickG EllipseMenu_Click4 DrawColorMenu_Click{ RoundRectMenu_ClickX SelectAllMenu_Clickf NodeFillColorMenu_Click} NoShapeMenu_Click Exercice2Menu_Click. Exercice3Menu_Click3 Exercice4Menu_Clickg linkType Exercice5Menu_Click" Etiquette1 SelectModeMenue Checked AboutMenu_Click moMenu_Click WinExec SW_SHOWMINIMIZED6 DemoMenu_Click SendMessages GetActiveWindow WM_COMMAND InvisibleMenu_Click$ NodeColorMenu_Click MousePointerW CanSizeNodeMenu_Clickp CanSizeNode CanSizeNodeMenu% ReadOnlyMenu CanMoveNodemenu_Clickf CanMoveNode CanMoveNodeMenu CanStretchLinkMenu_Click CanStretchLinkMenu CanStretchLink CanMultiLinkMenu_Click CanMultiLinkp CanMultiLinkMenu, Net1CanMoveNode MultiSelectionMenu_Click MultiSelectionMenu MultiSelZ Enabled CanDrawNodeMenu CanDrawLinkMenu_Click- CanDrawLinkJ CanDrawLinkMenu NewMenu_Click4 OpenMenu_Click SaveMenu_Clickc SaveAsMenu_Click9 ExitMenu_Clicko EndDemo Show1 ItemTextj MultiSelectioni DefReadOnly DefMultiSelection DefCanSizeNode DefCanMoveNode DefCanStretchLink DefCanMultiLink DefCanDrawNodeW DefCanDrawLinkU DefMultiSel InitMenu@ BitmapMenu_Click number orgNum DstNum demo| DemoMenu EndDemoMenu_Clickt UseMenu_Click Command1_Click ButtonMenu_Click Command1 Picture1 allows graphs interactively forms graph@ thatB linked change style] sizeG position associate navigate INFO1z INFO2 INFO3 INFO4 INFO5[ StartDemoMenu_Click EndDemoMenu5 Command2_ClickS Command2 FeaturesMenu_Click+ flase Picture1_Click UseMenu RedrawMenu_Click dessinS NetCtrl PrintMenu_Clickv DessinForm nbpoint radius ForeColor CurrentX CurrentY* printer endodc BeginPage EndPage NumCopies CancelError Errhandler FromPage ToPage Copies Net1X1 PrintFilef AboutMenu_Click CopyMenu_Click DeleteMenu_Click DrawColorMenu_Click Set initial color selection for dialog Display color dialog Set the new default border color EllipseMenu_Click Set default node shape to be ellipsoidd Exercice1Menu_Click Exercise: makes color of all "out" links of all selected nodes to be red. Two LoopAction cannnot be cascaded so you have first to memorize the selected nodes in an array in order to work with them.o Selected nodes loop If no selected nodes, nothing to do Memorize selected nodes in a dynamic array. For each node of our array... ... makes it be the current item in order to be able to work with it. Do a node links Loop For each link of the current node.... ... if this link is an "out" linke ... changes its color Don't forget to delete the arrayn Exercice2Menu_Click Exercise: draw a link betweeen each node and current oneu First save current item If current item is 0 or is not a node then quit Destination noden Nodes loopn Restore current item Exercice3Menu_Click Exercise: give each node a number and each link a couple of numbers First save current item Do a nodes loop Count of nodes involved in that loopo Do a links loop Count of nodes involved in that loopo Restore current itemt ExitMenu_Click Form_Load Drawing mode Form_QueryUnload Form_Resize GetFileName Display file open dialog Net Files(*.NET)|*.net|All Files(*.*)|*.*| Select a file and open it Net1_AddLink Save current link Get destination node type Restore current linkp Decide that link type is the same as its destination node type. Net1_AddNode Avoid too small nodes Decide that node type is the same as its shape Net1_Change Net1_DblClick Enter item text: ITEM TEXT NewMenu_Click NodeColorMenu_Click Set initial color selection for dialog Display color dialog Set the new default fill color Openfile Header List of nodes List of link Create a link between SrcNode and dstNoder Point OpenMenu_Click PrintFile Nodes loop Ellipse Rectangle Links loop@ Number of extra points Alocate an array of nbpoint + 2r First point (intersection between origin node border and link) Normal extra points Last point (intersection between dest. node border and link) Draw all link segments Get point arrows Draw arrow PrintMenu_Click Display print dialogboxD First save current item Restore current item QueryUnload Message box The graph in [ ] has changed. Do you want to save the changes? Get the filename to save the filei If the user did not specify a file name, cancel the unload; otherwise, save it. Cancelc Rectangle_Click Set default node shape to be rectangularr SaveAsMenu_Click Display file open dialog Net Files(*.NET)|*.net|All Files(*.*)|*.*| Select a file SaveFile Header List of nodes List of links SaveMenu_Click SelectAllMenu_Click SelectModeMenu_Click Selection mode Drawing mode