Форумы GIS-Lab.info

Код: Выделить всё

*************************************
' Создание ветку чтобы была вкладка во вкладке
'*************************************
Sub branche_three (iz As SmallInt) - параметр iz используется для назначения ID поскольку функция вызывается рекурсивно.. и не однократно то для постраение большого числа веток это не обхадимо
Dim gr2_name As String
---- удаляю элементы которые  стояли в конце списка вкладок.. в самом низу я их добовляю... для того чтобы список вкладок у меня был в центре...
If glist(iz).id_Group = 30 Then  --- это условие нужно для того чтобы определить в какую вкладку я добовляю подвкладку... если в главное меню.. то я удаляю.. итема.. если нет иду мимо..
    gr2_name = Name_menu_main
  Alter Menu  ID 30  Remove ID 60
  Alter Menu  ID 30  Remove ID 61
  If iz = 1 Then
  Alter menu Name_menu_main Add
 "(-"
End if
 Else
  gr2_name = glist(glist(iz).id_Group).Name_Group
End If

----- непосредственно само формирование меню...
Create menu  glist(iz).Name_Group  As
 Add_create_wor ID iz Calling New_branche,
 Add_falder_for_wor ID iz Calling Create_Foulder_item,
 "(-",
 Delete_falder_for_wor ID iz Calling Referens_Delete_Folder,
 "(-"
 Alter Menu  gr2_name Add
  glist(iz).Name_Group  As  glist(iz).Name_Group

If glist(iz).id_Group = 30 Then --- это условие нужно для того чтобы определить в какую вкладку я добовляю подвкладку... если в главное меню.. то я добавляю.. в конце эти итема..

If iz = 1 Then
  Alter menu Name_menu_main Add
 "(-"
End if
'добовление ID 60, 61
 Alter menu Name_menu_main Add
 "(-",
 Info_menu_main ID 60 Calling SK_About,
 "(-",
 Exit_menu_main ID 61 Calling SK_Exit
End If
End Sub

Код: Выделить всё

Main-Вкладка
Вкладка_1 ------|
                         |-> Вкладка_1_1
Вкладка_2 ------|
                         |->Вкладка_2_1
                         |->Вкладка_2_2 ------|
                                                          |->Вкладка_3_1
                                                          |->Вкладка_3_2
Вкладка_3 ------|
                         |->Вкладка_3_1
                         |->Вкладка_3_2  ------|
                                                           |->Вкладка_4_1
                                                           |->Вкладка_4_2

Код: Выделить всё

#include <Windows.h>
#include <Shlobj.h>
#include <stdio.h>
#include "defines.h"

EXPORT bool GetCurrentUserHomeDirectory( char *lpszPath )
{
	char path[MAX_PATH];
	if( SHGetSpecialFolderPath( 0, path, CSIDL_PROFILE , 0 ) )
	{
		strcpy(lpszPath, path);
		return true;
	}
	else
	{
		lpszPath = "";
		return false;
	}
}


EXPORT bool CreateFolder( const char *folderPath, const char *folderName )
{
	if( folderPath == 0 && folderName == 0 )
		return false;
	char path[MAX_PATH];
	memset( path, 0, MAX_PATH );
	strcpy( path, folderPath);
	strcat( path, "/" );
	strcat(path, folderName );

	if( CreateDirectory( path, 0 ) )
		return true;
	else
		return false;

}

Код: Выделить всё

'******************************
' Процедура создания меню
'*****************************
Sub Create_Menu
Create Menu "бла бла бла" ID 570 As
"Информация о точке" ID 590 Calling Work_map,
"Выход" ID 600 Calling SK_Exit

Alter Menu "MapperShortcut" Add
"(-",
"бла бла бла" As  "бла бла бла"
End Sub ' SK_Create_Menu