Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Make Online News in frmMenu


farrel24
 Share

Recommended Posts

First Open your Client Project,

Press CTRL + T and Check " Microsoft Internet Controls"

Add That in picMain, Name = webNews

or whatever

Right Click and View Code

And Look "Private Sub Form_Load()"

Find```

' load news

Open App.Path & "\data files\news.txt" For Input As #1

Line Input #1, tmpTxt

Close #1

' split breaks

tmpArray() = Split(tmpTxt, "
")

lblNews.Caption = vbNullString

For i = 0 To UBound(tmpArray)

lblNews.Caption = lblNews.Caption & tmpArray(i) & vbNewLine

Next

```

Delete That, and Change to it

```

webNews.Navigate NewsURL

```

find```

Call PutVar(Filename, "Options", "Debug", str(Options.Debug))

```

Add it

```

NewsURL = GetVar(App.Path & "\Data Files\config.ini", "Options", "NewsURL")

```

And Open your Config.ini in data files folder

added```

NewsURL = www.blablabla.com/YourNews.html

```

#Change the "www.blablabla.com/YourNews.html" With your Own

Sorry if its a Old Tutorial, i just Share
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...