Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 | 2 |

 

  Вопрос: Картинка при загрузке CorelDRAW 12 Добавлено: 31.05.06 22:31  

Автор вопроса:  Nikolai

Ответить

  Ответы Всего ответов: 18  

Номер ответа: 16
Автор ответа:
 Nikolai



Вопросов: 23
Ответов: 58
  Профиль | | #16 Добавлено: 07.06.06 18:04
Как при нажатии кнопки находиться путь?

Public Class Form1
    Inherits System.Windows.Forms.Form
опущен #Region " Windows Form Designer generated code "
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show(Application.StartupPath)
    End Sub

End Class

Ответить

Номер ответа: 17
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #17 Добавлено: 07.06.06 18:29
Через API GetModuleFileName
Если тебе это так интерсно, то вот код этой функции из FW 2.0
Public Shared ReadOnly Property StartupPath As String
      Get
            If (Application.startupPath Is Nothing) Then
                  Dim builder1 As New StringBuilder(260)
                  UnsafeNativeMethods.GetModuleFileName(NativeMethods.NullHandleRef, builder1, builder1.Capacity)
                  Application.startupPath = Path.GetDirectoryName(builder1.ToString)
            End If
            New FileIOPermission(FileIOPermissionAccess.PathDiscovery, Application.startupPath).Demand
            Return Application.startupPath
      End Get
End Property


 

Ответить

Номер ответа: 18
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #18 Добавлено: 08.06.06 01:18
вот что у тебя должно было получиться... и это совсем не то,что ты написал в другом топике..
Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Location = New System.Drawing.Point(670, 473)
        Me.TransparencyKey = Me.BackColor
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

        ;Dim bitmapPath As String = Path.Combine(My.Application.Info.DirectoryPath, "Tany.gif";)

        'Проверяем наличие файла
        If Not File.Exists(bitmapPath) Then
            MessageBox.Show("Нету нифига твоей картинки возле ехе-шника!!!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If

        'Пытаемся её загрузить
        ;Dim MyBitmap As Bitmap = Nothing
        Try
            MyBitmap = New Bitmap(bitmapPath)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Return
        End Try

        'Задаем загруженную картинку в качестве фона
        Me.BackgroundImage = MyBitmap

    End Sub

    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        Me.Close()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.Opacity <= 0 Then Me.Close()
        Me.Opacity -= 0.1
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Timer1.Enabled = (Me.Left <= 100)
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Me.Left -= 1
    End Sub

End Class

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам