DP Tool Club 22

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

/ DP Tool Club 22 / CD_ASCQ_22_0695.iso / win / prg / easynet / form1.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-02-24 | 22KB | 614 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 RoundRectangleMenu R&ound rectangle DiamondMenu &Diamond EllipseMenu &Ellipse SEPARATOR3 NodeColorMenu &Fill Color... DrawColorMenu &Draw color... NaviguateMenu &Navigate Exercice1Menu &Change selected nodes &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 allows7 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 ptx14 ptx2@ radius ForeColor CurrentX CurrentY* Printer endodc. BeginPage EndPage NumCopies CancelError Errhandler FromPager ToPage Copies Net1X1 PrintFile StopSleep_Click Sleeping StartSleep_Click Net1_KeyDown KeyCode KeyCXode KEY_DELETE SolidMenu_Click DrawStyle4 DotMenu_Click DashMenu_Click KET_DOWN WM_VSCROLL] LB_LINEDOWN% KEY_DOWN x0115 KEY_UP SB_LINEUP SB_LINEDOWN WM_HSCROLL KEY_LEFT KEY_RIGHT SB_PAGEDOWN% SB_PAGEUP KEY_NEXT KEY_PRIOR BannerZ Net1_StartResize DefMousePointerL Net1_StartLinkn Net1_StartStretchR Net2_Click{ Net2_StartResizeH direction Net1_StartMove Net1_StartNothing Net1_OverAreaY slect Case1 case2 Case3h Case4 Net1_MouseMove PointedArea DiamondMenu_Click GetDC ReleaseDC RoundRect Transparent RoundRectangleMenu_Click screen TwipsPerPixelX TwipsPerPixelY RepaintJ DoChange SaveEasyNetFile, TagLength7 ItemTag LinkHead Alignments Hiding ThenPrint Version OpenEasyNetFileY DoSelChange DoAddNode DoAddLink DoCheckItem frmGers panel2 keyword Drawe CheckItem@ ItemRec Rectangle asRectangle right bottom DrawText& DT_CENTER DT_VCENTER noderect DT_WORDBREAKn AboutMenu_Click CopyMenu_Click DeleteMenu_Click DiamondMenu_Click Set default node shape to be diamonde 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 out links" Loop. For each "out" link of the current node...r 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 Select a node before doing this action Demonet1 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_AddNode Avoid too small nodes Net1_Change Net1_DblClick Enter item text: ITEM TEXT Net1_KeyDown Net1_MouseMove Net1.MousePointer = 4 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 Loading file... Drawing mode PrintFile Nodes loop Ellipse Rectangle Round rectangle Diamond 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 dialogbox 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 RoundRectangleMenu_Click SaveAsMenu_Click Display file open dialog Net Files(*.NET)|*.net|All Files(*.*)|*.*| Select a file Saving mode Drawing mode SaveFile Header List of nodes List of links SaveMenu_Click Saving mode Drawing mode SelectAllMenu_Click SelectModeMenu_Click Selection mode Drawing mode