�@

�A�ځF�A�b�v�O���[�h�E�E�B�U�[�h�Ɋw��VB 6��VB 2005

��5��@.NET�ł͂����ς��I VB 6��MDI�t�H�[���ƃ��j���[

�O���[�v�V�e�B��������@���� �Y��
2007/05/15
Page1 Page2 Page3


Back Issue
1
App�I�u�W�F�N�g����My�I�u�W�F�N�g��
2
Clipboard�I�u�W�F�N�g��My.Computer.Clipboard�I�u�W�F�N�g
3
�R�R���Ⴄ�I VB 6��.NET�̃R���g���[���E�R���N�V����
4
�A�b�v�O���[�h�E�E�B�U�[�h������グ�H VB 6��.NET�̈���̈Ⴂ

�@������グ��Visual Basic 6.0�i�ȉ�VB 6�j�̓���I�u�W�F�N�g�́AMDIForm�I�u�W�F�N�g��Menu�R���g���[����2�‚ł��B

�@VB 6�ł́A�v���W�F�N�g�̒���1�‚��������lj��ł��Ȃ����ʂȃt�H�[���Ƃ��āuMDI�t�H�[���v�iMDIForm�I�u�W�F�N�g�j���p�ӂ���Ă��܂��BMDI�t�H�[�����v���W�F�N�g�ɒlj����A�ʏ�̃t�H�[����MDIChild�v���p�e�B��True�ɐݒ肷�邱�Ƃɂ���āAMDI�t�H�[���̎q�t�H�[���Ƃ��Ă��̃t�H�[�����\�������Ƃ����d�l�ł��B

�@����AMenu�R���g���[���͂ق��̃R���g���[���Ƃ͈قȂ�A�c�[���{�b�N�X����t�H�[���ɓ\��t���邱�Ƃ͂ł��܂���B�t�H�[���̃R���e�L�X�g�E���j���[���烁�j���[�E�G�f�B�^���N�����AMenu�R���g���[���̒lj��A�ݒ���s���܂��B���̂悤�ɁAMDIForm�I�u�W�F�N�g��Menu�R���g���[���͂ǂ�����A������Ɠ���ȑ��݂ƂȂ��Ă��܂��B

�@����̓���I�u�W�F�N�g�ł́A�v���p�e�B�E�E�B���h�E�⃁�j���[�E�G�f�B�^���g��Ȃ���ΐݒ�ł��Ȃ����ڂ������‚����݂��܂��̂ŁA�܂��͕ϊ�����VB 6�̃v���W�F�N�g�ɂ‚��ĊȒP�ɐ������܂��B

VB 6��MDI�t�H�[���ƃ��j���[�E�G�f�B�^

�@����T���v���Ƃ��č쐬����VB 6�v���W�F�N�g�́A���L�̐}1�̂悤�ɁA

  • 1�‚�MDI�t�H�[���iMDIForm1�j
  • MDIChild�v���p�e�B��True�ɐݒ肳�ꂽ3�‚̃t�H�[���iForm1�AForm2�AForm3�j

�ō\������Ă��܂��B�v���W�F�N�g�̃X�^�[�g�A�b�v��MDIForm1�ł��B


�}1�@�v���W�F�N�g�̍\���iVB 6�j
MDIForm1��MDI�t�H�[���AForm1�AForm2�AForm3���t�H�[���ƂȂ��Ă���B3�‚̃t�H�[����MDIChild�v���p�e�B�́A���s���ɂ͓ǂݎ���p�ł��邽�߃v���p�e�B�E�E�B���h�E����ݒ肷��K�v������B

�@MDIForm1�ɂ́AVB 6�̃��j���[�E�G�f�B�^���g���Đ}2�̂悤�ȃ��j���[��ݒ肵�Ă��܂��B


�}2�@VB 6�̃��j���[�E�G�f�B�^�ɂ�郁�j���[�̐ݒ�
VB 6�ł́A���j���[�E�G�f�B�^�Ń��j���[��ݒ肷�邱�ƂŁA�t�H�[����Menu�R���g���[����lj��ł���B

�@�g�b�v�̃��j���[�ł���u�E�B���h�E�v�̍��ڂ̂݁m�E�B���h�E���X�g�n�`�F�b�N�{�b�N�X�Ƀ`�F�b�N�����AMDI�q�t�H�[���̈ꗗ�����j���[�Ƃ��ĕ\�������悤�ɐݒ肵�Ă��܂��i��f�̐}3�Q�Ɓj�B

�@���̂ق��̃��j���[���ڂɂ‚��ẮA�ȉ��̕\�̂Ƃ���ɃL���v�V�����Ɩ��O������ݒ肵�Ă��܂��B

�L���v�V���� ���O
�E�B���h�E MenuWindow
���C�A�E�g MenuLayout
�d�˂ĕ\�� MenuWindowCascade
�㉺�ɕ��ׂĕ\�� MenuWindowTileVertical
���E�ɕ��ׂĕ\�� MenuWindowTileHorizontal
�ŏ����t�H�[���𐮗� MenuWindowArrangeIcons
�ŏ��� MenuWindowMinimizeAll
���̃T�C�Y�ɖ߂� MenuWindowRestoreAll
�e���j���[���ڂ̃L���v�V�����Ɩ��O

�@������MDIForm1�̃R�[�h�����L�̃��X�g1�ɂȂ�܂��B�I�����ꂽ���j���[���ڂɏ]���āA���낢��ȃE�B���h�E��������ׂĂ�MDI�q�t�H�[���ɑ΂��Ĉꊇ���Ď��s����v���O�����ƂȂ��Ă��܂��B

Private Sub MDIForm_Load()

  ' �eMDI�q�t�H�[�������[�h���܂��B
  Load Form1
  Load Form2
  Load Form3

End Sub

Private Sub MenuWindowCascade_Click()

  ' MDI�q�t�H�[�����d�˂ĕ\�����܂��B
  MDIForm1.Arrange vbCascade

End Sub

Private Sub MenuWindowTileHorizontal_Click()

  ' MDI�q�t�H�[�������E�ɕ��ׂĕ\�����܂��B
  MDIForm1.Arrange vbTileHorizontal

End Sub

Private Sub MenuWindowTileVertical_Click()

  ' MDI�q�t�H�[�����㉺�ɕ��ׂĕ\�����܂��B
  MDIForm1.Arrange vbTileVertical

End Sub

Private Sub MenuWindowArrangeIcons_Click()

  ' �ŏ�������MDI�q�t�H�[���𐮗񂵂܂��B
  MDIForm1.Arrange vbArrangeIcons

End Sub

Private Sub MenuWindowMinimizeAll_Click()

  ' MDI�q�t�H�[�����ŏ������܂��B
  SetWindowStateAll (vbMinimized)

End Sub

Private Sub MenuWindowRestoreAll_Click()

  ' MDI�q�t�H�[�������̃T�C�Y�ɖ߂��܂��B
  SetWindowStateAll (vbNormal)

End Sub

Private Sub SetWindowStateAll(state As FormWindowStateConstants)

  Dim currentForm As Form

  ' Forms�R���N�V�������g���Ă��ׂẴt�H�[�����擾���܂��B
  For Each currentForm In Forms
    ' �擾�����t�H�[����MDI�t�H�[���ȊO�̏ꍇ��
    ' WindowState�v���p�e�B��ύX���܂��B
    If Not currentForm Is Me Then
      currentForm.WindowState = state
    End If
  Next

End Sub
���X�g1�@MDIForm1�̃R�[�h�iVB 6�j

�@���̃T���v���E�v���W�F�N�g�̎��s��ʂ́A���L�̐}3�̂悤�ɂȂ�܂��B


�}3�@�v���W�F�N�g�̎��s��ʁiVB 6�A�v���P�[�V�����j

�@�ł́A�A�b�v�O���[�h�E�E�B�U�[�h���g���Ă��̃v���W�F�N�g��Visual Basic 2005�i�ȉ�VB 2005�j�̃v���W�F�N�g�ɕϊ����A�|�C���g�ƂȂ镔���ɂ‚��ĉ�����Ă����܂��傤�B


�@INDEX
�@ �A�b�v�O���[�h�E�E�B�U�[�h�Ɋw��VB 6��VB 2005
�@ ��5��@.NET�ł͂����ς��I VB 6��MDI�t�H�[���ƃ��j���[
  1�DVB 6��MDI�t�H�[���ƃ��j���[
�@   2�DVB 2005��MDIForm�I�u�W�F�N�g�^���j���[�E�G�f�B�^�͑��݂��Ȃ�
�@   3�DOption Strict�X�e�[�g�����g�^VB 6�̒萔�^MdiChildren�v���p�e�B
�@
CfbNXEy[Ww �@�u�A�b�v�O���[�h�E�E�B�U�[�h�Ɋw��VB 6��VB 2005�v


Insider.NET �t�H�[���� �V���L��
  • ��2��@�Ȍ��ȃR�[�f�B���O�̂��߂� �i2017/7/26�j
    �@�����_���ŋL�q�ł��郁���o�̑����Athrow���Aout�ϐ��A�^�v���ȂǁAC# 7�ɂ͈ȑO�����R�[�h���Ȍ��ɋL�q�ł���悤�ȋ@�\����������Ă���
  • ��1��@Visual Studio Code�f�o�b�O�̊�b�m�� �i2017/7/21�j
    �@Node.js�v���O�������f�o�b�O���Ȃ���AVisual Studio Code�ɓ�������Ă���f�o�b�O�@�\�̊�{�́u�L�v���}�X�^�[���悤
  • ��1��@���ĂȃR�[�f�B���O�̂��߂� �i2017/7/19�j
    �@C# 7�Œlj����ꂽ�V�@�\�̒�����A�u���l���e�����\���̉��P�v�Ɓu���[�J���֐��v���Љ��B�����͕�����₷���R�[�h���L�q����̂Ɏg����
  • Presentation Translator �i2017/7/18�j
    �@Presentation Translator��PowerPoint�p�̃A�h�C���B�v���[���e�[�V�������̎����̕t����A������ł̎��^�����A�X���C�h�̖|����s����
��IT���[���}�K�W���@�V������X�^�b�t�̃R���������[���œ͂��܂��i�����j
- PR -

���ڂ̃e�[�}

�Ɩ��A�v��Insider �L�������L���O

�{�� ����
�\�����[�V����FLASH
"); adremove.push(adstrtmp[adstart]); } } for(var i = 0; i < adremove.length; i++){ adremove[i].parentNode.removeChild(adremove[i]); } adstr.sort().reverse(); adstr = adstr.join(""); return adstr; }