精华内容
下载资源
问答
  • vb 透明窗口边框

    2013-06-01 15:06:31
    vb把窗体的边框透明,其中有皮肤文件.
  • vb.net2005下,使用tao.framework 加载3ds文件的实现。
  • tao vb2005.net导入3ds文件
  • 其实主要是让浏览器直接下载文件而不是打开文件。 要做两步。 一就是把响应头的类型设置成 application/octet-stream 。 二就是设置HTTP响应头的名字为 Content-Disposition ,设定值为attachment; filename=...
        Public Sub downLoadFile(ByVal fPath As String)
            Dim fileInfo As System.IO.FileInfo = New System.IO.FileInfo(fPath)
            Response.Clear()
            Response.AddHeader("content-disposition", "attachment;filename=" + Server.UrlEncode(fileInfo.Name.ToString()))
            Response.AddHeader("content-length", fileInfo.Length.ToString())
            Response.ContentType = "application/octet-stream"
            Response.ContentEncoding = System.Text.Encoding.Default
            Response.WriteFile(fPath)
        End Sub

     

            public async Task<FileStreamResult> DownFile(string fileName)
            {
                var url = "http://boldseas.com/image/pro/"+ fileName;
                var http = new HttpClient();
                Stream x = await http.GetStreamAsync(url);
                return File(x, "application/octet-stream", Server.UrlEncode(fileName));
            }

    方式一:

    public FileStreamResult DownFile(string filePath, string fileName)
    {
          string absoluFilePath = Server.MapPath(System.Configuration.ConfigurationManager.AppSettings["AttachmentPath"] +      filePath);
           return File(new FileStream(absoluFilePath, FileMode.Open), "application/octet-stream", Server.UrlEncode(fileName));
    }

     

     

     

    方式二:

     

    public ActionResult DownFile(string filePath, string fileName)
    {
    filePath = Server.MapPath(System.Configuration.ConfigurationManager.AppSettings["AttachmentPath"] + filePath);
    FileStream fs = new FileStream(filePath, FileMode.Open);
    byte[] bytes = new byte[(int)fs.Length];
    fs.Read(bytes, 0, bytes.Length);
    fs.Close();
    Response.Charset = "UTF-8";
    Response.ContentEncoding = System.Text.Encoding.GetEncoding("UTF-8");
    Response.ContentType = "application/octet-stream";

    Response.AddHeader("Content-Disposition", "attachment; filename=" + Server.UrlEncode(fileName));
    Response.BinaryWrite(bytes);
    Response.Flush();
    Response.End();
    return new EmptyResult();

    }

     

    View调用:

    <href="/Document/DownFile?filePath=@item.Value&fileName=@item.Key">下载</a>  

     

     

    其实主要是让浏览器直接下载文件而不是打开文件。
    要做两步。
    一就是把响应头的类型设置成application/octet-stream
    二就是设置HTTP响应头的名字为Content-Disposition,设定值为attachment; filename=theFilename。这里的theFileName就是文件下载对话框里面的默认文件名。

    Response.ClearContent();
    Response.ContentType = "application/octet-stream";
    Response.AddHeader("Content-Disposition", "attachment;  filename=" + HttpUtility.UrlEncode("qrcode.png", System.Text.Encoding.UTF8));
    Response.BinaryWrite(ms.ToArray());

    转载于:https://www.cnblogs.com/longling2344/p/5408442.html

    展开全文
  • VB GDI文字边框轮廓特效,RTF文件生成器,为文字增加边框效果,而且是透明状态,窗口还可任意拖动,无边框、无标题栏窗口,退出键已定义为按“ESC”。VB6.0用GDI 画漂亮的文字窗口,本程序不是一个完整的源代码例子...
  • Sub 查询_用列表列举目录下的文件及子目录()  Dim path As String = Form账务统计_对公采购存档_编辑.LinkLabel1.Text  If Directory.Exists(path) Then  Dim Files() As String = Directory.GetFiles(path)  ...

        Sub 查询_用列表框列举目录下的文件及子目录()
            Dim path As String = Form账务统计_对公采购存档_编辑.LinkLabel1.Text
            If Directory.Exists(path) Then
                Dim Files() As String = Directory.GetFiles(path)
                Dim Folders() As String = Directory.GetDirectories(path)
                '获取path下文件数量
                Dim FilesList() As String = System.IO.Directory.GetFiles(path, "*.*")
                Dim iFiles As Integer = FilesList.Length
                '获取path下目录数量
                Dim FoldersList() As String = System.IO.Directory.GetDirectories(path)
                Dim iFolders As Integer = FoldersList.Length

                '列举path下的文件名
                If iFiles > 0 Then
                    For i As Integer = 0 To Files.Length - 1
                        Form账务统计_对公采购存档_编辑.ListBox1.Items.Add((Files(i)))
                    Next
                Else
                    Exit Sub
                End If
                '列举path下的目录名
                If iFolders > 0 Then
                    For i As Integer = 0 To Files.Length - 1
                        Form账务统计_对公采购存档_编辑.ListBox1.Items.Add(Folders(i))
                    Next
                Else
                    Exit Sub
                End If
            End If
        End Sub

    展开全文
  • 彈出下垃 + VB文件

    千次阅读 2006-05-08 20:12:00
    VBscript彈出下垃Sub SelectBut(str) ProName="P_requir_edu_List" ReValue=ShowModalDialog("P_Find_Sel.asp?Findtype="&Str&"&ProName="&ProName,window,"help=no;dialogtop="& window.event.y+95 &";...

    'VBscript彈出下垃框
    Sub SelectBut(str)
     ProName="P_requir_edu_List"
      ReValue=ShowModalDialog("P_Find_Sel.asp?Findtype="&Str&"&ProName="&ProName,window,"help=no;dialogtop="& window.event.y+95 &";dialogleft="& window.event.x+5 &";dialogheight=300px;dialogwidth=250px")
     If ReValue<>"" Then
      window.navigate "P_requir_edu_list.asp?FindStr="& ReValue &"&Findtype="& Str
     End if
     End Sub

    'VB讀文件

    Private fs As New FileSystemObject  'Microsoft Scripting runtime

    Private dbDll As New pubdb

    function selectSql(mapStr)
     Dim count As Integer
        If fs.FileExists(App.Path & "/input.txt") Then
            Set txtf = fs.OpenTextFile(App.Path & "/input.txt", ForReading, True)
            Do While Not txtf.AtEndOfStream
                count = count + 1
                str1 = txtf.ReadLine
                v = Split(str1, ";")
                For i = 0 To UBound(v)
                    selectSql = v(i)
                Next i
            Loop
        End If
    End Function

    展开全文
  • VB 文件管理工具箱

    2008-02-07 20:46:45
    在分类上点击鼠标右建可对分类进行更改和添加; 在蓝色图标上点击鼠标鼠标右建可对文件等进行添加,删除和更改; 支持拖放操作,也可以拖放文件夹,可以添加网址等。
  • 一个不错的VB ComboBox列表实例 你所看到的文件来自:E动天下—VB专业源码网 www.2e3.org
  • Public Function ListA(Path As String, Sz() As String, objA As Object) As Integer '声明Path路径,Sz字符串数组,ObjA对象形参 Dim a1 As String '一个临时...该函数可以读取某个文件的信息,并且返回到列表
    Public Function ListA(Path As String, Sz() As String, objA As Object) As Integer  '声明Path路径,Sz字符串数组,ObjA对象形参
    Dim a1 As String '一个临时变量
    Dim Temp As String '呵呵,又是一个临时变量
    Dim Js As Integer '饿,还是一个临时变量
    Js = 0 '初始化获取行数变量值为0
    Open Path For Input As #1 '输出list2.lis文件
    '使用Js变量获取整个lis文件的长度
    Do Until EOF(1) = True
    Line Input #1, Temp
    Js = Js + 1
    Loop
    Close #1
    '-----------------------------------------------
    Open Path For Input As #2
    For i = 0 To Js \ 2 - 2
    Line Input #2, a1
    objA.AddItem a1
    Next i
    '-----------------------------------------------
    '这里本想用For循环代替的,但好像容易溢出,鬼知道怎么回事
    Line Input #2, Temp '将文本中间两行废话读进temp变量
    Line Input #2, Temp '
    '-----------------------------------------------
    ReDim Sz(Js \ 2 - 2) '重新定义a2数组
    For i2 = 0 To Js \ 2 - 2 'JS总行数减去两行废话剩下的再除以上面和下面两个
    Line Input #2, Sz(i2)
    Next i2
    Close #2 '关闭文件
    ListA = Js / 2 - 2 + 1
    End Function

    之后再调用

    Dim ListTextNumber() As String
    
    Private Sub Form_Load()
    Dim ReturnList As Integer
    ReturnList = ListA(App.Path & "\ListItem.Item", ListTextNumber, List1)
    End Sub
    

    该函数可以读取某个文件的信息,并且返回到列表框。
    展开全文
  • VB 读写文件

    2015-10-08 15:26:53
    由于FSO对象包含在Scripting 类型库 (Scrrun.Dll)中,所以在使用前首先需要在在工程中引用这个文件,单击“工具”,“引用”,然后在“引用”对话框中选中“Microsoft Scripting Runtime”前的复选,然后单击...
  • VB 判断文件是否存在

    2010-04-26 12:33:59
    VB 判断文件是否存在 ...在输入内输入一个不存在的文件名,以便更容易查看出程序是否可用,另外除了判断文件存在的功能外,它还可以不进和行错误处理、进行错误处理、集中化错误处理以及模拟一个错误的功能。
  • VB文件部分知识重点l文件系统控件(同步效果的实现)l文件结构(顺序、随机、二进制)l顺序文件、随机文件的读写操作文件系统控件1.驱动器列表用于显示和选择驱动器。主要属性:[.]Drive=;主要事件:Change2.目录列表...
  • vb.net的文件系统控件

    2017-02-21 00:00:23
    vb.net的文件系统的驱动器列表,目录列表文件列表在哪里的,怎么添加这些控件
  • 文件列表

    2011-11-27 12:00:16
    这是一个用VB制作的类似于WIN系统的文件列表,很实用,欢迎大家下载。
  • VB遍历文件(夹)

    2019-01-15 12:33:36
    遍历文件夹下所有文件、文件夹。输出到列表中。=.=!
  • 框架页面的部分代码如下: 用WebBrowser1.Document.Window .Frames (0),为什么获取到第3个div的嵌入内容?
  • VB建立文件关联与命令行运行示例,关联和打开任何自定义文件类型,并将打开的文件路径显示在列表中。获取了文件的路径,想干嘛都行。原创代码
  • (1)在名称为Form1的窗体上添加一个名称为Command1的命令按钮,...②设置适当属性,使对话框的”文件类型”下拉式组合中有两项可供选择:”文本文件”、”所有文件”(如图所示),默认的类型是”所有文件”;③编写...
  • 在分类上点击鼠标右建可对分类进行更改和添加; 在蓝色图标上点击鼠标鼠标右建可对文件等进行添加,删除和更改; 支持拖放操作,也可以拖放文件夹,可以添加网址等。自动识别关联文件的图标.
  • vb6.0文件搜索查找程序实例,操作时选取文件夹所在的路径,选择文件所在范围,输入要查找的文件名进行搜索,调用SearchDirs函数查找文件,声明搜索文件要用到API函数和变量类型,递归调用Searchdirs自定义过程,实现...
  • 一般系统都没有RICHTX32.OCX这个文件的,安装了vb6精简版后也没有,而这个控件我们经常使用的,功能比vb标准的文本框控件强大多了。 使用方法: 1.下载下来解压 2.复制到系统目录,一般为c:\windows\system32 3.在...
  • VB 仿Picasa风格的列表控件 你看到的文件来自:E动天下(http:/www.2e3.org)
  • vb 谷歌Picasa风格的列表控件 你看到的文件来自:E动天下(http:/www.2e3.org)
  • Hi, I am building a program on Information ... 附加文件 使用VB 6_v2.zip将文本文件中的特定数据显示到列表中(2.3) KB,369 views) 扫一扫关注IT屋 微信公众号搜索 “ IT屋 ” ,选择关注 与百万开发者在一起
  • 使用vb程序编写的自动注册dll文件,代码自动生成需要注册dll部件的bat批处理文件,然后自动运行,注册dll部件,同时后台影藏注册,不会弹出Regsvr32成功提示,有效的解决win10不能注册dll问题。核心代码可直接应用...
  • 4.3.4 VB 程序文件;4.3.4 VB 程序文件;变量函数过程;变量函数过程;列表和组合;列表和组合续;列表和组合续;VB编码基础;4.4 VB 与面向对象程序设计;类与对象;类 定 义;类 继 承;类 继 承; 类 继 承;类的多...
  • ExcelandVB用VB创建EXCEL文件的实例

    热门讨论 2009-02-13 17:39:52
    ExcelandVB用VB创建EXCEL文件的实例,输入数据到EXCEL表中,并作一些字体边框的调整
  • vb中 打开文件夹浏览的方法总结

    万次阅读 2017-05-09 17:35:08
    众所周知,在vb中如果是打开某一个文件的话,非常简单,使用CommonDialog组件即可轻松完成,但是他只能选择文件,之后或许选取的文件路径,而如果想要浏览文件夹,就没这么方便了。 这里介绍3个办法来实现文件夹...
  • 两个VB点对点发送文件例子,原理基于TCP/IP协议,两个例子分别都包括了客户端和服务端程序,通过这两个小程序你可熟悉下VB中的点对点文件传输原理,TCP、IP协议的框架应用,还有数据缓冲区,文件包数,已传输数据的...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 697
精华内容 278
关键字:

vb文件框