كسي وي بي دات نت بلده؟؟

شروع موضوع توسط parscyber ‏4 اکتبر 2004 در انجمن Visual Basic.Net

  1. parscyber

    parscyber Registered User

    تاریخ عضویت:
    ‏18 سپتامبر 2004
    نوشته ها:
    1,170
    تشکر شده:
    16
    سلام.
    ميخواستم بدونم كه كسي اگه اينجا وي بي دات نت بلده كمكم كنه...
    من ميخوام برنامه ام رو از ليست ctrl+alt+delete بردارم.
    او وي بي 6 اين كار با دستور زير انجام ميشد:
    App.TaskVisible = False​
    ما تا اونجايي كه ميدونيم تو دات نت App هست Application. حالا ديگه نميدونيم معادل دستورش چيه...
    لطفا اگه ميدونيد كمكم كنيد. :)
     
  2. خرید بک لینکبازدیدیار - افزایش بازدید سایت و سیگنال های برند
  3. Piter1356

    Piter1356 کاربر تازه وارد

    تاریخ عضویت:
    ‏11 اکتبر 2004
    نوشته ها:
    395
    تشکر شده:
    0
    محل سکونت:
    tehran
    سلام
    یه راه حل
    تا اونجایی که میدونم دات نت یه کانورتور کدهای وبی 6 به دات نت داره .
    این کد رو تو یه فرم ساده بنویس . بعد به دات نت کانورت کن . خودش معادلش رو جایگزین میکنه . :)
     
  4. parscyber

    parscyber Registered User

    تاریخ عضویت:
    ‏18 سپتامبر 2004
    نوشته ها:
    1,170
    تشکر شده:
    16
    مرسي ولي اين كانورتور كجاست؟ من تا اونجايي كه ميدونم اين چيز رو نداره.
    دوست عزيز اگه ميشه ميتوني كمك كني بگي اين مبدل كجاست؟
    ممنون ميشم
     
  5. littlerabbit

    littlerabbit مدیر بازنشسته کاربر فعال

    تاریخ عضویت:
    ‏13 جولای 2003
    نوشته ها:
    667
    تشکر شده:
    5
    محل سکونت:
    Iran
    فقط كافيه برنامه كه با وي بي 6 نوشتي با وي بي نت باز كني.(منوي Open) يه ويزارد مياد و خودش اين كارو ميكنه.
     
  6. saeed_1369

    saeed_1369 کاربر تازه وارد

    تاریخ عضویت:
    ‏7 دسامبر 2007
    نوشته ها:
    53
    تشکر شده:
    0
    Imports System
    Imports System.Diagnostics

    Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    txtMachine.Text = System.Environment.MachineName.ToString
    Call FillList(txtMachine.Text)
    End Sub

    Sub FillList(ByVal MachineName As String)
    Dim Prc() As Process
    Dim i As Integer
    Dim lvwP As ListViewItem
    Try
    lvwProcesses.Items.Clear()
    Prc = Process.GetProcesses(MachineName)

    For i = 0 To UBound(Prc)
    lvwP = lvwProcesses.Items.Add(Prc(i).ProcessName.ToUpper)

    If MachineName <> System.Environment.MachineName Then
    lvwP.SubItems.Add("Unavailable...")
    lvwP.SubItems.Add("Unavailable...")
    lvwP.SubItems.Add(Prc(i).Id)
    Else
    lvwP.SubItems.Add(Prc(i).MainWindowTitle)
    lvwP.SubItems.Add(Prc(i).Responding)
    lvwP.SubItems.Add(Prc(i).Id)
    End If

    Next
    Catch
    lvwProcesses.Items.Add("Error enumerating items...")
    End Try
    End Sub

    Private Sub cmdEndProc_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdEndProc.Click
    Dim Prc As Process

    If txtMachine.Text = System.Environment.MachineName.ToString Then
    Try
    Prc = Process.GetProcessById(lvwProcesses.SelectedItems(0).SubItems(3).Text)
    Prc.Kill()
    lvwProcesses.Items.Remove(lvwProcesses.SelectedItems.Item(0))
    Catch
    MessageBox.Show("Could not close process, " & Err.Description, "Error:", MessageBoxButtons.OK, MessageBoxIcon.Stop)
    End Try
    Else
    MessageBox.Show("You cannot close processes on a remote machine, only view them!", "Error:", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    End If
    End Sub

    Private Sub cmdRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRefresh.Click
    txtMachine.Text = txtMachine.Text.ToUpper
    Call FillList(txtMachine.Text)
    End Sub
    یکمی فکر کنی می تو نی از این کد نیازت رو برداری من وقت کم دارم تا برات سادترش کنم
     
عسل طبیعی و گرده گل ایرانیخدمات پی پال، وسترن یونیون