vb.netgdi删除的简单介绍

vb.net中使用GDI画图，然后平移，可是平移之前的图还在，怎么去掉平移之前的，保留平移之后的？

如果是简单的移动，先把图形绘制到大小和PictureBox的Bitmap上，然后再绘制到PictureBox就行。

不过在VB.NET中用GDI绘制最好用BufferedGraphics图形缓冲区，速度马马虎虎（VB就这样了），但是不闪烁，不存在背景擦除的问题。

相关问答

Q1: vb.net中，如何删除指定文本文档中的指定行的内容

        Dim newfile As New List(Of String)

        For Each line As String In System.IO.File.ReadAllLines("TextFile1.txt")

            If Not line.StartsWith("3") Then newfile.Add(line)

        Next

        System.IO.File.WriteAllLines("TextFile1.txt", newfile)

建个集合，用System.IO.File的ReadAllLines读出所有内容，逐个判断，如果是需要的加入集合，如果是要删除的什么都不做，最后用WriteAllLines写入即可。

这里说明一下，上面那个代码是用来删除所有以3开头的文本行。

Q2: vb.net怎么强制删除文件

先杀进程再删除文件

Visual Basic code

//杀进程代码

     Private Sub KillProcess(ByVal processName As String)

         Dim myproc As System.Diagnostics.Process = New System.Diagnostics.Process

         Try

             For Each thisproc As Process In Process.GetProcessesByName(processName)

                 If (Not thisproc.CloseMainWindow()) Then

                     thisproc.Kill()

                 End If

             Next

         Catch

         End Try

     End Sub

Q3: vb.net 如何删除窗体中多余的控件？

方法有很多

1.拖动移开一些控件 把下边的控件显示出来 选择 del删除

2.通过属性窗口调出该控件属性,这时该控件的边框会被标记,然后点击该控件边缘的控制点(作用是给他控制焦点),然后按del

3.打开代码窗口, 打开窗口设计代码, 删除你不需要的控件的定义和初始化语句(一般先删除定义语句,然后所有有关的定义语句都会标记语法错误,然后就可以方便的看出来 ,最后就是把标记了错误的相关语句删除就ok了.)

Q4: 在vb.net中的datagridview中怎么删除选中行

你这要实现的功能个步骤是这样：1.在搜索栏中填入姓名，点击查询按钮后找到该学生信息，并显示在下面dataGridView中；2.点击要删除数据的哪行数据；3.点击删除按钮后删除该数据并提示成功。

上面的第一个步骤查找的你应该会做了吧？第三个步骤在点击“删除”按钮时，也就是在删除按钮点击事件中要做：1.获取选中行的学号

String sno= dataGridView1.SelectedRows[0].Cells["学号"].Value.ToString();2.执行SQL语句，删除该数据

string sql = string.Format("delete 表 where 学号=‘{}’",sno);SqlConnection conn = new SqlConnection("....");SqlCommand cmd = new SqlCommand(sql,conn);cmd.ExecuteNonQuery();3.提示删除成功，并刷新dataGridView

以上代码是C#，你VB.NET也差不多的，只是声明变量时候顺序不一样，应该能看懂吧。上面信息希望对你有帮助^^

Q5: vb.net删除文件

Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click

        Try

            ' 先建立目录以便用于后续的删除示范。

            If Not Directory.Exists("D:\网易") Then

                Directory.CreateDirectory(" D:\网易 \Test1")

                Directory.CreateDirectory(" D:\网易 \Test2")

                Directory.CreateDirectory(" D:\网易 \Test3")

            End If

            ' 删除子目录 Test1。

            Directory.Delete(" D:\网易 \Test1", True)

            ' 删除子目录 Test2。

            Dim myDirectoryInfo As New DirectoryInfo(" D:\网易 \Test2")

            myDirectoryInfo.Delete(True)

            ' 将目录 C:\AlexDirDemo 及其以下的文件和子目录全数删除。

            Directory.Delete(" D:\网易 ", True)

        Catch ex As Exception

            MessageBox.Show(ex.Message)

            Exit Sub

        End Try

        ' 启动 Windows 资源管理器。

        Process.Start("explorer.exe", "D:\")

    End Sub